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
Expand all Hide 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
This diff is collapsed.
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