You've already forked lazarus-ccr
Set form Position to "poDesktopCenter", so in IDE the edition's forms stay visible.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3348 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
@ -7,7 +7,7 @@ object fArgEdit: TfArgEdit
|
||||
Caption = 'fArgEdit'
|
||||
ClientHeight = 393
|
||||
ClientWidth = 400
|
||||
Position = poMainFormCenter
|
||||
Position = poDesktopCenter
|
||||
LCLVersion = '1.2.2.0'
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
@ -53,27 +53,27 @@ object fArgEdit: TfArgEdit
|
||||
TabOrder = 1
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = 'Argument'
|
||||
ClientHeight = 317
|
||||
ClientHeight = 315
|
||||
ClientWidth = 392
|
||||
object Label1: TLabel
|
||||
Left = 20
|
||||
Height = 13
|
||||
Height = 15
|
||||
Top = 26
|
||||
Width = 27
|
||||
Width = 32
|
||||
Caption = 'Name'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 20
|
||||
Height = 13
|
||||
Height = 15
|
||||
Top = 95
|
||||
Width = 24
|
||||
Width = 26
|
||||
Caption = 'Type'
|
||||
ParentColor = False
|
||||
end
|
||||
object edtName: TEdit
|
||||
Left = 20
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 47
|
||||
Width = 352
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
@ -82,17 +82,17 @@ object fArgEdit: TfArgEdit
|
||||
end
|
||||
object edtType: TComboBox
|
||||
Left = 20
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 114
|
||||
Width = 352
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
ItemHeight = 13
|
||||
ItemHeight = 15
|
||||
Style = csDropDownList
|
||||
TabOrder = 1
|
||||
end
|
||||
object edtModifier: TRadioGroup
|
||||
Left = 20
|
||||
Height = 133
|
||||
Height = 131
|
||||
Top = 157
|
||||
Width = 352
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
@ -106,7 +106,7 @@ object fArgEdit: TfArgEdit
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 2
|
||||
ClientHeight = 115
|
||||
ClientHeight = 113
|
||||
ClientWidth = 348
|
||||
Columns = 2
|
||||
Items.Strings = (
|
||||
|
||||
@ -10,9 +10,10 @@ object fBindingEdit: TfBindingEdit
|
||||
Caption = 'fBindingEdit'
|
||||
ClientHeight = 335
|
||||
ClientWidth = 400
|
||||
Position = poMainFormCenter
|
||||
LCLVersion = '0.9.25'
|
||||
Position = poDesktopCenter
|
||||
LCLVersion = '1.2.2.0'
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Height = 50
|
||||
Top = 285
|
||||
Width = 400
|
||||
@ -45,7 +46,9 @@ object fBindingEdit: TfBindingEdit
|
||||
end
|
||||
end
|
||||
object PageControl1: TPageControl
|
||||
Left = 0
|
||||
Height = 285
|
||||
Top = 0
|
||||
Width = 400
|
||||
ActivePage = TabSheet1
|
||||
Align = alClient
|
||||
@ -53,21 +56,21 @@ object fBindingEdit: TfBindingEdit
|
||||
TabOrder = 1
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = 'Interface Binding'
|
||||
ClientHeight = 259
|
||||
ClientHeight = 257
|
||||
ClientWidth = 392
|
||||
object Label1: TLabel
|
||||
Left = 12
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 26
|
||||
Width = 28
|
||||
Width = 32
|
||||
Caption = 'Name'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 12
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 98
|
||||
Width = 40
|
||||
Width = 42
|
||||
Caption = 'Address'
|
||||
ParentColor = False
|
||||
end
|
||||
@ -91,7 +94,7 @@ object fBindingEdit: TfBindingEdit
|
||||
end
|
||||
object edtStyle: TRadioGroup
|
||||
Left = 12
|
||||
Height = 81
|
||||
Height = 79
|
||||
Top = 165
|
||||
Width = 352
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
@ -105,7 +108,7 @@ object fBindingEdit: TfBindingEdit
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 2
|
||||
ClientHeight = 63
|
||||
ClientHeight = 61
|
||||
ClientWidth = 348
|
||||
Columns = 2
|
||||
Items.Strings = (
|
||||
@ -121,7 +124,6 @@ object fBindingEdit: TfBindingEdit
|
||||
top = 100
|
||||
object actOK: TAction
|
||||
Caption = 'OK'
|
||||
DisableIfNoHandler = True
|
||||
OnExecute = actOKExecute
|
||||
OnUpdate = actOKUpdate
|
||||
end
|
||||
|
||||
@ -8,7 +8,7 @@ object fArrayEdit: TfArrayEdit
|
||||
Caption = 'fArrayEdit'
|
||||
ClientHeight = 375
|
||||
ClientWidth = 392
|
||||
Position = poMainFormCenter
|
||||
Position = poDesktopCenter
|
||||
LCLVersion = '1.2.2.0'
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
@ -63,35 +63,35 @@ object fArrayEdit: TfArrayEdit
|
||||
OnChange = PCChange
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = 'Array definition'
|
||||
ClientHeight = 299
|
||||
ClientHeight = 297
|
||||
ClientWidth = 384
|
||||
object Label1: TLabel
|
||||
Left = 20
|
||||
Height = 13
|
||||
Height = 15
|
||||
Top = 21
|
||||
Width = 27
|
||||
Width = 32
|
||||
Caption = 'Name'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 20
|
||||
Height = 13
|
||||
Height = 15
|
||||
Top = 102
|
||||
Width = 65
|
||||
Width = 72
|
||||
Caption = 'Element Type'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 20
|
||||
Height = 13
|
||||
Height = 15
|
||||
Top = 170
|
||||
Width = 68
|
||||
Width = 78
|
||||
Caption = 'Element Name'
|
||||
ParentColor = False
|
||||
end
|
||||
object edtName: TEdit
|
||||
Left = 20
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 42
|
||||
Width = 337
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
@ -99,25 +99,25 @@ object fArrayEdit: TfArrayEdit
|
||||
end
|
||||
object edtElementType: TComboBox
|
||||
Left = 20
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 122
|
||||
Width = 337
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
ItemHeight = 13
|
||||
ItemHeight = 15
|
||||
Style = csDropDownList
|
||||
TabOrder = 1
|
||||
end
|
||||
object edtEmbedded: TCheckBox
|
||||
Left = 20
|
||||
Height = 17
|
||||
Height = 19
|
||||
Top = 226
|
||||
Width = 338
|
||||
Width = 371
|
||||
Caption = 'Embedded ( items are expanded directly in the enclosing element )'
|
||||
TabOrder = 3
|
||||
end
|
||||
object edtElementName: TEdit
|
||||
Left = 20
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 186
|
||||
Width = 337
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
@ -126,9 +126,9 @@ object fArrayEdit: TfArrayEdit
|
||||
end
|
||||
object edtCollection: TCheckBox
|
||||
Left = 20
|
||||
Height = 17
|
||||
Height = 19
|
||||
Top = 258
|
||||
Width = 351
|
||||
Width = 391
|
||||
Caption = 'Collection ( Pascal type will derive from TObjectCollectionRemotable )'
|
||||
TabOrder = 4
|
||||
end
|
||||
|
||||
@ -63,27 +63,27 @@ object fClassEdit: TfClassEdit
|
||||
OnChange = PCChange
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = 'Compound Object'
|
||||
ClientHeight = 480
|
||||
ClientHeight = 478
|
||||
ClientWidth = 544
|
||||
object Label1: TLabel
|
||||
Left = 4
|
||||
Height = 13
|
||||
Height = 15
|
||||
Top = 18
|
||||
Width = 27
|
||||
Width = 32
|
||||
Caption = 'Name'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 4
|
||||
Height = 13
|
||||
Height = 15
|
||||
Top = 59
|
||||
Width = 66
|
||||
Width = 72
|
||||
Caption = 'Inheritts from'
|
||||
ParentColor = False
|
||||
end
|
||||
object edtName: TEdit
|
||||
Left = 92
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 18
|
||||
Width = 440
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
@ -91,17 +91,17 @@ object fClassEdit: TfClassEdit
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 4
|
||||
Height = 305
|
||||
Height = 303
|
||||
Top = 98
|
||||
Width = 529
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
Caption = ' Properties '
|
||||
ClientHeight = 287
|
||||
ClientHeight = 285
|
||||
ClientWidth = 525
|
||||
TabOrder = 2
|
||||
object edtProp: TListView
|
||||
Left = 0
|
||||
Height = 287
|
||||
Height = 285
|
||||
Top = 0
|
||||
Width = 525
|
||||
Align = alClient
|
||||
@ -121,6 +121,7 @@ object fClassEdit: TfClassEdit
|
||||
end>
|
||||
HideSelection = False
|
||||
PopupMenu = PopupMenu1
|
||||
ReadOnly = True
|
||||
RowSelect = True
|
||||
TabOrder = 0
|
||||
ViewStyle = vsReport
|
||||
@ -130,7 +131,7 @@ object fClassEdit: TfClassEdit
|
||||
object Button3: TButton
|
||||
Left = 4
|
||||
Height = 25
|
||||
Top = 413
|
||||
Top = 411
|
||||
Width = 100
|
||||
Action = actPropAdd
|
||||
Anchors = [akLeft, akBottom]
|
||||
@ -140,7 +141,7 @@ object fClassEdit: TfClassEdit
|
||||
object Button4: TButton
|
||||
Left = 116
|
||||
Height = 25
|
||||
Top = 413
|
||||
Top = 411
|
||||
Width = 100
|
||||
Action = actPropEdit
|
||||
Anchors = [akLeft, akBottom]
|
||||
@ -150,7 +151,7 @@ object fClassEdit: TfClassEdit
|
||||
object Button5: TButton
|
||||
Left = 228
|
||||
Height = 25
|
||||
Top = 413
|
||||
Top = 411
|
||||
Width = 100
|
||||
Action = actPropDelete
|
||||
Anchors = [akLeft, akBottom]
|
||||
@ -159,18 +160,18 @@ object fClassEdit: TfClassEdit
|
||||
end
|
||||
object edtParent: TComboBox
|
||||
Left = 92
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 58
|
||||
Width = 440
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
ItemHeight = 13
|
||||
ItemHeight = 15
|
||||
Style = csDropDownList
|
||||
TabOrder = 1
|
||||
end
|
||||
object Button7: TButton
|
||||
Left = 372
|
||||
Height = 25
|
||||
Top = 413
|
||||
Top = 411
|
||||
Width = 70
|
||||
Action = actMoveUp
|
||||
Anchors = [akRight, akBottom]
|
||||
@ -180,7 +181,7 @@ object fClassEdit: TfClassEdit
|
||||
object Button8: TButton
|
||||
Left = 452
|
||||
Height = 25
|
||||
Top = 413
|
||||
Top = 411
|
||||
Width = 70
|
||||
Action = actMoveDown
|
||||
Anchors = [akRight, akBottom]
|
||||
@ -190,7 +191,7 @@ object fClassEdit: TfClassEdit
|
||||
object Button9: TButton
|
||||
Left = 372
|
||||
Height = 25
|
||||
Top = 442
|
||||
Top = 440
|
||||
Width = 70
|
||||
Action = actMoveFirst
|
||||
Anchors = [akRight, akBottom]
|
||||
@ -199,7 +200,7 @@ object fClassEdit: TfClassEdit
|
||||
object Button10: TButton
|
||||
Left = 452
|
||||
Height = 25
|
||||
Top = 442
|
||||
Top = 440
|
||||
Width = 70
|
||||
Action = actMoveLast
|
||||
Anchors = [akRight, akBottom]
|
||||
|
||||
@ -8,7 +8,7 @@ object fEnumEdit: TfEnumEdit
|
||||
Caption = 'fEnumEdit'
|
||||
ClientHeight = 368
|
||||
ClientWidth = 400
|
||||
Position = poMainFormCenter
|
||||
Position = poDesktopCenter
|
||||
LCLVersion = '1.2.2.0'
|
||||
object PC: TPageControl
|
||||
Left = 0
|
||||
@ -22,19 +22,19 @@ object fEnumEdit: TfEnumEdit
|
||||
OnChange = PCChange
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = 'Enumeration'
|
||||
ClientHeight = 292
|
||||
ClientHeight = 290
|
||||
ClientWidth = 392
|
||||
object Label1: TLabel
|
||||
Left = 4
|
||||
Height = 13
|
||||
Height = 15
|
||||
Top = 18
|
||||
Width = 27
|
||||
Width = 32
|
||||
Caption = 'Name'
|
||||
ParentColor = False
|
||||
end
|
||||
object edtName: TEdit
|
||||
Left = 68
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 18
|
||||
Width = 312
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
@ -42,17 +42,17 @@ object fEnumEdit: TfEnumEdit
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 4
|
||||
Height = 231
|
||||
Height = 229
|
||||
Top = 51
|
||||
Width = 377
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
Caption = ' Items '
|
||||
ClientHeight = 213
|
||||
ClientHeight = 211
|
||||
ClientWidth = 373
|
||||
TabOrder = 1
|
||||
object edtItems: TMemo
|
||||
Left = 0
|
||||
Height = 213
|
||||
Height = 211
|
||||
Top = 0
|
||||
Width = 373
|
||||
Align = alClient
|
||||
|
||||
@ -21,19 +21,19 @@ object fRecordEdit: TfRecordEdit
|
||||
OnChange = PCChange
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = 'Record Type'
|
||||
ClientHeight = 466
|
||||
ClientHeight = 464
|
||||
ClientWidth = 551
|
||||
object Label1: TLabel
|
||||
Left = 20
|
||||
Height = 13
|
||||
Height = 15
|
||||
Top = 34
|
||||
Width = 27
|
||||
Width = 32
|
||||
Caption = 'Name'
|
||||
ParentColor = False
|
||||
end
|
||||
object edtName: TEdit
|
||||
Left = 76
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 34
|
||||
Width = 451
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
@ -41,17 +41,17 @@ object fRecordEdit: TfRecordEdit
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 20
|
||||
Height = 320
|
||||
Height = 318
|
||||
Top = 82
|
||||
Width = 507
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
Caption = ' Fields '
|
||||
ClientHeight = 302
|
||||
ClientHeight = 300
|
||||
ClientWidth = 503
|
||||
TabOrder = 1
|
||||
object edtFields: TListView
|
||||
Left = 0
|
||||
Height = 302
|
||||
Height = 300
|
||||
Top = 0
|
||||
Width = 503
|
||||
Align = alClient
|
||||
@ -70,6 +70,7 @@ object fRecordEdit: TfRecordEdit
|
||||
end>
|
||||
HideSelection = False
|
||||
PopupMenu = PopupMenu1
|
||||
ReadOnly = True
|
||||
RowSelect = True
|
||||
TabOrder = 0
|
||||
ViewStyle = vsReport
|
||||
@ -78,7 +79,7 @@ object fRecordEdit: TfRecordEdit
|
||||
object Button3: TButton
|
||||
Left = 20
|
||||
Height = 25
|
||||
Top = 418
|
||||
Top = 416
|
||||
Width = 100
|
||||
Action = actPropAdd
|
||||
Anchors = [akLeft, akBottom]
|
||||
@ -88,7 +89,7 @@ object fRecordEdit: TfRecordEdit
|
||||
object Button4: TButton
|
||||
Left = 132
|
||||
Height = 25
|
||||
Top = 418
|
||||
Top = 416
|
||||
Width = 100
|
||||
Action = actPropEdit
|
||||
Anchors = [akLeft, akBottom]
|
||||
@ -98,7 +99,7 @@ object fRecordEdit: TfRecordEdit
|
||||
object Button5: TButton
|
||||
Left = 244
|
||||
Height = 25
|
||||
Top = 418
|
||||
Top = 416
|
||||
Width = 100
|
||||
Action = actPropDelete
|
||||
Anchors = [akLeft, akBottom]
|
||||
@ -108,7 +109,7 @@ object fRecordEdit: TfRecordEdit
|
||||
object Button7: TButton
|
||||
Left = 383
|
||||
Height = 25
|
||||
Top = 418
|
||||
Top = 416
|
||||
Width = 70
|
||||
Action = actMoveUp
|
||||
Anchors = [akRight, akBottom]
|
||||
@ -118,7 +119,7 @@ object fRecordEdit: TfRecordEdit
|
||||
object Button8: TButton
|
||||
Left = 458
|
||||
Height = 25
|
||||
Top = 418
|
||||
Top = 416
|
||||
Width = 70
|
||||
Action = actMoveDown
|
||||
Anchors = [akRight, akBottom]
|
||||
|
||||
@ -8,7 +8,7 @@ object frmSaveOptions: TfrmSaveOptions
|
||||
Caption = 'Export file options ...'
|
||||
ClientHeight = 338
|
||||
ClientWidth = 402
|
||||
Position = poMainFormCenter
|
||||
Position = poDesktopCenter
|
||||
LCLVersion = '1.2.2.0'
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
@ -54,9 +54,9 @@ object frmSaveOptions: TfrmSaveOptions
|
||||
TabOrder = 0
|
||||
object Label1: TLabel
|
||||
Left = 16
|
||||
Height = 13
|
||||
Height = 15
|
||||
Top = 16
|
||||
Width = 80
|
||||
Width = 88
|
||||
Caption = 'Output directory'
|
||||
ParentColor = False
|
||||
end
|
||||
@ -72,35 +72,35 @@ object frmSaveOptions: TfrmSaveOptions
|
||||
TabOrder = 2
|
||||
object edtInterface: TCheckBox
|
||||
Left = 14
|
||||
Height = 17
|
||||
Height = 19
|
||||
Top = 16
|
||||
Width = 65
|
||||
Width = 66
|
||||
Caption = 'Interface'
|
||||
TabOrder = 0
|
||||
end
|
||||
object edtProxy: TCheckBox
|
||||
Left = 14
|
||||
Height = 17
|
||||
Top = 53
|
||||
Width = 48
|
||||
Height = 19
|
||||
Top = 51
|
||||
Width = 49
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = 'Proxy'
|
||||
TabOrder = 2
|
||||
end
|
||||
object edtImplementation: TCheckBox
|
||||
Left = 230
|
||||
Height = 17
|
||||
Left = 219
|
||||
Height = 19
|
||||
Top = 14
|
||||
Width = 94
|
||||
Width = 105
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Implementation'
|
||||
TabOrder = 1
|
||||
end
|
||||
object edtBinder: TCheckBox
|
||||
Left = 230
|
||||
Height = 17
|
||||
Top = 53
|
||||
Width = 50
|
||||
Left = 226
|
||||
Height = 19
|
||||
Top = 51
|
||||
Width = 54
|
||||
Anchors = [akRight, akBottom]
|
||||
Caption = 'Binder'
|
||||
TabOrder = 3
|
||||
@ -108,7 +108,7 @@ object frmSaveOptions: TfrmSaveOptions
|
||||
end
|
||||
object edtOutputDir: TEdit
|
||||
Left = 16
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 38
|
||||
Width = 336
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
@ -147,18 +147,18 @@ object frmSaveOptions: TfrmSaveOptions
|
||||
end
|
||||
object edtWrappedParams: TCheckBox
|
||||
Left = 16
|
||||
Height = 17
|
||||
Top = 198
|
||||
Width = 292
|
||||
Height = 19
|
||||
Top = 196
|
||||
Width = 308
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = 'Generate easy access interface for wrapped parameters'
|
||||
TabOrder = 3
|
||||
end
|
||||
object edtDocAsComments: TCheckBox
|
||||
Left = 16
|
||||
Height = 17
|
||||
Top = 224
|
||||
Width = 204
|
||||
Height = 19
|
||||
Top = 222
|
||||
Width = 226
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = 'Generate documentation as comments'
|
||||
TabOrder = 4
|
||||
|
||||
@ -8,7 +8,7 @@ object fTypeAliasEdit: TfTypeAliasEdit
|
||||
Caption = 'fTypeAliasEdit'
|
||||
ClientHeight = 300
|
||||
ClientWidth = 400
|
||||
Position = poScreenCenter
|
||||
Position = poDesktopCenter
|
||||
LCLVersion = '1.2.2.0'
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
@ -64,27 +64,27 @@ object fTypeAliasEdit: TfTypeAliasEdit
|
||||
OnChange = PCChange
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = 'Type Alias'
|
||||
ClientHeight = 224
|
||||
ClientHeight = 222
|
||||
ClientWidth = 392
|
||||
object Label1: TLabel
|
||||
Left = 20
|
||||
Height = 13
|
||||
Height = 15
|
||||
Top = 26
|
||||
Width = 27
|
||||
Width = 32
|
||||
Caption = 'Name'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 20
|
||||
Height = 13
|
||||
Height = 15
|
||||
Top = 114
|
||||
Width = 50
|
||||
Width = 53
|
||||
Caption = 'Base Type'
|
||||
ParentColor = False
|
||||
end
|
||||
object edtName: TEdit
|
||||
Left = 20
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 42
|
||||
Width = 344
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
@ -92,11 +92,11 @@ object fTypeAliasEdit: TfTypeAliasEdit
|
||||
end
|
||||
object edtBaseType: TComboBox
|
||||
Left = 20
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 130
|
||||
Width = 344
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
ItemHeight = 13
|
||||
ItemHeight = 15
|
||||
Style = csDropDownList
|
||||
TabOrder = 1
|
||||
end
|
||||
|
||||
@ -57,19 +57,19 @@ object fInterfaceEdit: TfInterfaceEdit
|
||||
TabOrder = 1
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = 'Interface definition'
|
||||
ClientHeight = 488
|
||||
ClientHeight = 486
|
||||
ClientWidth = 523
|
||||
object Label1: TLabel
|
||||
Left = 20
|
||||
Height = 13
|
||||
Height = 15
|
||||
Top = 26
|
||||
Width = 27
|
||||
Width = 32
|
||||
Caption = 'Name'
|
||||
ParentColor = False
|
||||
end
|
||||
object edtName: TEdit
|
||||
Left = 60
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 26
|
||||
Width = 443
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
@ -77,29 +77,31 @@ object fInterfaceEdit: TfInterfaceEdit
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 20
|
||||
Height = 368
|
||||
Height = 366
|
||||
Top = 74
|
||||
Width = 484
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
Caption = ' Methods '
|
||||
ClientHeight = 350
|
||||
ClientHeight = 348
|
||||
ClientWidth = 480
|
||||
TabOrder = 1
|
||||
object trvMethods: TTreeView
|
||||
Left = 0
|
||||
Height = 350
|
||||
Height = 348
|
||||
Top = 0
|
||||
Width = 480
|
||||
Align = alClient
|
||||
DefaultItemHeight = 16
|
||||
DefaultItemHeight = 18
|
||||
PopupMenu = PopupMenu1
|
||||
ReadOnly = True
|
||||
TabOrder = 0
|
||||
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
|
||||
end
|
||||
end
|
||||
object Button3: TButton
|
||||
Left = 20
|
||||
Height = 25
|
||||
Top = 450
|
||||
Top = 448
|
||||
Width = 99
|
||||
Action = actNewMethod
|
||||
Anchors = [akLeft, akBottom]
|
||||
@ -109,7 +111,7 @@ object fInterfaceEdit: TfInterfaceEdit
|
||||
object Button4: TButton
|
||||
Left = 132
|
||||
Height = 25
|
||||
Top = 450
|
||||
Top = 448
|
||||
Width = 107
|
||||
Action = actUpdateOperation
|
||||
Anchors = [akLeft, akBottom]
|
||||
@ -119,7 +121,7 @@ object fInterfaceEdit: TfInterfaceEdit
|
||||
object Button5: TButton
|
||||
Left = 252
|
||||
Height = 25
|
||||
Top = 450
|
||||
Top = 448
|
||||
Width = 104
|
||||
Action = actDeleteOperation
|
||||
Anchors = [akLeft, akBottom]
|
||||
@ -129,7 +131,7 @@ object fInterfaceEdit: TfInterfaceEdit
|
||||
object Button6: TButton
|
||||
Left = 396
|
||||
Height = 25
|
||||
Top = 450
|
||||
Top = 448
|
||||
Width = 107
|
||||
Action = actBindingEdit
|
||||
Anchors = [akRight, akBottom]
|
||||
|
||||
@ -10,9 +10,10 @@ object fModuleEdit: TfModuleEdit
|
||||
Caption = 'Module properties'
|
||||
ClientHeight = 300
|
||||
ClientWidth = 400
|
||||
Position = poMainFormCenter
|
||||
LCLVersion = '0.9.25'
|
||||
Position = poDesktopCenter
|
||||
LCLVersion = '1.2.2.0'
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Height = 50
|
||||
Top = 250
|
||||
Width = 400
|
||||
@ -43,7 +44,9 @@ object fModuleEdit: TfModuleEdit
|
||||
end
|
||||
end
|
||||
object PageControl1: TPageControl
|
||||
Left = 0
|
||||
Height = 250
|
||||
Top = 0
|
||||
Width = 400
|
||||
ActivePage = TabSheet1
|
||||
Align = alClient
|
||||
@ -51,21 +54,21 @@ object fModuleEdit: TfModuleEdit
|
||||
TabOrder = 1
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = 'Module'
|
||||
ClientHeight = 224
|
||||
ClientHeight = 222
|
||||
ClientWidth = 392
|
||||
object Label1: TLabel
|
||||
Left = 20
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 39
|
||||
Width = 28
|
||||
Width = 32
|
||||
Caption = 'Name'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 20
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 127
|
||||
Width = 56
|
||||
Width = 62
|
||||
Caption = 'Namespace'
|
||||
ParentColor = False
|
||||
end
|
||||
@ -94,7 +97,6 @@ object fModuleEdit: TfModuleEdit
|
||||
top = 126
|
||||
object actOK: TAction
|
||||
Caption = 'OK'
|
||||
DisableIfNoHandler = True
|
||||
OnExecute = actOKExecute
|
||||
OnUpdate = actOKUpdate
|
||||
end
|
||||
|
||||
@ -7,7 +7,7 @@ object fProcEdit: TfProcEdit
|
||||
Caption = 'fProcEdit'
|
||||
ClientHeight = 543
|
||||
ClientWidth = 522
|
||||
Position = poMainFormCenter
|
||||
Position = poDesktopCenter
|
||||
LCLVersion = '1.2.2.0'
|
||||
object PageControl1: TPageControl
|
||||
Left = 0
|
||||
@ -20,38 +20,38 @@ object fProcEdit: TfProcEdit
|
||||
TabOrder = 0
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = '&Operation'
|
||||
ClientHeight = 467
|
||||
ClientHeight = 465
|
||||
ClientWidth = 514
|
||||
object Label1: TLabel
|
||||
Left = 12
|
||||
Height = 13
|
||||
Height = 15
|
||||
Top = 26
|
||||
Width = 27
|
||||
Width = 32
|
||||
Caption = 'Name'
|
||||
ParentColor = False
|
||||
end
|
||||
object edtName: TEdit
|
||||
Left = 112
|
||||
Height = 21
|
||||
Left = 144
|
||||
Height = 23
|
||||
Top = 26
|
||||
Width = 388
|
||||
Width = 356
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
TabOrder = 0
|
||||
Text = 'edtName'
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 11
|
||||
Height = 304
|
||||
Height = 302
|
||||
Top = 114
|
||||
Width = 489
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
Caption = ' Parametters '
|
||||
ClientHeight = 286
|
||||
ClientHeight = 284
|
||||
ClientWidth = 485
|
||||
TabOrder = 3
|
||||
object edtParams: TListView
|
||||
Left = 0
|
||||
Height = 286
|
||||
Height = 284
|
||||
Top = 0
|
||||
Width = 485
|
||||
Align = alClient
|
||||
@ -70,6 +70,7 @@ object fProcEdit: TfProcEdit
|
||||
end
|
||||
item
|
||||
end>
|
||||
ReadOnly = True
|
||||
RowSelect = True
|
||||
TabOrder = 0
|
||||
ViewStyle = vsReport
|
||||
@ -77,28 +78,28 @@ object fProcEdit: TfProcEdit
|
||||
end
|
||||
object edtFunction: TCheckBox
|
||||
Left = 12
|
||||
Height = 17
|
||||
Height = 19
|
||||
Top = 74
|
||||
Width = 99
|
||||
Width = 107
|
||||
Caption = 'Function returns'
|
||||
OnClick = edtFunctionClick
|
||||
OnEditingDone = edtFunctionEditingDone
|
||||
TabOrder = 1
|
||||
end
|
||||
object edtResultType: TComboBox
|
||||
Left = 112
|
||||
Height = 21
|
||||
Left = 144
|
||||
Height = 23
|
||||
Top = 74
|
||||
Width = 388
|
||||
Width = 356
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
ItemHeight = 13
|
||||
ItemHeight = 15
|
||||
Style = csDropDownList
|
||||
TabOrder = 2
|
||||
end
|
||||
object Button3: TButton
|
||||
Left = 12
|
||||
Height = 25
|
||||
Top = 429
|
||||
Top = 427
|
||||
Width = 108
|
||||
Action = actNewArg
|
||||
Anchors = [akLeft, akBottom]
|
||||
@ -108,7 +109,7 @@ object fProcEdit: TfProcEdit
|
||||
object Button4: TButton
|
||||
Left = 132
|
||||
Height = 25
|
||||
Top = 429
|
||||
Top = 427
|
||||
Width = 108
|
||||
Action = actUpdateArgument
|
||||
Anchors = [akLeft, akBottom]
|
||||
@ -118,7 +119,7 @@ object fProcEdit: TfProcEdit
|
||||
object Button5: TButton
|
||||
Left = 248
|
||||
Height = 25
|
||||
Top = 429
|
||||
Top = 427
|
||||
Width = 108
|
||||
Action = actDeleteArgument
|
||||
Anchors = [akLeft, akBottom]
|
||||
|
||||
Reference in New Issue
Block a user