Skip to content

S
StarUML Evológica Plugin
Commit f589c165 authored by Sandro Camata Santana's avatar Sandro Camata Santana
Browse files
Options

Ajustes de cores e fonte

parent bd29700c
Show whitespace changes
Inline Side-by-side
Showing with 150 additions and 236 deletions
EvoUMLPlugin/src/IntegracaoDelphiSUML.pas
View file @ f589c165
...@@ -5080,7 +5080,8 @@ begin ...@@ -5080,7 +5080,8 @@ begin
GerarRelationsPartnerShips(lClassTicket, lInstantCodeClass); GerarRelationsPartnerShips(lClassTicket, lInstantCodeClass);
lInstantCodeModule.ImplementationSection.Clear; lInstantCodeModule.ImplementationSection.Clear;
lInstantCodeModule.InitializationSection.CodeText := '// PersistenceManager.RegisterClass(TypeOf('+lsNomeClasse+'));'; lInstantCodeModule.ImplementationSection.AddUses.Name := 'acuObject;';
lInstantCodeModule.InitializationSection.CodeText := ' PersistenceManager.RegisterClass(TypeOf('+lsNomeClasse+'));';
result := lInstantCodeModule.AsString; result := lInstantCodeModule.AsString;
// end // end
...@@ -5289,10 +5290,10 @@ var ...@@ -5289,10 +5290,10 @@ var
lInstantCodeMethod.Proc := lInstantCodeProc; lInstantCodeMethod.Proc := lInstantCodeProc;
lInstantCodeMethod := lInstantCodeClass.AddMethod(viPublic); lInstantCodeMethod := lInstantCodeClass.AddMethod(viPublic);
lInstantCodeMethod.Prototype.Name := 'Finalize'; lInstantCodeMethod.Prototype.Name := 'Finish';
lInstantCodeMethod.Prototype.Flags := [pfOverride]; lInstantCodeMethod.Prototype.Flags := [pfOverride];
lInstantCodeProc := lInstantCodeModule.ImplementationSection.AddProc; lInstantCodeProc := lInstantCodeModule.ImplementationSection.AddProc;
lInstantCodeProc.Name := lInstantCodeClass.Name + '.' + 'Finalize'; lInstantCodeProc.Name := lInstantCodeClass.Name + '.' + 'Finish';
lInstantCodeProc.Body.Text := #13#10 + 'inherited;'; lInstantCodeProc.Body.Text := #13#10 + 'inherited;';
lInstantCodeMethod.Proc := lInstantCodeProc; lInstantCodeMethod.Proc := lInstantCodeProc;
end; end;
...@@ -5423,13 +5424,13 @@ begin ...@@ -5423,13 +5424,13 @@ begin
lInstantCodeClass.BaseClassName := lUseCase.InheritsFromClass; lInstantCodeClass.BaseClassName := lUseCase.InheritsFromClass;
lInstantCodeModule.ImplementationSection.AddUses.Name := 'ucuManager'; lInstantCodeModule.ImplementationSection.AddUses.Name := 'acuObject, ucuManager';
AddOverrideMethods; AddOverrideMethods;
ReadStateMachine(lUseCase.StateMachine); ReadStateMachine(lUseCase.StateMachine);
lInstantCodeModule.InitializationSection.CodeText := format(' gucManager.RegisterClass(%s,%s);',[TCodeGenParamsUseCase(piParams).UseCaseCode, lUseCase.Name]); lInstantCodeModule.InitializationSection.CodeText := format(' gucManager.RegisterClass(''%s'', TypeOf(%s));',[TCodeGenParamsUseCase(piParams).UseCaseCode, lUseCase.Name]);
result := lInstantCodeModule.AsString; result := lInstantCodeModule.AsString;
finally finally
......
EvoUMLPlugin/src/fCodeGen.dfm
View file @ f589c165
...@@ -6,14 +6,14 @@ object CodeGen: TCodeGen ...@@ -6,14 +6,14 @@ object CodeGen: TCodeGen
Caption = 'CodeGen' Caption = 'CodeGen'
ClientHeight = 616 ClientHeight = 616
ClientWidth = 889 ClientWidth = 889
Color = clBtnFace Color = clWindow
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
KeyPreview = True KeyPreview = True
OnShow = FormShow OnShow = FormShow
Position = poDesktopCenter Position = poDesktopCenter
LCLVersion = '2.0.0.4' LCLVersion = '2.0.2.0'
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 616 Height = 616
...@@ -25,26 +25,26 @@ object CodeGen: TCodeGen ...@@ -25,26 +25,26 @@ object CodeGen: TCodeGen
TabOrder = 0 TabOrder = 0
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'UseCase' Caption = 'UseCase'
ClientHeight = 588 ClientHeight = 590
ClientWidth = 879 ClientWidth = 881
object Panel3: TPanel object Panel3: TPanel
Left = 0 Left = 0
Height = 588 Height = 590
Top = 0 Top = 0
Width = 879 Width = 881
Align = alClient Align = alClient
BevelOuter = bvLowered BevelOuter = bvLowered
ClientHeight = 588 ClientHeight = 590
ClientWidth = 879 ClientWidth = 881
TabOrder = 0 TabOrder = 0
object Panel2: TPanel object Panel2: TPanel
Left = 1 Left = 1
Height = 463 Height = 465
Top = 124 Top = 124
Width = 280 Width = 280
Align = alLeft Align = alLeft
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 463 ClientHeight = 465
ClientWidth = 280 ClientWidth = 280
TabOrder = 0 TabOrder = 0
object Panel4: TPanel object Panel4: TPanel
...@@ -199,7 +199,7 @@ object CodeGen: TCodeGen ...@@ -199,7 +199,7 @@ object CodeGen: TCodeGen
end end
object lvUseCases: TListView object lvUseCases: TListView
Left = 0 Left = 0
Height = 378 Height = 380
Top = 41 Top = 41
Width = 280 Width = 280
Align = alClient Align = alClient
...@@ -210,6 +210,7 @@ object CodeGen: TCodeGen ...@@ -210,6 +210,7 @@ object CodeGen: TCodeGen
Width = 278 Width = 278
end> end>
MultiSelect = True MultiSelect = True
ParentColor = True
ReadOnly = True ReadOnly = True
RowSelect = True RowSelect = True
ScrollBars = ssAutoBoth ScrollBars = ssAutoBoth
...@@ -221,7 +222,7 @@ object CodeGen: TCodeGen ...@@ -221,7 +222,7 @@ object CodeGen: TCodeGen
object Panel13: TPanel object Panel13: TPanel
Left = 0 Left = 0
Height = 44 Height = 44
Top = 419 Top = 421
Width = 280 Width = 280
Align = alBottom Align = alBottom
BevelInner = bvLowered BevelInner = bvLowered
...@@ -248,33 +249,33 @@ object CodeGen: TCodeGen ...@@ -248,33 +249,33 @@ object CodeGen: TCodeGen
end end
object PageControl2: TPageControl object PageControl2: TPageControl
Left = 281 Left = 281
Height = 463 Height = 465
Top = 124 Top = 124
Width = 597 Width = 599
ActivePage = TabSheet2 ActivePage = TabSheet2
Align = alClient Align = alClient
TabIndex = 0 TabIndex = 0
TabOrder = 1 TabOrder = 1
object TabSheet2: TTabSheet object TabSheet2: TTabSheet
Caption = 'Usecase' Caption = 'Usecase'
ClientHeight = 435 ClientHeight = 439
ClientWidth = 587 ClientWidth = 591
object Panel5: TPanel object Panel5: TPanel
Left = 0 Left = 0
Height = 435 Height = 439
Top = 0 Top = 0
Width = 587 Width = 591
Align = alClient Align = alClient
BevelInner = bvLowered BevelInner = bvLowered
Caption = 'Panel5' Caption = 'Panel5'
ClientHeight = 435 ClientHeight = 439
ClientWidth = 587 ClientWidth = 591
TabOrder = 0 TabOrder = 0
object Panel6: TPanel object Panel6: TPanel
Left = 2 Left = 2
Height = 20 Height = 20
Top = 2 Top = 2
Width = 583 Width = 587
Align = alTop Align = alTop
BevelInner = bvLowered BevelInner = bvLowered
Caption = 'UseCase code preview' Caption = 'UseCase code preview'
...@@ -282,21 +283,13 @@ object CodeGen: TCodeGen ...@@ -282,21 +283,13 @@ object CodeGen: TCodeGen
end end
inline memCode: TSynEdit inline memCode: TSynEdit
Left = 2 Left = 2
Height = 411 Height = 415
Top = 22 Top = 22
Width = 583 Width = 587
Align = alClient Align = alClient
Color = clWindow
Font.Color = clWindowText
Font.Height = 13
Font.Name = 'DejaVu Sans Mono'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 1 TabOrder = 1
BorderStyle = bsNone BorderStyle = bsNone
Gutter.Width = 23 Gutter.Width = 29
Gutter.MouseActions = <> Gutter.MouseActions = <>
RightGutter.Width = 0 RightGutter.Width = 0
RightGutter.MouseActions = <> RightGutter.MouseActions = <>
...@@ -760,7 +753,7 @@ object CodeGen: TCodeGen ...@@ -760,7 +753,7 @@ object CodeGen: TCodeGen
MouseActions = <> MouseActions = <>
end end
object SynGutterLineNumber1: TSynGutterLineNumber object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17 Width = 23
MouseActions = <> MouseActions = <>
MarkupInfo.Background = clBtnFace MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone MarkupInfo.Foreground = clNone
...@@ -795,14 +788,14 @@ object CodeGen: TCodeGen ...@@ -795,14 +788,14 @@ object CodeGen: TCodeGen
end end
object TabSheet3: TTabSheet object TabSheet3: TTabSheet
Caption = 'XSD' Caption = 'XSD'
ClientHeight = 435 ClientHeight = 439
ClientWidth = 587 ClientWidth = 591
ImageIndex = 1 ImageIndex = 1
object lvXSD: TListView object lvXSD: TListView
Left = 0 Left = 0
Height = 129 Height = 129
Top = 0 Top = 0
Width = 587 Width = 591
Align = alTop Align = alTop
Columns = < Columns = <
item item
...@@ -826,6 +819,7 @@ object CodeGen: TCodeGen ...@@ -826,6 +819,7 @@ object CodeGen: TCodeGen
Width = 150 Width = 150
end> end>
MultiSelect = True MultiSelect = True
ParentColor = True
ReadOnly = True ReadOnly = True
RowSelect = True RowSelect = True
ScrollBars = ssAutoBoth ScrollBars = ssAutoBoth
...@@ -836,34 +830,26 @@ object CodeGen: TCodeGen ...@@ -836,34 +830,26 @@ object CodeGen: TCodeGen
end end
object PageControl3: TPageControl object PageControl3: TPageControl
Left = 0 Left = 0
Height = 306 Height = 310
Top = 129 Top = 129
Width = 587 Width = 591
ActivePage = TabSheet4 ActivePage = TabSheet4
Align = alClient Align = alClient
TabIndex = 0 TabIndex = 0
TabOrder = 1 TabOrder = 1
object TabSheet4: TTabSheet object TabSheet4: TTabSheet
Caption = 'XSD In' Caption = 'XSD In'
ClientHeight = 278 ClientHeight = 284
ClientWidth = 577 ClientWidth = 583
inline memXSDIn: TSynEdit inline memXSDIn: TSynEdit
Left = 0 Left = 0
Height = 278 Height = 284
Top = 0 Top = 0
Width = 577 Width = 583
Align = alClient Align = alClient
Color = clWindow
Font.Color = clWindowText
Font.Height = 13
Font.Name = 'DejaVu Sans Mono'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 0 TabOrder = 0
BorderStyle = bsNone BorderStyle = bsNone
Gutter.Width = 23 Gutter.Width = 29
Gutter.MouseActions = <> Gutter.MouseActions = <>
RightGutter.Width = 0 RightGutter.Width = 0
RightGutter.MouseActions = <> RightGutter.MouseActions = <>
...@@ -1327,7 +1313,7 @@ object CodeGen: TCodeGen ...@@ -1327,7 +1313,7 @@ object CodeGen: TCodeGen
MouseActions = <> MouseActions = <>
end end
object SynGutterLineNumber1: TSynGutterLineNumber object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17 Width = 23
MouseActions = <> MouseActions = <>
MarkupInfo.Background = clBtnFace MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone MarkupInfo.Foreground = clNone
...@@ -1361,26 +1347,18 @@ object CodeGen: TCodeGen ...@@ -1361,26 +1347,18 @@ object CodeGen: TCodeGen
end end
object TabSheet5: TTabSheet object TabSheet5: TTabSheet
Caption = 'XSD Out' Caption = 'XSD Out'
ClientHeight = 278 ClientHeight = 284
ClientWidth = 577 ClientWidth = 583
ImageIndex = 1 ImageIndex = 1
inline memXSDOut: TSynEdit inline memXSDOut: TSynEdit
Left = 0 Left = 0
Height = 278 Height = 284
Top = 0 Top = 0
Width = 577 Width = 583
Align = alClient Align = alClient
Color = clWindow
Font.Color = clWindowText
Font.Height = 13
Font.Name = 'DejaVu Sans Mono'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 0 TabOrder = 0
BorderStyle = bsNone BorderStyle = bsNone
Gutter.Width = 23 Gutter.Width = 29
Gutter.MouseActions = <> Gutter.MouseActions = <>
RightGutter.Width = 0 RightGutter.Width = 0
RightGutter.MouseActions = <> RightGutter.MouseActions = <>
...@@ -1844,7 +1822,7 @@ object CodeGen: TCodeGen ...@@ -1844,7 +1822,7 @@ object CodeGen: TCodeGen
MouseActions = <> MouseActions = <>
end end
object SynGutterLineNumber1: TSynGutterLineNumber object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17 Width = 23
MouseActions = <> MouseActions = <>
MarkupInfo.Background = clBtnFace MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone MarkupInfo.Foreground = clNone
...@@ -1883,26 +1861,26 @@ object CodeGen: TCodeGen ...@@ -1883,26 +1861,26 @@ object CodeGen: TCodeGen
Left = 1 Left = 1
Height = 123 Height = 123
Top = 1 Top = 1
Width = 877 Width = 879
ActivePage = TabSheet7 ActivePage = TabSheet7
Align = alTop Align = alTop
TabIndex = 0 TabIndex = 0
TabOrder = 2 TabOrder = 2
object TabSheet7: TTabSheet object TabSheet7: TTabSheet
Caption = 'General' Caption = 'General'
ClientHeight = 95 ClientHeight = 97
ClientWidth = 867 ClientWidth = 871
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 95 Height = 97
Top = 0 Top = 0
Width = 867 Width = 871
Align = alClient Align = alClient
ClientHeight = 95 ClientHeight = 97
ClientWidth = 867 ClientWidth = 871
TabOrder = 0 TabOrder = 0
object SpeedButton6: TSpeedButton object SpeedButton6: TSpeedButton
Left = 761 Left = 765
Height = 71 Height = 71
Top = 15 Top = 15
Width = 100 Width = 100
...@@ -2143,8 +2121,8 @@ object CodeGen: TCodeGen ...@@ -2143,8 +2121,8 @@ object CodeGen: TCodeGen
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 69 ClientHeight = 66
ClientWidth = 93 ClientWidth = 91
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'Server' 'Server'
...@@ -2167,8 +2145,8 @@ object CodeGen: TCodeGen ...@@ -2167,8 +2145,8 @@ object CodeGen: TCodeGen
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 69 ClientHeight = 66
ClientWidth = 96 ClientWidth = 94
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'ObjPascal' 'ObjPascal'
...@@ -2184,8 +2162,8 @@ object CodeGen: TCodeGen ...@@ -2184,8 +2162,8 @@ object CodeGen: TCodeGen
Top = 7 Top = 7
Width = 537 Width = 537
Caption = 'Output directory' Caption = 'Output directory'
ClientHeight = 69 ClientHeight = 66
ClientWidth = 535 ClientWidth = 533
TabOrder = 2 TabOrder = 2
object SpeedButton5: TSpeedButton object SpeedButton5: TSpeedButton
Left = 503 Left = 503
...@@ -2225,7 +2203,7 @@ object CodeGen: TCodeGen ...@@ -2225,7 +2203,7 @@ object CodeGen: TCodeGen
end end
object edtDirectory: TEdit object edtDirectory: TEdit
Left = 10 Left = 10
Height = 31 Height = 21
Top = 33 Top = 33
Width = 487 Width = 487
TabOrder = 0 TabOrder = 0
...@@ -2235,35 +2213,35 @@ object CodeGen: TCodeGen ...@@ -2235,35 +2213,35 @@ object CodeGen: TCodeGen
end end
object Options: TTabSheet object Options: TTabSheet
Caption = 'Options' Caption = 'Options'
ClientHeight = 95 ClientHeight = 97
ClientWidth = 867 ClientWidth = 871
ImageIndex = 1 ImageIndex = 1
object Panel9: TPanel object Panel9: TPanel
Left = 380 Left = 380
Height = 95 Height = 97
Top = 0 Top = 0
Width = 487 Width = 491
Align = alClient Align = alClient
BevelInner = bvLowered BevelInner = bvLowered
ClientHeight = 95 ClientHeight = 97
ClientWidth = 487 ClientWidth = 491
TabOrder = 0 TabOrder = 0
object PageControl4: TPageControl object PageControl4: TPageControl
Left = 2 Left = 2
Height = 91 Height = 93
Top = 2 Top = 2
Width = 483 Width = 487
ActivePage = TabSheet8 ActivePage = TabSheet8
Align = alClient Align = alClient
TabIndex = 0 TabIndex = 0
TabOrder = 0 TabOrder = 0
object TabSheet8: TTabSheet object TabSheet8: TTabSheet
Caption = 'Java' Caption = 'Java'
ClientHeight = 63 ClientHeight = 67
ClientWidth = 473 ClientWidth = 479
object Label1: TLabel object Label1: TLabel
Left = 10 Left = 10
Height = 14 Height = 13
Top = 10 Top = 10
Width = 73 Width = 73
Caption = 'Package name:' Caption = 'Package name:'
...@@ -2271,7 +2249,7 @@ object CodeGen: TCodeGen ...@@ -2271,7 +2249,7 @@ object CodeGen: TCodeGen
end end
object edtJavaPackageName: TEdit object edtJavaPackageName: TEdit
Left = 89 Left = 89
Height = 31 Height = 21
Top = 5 Top = 5
Width = 376 Width = 376
OnChange = edtJavaPackageNameChange OnChange = edtJavaPackageNameChange
...@@ -2283,19 +2261,19 @@ object CodeGen: TCodeGen ...@@ -2283,19 +2261,19 @@ object CodeGen: TCodeGen
end end
object Panel10: TPanel object Panel10: TPanel
Left = 0 Left = 0
Height = 95 Height = 97
Top = 0 Top = 0
Width = 380 Width = 380
Align = alLeft Align = alLeft
BevelInner = bvLowered BevelInner = bvLowered
ClientHeight = 95 ClientHeight = 97
ClientWidth = 380 ClientWidth = 380
TabOrder = 1 TabOrder = 1
object ckbExportsXSD: TCheckBox object ckbExportsXSD: TCheckBox
Left = 11 Left = 11
Height = 23 Height = 19
Top = 9 Top = 9
Width = 151 Width = 145
Caption = 'Export XSD file if avaliable' Caption = 'Export XSD file if avaliable'
Checked = True Checked = True
State = cbChecked State = cbChecked
...@@ -2303,9 +2281,9 @@ object CodeGen: TCodeGen ...@@ -2303,9 +2281,9 @@ object CodeGen: TCodeGen
end end
object ckbExportJPG: TCheckBox object ckbExportJPG: TCheckBox
Left = 11 Left = 11
Height = 23 Height = 19
Top = 33 Top = 33
Width = 341 Width = 335
Caption = 'Export a statemachine diagram JPG file for each selected usecase' Caption = 'Export a statemachine diagram JPG file for each selected usecase'
Checked = True Checked = True
State = cbChecked State = cbChecked
...@@ -2318,40 +2296,40 @@ object CodeGen: TCodeGen ...@@ -2318,40 +2296,40 @@ object CodeGen: TCodeGen
end end
object TabSheet6: TTabSheet object TabSheet6: TTabSheet
Caption = 'SQL' Caption = 'SQL'
ClientHeight = 588 ClientHeight = 590
ClientWidth = 879 ClientWidth = 881
ImageIndex = 1 ImageIndex = 1
object PageControl5: TPageControl object PageControl5: TPageControl
Left = 0 Left = 0
Height = 588 Height = 590
Top = 0 Top = 0
Width = 879 Width = 881
ActivePage = TabSheet9 ActivePage = TabSheet9
Align = alClient Align = alClient
TabIndex = 0 TabIndex = 0
TabOrder = 0 TabOrder = 0
object TabSheet9: TTabSheet object TabSheet9: TTabSheet
Caption = 'SQL Server' Caption = 'SQL Server'
ClientHeight = 560 ClientHeight = 564
ClientWidth = 869 ClientWidth = 873
object Panel7: TPanel object Panel7: TPanel
Left = 0 Left = 0
Height = 560 Height = 564
Top = 0 Top = 0
Width = 869 Width = 873
Align = alClient Align = alClient
BevelOuter = bvLowered BevelOuter = bvLowered
ClientHeight = 560 ClientHeight = 564
ClientWidth = 869 ClientWidth = 873
TabOrder = 0 TabOrder = 0
object Panel8: TPanel object Panel8: TPanel
Left = 1 Left = 1
Height = 40 Height = 40
Top = 1 Top = 1
Width = 867 Width = 871
Align = alTop Align = alTop
ClientHeight = 40 ClientHeight = 40
ClientWidth = 867 ClientWidth = 871
TabOrder = 0 TabOrder = 0
object SpeedButton4: TSpeedButton object SpeedButton4: TSpeedButton
Left = 9 Left = 9
...@@ -2364,21 +2342,13 @@ object CodeGen: TCodeGen ...@@ -2364,21 +2342,13 @@ object CodeGen: TCodeGen
end end
inline memSQLServer: TSynEdit inline memSQLServer: TSynEdit
Left = 1 Left = 1
Height = 518 Height = 522
Top = 41 Top = 41
Width = 867 Width = 871
Align = alClient Align = alClient
Color = clWindow
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 1 TabOrder = 1
BorderStyle = bsNone BorderStyle = bsNone
Gutter.Width = 23 Gutter.Width = 29
Gutter.MouseActions = <> Gutter.MouseActions = <>
RightGutter.Width = 0 RightGutter.Width = 0
RightGutter.MouseActions = <> RightGutter.MouseActions = <>
...@@ -2842,7 +2812,7 @@ object CodeGen: TCodeGen ...@@ -2842,7 +2812,7 @@ object CodeGen: TCodeGen
MouseActions = <> MouseActions = <>
end end
object SynGutterLineNumber1: TSynGutterLineNumber object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17 Width = 23
MouseActions = <> MouseActions = <>
MarkupInfo.Background = clBtnFace MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone MarkupInfo.Foreground = clNone
...@@ -2924,7 +2894,7 @@ object CodeGen: TCodeGen ...@@ -2924,7 +2894,7 @@ object CodeGen: TCodeGen
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
BorderStyle = bsNone BorderStyle = bsNone
Gutter.Width = 23 Gutter.Width = 33
Gutter.MouseActions = <> Gutter.MouseActions = <>
RightGutter.Width = 0 RightGutter.Width = 0
RightGutter.MouseActions = <> RightGutter.MouseActions = <>
...@@ -3470,7 +3440,7 @@ object CodeGen: TCodeGen ...@@ -3470,7 +3440,7 @@ object CodeGen: TCodeGen
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
BorderStyle = bsNone BorderStyle = bsNone
Gutter.Width = 23 Gutter.Width = 33
Gutter.MouseActions = <> Gutter.MouseActions = <>
RightGutter.Width = 0 RightGutter.Width = 0
RightGutter.MouseActions = <> RightGutter.MouseActions = <>
......
EvoUMLPlugin/src/formMemo.dfm
View file @ f589c165
...@@ -6,13 +6,13 @@ object PreviewClassCode: TPreviewClassCode ...@@ -6,13 +6,13 @@ object PreviewClassCode: TPreviewClassCode
Caption = 'Preview Class Code' Caption = 'Preview Class Code'
ClientHeight = 580 ClientHeight = 580
ClientWidth = 803 ClientWidth = 803
Color = clBtnFace Color = clWindow
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
KeyPreview = True KeyPreview = True
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '2.0.0.4' LCLVersion = '2.0.2.0'
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Height = 580 Height = 580
...@@ -54,38 +54,30 @@ object PreviewClassCode: TPreviewClassCode ...@@ -54,38 +54,30 @@ object PreviewClassCode: TPreviewClassCode
TabOrder = 1 TabOrder = 1
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Class Preview' Caption = 'Class Preview'
ClientHeight = 534 ClientHeight = 530
ClientWidth = 791 ClientWidth = 793
object pgc_ClassCode: TPageControl object pgc_ClassCode: TPageControl
Left = 0 Left = 0
Height = 534 Height = 530
Top = 0 Top = 0
Width = 791 Width = 793
ActivePage = TabSheet3 ActivePage = TabSheet3
Align = alClient Align = alClient
TabIndex = 0 TabIndex = 0
TabOrder = 0 TabOrder = 0
object TabSheet3: TTabSheet object TabSheet3: TTabSheet
Caption = 'ObjPascal' Caption = 'ObjPascal'
ClientHeight = 506 ClientHeight = 504
ClientWidth = 781 ClientWidth = 785
inline mem_ClassPascal: TSynEdit inline mem_ClassPascal: TSynEdit
Left = 0 Left = 0
Height = 506 Height = 504
Top = 0 Top = 0
Width = 781 Width = 785
Align = alClient Align = alClient
Color = clWindow
Font.Color = clWindowText
Font.Height = 13
Font.Name = 'DejaVu Sans Mono'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 0 TabOrder = 0
BorderStyle = bsNone BorderStyle = bsNone
Gutter.Width = 23 Gutter.Width = 29
Gutter.MouseActions = <> Gutter.MouseActions = <>
RightGutter.Width = 0 RightGutter.Width = 0
RightGutter.MouseActions = <> RightGutter.MouseActions = <>
...@@ -549,7 +541,7 @@ object PreviewClassCode: TPreviewClassCode ...@@ -549,7 +541,7 @@ object PreviewClassCode: TPreviewClassCode
MouseActions = <> MouseActions = <>
end end
object SynGutterLineNumber1: TSynGutterLineNumber object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17 Width = 23
MouseActions = <> MouseActions = <>
MarkupInfo.Background = clBtnFace MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone MarkupInfo.Foreground = clNone
...@@ -583,26 +575,18 @@ object PreviewClassCode: TPreviewClassCode ...@@ -583,26 +575,18 @@ object PreviewClassCode: TPreviewClassCode
end end
object TabSheet4: TTabSheet object TabSheet4: TTabSheet
Caption = 'Java' Caption = 'Java'
ClientHeight = 506 ClientHeight = 504
ClientWidth = 781 ClientWidth = 785
ImageIndex = 1 ImageIndex = 1
inline mem_ClassJava: TSynEdit inline mem_ClassJava: TSynEdit
Left = 0 Left = 0
Height = 506 Height = 504
Top = 0 Top = 0
Width = 781 Width = 785
Align = alClient Align = alClient
Color = clWindow
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 0 TabOrder = 0
BorderStyle = bsNone BorderStyle = bsNone
Gutter.Width = 23 Gutter.Width = 29
Gutter.MouseActions = <> Gutter.MouseActions = <>
RightGutter.Width = 0 RightGutter.Width = 0
RightGutter.MouseActions = <> RightGutter.MouseActions = <>
...@@ -1066,7 +1050,7 @@ object PreviewClassCode: TPreviewClassCode ...@@ -1066,7 +1050,7 @@ object PreviewClassCode: TPreviewClassCode
MouseActions = <> MouseActions = <>
end end
object SynGutterLineNumber1: TSynGutterLineNumber object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17 Width = 23
MouseActions = <> MouseActions = <>
MarkupInfo.Background = clBtnFace MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone MarkupInfo.Foreground = clNone
...@@ -1100,26 +1084,18 @@ object PreviewClassCode: TPreviewClassCode ...@@ -1100,26 +1084,18 @@ object PreviewClassCode: TPreviewClassCode
end end
object TabSheet5: TTabSheet object TabSheet5: TTabSheet
Caption = 'C#' Caption = 'C#'
ClientHeight = 506 ClientHeight = 504
ClientWidth = 781 ClientWidth = 785
ImageIndex = 2 ImageIndex = 2
inline mem_ClassCSharp: TSynEdit inline mem_ClassCSharp: TSynEdit
Left = 0 Left = 0
Height = 506 Height = 504
Top = 0 Top = 0
Width = 781 Width = 785
Align = alClient Align = alClient
Color = clWindow
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 0 TabOrder = 0
BorderStyle = bsNone BorderStyle = bsNone
Gutter.Width = 23 Gutter.Width = 29
Gutter.MouseActions = <> Gutter.MouseActions = <>
RightGutter.Width = 0 RightGutter.Width = 0
RightGutter.MouseActions = <> RightGutter.MouseActions = <>
...@@ -1583,7 +1559,7 @@ object PreviewClassCode: TPreviewClassCode ...@@ -1583,7 +1559,7 @@ object PreviewClassCode: TPreviewClassCode
MouseActions = <> MouseActions = <>
end end
object SynGutterLineNumber1: TSynGutterLineNumber object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17 Width = 23
MouseActions = <> MouseActions = <>
MarkupInfo.Background = clBtnFace MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone MarkupInfo.Foreground = clNone
...@@ -1617,14 +1593,14 @@ object PreviewClassCode: TPreviewClassCode ...@@ -1617,14 +1593,14 @@ object PreviewClassCode: TPreviewClassCode
end end
object TabSheet6: TTabSheet object TabSheet6: TTabSheet
Caption = 'SQL' Caption = 'SQL'
ClientHeight = 506 ClientHeight = 504
ClientWidth = 781 ClientWidth = 785
ImageIndex = 3 ImageIndex = 3
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 506 Height = 504
Top = 0 Top = 0
Width = 781 Width = 785
ActivePage = TabSheet10 ActivePage = TabSheet10
Align = alClient Align = alClient
TabIndex = 0 TabIndex = 0
...@@ -1632,24 +1608,16 @@ object PreviewClassCode: TPreviewClassCode ...@@ -1632,24 +1608,16 @@ object PreviewClassCode: TPreviewClassCode
object TabSheet10: TTabSheet object TabSheet10: TTabSheet
Caption = 'SQL Server' Caption = 'SQL Server'
ClientHeight = 478 ClientHeight = 478
ClientWidth = 771 ClientWidth = 777
inline mem_ClassSQL: TSynEdit inline mem_ClassSQL: TSynEdit
Left = 0 Left = 0
Height = 478 Height = 478
Top = 0 Top = 0
Width = 771 Width = 777
Align = alClient Align = alClient
Color = clWindow
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 0 TabOrder = 0
BorderStyle = bsNone BorderStyle = bsNone
Gutter.Width = 23 Gutter.Width = 29
Gutter.MouseActions = <> Gutter.MouseActions = <>
RightGutter.Width = 0 RightGutter.Width = 0
RightGutter.MouseActions = <> RightGutter.MouseActions = <>
...@@ -2113,7 +2081,7 @@ object PreviewClassCode: TPreviewClassCode ...@@ -2113,7 +2081,7 @@ object PreviewClassCode: TPreviewClassCode
MouseActions = <> MouseActions = <>
end end
object SynGutterLineNumber1: TSynGutterLineNumber object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17 Width = 23
MouseActions = <> MouseActions = <>
MarkupInfo.Background = clBtnFace MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone MarkupInfo.Foreground = clNone
...@@ -2148,25 +2116,17 @@ object PreviewClassCode: TPreviewClassCode ...@@ -2148,25 +2116,17 @@ object PreviewClassCode: TPreviewClassCode
object TabSheet14: TTabSheet object TabSheet14: TTabSheet
Caption = 'Oracle' Caption = 'Oracle'
ClientHeight = 478 ClientHeight = 478
ClientWidth = 771 ClientWidth = 777
ImageIndex = 1 ImageIndex = 1
inline mem_ClassOracle: TSynEdit inline mem_ClassOracle: TSynEdit
Left = 0 Left = 0
Height = 478 Height = 478
Top = 0 Top = 0
Width = 771 Width = 777
Align = alClient Align = alClient
Color = clWindow
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 0 TabOrder = 0
BorderStyle = bsNone BorderStyle = bsNone
Gutter.Width = 23 Gutter.Width = 29
Gutter.MouseActions = <> Gutter.MouseActions = <>
RightGutter.Width = 0 RightGutter.Width = 0
RightGutter.MouseActions = <> RightGutter.MouseActions = <>
...@@ -2630,7 +2590,7 @@ object PreviewClassCode: TPreviewClassCode ...@@ -2630,7 +2590,7 @@ object PreviewClassCode: TPreviewClassCode
MouseActions = <> MouseActions = <>
end end
object SynGutterLineNumber1: TSynGutterLineNumber object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17 Width = 23
MouseActions = <> MouseActions = <>
MarkupInfo.Background = clBtnFace MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone MarkupInfo.Foreground = clNone
......
EvoUMLPlugin/src/ituExplorerV2.dfm
View file @ f589c165
object ExplorerV2: TExplorerV2 object ExplorerV2: TExplorerV2
Left = 577 Left = 2248
Height = 696 Height = 696
Top = 103 Top = 238
Width = 1232 Width = 1232
Caption = 'Model OQL Query' Caption = 'Model OQL Query'
ClientHeight = 696 ClientHeight = 696
ClientWidth = 1232 ClientWidth = 1232
Color = clWindow Color = clWindow
Font.Color = clWindowText
Icon.Data = { Icon.Data = {
96A5050000000100060000000000010020002820040066000000101000000100 96A5050000000100060000000000010020002820040066000000101000000100
2000680400008E2004003030000001002000A8250000F6240400202000000100 2000680400008E2004003030000001002000A8250000F6240400202000000100
...@@ -11579,7 +11580,6 @@ object ExplorerV2: TExplorerV2 ...@@ -11579,7 +11580,6 @@ object ExplorerV2: TExplorerV2
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
ParentFont = True
Position = poMainFormCenter Position = poMainFormCenter
ShowInTaskBar = stAlways ShowInTaskBar = stAlways
LCLVersion = '2.0.2.0' LCLVersion = '2.0.2.0'
...@@ -11700,11 +11700,10 @@ object ExplorerV2: TExplorerV2 ...@@ -11700,11 +11700,10 @@ object ExplorerV2: TExplorerV2
Height = 435 Height = 435
Top = 48 Top = 48
Width = 502 Width = 502
ActivePage = tsOQL ActivePage = tsSQL
Align = alClient Align = alClient
MultiLine = True MultiLine = True
ParentFont = False TabIndex = 1
TabIndex = 0
TabOrder = 1 TabOrder = 1
OnChange = pcEditorChange OnChange = pcEditorChange
Options = [nboMultiLine] Options = [nboMultiLine]
...@@ -11718,19 +11717,11 @@ object ExplorerV2: TExplorerV2 ...@@ -11718,19 +11717,11 @@ object ExplorerV2: TExplorerV2
Top = 0 Top = 0
Width = 494 Width = 494
Align = alClient Align = alClient
Color = clWindow
Font.Color = clWindowText
Font.Height = 13
Font.Name = 'DejaVu Sans Mono'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 0 TabOrder = 0
OnDragDrop = memOQLQuery2DragDrop OnDragDrop = memOQLQuery2DragDrop
OnDragOver = memOQLQuery2DragOver OnDragOver = memOQLQuery2DragOver
BorderStyle = bsNone BorderStyle = bsNone
Gutter.Width = 19 Gutter.Width = 31
Gutter.MouseActions = <> Gutter.MouseActions = <>
RightGutter.Width = 0 RightGutter.Width = 0
RightGutter.MouseActions = <> RightGutter.MouseActions = <>
...@@ -12193,7 +12184,7 @@ object ExplorerV2: TExplorerV2 ...@@ -12193,7 +12184,7 @@ object ExplorerV2: TExplorerV2
MouseActions = <> MouseActions = <>
end end
object SynGutterLineNumber1: TSynGutterLineNumber object SynGutterLineNumber1: TSynGutterLineNumber
Width = 13 Width = 25
MouseActions = <> MouseActions = <>
MarkupInfo.Background = clBtnFace MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone MarkupInfo.Foreground = clNone
...@@ -12227,25 +12218,17 @@ object ExplorerV2: TExplorerV2 ...@@ -12227,25 +12218,17 @@ object ExplorerV2: TExplorerV2
end end
object tsSQL: TTabSheet object tsSQL: TTabSheet
Caption = 'SQL Translation' Caption = 'SQL Translation'
ClientHeight = 404 ClientHeight = 407
ClientWidth = 492 ClientWidth = 494
inline SynEditSQL: TSynEdit inline SynEditSQL: TSynEdit
Left = 0 Left = 0
Height = 404 Height = 407
Top = 0 Top = 0
Width = 492 Width = 494
Align = alClient Align = alClient
Color = clWindow
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 0 TabOrder = 0
BorderStyle = bsNone BorderStyle = bsNone
Gutter.Width = 33 Gutter.Width = 31
Gutter.MouseActions = <> Gutter.MouseActions = <>
RightGutter.Width = 0 RightGutter.Width = 0
RightGutter.MouseActions = <> RightGutter.MouseActions = <>
...@@ -12709,7 +12692,7 @@ object ExplorerV2: TExplorerV2 ...@@ -12709,7 +12692,7 @@ object ExplorerV2: TExplorerV2
MouseActions = <> MouseActions = <>
end end
object SynGutterLineNumber1: TSynGutterLineNumber object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17 Width = 25
MouseActions = <> MouseActions = <>
MarkupInfo.Background = clBtnFace MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone MarkupInfo.Foreground = clNone
......
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