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
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
......@@ -6,14 +6,14 @@ object CodeGen: TCodeGen
Caption = 'CodeGen'
ClientHeight = 616
ClientWidth = 889
Color = clBtnFace
Color = clWindow
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
KeyPreview = True
OnShow = FormShow
Position = poDesktopCenter
LCLVersion = '2.0.0.4'
LCLVersion = '2.0.2.0'
object PageControl1: TPageControl
Left = 0
Height = 616
......@@ -25,26 +25,26 @@ object CodeGen: TCodeGen
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'UseCase'
ClientHeight = 588
ClientWidth = 879
ClientHeight = 590
ClientWidth = 881
object Panel3: TPanel
Left = 0
Height = 588
Height = 590
Top = 0
Width = 879
Width = 881
Align = alClient
BevelOuter = bvLowered
ClientHeight = 588
ClientWidth = 879
ClientHeight = 590
ClientWidth = 881
TabOrder = 0
object Panel2: TPanel
Left = 1
Height = 463
Height = 465
Top = 124
Width = 280
Align = alLeft
BevelOuter = bvNone
ClientHeight = 463
ClientHeight = 465
ClientWidth = 280
TabOrder = 0
object Panel4: TPanel
......@@ -199,7 +199,7 @@ object CodeGen: TCodeGen
end
object lvUseCases: TListView
Left = 0
Height = 378
Height = 380
Top = 41
Width = 280
Align = alClient
......@@ -210,6 +210,7 @@ object CodeGen: TCodeGen
Width = 278
end>
MultiSelect = True
ParentColor = True
ReadOnly = True
RowSelect = True
ScrollBars = ssAutoBoth
......@@ -221,7 +222,7 @@ object CodeGen: TCodeGen
object Panel13: TPanel
Left = 0
Height = 44
Top = 419
Top = 421
Width = 280
Align = alBottom
BevelInner = bvLowered
......@@ -248,33 +249,33 @@ object CodeGen: TCodeGen
end
object PageControl2: TPageControl
Left = 281
Height = 463
Height = 465
Top = 124
Width = 597
Width = 599
ActivePage = TabSheet2
Align = alClient
TabIndex = 0
TabOrder = 1
object TabSheet2: TTabSheet
Caption = 'Usecase'
ClientHeight = 435
ClientWidth = 587
ClientHeight = 439
ClientWidth = 591
object Panel5: TPanel
Left = 0
Height = 435
Height = 439
Top = 0
Width = 587
Width = 591
Align = alClient
BevelInner = bvLowered
Caption = 'Panel5'
ClientHeight = 435
ClientWidth = 587
ClientHeight = 439
ClientWidth = 591
TabOrder = 0
object Panel6: TPanel
Left = 2
Height = 20
Top = 2
Width = 583
Width = 587
Align = alTop
BevelInner = bvLowered
Caption = 'UseCase code preview'
......@@ -282,21 +283,13 @@ object CodeGen: TCodeGen
end
inline memCode: TSynEdit
Left = 2
Height = 411
Height = 415
Top = 22
Width = 583
Width = 587
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
BorderStyle = bsNone
Gutter.Width = 23
Gutter.Width = 29
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
......@@ -760,7 +753,7 @@ object CodeGen: TCodeGen
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17
Width = 23
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
......@@ -795,14 +788,14 @@ object CodeGen: TCodeGen
end
object TabSheet3: TTabSheet
Caption = 'XSD'
ClientHeight = 435
ClientWidth = 587
ClientHeight = 439
ClientWidth = 591
ImageIndex = 1
object lvXSD: TListView
Left = 0
Height = 129
Top = 0
Width = 587
Width = 591
Align = alTop
Columns = <
item
......@@ -826,6 +819,7 @@ object CodeGen: TCodeGen
Width = 150
end>
MultiSelect = True
ParentColor = True
ReadOnly = True
RowSelect = True
ScrollBars = ssAutoBoth
......@@ -836,34 +830,26 @@ object CodeGen: TCodeGen
end
object PageControl3: TPageControl
Left = 0
Height = 306
Height = 310
Top = 129
Width = 587
Width = 591
ActivePage = TabSheet4
Align = alClient
TabIndex = 0
TabOrder = 1
object TabSheet4: TTabSheet
Caption = 'XSD In'
ClientHeight = 278
ClientWidth = 577
ClientHeight = 284
ClientWidth = 583
inline memXSDIn: TSynEdit
Left = 0
Height = 278
Height = 284
Top = 0
Width = 577
Width = 583
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 = <>
......@@ -1327,7 +1313,7 @@ object CodeGen: TCodeGen
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17
Width = 23
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
......@@ -1361,26 +1347,18 @@ object CodeGen: TCodeGen
end
object TabSheet5: TTabSheet
Caption = 'XSD Out'
ClientHeight = 278
ClientWidth = 577
ClientHeight = 284
ClientWidth = 583
ImageIndex = 1
inline memXSDOut: TSynEdit
Left = 0
Height = 278
Height = 284
Top = 0
Width = 577
Width = 583
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 = <>
......@@ -1844,7 +1822,7 @@ object CodeGen: TCodeGen
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17
Width = 23
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
......@@ -1883,26 +1861,26 @@ object CodeGen: TCodeGen
Left = 1
Height = 123
Top = 1
Width = 877
Width = 879
ActivePage = TabSheet7
Align = alTop
TabIndex = 0
TabOrder = 2
object TabSheet7: TTabSheet
Caption = 'General'
ClientHeight = 95
ClientWidth = 867
ClientHeight = 97
ClientWidth = 871
object Panel1: TPanel
Left = 0
Height = 95
Height = 97
Top = 0
Width = 867
Width = 871
Align = alClient
ClientHeight = 95
ClientWidth = 867
ClientHeight = 97
ClientWidth = 871
TabOrder = 0
object SpeedButton6: TSpeedButton
Left = 761
Left = 765
Height = 71
Top = 15
Width = 100
......@@ -2143,8 +2121,8 @@ object CodeGen: TCodeGen
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 69
ClientWidth = 93
ClientHeight = 66
ClientWidth = 91
ItemIndex = 0
Items.Strings = (
'Server'
......@@ -2167,8 +2145,8 @@ object CodeGen: TCodeGen
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 69
ClientWidth = 96
ClientHeight = 66
ClientWidth = 94
ItemIndex = 0
Items.Strings = (
'ObjPascal'
......@@ -2184,8 +2162,8 @@ object CodeGen: TCodeGen
Top = 7
Width = 537
Caption = 'Output directory'
ClientHeight = 69
ClientWidth = 535
ClientHeight = 66
ClientWidth = 533
TabOrder = 2
object SpeedButton5: TSpeedButton
Left = 503
......@@ -2225,7 +2203,7 @@ object CodeGen: TCodeGen
end
object edtDirectory: TEdit
Left = 10
Height = 31
Height = 21
Top = 33
Width = 487
TabOrder = 0
......@@ -2235,35 +2213,35 @@ object CodeGen: TCodeGen
end
object Options: TTabSheet
Caption = 'Options'
ClientHeight = 95
ClientWidth = 867
ClientHeight = 97
ClientWidth = 871
ImageIndex = 1
object Panel9: TPanel
Left = 380
Height = 95
Height = 97
Top = 0
Width = 487
Width = 491
Align = alClient
BevelInner = bvLowered
ClientHeight = 95
ClientWidth = 487
ClientHeight = 97
ClientWidth = 491
TabOrder = 0
object PageControl4: TPageControl
Left = 2
Height = 91
Height = 93
Top = 2
Width = 483
Width = 487
ActivePage = TabSheet8
Align = alClient
TabIndex = 0
TabOrder = 0
object TabSheet8: TTabSheet
Caption = 'Java'
ClientHeight = 63
ClientWidth = 473
ClientHeight = 67
ClientWidth = 479
object Label1: TLabel
Left = 10
Height = 14
Height = 13
Top = 10
Width = 73
Caption = 'Package name:'
......@@ -2271,7 +2249,7 @@ object CodeGen: TCodeGen
end
object edtJavaPackageName: TEdit
Left = 89
Height = 31
Height = 21
Top = 5
Width = 376
OnChange = edtJavaPackageNameChange
......@@ -2283,19 +2261,19 @@ object CodeGen: TCodeGen
end
object Panel10: TPanel
Left = 0
Height = 95
Height = 97
Top = 0
Width = 380
Align = alLeft
BevelInner = bvLowered
ClientHeight = 95
ClientHeight = 97
ClientWidth = 380
TabOrder = 1
object ckbExportsXSD: TCheckBox
Left = 11
Height = 23
Height = 19
Top = 9
Width = 151
Width = 145
Caption = 'Export XSD file if avaliable'
Checked = True
State = cbChecked
......@@ -2303,9 +2281,9 @@ object CodeGen: TCodeGen
end
object ckbExportJPG: TCheckBox
Left = 11
Height = 23
Height = 19
Top = 33
Width = 341
Width = 335
Caption = 'Export a statemachine diagram JPG file for each selected usecase'
Checked = True
State = cbChecked
......@@ -2318,40 +2296,40 @@ object CodeGen: TCodeGen
end
object TabSheet6: TTabSheet
Caption = 'SQL'
ClientHeight = 588
ClientWidth = 879
ClientHeight = 590
ClientWidth = 881
ImageIndex = 1
object PageControl5: TPageControl
Left = 0
Height = 588
Height = 590
Top = 0
Width = 879
Width = 881
ActivePage = TabSheet9
Align = alClient
TabIndex = 0
TabOrder = 0
object TabSheet9: TTabSheet
Caption = 'SQL Server'
ClientHeight = 560
ClientWidth = 869
ClientHeight = 564
ClientWidth = 873
object Panel7: TPanel
Left = 0
Height = 560
Height = 564
Top = 0
Width = 869
Width = 873
Align = alClient
BevelOuter = bvLowered
ClientHeight = 560
ClientWidth = 869
ClientHeight = 564
ClientWidth = 873
TabOrder = 0
object Panel8: TPanel
Left = 1
Height = 40
Top = 1
Width = 867
Width = 871
Align = alTop
ClientHeight = 40
ClientWidth = 867
ClientWidth = 871
TabOrder = 0
object SpeedButton4: TSpeedButton
Left = 9
......@@ -2364,21 +2342,13 @@ object CodeGen: TCodeGen
end
inline memSQLServer: TSynEdit
Left = 1
Height = 518
Height = 522
Top = 41
Width = 867
Width = 871
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
BorderStyle = bsNone
Gutter.Width = 23
Gutter.Width = 29
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
......@@ -2842,7 +2812,7 @@ object CodeGen: TCodeGen
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17
Width = 23
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
......@@ -2924,7 +2894,7 @@ object CodeGen: TCodeGen
ParentFont = False
TabOrder = 1
BorderStyle = bsNone
Gutter.Width = 23
Gutter.Width = 33
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
......@@ -3470,7 +3440,7 @@ object CodeGen: TCodeGen
ParentFont = False
TabOrder = 1
BorderStyle = bsNone
Gutter.Width = 23
Gutter.Width = 33
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
......
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