1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
|
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
|
