Commit ebe3caac authored by Erika Segatto's avatar Erika Segatto

inclui a geração de código de classe de domínio Java para projeto sem curio

parent 1c46e551
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="12"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<Flags> <Flags>
...@@ -9,9 +9,9 @@ ...@@ -9,9 +9,9 @@
<MainUnitHasCreateFormStatements Value="False"/> <MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/> <MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/> <MainUnitHasScaledStatement Value="False"/>
<CompatibilityMode Value="True"/>
</Flags> </Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="CurioAddIn"/> <Title Value="CurioAddIn"/>
<UseAppBundle Value="False"/> <UseAppBundle Value="False"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
...@@ -429,9 +429,6 @@ ...@@ -429,9 +429,6 @@
<ShowAll Value="True"/> <ShowAll Value="True"/>
</Verbosity> </Verbosity>
<CustomOptions Value="-dUseCThreads"/> <CustomOptions Value="-dUseCThreads"/>
<OtherDefines Count="1">
<Define0 Value="FullDebugMode"/>
</OtherDefines>
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
......
...@@ -417,7 +417,9 @@ begin ...@@ -417,7 +417,9 @@ begin
lPreview.mem_ClassCSharp.Lines.Text := lUtilitario.GerarClassPreview_CSharp(lModel as IUMLClass); lPreview.mem_ClassCSharp.Lines.Text := lUtilitario.GerarClassPreview_CSharp(lModel as IUMLClass);
lPreview.mem_ClassJava.Lines.Text := lUtilitario.GerarClassPreview_Java(lModel as IUMLClass); lPreview.mem_ClassJava.Lines.Text := lUtilitario.GerarClassPreview_Java(lModel as IUMLClass);
lPreview.mem_ClassSQL.Lines.Text := lUtilitario.GerarSQLPreview(lModel); lPreview.mem_ClassSQL.Lines.Text := lUtilitario.GerarSQLPreview(lModel);
lPreview.mem_ClassOracle.Lines.Text := lUtilitario.GerarSQLPreview(lModel, dbvOracle); lPreview.mem_ClassJavaHibernate.Lines.Text := lUtilitario.GerarClassPreview_JavaHibernate(lModel as IUMLClass);
lPreview.mem_ClassJavaDomain.Lines.Text := lUtilitario.GerarClassPreview_JavaDomain(lModel as IUMLClass);
lPreview.mem_ClassJavaMapper.Lines.Text := lUtilitario.GerarClassPreview_JavaMapper(lModel as IUMLClass);
lPreview.ShowModal; lPreview.ShowModal;
finally finally
FreeAndNil(lPreview); FreeAndNil(lPreview);
......
This diff is collapsed.
object CodeGen: TCodeGen object CodeGen: TCodeGen
Left = 2569 Left = 0
Height = 616 Height = 616
Top = 219 Top = 0
Width = 889 Width = 889
Caption = 'CodeGen' Caption = 'CodeGen'
ClientHeight = 616 ClientHeight = 616
...@@ -13,7 +13,7 @@ object CodeGen: TCodeGen ...@@ -13,7 +13,7 @@ object CodeGen: TCodeGen
KeyPreview = True KeyPreview = True
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '2.0.2.0' LCLVersion = '2.0.4.0'
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 616 Height = 616
......
This diff is collapsed.
...@@ -12,6 +12,9 @@ type ...@@ -12,6 +12,9 @@ type
{ TPreviewClassCode } { TPreviewClassCode }
TPreviewClassCode = class(TForm) TPreviewClassCode = class(TForm)
mem_ClassJavaHibernate: TSynEdit;
mem_ClassJavaDomain: TSynEdit;
mem_ClassJavaMapper: TSynEdit;
Panel2: TPanel; Panel2: TPanel;
Panel1: TPanel; Panel1: TPanel;
Button1: TButton; Button1: TButton;
...@@ -28,10 +31,13 @@ type ...@@ -28,10 +31,13 @@ type
SynSQLSyn2: TSynSQLSyn; SynSQLSyn2: TSynSQLSyn;
TabSheet1: TTabSheet; TabSheet1: TTabSheet;
pgc_ClassCode: TPageControl; pgc_ClassCode: TPageControl;
TabSheet3: TTabSheet; tbJavaMapper: TTabSheet;
TabSheet4: TTabSheet; tbJavaDomain: TTabSheet;
TabSheet5: TTabSheet; tbJavaHibernate: TTabSheet;
TabSheet6: TTabSheet; tbObjPascal: TTabSheet;
tbJavaCurio: TTabSheet;
tbCSharp: TTabSheet;
tbSQL: TTabSheet;
PageControl1: TPageControl; PageControl1: TPageControl;
TabSheet10: TTabSheet; TabSheet10: TTabSheet;
TabSheet14: TTabSheet; TabSheet14: TTabSheet;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment