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
GerarRelationsPartnerShips(lClassTicket, lInstantCodeClass);
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;
// end
......@@ -5289,10 +5290,10 @@ var
lInstantCodeMethod.Proc := lInstantCodeProc;
lInstantCodeMethod := lInstantCodeClass.AddMethod(viPublic);
lInstantCodeMethod.Prototype.Name := 'Finalize';
lInstantCodeMethod.Prototype.Name := 'Finish';
lInstantCodeMethod.Prototype.Flags := [pfOverride];
lInstantCodeProc := lInstantCodeModule.ImplementationSection.AddProc;
lInstantCodeProc.Name := lInstantCodeClass.Name + '.' + 'Finalize';
lInstantCodeProc.Name := lInstantCodeClass.Name + '.' + 'Finish';
lInstantCodeProc.Body.Text := #13#10 + 'inherited;';
lInstantCodeMethod.Proc := lInstantCodeProc;
end;
......@@ -5423,13 +5424,13 @@ begin
lInstantCodeClass.BaseClassName := lUseCase.InheritsFromClass;
lInstantCodeModule.ImplementationSection.AddUses.Name := 'ucuManager';
lInstantCodeModule.ImplementationSection.AddUses.Name := 'acuObject, ucuManager';
AddOverrideMethods;
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;
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
Caption = 'Preview Class Code'
ClientHeight = 580
ClientWidth = 803
Color = clBtnFace
Color = clWindow
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
KeyPreview = True
Position = poScreenCenter
LCLVersion = '2.0.0.4'
LCLVersion = '2.0.2.0'
object Panel2: TPanel
Left = 0
Height = 580
......@@ -54,38 +54,30 @@ object PreviewClassCode: TPreviewClassCode
TabOrder = 1
object TabSheet1: TTabSheet
Caption = 'Class Preview'
ClientHeight = 534
ClientWidth = 791
ClientHeight = 530
ClientWidth = 793
object pgc_ClassCode: TPageControl
Left = 0
Height = 534
Height = 530
Top = 0
Width = 791
Width = 793
ActivePage = TabSheet3
Align = alClient
TabIndex = 0
TabOrder = 0
object TabSheet3: TTabSheet
Caption = 'ObjPascal'
ClientHeight = 506
ClientWidth = 781
ClientHeight = 504
ClientWidth = 785
inline mem_ClassPascal: TSynEdit
Left = 0
Height = 506
Height = 504
Top = 0
Width = 781
Width = 785
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
BorderStyle = bsNone
Gutter.Width = 23
Gutter.Width = 29
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
......@@ -549,7 +541,7 @@ object PreviewClassCode: TPreviewClassCode
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17
Width = 23
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
......@@ -583,26 +575,18 @@ object PreviewClassCode: TPreviewClassCode
end
object TabSheet4: TTabSheet
Caption = 'Java'
ClientHeight = 506
ClientWidth = 781
ClientHeight = 504
ClientWidth = 785
ImageIndex = 1
inline mem_ClassJava: TSynEdit
Left = 0
Height = 506
Height = 504
Top = 0
Width = 781
Width = 785
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
BorderStyle = bsNone
Gutter.Width = 23
Gutter.Width = 29
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
......@@ -1066,7 +1050,7 @@ object PreviewClassCode: TPreviewClassCode
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17
Width = 23
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
......@@ -1100,26 +1084,18 @@ object PreviewClassCode: TPreviewClassCode
end
object TabSheet5: TTabSheet
Caption = 'C#'
ClientHeight = 506
ClientWidth = 781
ClientHeight = 504
ClientWidth = 785
ImageIndex = 2
inline mem_ClassCSharp: TSynEdit
Left = 0
Height = 506
Height = 504
Top = 0
Width = 781
Width = 785
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
BorderStyle = bsNone
Gutter.Width = 23
Gutter.Width = 29
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
......@@ -1583,7 +1559,7 @@ object PreviewClassCode: TPreviewClassCode
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17
Width = 23
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
......@@ -1617,14 +1593,14 @@ object PreviewClassCode: TPreviewClassCode
end
object TabSheet6: TTabSheet
Caption = 'SQL'
ClientHeight = 506
ClientWidth = 781
ClientHeight = 504
ClientWidth = 785
ImageIndex = 3
object PageControl1: TPageControl
Left = 0
Height = 506
Height = 504
Top = 0
Width = 781
Width = 785
ActivePage = TabSheet10
Align = alClient
TabIndex = 0
......@@ -1632,24 +1608,16 @@ object PreviewClassCode: TPreviewClassCode
object TabSheet10: TTabSheet
Caption = 'SQL Server'
ClientHeight = 478
ClientWidth = 771
ClientWidth = 777
inline mem_ClassSQL: TSynEdit
Left = 0
Height = 478
Top = 0
Width = 771
Width = 777
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
BorderStyle = bsNone
Gutter.Width = 23
Gutter.Width = 29
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
......@@ -2113,7 +2081,7 @@ object PreviewClassCode: TPreviewClassCode
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17
Width = 23
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
......@@ -2148,25 +2116,17 @@ object PreviewClassCode: TPreviewClassCode
object TabSheet14: TTabSheet
Caption = 'Oracle'
ClientHeight = 478
ClientWidth = 771
ClientWidth = 777
ImageIndex = 1
inline mem_ClassOracle: TSynEdit
Left = 0
Height = 478
Top = 0
Width = 771
Width = 777
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
BorderStyle = bsNone
Gutter.Width = 23
Gutter.Width = 29
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
......@@ -2630,7 +2590,7 @@ object PreviewClassCode: TPreviewClassCode
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17
Width = 23
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
......
EvoUMLPlugin/src/ituExplorerV2.dfm
View file @ f589c165
object ExplorerV2: TExplorerV2
Left = 577
Left = 2248
Height = 696
Top = 103
Top = 238
Width = 1232
Caption = 'Model OQL Query'
ClientHeight = 696
ClientWidth = 1232
Color = clWindow
Font.Color = clWindowText
Icon.Data = {
96A5050000000100060000000000010020002820040066000000101000000100
2000680400008E2004003030000001002000A8250000F6240400202000000100
......@@ -11579,7 +11580,6 @@ object ExplorerV2: TExplorerV2
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
ParentFont = True
Position = poMainFormCenter
ShowInTaskBar = stAlways
LCLVersion = '2.0.2.0'
......@@ -11700,11 +11700,10 @@ object ExplorerV2: TExplorerV2
Height = 435
Top = 48
Width = 502
ActivePage = tsOQL
ActivePage = tsSQL
Align = alClient
MultiLine = True
ParentFont = False
TabIndex = 0
TabIndex = 1
TabOrder = 1
OnChange = pcEditorChange
Options = [nboMultiLine]
......@@ -11718,19 +11717,11 @@ object ExplorerV2: TExplorerV2
Top = 0
Width = 494
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
OnDragDrop = memOQLQuery2DragDrop
OnDragOver = memOQLQuery2DragOver
BorderStyle = bsNone
Gutter.Width = 19
Gutter.Width = 31
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
......@@ -12193,7 +12184,7 @@ object ExplorerV2: TExplorerV2
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 13
Width = 25
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
......@@ -12227,25 +12218,17 @@ object ExplorerV2: TExplorerV2
end
object tsSQL: TTabSheet
Caption = 'SQL Translation'
ClientHeight = 404
ClientWidth = 492
ClientHeight = 407
ClientWidth = 494
inline SynEditSQL: TSynEdit
Left = 0
Height = 404
Height = 407
Top = 0
Width = 492
Width = 494
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
BorderStyle = bsNone
Gutter.Width = 33
Gutter.Width = 31
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
......@@ -12709,7 +12692,7 @@ object ExplorerV2: TExplorerV2
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17
Width = 25
MouseActions = <>
MarkupInfo.Background = clBtnFace
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