lazarus/components/sqldbrest/editor/frmmain.lfm
2023-03-19 17:45:24 +01:00

287 lines
8.6 KiB
Plaintext

object MainForm: TMainForm
Left = 487
Height = 408
Top = 298
Width = 755
ActiveControl = fraEditor.fraConn.TVConnections
Caption = 'REST Schema designer'
ClientHeight = 408
ClientWidth = 755
Menu = MMain
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
Position = poDesktopCenter
SessionProperties = 'Height;Left;Top;Width;MRUSchema.Recent'
LCLVersion = '2.3.0.0'
inline fraEditor: TSchemaEditorFrame
Height = 408
Width = 755
Align = alClient
ClientHeight = 408
ClientWidth = 755
DesignLeft = 546
DesignTop = 298
inherited fraConn: TfraConnections
Height = 408
Width = 203
Align = alLeft
ClientHeight = 408
ClientWidth = 203
inherited TVConnections: TTreeView
Height = 352
Top = 56
Width = 203
end
inherited ToolBar1: TToolBar
Width = 203
inherited TBSep1: TToolButton
Height = 30
end
inherited ToolButton1: TToolButton
Height = 30
end
end
inherited Label1: TLabel
Height = 16
Width = 203
end
end
inherited splConnection: TSplitter
Height = 408
end
inherited fraSchema: TSQLDBRestSchemaEditorFrame
Left = 208
Height = 408
Width = 547
Align = alClient
ClientHeight = 408
ClientWidth = 547
TabOrder = 2
inherited PResources: TPanel
Height = 376
Width = 170
ClientHeight = 376
ClientWidth = 170
inherited TVResources: TTreeView
Height = 352
Width = 170
end
inherited LResources: TLabel
Width = 170
end
end
inherited Splitter1: TSplitter
Left = 170
Height = 376
end
inherited PDock: TPanel
Left = 175
Height = 376
Width = 372
end
inherited Panel1: TPanel
Width = 547
ClientWidth = 547
inherited Panel2: TPanel
inherited TBResources: TToolBar
inherited ToolButton1: TToolButton
Height = 30
end
inherited ToolButton2: TToolButton
Height = 30
end
inherited ToolButton9: TToolButton
Height = 30
end
end
end
inherited lblSelect: TLabel
Width = 212
end
end
end
end
object alMain: TActionList
Images = ILMain
Left = 10
Top = 10
object AFileReadConnections: TAction
Category = 'Connections'
Caption = 'Read connections'
ImageIndex = 2
OnExecute = AFileReadConnectionsExecute
end
object AFileWriteConnections: TAction
Category = 'Connections'
Caption = 'Write Connections'
ImageIndex = 3
OnExecute = AFileWriteConnectionsExecute
end
object ALoadSchema: TAction
Category = 'Schema'
Caption = 'Load schema'
ImageIndex = 1
OnExecute = ALoadSchemaExecute
ShortCut = 16463
end
object ASaveSchema: TAction
Category = 'Schema'
Caption = 'Save schema'
ImageIndex = 0
OnExecute = ASaveSchemaExecute
ShortCut = 16467
end
object ASaveSchemaAs: TAction
Category = 'Schema'
Caption = 'Save schema as'
ImageIndex = 4
OnExecute = ASaveSchemaAsExecute
end
object ASchemaNew: TAction
Category = 'Schema'
Caption = 'New schema'
ImageIndex = 5
OnExecute = ASchemaNewExecute
ShortCut = 16462
end
object aQuit: TAction
Category = 'File'
Caption = 'Quit'
ImageIndex = 6
OnExecute = aQuitExecute
ShortCut = 16465
end
end
object MMain: TMainMenu
Images = ILMain
Left = 39
Top = 10
object MFile: TMenuItem
Caption = 'File'
object MIReadConnections: TMenuItem
Action = AFileReadConnections
end
object MWriteConnections: TMenuItem
Action = AFileWriteConnections
end
object N1: TMenuItem
Caption = '-'
end
object MISchemaNew: TMenuItem
Action = ASchemaNew
end
object MISchemaLoad: TMenuItem
Action = ALoadSchema
end
object MISchemaSave: TMenuItem
Action = ASaveSchema
end
object MISaveSchemaAs: TMenuItem
Action = ASaveSchemaAs
end
object MIRecent: TMenuItem
Caption = 'Recent schemas'
end
object MISep2: TMenuItem
Caption = '-'
end
object MIQuit: TMenuItem
Action = aQuit
end
end
end
object odConnection: TOpenDialog
Title = 'Read existing connections file'
DefaultExt = '.ini'
Filter = 'INI Files|*.ini|JSON files|*.json'
Options = [ofFileMustExist, ofEnableSizing]
Left = 120
Top = 352
end
object sdConnection: TSaveDialog
Title = 'Save connection definitions as'
DefaultExt = '.ini'
Filter = 'INI Files|*.ini|JSON files|*.json'
Options = [ofOverwritePrompt, ofPathMustExist, ofEnableSizing]
Left = 120
Top = 296
end
object IPSMain: TIniPropStorage
StoredValues = <>
Active = False
OnSaveProperties = IPSMainSaveProperties
OnRestoreProperties = IPSMainRestoreProperties
Left = 432
Top = 139
end
object ILMain: TImageList
Height = 24
Width = 24
Left = 423
Top = 63
Bitmap = {
4C7A0700000018000000180000009E0400000000000078DAED5A496B1441148E
1BEEA207F77D43DC8299AA9A31C643CE2EE0424EA2E2C15F20AE88C683181114
D499EA4ED0685091A8278F8231F1E2410F229A38DD93287117DC41F432BEEA9E
9EE999744FBA7AAAB2982A2866BAA8FE5EF7ABAA575F7DFDCACA54095A0C0DA7
C35574502E3E548A6B83E2877FDFE2EF513A7EF1F710825FE4FEBEC22FB52A7C
E1F87FD8DCEEBC58319F55434787A0EDAF38FC9EEBC6D0C86151F85D7132A3B0
EF0B1DCD9489DF71A162D660F18F33BEC6E58AA956153EBE8363FEABA2380A2F
270989DF1ED646207CB68635FC2C28EFE1C567FD4C5A3E0D9EFF39AF0D9EF5D9
D9109B6EE8F8058F0DDEF56F34C4E6409BC9CB1179E20BC4D3C5D0DE1D24F6C8
8E6D430CBF1BE6CF91543D21AF13ABA7B02A10FF96713E36494E7C40D7D2B565
C359FFA446B6415B2BECF75FEC8A5B4D1ADD1A16DFD4F0BBE7F19513EC79898F
FBF725C7423D3FF8DB7A6E1D6DECAD6F4AC31B78F1533A5A6DF5A3F841C1F3D6
D935AF7F0B2FFE3B1D8DCBF4FBE975E662FF5DFD7FF0E27735568FC9C727751E
DCAE2E2C7E672252EEED1FCFDAD2D7E3CBB55642CC4FDE925B5FF877A6165D5F
43B1B0B80963D1242A7616CCF5CD2C26898CFDEE7B007B57266E06C6E7D53BEC
B31EBA2B0B5F94DE22EBFC251A5FD4757FE10F28FFEBF8F6631D8D72F711E89F
9B2DB5D5230B3144E1A79B6B46D8EDB9739210FFB87CE2ECE7D9789188A052F0
4D0D35669FDBC51544AD6FB74FBCB81DFCDE3775B43B9D2E1B5604E7AA1717CE
C7EFC1A5F26A92922B7E36329CE9139C7B6A0ADBE119EF647DEFB2E168722625
7B19EFB16C68648FFF38404CA778A7E7F8C05EE5F067C746CF3DC1EAFBC81B9F
34B33374F071C9E7705D8D6B2667F0BFC9D631062BBEE23F8AFF28FEA3F88F64
FF77C35EB88F69066C0DB3790AFFD78BF2CFD3A6F2F1A5C4D420FE4D52BCDDD4
489B5BFF6167D612FCF39EED4F99EB73BEFBBB86CE84C187FB8E3ACFEDD3FF87
C50D1817D0D1165EFF39FA86ED138B077C74F802D4EF663D596752BC2AD3DEC2
CB7FBACF568ECDE93380514F56025E95ADDF462BAD78D7105D08D7AF99BD22FC
E76D92463615B63B76E1FF2F86D14ED72EB0AECF2F196D69DED6F755FCCA4FFF
E98DFFBCA438EAF60FF0D12E98F3F3581BFB85B6CE62FA4F50FEC3F62D178EC9
7C93D5D145E93F1A3A215DFFC9AE2FA5FFF4DDB73595FF13FA7D55FE8FCACFE9
8FFC1F1D1F61DF313D6368822C629A4A587C88C1077A9B4B4C973028B91E2A3F
27C377FCFBDBEB96D980F3D20D5E7CBFEF8A5EB1C1D157B8FCA3E3FD7EBA43BE
D6870E858C9F56FE0FCB637A492B67839F77F8EA40456CF0CCC17C1D285FCB32
757C5AD0FCBF9AD581283995B34DDA9C6FA0220B9BC7C015EF593ED4F01388D5
2745DBE8B8543531A9E1877EDF0E85ECE36CAD73E68DFC7F1C4562FE4F96DF4B
CAFF61392D3A3664E6FFF0E6CDF0E25B67983899CB6B835B1FB36DA464E6FF98
F1C81295FFA3F015BEC21FEAF8AA28FD479DAF070E3E9CC3A8A3C74BC0BF68F1
9F9C1E2F1AFFAB93AF91D2624B814FBF91E0FFCF4ECEA9634394DEE579868C47
960F34FCDEFC93AC276BECFB632BE0FA83307C8ADF7624F032DBF751CCC65BEC
F8A2B8E4F9297B7DA9F8A6388AD4F20F1C8E1DA3
}
end
object SDSchema: TSaveDialog
Title = 'Save schema to file'
DefaultExt = '.srs'
Filter = 'SQLDB Rest Schema files|*.srs|All files|*.*'
Options = [ofOverwritePrompt, ofPathMustExist, ofEnableSizing]
Left = 43
Top = 293
end
object ODSchema: TOpenDialog
Title = 'Open existing schema file'
DefaultExt = '.srs'
Filter = 'SQLDB Rest Schema files|*.srs|All files|*.*'
Options = [ofFileMustExist, ofEnableSizing]
Left = 40
Top = 352
end
object MRUSchema: TMRUMenuManager
MenuItem = MIRecent
MenuCaptionMask = '%0:d. %1:s'
OnRecentFile = MRUSchemaRecentFile
Left = 541
Top = 88
end
end