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"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<General>
<Flags>
......@@ -9,9 +9,9 @@
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="CurioAddIn"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
......@@ -429,9 +429,6 @@
<ShowAll Value="True"/>
</Verbosity>
<CustomOptions Value="-dUseCThreads"/>
<OtherDefines Count="1">
<Define0 Value="FullDebugMode"/>
</OtherDefines>
</Other>
</CompilerOptions>
<Debugging>
......
......@@ -417,7 +417,9 @@ begin
lPreview.mem_ClassCSharp.Lines.Text := lUtilitario.GerarClassPreview_CSharp(lModel as IUMLClass);
lPreview.mem_ClassJava.Lines.Text := lUtilitario.GerarClassPreview_Java(lModel as IUMLClass);
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;
finally
FreeAndNil(lPreview);
......
This diff is collapsed.
object CodeGen: TCodeGen
Left = 2569
Left = 0
Height = 616
Top = 219
Top = 0
Width = 889
Caption = 'CodeGen'
ClientHeight = 616
......@@ -13,7 +13,7 @@ object CodeGen: TCodeGen
KeyPreview = True
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.0.2.0'
LCLVersion = '2.0.4.0'
object PageControl1: TPageControl
Left = 0
Height = 616
......
This diff is collapsed.
......@@ -12,6 +12,9 @@ type
{ TPreviewClassCode }
TPreviewClassCode = class(TForm)
mem_ClassJavaHibernate: TSynEdit;
mem_ClassJavaDomain: TSynEdit;
mem_ClassJavaMapper: TSynEdit;
Panel2: TPanel;
Panel1: TPanel;
Button1: TButton;
......@@ -28,10 +31,13 @@ type
SynSQLSyn2: TSynSQLSyn;
TabSheet1: TTabSheet;
pgc_ClassCode: TPageControl;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
TabSheet6: TTabSheet;
tbJavaMapper: TTabSheet;
tbJavaDomain: TTabSheet;
tbJavaHibernate: TTabSheet;
tbObjPascal: TTabSheet;
tbJavaCurio: TTabSheet;
tbCSharp: TTabSheet;
tbSQL: TTabSheet;
PageControl1: TPageControl;
TabSheet10: 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