Skip to content

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

Ajustes

parent 8209f16a
Hide whitespace changes
Inline Side-by-side
Showing with 80 additions and 95 deletions
EvoUMLPlugin/src/CurioAddIn.lpi
View file @ 32ddef76
...@@ -152,9 +152,6 @@ ...@@ -152,9 +152,6 @@
</Linking> </Linking>
<Other> <Other>
<CustomOptions Value="-dUseCThreads"/> <CustomOptions Value="-dUseCThreads"/>
<OtherDefines Count="1">
<Define0 Value="FullDebugMode"/>
</OtherDefines>
</Other> </Other>
</CompilerOptions> </CompilerOptions>
</Item4> </Item4>
...@@ -167,8 +164,17 @@ ...@@ -167,8 +164,17 @@
<UseFileFilters Value="True"/> <UseFileFilters Value="True"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local>
<HostApplicationFilename Value="$(ProjPath)..\..\..\StarUML\staruml\src\deploy\$(TargetCPU)-$(TargetOS)\EvoUML.exe"/>
</local>
<FormatVersion Value="2"/> <FormatVersion Value="2"/>
<Modes Count="0"/> <Modes Count="1">
<Mode0 Name="default">
<local>
<HostApplicationFilename Value="$(ProjPath)..\..\..\StarUML\staruml\src\deploy\$(TargetCPU)-$(TargetOS)\EvoUML.exe"/>
</local>
</Mode0>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="7"> <RequiredPackages Count="7">
<Item1> <Item1>
......
EvoUMLPlugin/src/acuObjectExplorer.pas
View file @ 32ddef76
...@@ -136,7 +136,16 @@ begin ...@@ -136,7 +136,16 @@ begin
begin begin
if (TObject(Node.Data) is acPersistentObject) if (TObject(Node.Data) is acPersistentObject)
then lPersistentObject := acPersistentObject(Node.Data) then lPersistentObject := acPersistentObject(Node.Data)
else lPersistentObject := acRelationPartnerShip(Node.Data).Partner; else begin
lPersistentObject := acRelationPartnerShip(Node.Data).Partner;
if acRelationPartnerShip(Node.Data).IsOrigin
then lPropertyName := acRelationPartnerShip(Node.Data).RelationTicket.OriginPropertyName
else lPropertyName := acRelationPartnerShip(Node.Data).RelationTicket.DestinationPropertyName;
Node.Text := lPropertyName + ': ' + acRelationPartnerShip(Node.Data).Partner.ClassTicket.PersistentObjectClassName + ' (OID:' + acRelationPartnerShip(Node.Data).Partner.IDO.AsString + ')';
end;
lClassTicket := lPersistentObject.ClassTicket; lClassTicket := lPersistentObject.ClassTicket;
while lClassTicket <> nil do while lClassTicket <> nil do
...@@ -176,7 +185,7 @@ begin ...@@ -176,7 +185,7 @@ begin
begin begin
if assigned(acRelationPartnerShip(lObject).Partner) if assigned(acRelationPartnerShip(lObject).Partner)
then begin then begin
lNode := Node.Owner.AddChildObject(Node, lPropertyName+ ': ' + acRelationPartnerShip(lObject).RelationTicket.OriginClassTicket.PersistentObjectClassName + ' (OID:' + acRelationPartnerShip(lObject).Partner.IDO.AsString + ')', acRelationPartnerShip(lObject).Partner); lNode := Node.Owner.AddChildObject(Node, lPropertyName+ ': ' + acRelationPartnerShip(lObject).Partner.ClassTicket.PersistentObjectClassName + ' (OID:' + acRelationPartnerShip(lObject).Partner.IDO.AsString + ')', acRelationPartnerShip(lObject).Partner);
lNode.HasChildren := True; lNode.HasChildren := True;
end end
else lNode := Node.Owner.AddChildObject(Node, lPropertyName+ ': ' + acRelationPartnerShip(lObject).RelationTicket.OriginClassTicket.PersistentObjectClassName + ' (null)', lObject); else lNode := Node.Owner.AddChildObject(Node, lPropertyName+ ': ' + acRelationPartnerShip(lObject).RelationTicket.OriginClassTicket.PersistentObjectClassName + ' (null)', lObject);
...@@ -215,10 +224,10 @@ begin ...@@ -215,10 +224,10 @@ begin
if acRelationPartnerShip(lObject).Status = acRelationPartnerStatus.PSLoaded then if acRelationPartnerShip(lObject).Status = acRelationPartnerStatus.PSLoaded then
if assigned(acRelationPartnerShip(lObject).Partner) if assigned(acRelationPartnerShip(lObject).Partner)
then begin then begin
lNode := Node.Owner.AddChildObject(Node, lPropertyName+ ': ' + acRelationPartnerShip(lObject).RelationTicket.DestinationClassTicket.PersistentObjectClassName + ' (OID:' + acRelationPartnerShip(lObject).Partner.IDO.AsString + ')', acRelationPartnerShip(lObject).Partner); lNode := Node.Owner.AddChildObject(Node, lPropertyName+ ': ' + acRelationPartnerShip(lObject).Partner.ClassTicket.PersistentObjectClassName + ' (OID:' + acRelationPartnerShip(lObject).Partner.IDO.AsString + ')', acRelationPartnerShip(lObject).Partner);
lNode.HasChildren := True; lNode.HasChildren := True;
end end
else Node.Owner.AddChildObject(Node, lPropertyName+ ': ' + acRelationPartnerShip(lObject).RelationTicket.DestinationClassTicket.PersistentObjectClassName + ' (null)', lObject) else lNode := Node.Owner.AddChildObject(Node, lPropertyName+ ': ' + acRelationPartnerShip(lObject).RelationTicket.DestinationClassTicket.PersistentObjectClassName + ' (null)', lObject)
else else
if assigned(acRelationPartnerShip(lObject).PartnerOID) if assigned(acRelationPartnerShip(lObject).PartnerOID)
then begin then begin
......
EvoUMLPlugin/src/cxuCadastroClasse.pas
View file @ 32ddef76
...@@ -27,15 +27,11 @@ var lRequestMessage: mxRequestMessage; ...@@ -27,15 +27,11 @@ var lRequestMessage: mxRequestMessage;
lResponseMessage: mxAnswerMessage; lResponseMessage: mxAnswerMessage;
begin begin
lRequestMessage := self.NewRequest('RM_OBTEM_CONTEXTO', piField); lRequestMessage := self.NewRequest('RM_OBTEM_CONTEXTO', piField);
lResponseMessage := self.Session.SendRequest(lRequestMessage);
try try
lResponseMessage := self.Session.SendRequest(lRequestMessage); if assigned(piResponseField) then piResponseField.Assign(lResponseMessage.RootField);
try
if assigned(piResponseField) then piResponseField.Assign(lResponseMessage.RootField);
finally
lResponseMessage.free;
end;
finally finally
lRequestMessage.Free; lResponseMessage.free;
end; end;
end; end;
...@@ -44,15 +40,11 @@ var lRequestMessage: mxRequestMessage; ...@@ -44,15 +40,11 @@ var lRequestMessage: mxRequestMessage;
lResponseMessage: mxAnswerMessage; lResponseMessage: mxAnswerMessage;
begin begin
lRequestMessage := self.NewRequest('RM_SALVA_OBJETO', piField); lRequestMessage := self.NewRequest('RM_SALVA_OBJETO', piField);
lResponseMessage := self.Session.SendRequest(lRequestMessage);
try try
lResponseMessage := self.Session.SendRequest(lRequestMessage); if assigned(piResponseField) then piResponseField.Assign(lResponseMessage.RootField);
try
if assigned(piResponseField) then piResponseField.Assign(lResponseMessage.RootField);
finally
lResponseMessage.free;
end;
finally finally
lRequestMessage.Free; lResponseMessage.free;
end; end;
end; end;
...@@ -61,15 +53,11 @@ var lRequestMessage: mxRequestMessage; ...@@ -61,15 +53,11 @@ var lRequestMessage: mxRequestMessage;
lResponseMessage: mxAnswerMessage; lResponseMessage: mxAnswerMessage;
begin begin
lRequestMessage := self.NewRequest('RM_EXCLUI_OBJETO', piField); lRequestMessage := self.NewRequest('RM_EXCLUI_OBJETO', piField);
lResponseMessage := self.Session.SendRequest(lRequestMessage);
try try
lResponseMessage := self.Session.SendRequest(lRequestMessage); if assigned(piResponseField) then piResponseField.Assign(lResponseMessage.RootField);
try
if assigned(piResponseField) then piResponseField.Assign(lResponseMessage.RootField);
finally
lResponseMessage.free;
end;
finally finally
lRequestMessage.Free; lResponseMessage.free;
end; end;
end; end;
...@@ -78,15 +66,11 @@ var lRequestMessage: mxRequestMessage; ...@@ -78,15 +66,11 @@ var lRequestMessage: mxRequestMessage;
lResponseMessage: mxAnswerMessage; lResponseMessage: mxAnswerMessage;
begin begin
lRequestMessage := self.NewRequest('RM_INCLUI_OBJETO', piField); lRequestMessage := self.NewRequest('RM_INCLUI_OBJETO', piField);
lResponseMessage := self.Session.SendRequest(lRequestMessage);
try try
lResponseMessage := self.Session.SendRequest(lRequestMessage); if assigned(piResponseField) then piResponseField.Assign(lResponseMessage.RootField);
try
if assigned(piResponseField) then piResponseField.Assign(lResponseMessage.RootField);
finally
lResponseMessage.free;
end;
finally finally
lRequestMessage.Free; lResponseMessage.free;
end; end;
end; end;
...@@ -95,15 +79,11 @@ var lRequestMessage: mxRequestMessage; ...@@ -95,15 +79,11 @@ var lRequestMessage: mxRequestMessage;
lResponseMessage: mxAnswerMessage; lResponseMessage: mxAnswerMessage;
begin begin
lRequestMessage := self.NewRequest('RM_CONSULTA_OBJETO', piField); lRequestMessage := self.NewRequest('RM_CONSULTA_OBJETO', piField);
lResponseMessage := self.Session.SendRequest(lRequestMessage);
try try
lResponseMessage := self.Session.SendRequest(lRequestMessage); if assigned(piResponseField) then piResponseField.Assign(lResponseMessage.RootField);
try
if assigned(piResponseField) then piResponseField.Assign(lResponseMessage.RootField);
finally
lResponseMessage.free;
end;
finally finally
lRequestMessage.Free; lResponseMessage.free;
end; end;
end; end;
...@@ -112,15 +92,11 @@ var lRequestMessage: mxRequestMessage; ...@@ -112,15 +92,11 @@ var lRequestMessage: mxRequestMessage;
lResponseMessage: mxAnswerMessage; lResponseMessage: mxAnswerMessage;
begin begin
lRequestMessage := self.NewRequest('RM_EDITA_OBJETO', piField); lRequestMessage := self.NewRequest('RM_EDITA_OBJETO', piField);
lResponseMessage := self.Session.SendRequest(lRequestMessage);
try try
lResponseMessage := self.Session.SendRequest(lRequestMessage); if assigned(piResponseField) then piResponseField.Assign(lResponseMessage.RootField);
try
if assigned(piResponseField) then piResponseField.Assign(lResponseMessage.RootField);
finally
lResponseMessage.free;
end;
finally finally
lRequestMessage.Free; lResponseMessage.free;
end; end;
end; end;
......
EvoUMLPlugin/src/fCodeGen.dfm
View file @ 32ddef76
object CodeGen: TCodeGen object CodeGen: TCodeGen
Left = 700 Left = 484
Height = 616 Height = 616
Top = 230 Top = 143
Width = 889 Width = 889
Caption = 'CodeGen' Caption = 'CodeGen'
ClientHeight = 616 ClientHeight = 616
...@@ -13,7 +13,7 @@ object CodeGen: TCodeGen ...@@ -13,7 +13,7 @@ object CodeGen: TCodeGen
KeyPreview = True KeyPreview = True
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '2.1.0.0' LCLVersion = '2.0.10.0'
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 616 Height = 616
...@@ -2918,7 +2918,7 @@ object CodeGen: TCodeGen ...@@ -2918,7 +2918,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 = <>
...@@ -3464,7 +3464,7 @@ object CodeGen: TCodeGen ...@@ -3464,7 +3464,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 = <>
...@@ -4526,7 +4526,6 @@ object CodeGen: TCodeGen ...@@ -4526,7 +4526,6 @@ object CodeGen: TCodeGen
Enabled = False Enabled = False
CompilerMode = pcmObjFPC CompilerMode = pcmObjFPC
NestedComments = True NestedComments = True
TypeHelpers = False
Left = 710 Left = 710
Top = 137 Top = 137
end end
......
EvoUMLPlugin/src/ituCadastrarFormulario.lfm
View file @ 32ddef76
object itCadastrarFormulario: TitCadastrarFormulario object itCadastrarFormulario: TitCadastrarFormulario
Left = 628 Left = 755
Height = 482 Height = 482
Top = 321 Top = 386
Width = 937 Width = 937
ClientHeight = 482 ClientHeight = 482
ClientWidth = 937 ClientWidth = 937
OnDestroy = FormDestroy OnDestroy = FormDestroy
LCLVersion = '2.1.0.0' LCLVersion = '2.0.10.0'
object scrlbxTudo: TScrollBox object scrlbxTudo: TScrollBox
Left = 0 Left = 0
Height = 840 Height = 840
......
EvoUMLPlugin/src/ituDataBaseLogin.dfm
View file @ 32ddef76
object DataBaseLogin: TDataBaseLogin object DataBaseLogin: TDataBaseLogin
Left = 1160 Left = 1381
Height = 542 Height = 542
Top = 217 Top = 262
Width = 440 Width = 440
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsDialog BorderStyle = bsDialog
...@@ -13,7 +13,7 @@ object DataBaseLogin: TDataBaseLogin ...@@ -13,7 +13,7 @@ object DataBaseLogin: TDataBaseLogin
OnShow = FormShow OnShow = FormShow
ParentFont = True ParentFont = True
Position = poOwnerFormCenter Position = poOwnerFormCenter
LCLVersion = '2.1.0.0' LCLVersion = '2.0.10.0'
object GroupBox2: TGroupBox object GroupBox2: TGroupBox
Left = 8 Left = 8
Height = 216 Height = 216
......
EvoUMLPlugin/src/ituExplorerV2.dfm
View file @ 32ddef76
object ExplorerV2: TExplorerV2 object ExplorerV2: TExplorerV2
Left = -1230 Left = 379
Height = 697 Height = 697
Top = 112 Top = 195
Width = 1110 Width = 1110
Caption = 'Model OQL Query' Caption = 'Model OQL Query'
ClientHeight = 697 ClientHeight = 697
...@@ -11755,7 +11755,7 @@ object ExplorerV2: TExplorerV2 ...@@ -11755,7 +11755,7 @@ object ExplorerV2: TExplorerV2
OnKeyUp = SynEditOQLKeyUp OnKeyUp = SynEditOQLKeyUp
OnUTF8KeyPress = SynEditOQLUTF8KeyPress OnUTF8KeyPress = SynEditOQLUTF8KeyPress
BorderStyle = bsNone BorderStyle = bsNone
Gutter.Width = 23 Gutter.Width = 33
Gutter.MouseActions = <> Gutter.MouseActions = <>
RightGutter.Width = 0 RightGutter.Width = 0
RightGutter.MouseActions = <> RightGutter.MouseActions = <>
...@@ -12271,7 +12271,7 @@ object ExplorerV2: TExplorerV2 ...@@ -12271,7 +12271,7 @@ object ExplorerV2: TExplorerV2
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
BorderStyle = bsNone BorderStyle = bsNone
Gutter.Width = 23 Gutter.Width = 33
Gutter.MouseActions = <> Gutter.MouseActions = <>
RightGutter.Width = 0 RightGutter.Width = 0
RightGutter.MouseActions = <> RightGutter.MouseActions = <>
...@@ -12797,12 +12797,12 @@ object ExplorerV2: TExplorerV2 ...@@ -12797,12 +12797,12 @@ object ExplorerV2: TExplorerV2
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 55 Left = 56
Top = 2 Top = 2
Action = actModelPanel Action = actModelPanel
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 105 Left = 106
Top = 2 Top = 2
Action = actResultsPanel Action = actResultsPanel
end end
...@@ -12814,24 +12814,24 @@ object ExplorerV2: TExplorerV2 ...@@ -12814,24 +12814,24 @@ object ExplorerV2: TExplorerV2
Style = tbsDivider Style = tbsDivider
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 159 Left = 161
Top = 2 Top = 2
Action = actExecute Action = actExecute
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 209 Left = 211
Top = 2 Top = 2
Action = actCancel Action = actCancel
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 259 Left = 261
Height = 40 Height = 40
Top = 2 Top = 2
Caption = 'ToolButton6' Caption = 'ToolButton6'
Style = tbsDivider Style = tbsDivider
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 263 Left = 266
Top = 2 Top = 2
Action = OQLQuery Action = OQLQuery
AutoSize = True AutoSize = True
...@@ -12839,7 +12839,7 @@ object ExplorerV2: TExplorerV2 ...@@ -12839,7 +12839,7 @@ object ExplorerV2: TExplorerV2
Style = tbsCheck Style = tbsCheck
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 336 Left = 339
Top = 2 Top = 2
Action = XMLQuery Action = XMLQuery
Grouped = True Grouped = True
...@@ -12851,7 +12851,7 @@ object ExplorerV2: TExplorerV2 ...@@ -12851,7 +12851,7 @@ object ExplorerV2: TExplorerV2
Action = ReconnectDB Action = ReconnectDB
end end
object ToolButton10: TToolButton object ToolButton10: TToolButton
Left = 155 Left = 156
Height = 40 Height = 40
Top = 2 Top = 2
Caption = 'ToolButton10' Caption = 'ToolButton10'
......
EvoUMLPlugin/src/ituExplorerV2.pas
View file @ 32ddef76
...@@ -108,9 +108,8 @@ type ...@@ -108,9 +108,8 @@ type
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actResultsPanelExecute(Sender: TObject); procedure actResultsPanelExecute(Sender: TObject);
procedure rbSequencialClick(Sender: TObject); procedure rbSequencialClick(Sender: TObject);
procedure SynEditOQLCommandProcessed(Sender: TObject; procedure SynEditOQLCommandProcessed(Sender: TObject; var Command: TSynEditorCommand; var AChar: TUTF8Char; Data: pointer);
var Command: TSynEditorCommand; var AChar: TUTF8Char; Data: pointer); procedure SynEditOQLKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure SynEditOQLKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure SynEditOQLUTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char); procedure SynEditOQLUTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);
procedure tvModelExplorerGetSelectedIndex(Sender: TObject; Node: TTreeNode); procedure tvModelExplorerGetSelectedIndex(Sender: TObject; Node: TTreeNode);
procedure tvModelExplorerItemExpanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean); procedure tvModelExplorerItemExpanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean);
...@@ -537,16 +536,12 @@ begin ...@@ -537,16 +536,12 @@ begin
end; end;
end; end;
procedure TExplorerV2.SynEditOQLUTF8KeyPress(Sender: TObject; procedure TExplorerV2.SynEditOQLUTF8KeyPress(Sender: TObject;
var UTF8Key: TUTF8Char); var UTF8Key: TUTF8Char);
begin begin
fhlt1.UTF8KeyPress(Sender, UTF8Key); fhlt1.UTF8KeyPress(Sender, UTF8Key);
end; end;
procedure TExplorerV2.tvModelExplorerGetSelectedIndex(Sender: TObject; Node: TTreeNode); procedure TExplorerV2.tvModelExplorerGetSelectedIndex(Sender: TObject; Node: TTreeNode);
begin begin
Node.SelectedIndex := Node.ImageIndex; Node.SelectedIndex := Node.ImageIndex;
......
EvoUMLPlugin/src/ituOQLExplorerV2.dfm
View file @ 32ddef76
object OQLExplorerV2: TOQLExplorerV2 object OQLExplorerV2: TOQLExplorerV2
Left = 2453 Left = 534
Height = 552 Height = 552
Top = 431 Top = 331
Width = 1090 Width = 1090
Caption = 'Curio OQL Explorer' Caption = 'Curio OQL Explorer'
ClientHeight = 552 ClientHeight = 552
...@@ -11583,7 +11583,7 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -11583,7 +11583,7 @@ object OQLExplorerV2: TOQLExplorerV2
OnResize = FormResize OnResize = FormResize
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '2.0.2.0' LCLVersion = '2.0.10.0'
object pcCXOQL: TPageControl object pcCXOQL: TPageControl
Left = 0 Left = 0
Height = 517 Height = 517
...@@ -12313,7 +12313,7 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -12313,7 +12313,7 @@ object OQLExplorerV2: TOQLExplorerV2
object abExportPAS: TAction object abExportPAS: TAction
Caption = 'abExportPAS' Caption = 'abExportPAS'
Visible = False Visible = False
left = 1007 Left = 1007
end end
object abCXOQL: TAction object abCXOQL: TAction
Caption = 'abCXOQL' Caption = 'abCXOQL'
...@@ -12324,7 +12324,7 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -12324,7 +12324,7 @@ object OQLExplorerV2: TOQLExplorerV2
object ilCXOQL: TImageList object ilCXOQL: TImageList
Height = 24 Height = 24
Width = 24 Width = 24
left = 798 Left = 798
Bitmap = { Bitmap = {
4C690B0000001800000018000000D27619FFD27619FFD27619FFD27619FFD276 4C690B0000001800000018000000D27619FFD27619FFD27619FFD27619FFD276
19FFD27619FFD27619FFD27619FFD27619FFD27619FFD27619FFD27619FFD276 19FFD27619FFD27619FFD27619FFD27619FFD27619FFD27619FFD27619FFD276
...@@ -13122,8 +13122,8 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -13122,8 +13122,8 @@ object OQLExplorerV2: TOQLExplorerV2
} }
end end
object ilOQLState: TImageList object ilOQLState: TImageList
left = 861 Left = 861
top = 5 Top = 5
Bitmap = { Bitmap = {
4C6903000000100000001000000000000000000000000071ADFF0071ADFF0071 4C6903000000100000001000000000000000000000000071ADFF0071ADFF0071
ADFF0071ADFF0071ADFF0071ADFF000000000000000000000000000000000000 ADFF0071ADFF0071ADFF0071ADFF000000000000000000000000000000000000
...@@ -13226,15 +13226,15 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -13226,15 +13226,15 @@ object OQLExplorerV2: TOQLExplorerV2
end end
object OpenDialog1: TOpenDialog object OpenDialog1: TOpenDialog
Filter = 'cxoql|*.cxoql' Filter = 'cxoql|*.cxoql'
left = 720 Left = 720
end end
object SaveDialog1: TSaveDialog object SaveDialog1: TSaveDialog
Filter = 'cxoql|*.cxoql' Filter = 'cxoql|*.cxoql'
left = 688 Left = 688
end end
object ActionList1: TActionList object ActionList1: TActionList
left = 926 Left = 926
top = 6 Top = 6
object aNewOQL: TAction object aNewOQL: TAction
Caption = '&New OQL' Caption = '&New OQL'
ImageIndex = 5 ImageIndex = 5
...@@ -13267,13 +13267,13 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -13267,13 +13267,13 @@ object OQLExplorerV2: TOQLExplorerV2
end end
end end
object SelectUnitDirectory: TSelectDirectoryDialog object SelectUnitDirectory: TSelectDirectoryDialog
left = 561 Left = 561
end end
object SynFreePascalSyn1: TSynFreePascalSyn object SynFreePascalSyn1: TSynFreePascalSyn
Enabled = False Enabled = False
CompilerMode = pcmObjFPC CompilerMode = pcmObjFPC
NestedComments = True NestedComments = True
left = 1002 Left = 1002
top = 12 Top = 12
end end
end end
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