pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Set form Position to "poDesktopCenter", so in IDE the edition's forms stay visible.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3348 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2014-07-20 16:01:03 +00:00
parent 122ccc8394
commit 10ac72edd5
11 changed files with 154 additions and 145 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
wst/trunk/type_lib_edtr/uargedit.lfm
View File

@ -7,7 +7,7 @@ object fArgEdit: TfArgEdit
Caption = 'fArgEdit' Caption = 'fArgEdit'
ClientHeight = 393 ClientHeight = 393
ClientWidth = 400 ClientWidth = 400
Position = poMainFormCenter Position = poDesktopCenter
LCLVersion = '1.2.2.0' LCLVersion = '1.2.2.0'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
@ -53,27 +53,27 @@ object fArgEdit: TfArgEdit
TabOrder = 1 TabOrder = 1
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Argument' Caption = 'Argument'
ClientHeight = 317 ClientHeight = 315
ClientWidth = 392 ClientWidth = 392
object Label1: TLabel object Label1: TLabel
Left = 20 Left = 20
Height = 13 Height = 15
Top = 26 Top = 26
Width = 27 Width = 32
Caption = 'Name' Caption = 'Name'
ParentColor = False ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
Left = 20 Left = 20
Height = 13 Height = 15
Top = 95 Top = 95
Width = 24 Width = 26
Caption = 'Type' Caption = 'Type'
ParentColor = False ParentColor = False
end end
object edtName: TEdit object edtName: TEdit
Left = 20 Left = 20
Height = 21 Height = 23
Top = 47 Top = 47
Width = 352 Width = 352
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -82,17 +82,17 @@ object fArgEdit: TfArgEdit
end end
object edtType: TComboBox object edtType: TComboBox
Left = 20 Left = 20
Height = 21 Height = 23
Top = 114 Top = 114
Width = 352 Width = 352
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 13 ItemHeight = 15
Style = csDropDownList Style = csDropDownList
TabOrder = 1 TabOrder = 1
end end
object edtModifier: TRadioGroup object edtModifier: TRadioGroup
Left = 20 Left = 20
Height = 133 Height = 131
Top = 157 Top = 157
Width = 352 Width = 352
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
@ -106,7 +106,7 @@ object fArgEdit: TfArgEdit
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2 ChildSizing.ControlsPerLine = 2
ClientHeight = 115 ClientHeight = 113
ClientWidth = 348 ClientWidth = 348
Columns = 2 Columns = 2
Items.Strings = ( Items.Strings = (

22
wst/trunk/type_lib_edtr/ubindingedit.lfm
View File

@ -10,9 +10,10 @@ object fBindingEdit: TfBindingEdit
Caption = 'fBindingEdit' Caption = 'fBindingEdit'
ClientHeight = 335 ClientHeight = 335
ClientWidth = 400 ClientWidth = 400
Position = poMainFormCenter Position = poDesktopCenter
LCLVersion = '0.9.25' LCLVersion = '1.2.2.0'
object Panel1: TPanel object Panel1: TPanel
Left = 0
Height = 50 Height = 50
Top = 285 Top = 285
Width = 400 Width = 400
@ -45,7 +46,9 @@ object fBindingEdit: TfBindingEdit
end end
end end
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0
Height = 285 Height = 285
Top = 0
Width = 400 Width = 400
ActivePage = TabSheet1 ActivePage = TabSheet1
Align = alClient Align = alClient
@ -53,21 +56,21 @@ object fBindingEdit: TfBindingEdit
TabOrder = 1 TabOrder = 1
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Interface Binding' Caption = 'Interface Binding'
ClientHeight = 259 ClientHeight = 257
ClientWidth = 392 ClientWidth = 392
object Label1: TLabel object Label1: TLabel
Left = 12 Left = 12
Height = 14 Height = 15
Top = 26 Top = 26
Width = 28 Width = 32
Caption = 'Name' Caption = 'Name'
ParentColor = False ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
Left = 12 Left = 12
Height = 14 Height = 15
Top = 98 Top = 98
Width = 40 Width = 42
Caption = 'Address' Caption = 'Address'
ParentColor = False ParentColor = False
end end
@ -91,7 +94,7 @@ object fBindingEdit: TfBindingEdit
end end
object edtStyle: TRadioGroup object edtStyle: TRadioGroup
Left = 12 Left = 12
Height = 81 Height = 79
Top = 165 Top = 165
Width = 352 Width = 352
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
@ -105,7 +108,7 @@ object fBindingEdit: TfBindingEdit
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2 ChildSizing.ControlsPerLine = 2
ClientHeight = 63 ClientHeight = 61
ClientWidth = 348 ClientWidth = 348
Columns = 2 Columns = 2
Items.Strings = ( Items.Strings = (
@ -121,7 +124,6 @@ object fBindingEdit: TfBindingEdit
top = 100 top = 100
object actOK: TAction object actOK: TAction
Caption = 'OK' Caption = 'OK'
DisableIfNoHandler = True
OnExecute = actOKExecute OnExecute = actOKExecute
OnUpdate = actOKUpdate OnUpdate = actOKUpdate
end end

32
wst/trunk/type_lib_edtr/ufarrayedit.lfm
View File

@ -8,7 +8,7 @@ object fArrayEdit: TfArrayEdit
Caption = 'fArrayEdit' Caption = 'fArrayEdit'
ClientHeight = 375 ClientHeight = 375
ClientWidth = 392 ClientWidth = 392
Position = poMainFormCenter Position = poDesktopCenter
LCLVersion = '1.2.2.0' LCLVersion = '1.2.2.0'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
@ -63,35 +63,35 @@ object fArrayEdit: TfArrayEdit
OnChange = PCChange OnChange = PCChange
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Array definition' Caption = 'Array definition'
ClientHeight = 299 ClientHeight = 297
ClientWidth = 384 ClientWidth = 384
object Label1: TLabel object Label1: TLabel
Left = 20 Left = 20
Height = 13 Height = 15
Top = 21 Top = 21
Width = 27 Width = 32
Caption = 'Name' Caption = 'Name'
ParentColor = False ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
Left = 20 Left = 20
Height = 13 Height = 15
Top = 102 Top = 102
Width = 65 Width = 72
Caption = 'Element Type' Caption = 'Element Type'
ParentColor = False ParentColor = False
end end
object Label3: TLabel object Label3: TLabel
Left = 20 Left = 20
Height = 13 Height = 15
Top = 170 Top = 170
Width = 68 Width = 78
Caption = 'Element Name' Caption = 'Element Name'
ParentColor = False ParentColor = False
end end
object edtName: TEdit object edtName: TEdit
Left = 20 Left = 20
Height = 21 Height = 23
Top = 42 Top = 42
Width = 337 Width = 337
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -99,25 +99,25 @@ object fArrayEdit: TfArrayEdit
end end
object edtElementType: TComboBox object edtElementType: TComboBox
Left = 20 Left = 20
Height = 21 Height = 23
Top = 122 Top = 122
Width = 337 Width = 337
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 13 ItemHeight = 15
Style = csDropDownList Style = csDropDownList
TabOrder = 1 TabOrder = 1
end end
object edtEmbedded: TCheckBox object edtEmbedded: TCheckBox
Left = 20 Left = 20
Height = 17 Height = 19
Top = 226 Top = 226
Width = 338 Width = 371
Caption = 'Embedded ( items are expanded directly in the enclosing element )' Caption = 'Embedded ( items are expanded directly in the enclosing element )'
TabOrder = 3 TabOrder = 3
end end
object edtElementName: TEdit object edtElementName: TEdit
Left = 20 Left = 20
Height = 21 Height = 23
Top = 186 Top = 186
Width = 337 Width = 337
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -126,9 +126,9 @@ object fArrayEdit: TfArrayEdit
end end
object edtCollection: TCheckBox object edtCollection: TCheckBox
Left = 20 Left = 20
Height = 17 Height = 19
Top = 258 Top = 258
Width = 351 Width = 391
Caption = 'Collection ( Pascal type will derive from TObjectCollectionRemotable )' Caption = 'Collection ( Pascal type will derive from TObjectCollectionRemotable )'
TabOrder = 4 TabOrder = 4
end end

37
wst/trunk/type_lib_edtr/ufclassedit.lfm
View File

@ -63,27 +63,27 @@ object fClassEdit: TfClassEdit
OnChange = PCChange OnChange = PCChange
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Compound Object' Caption = 'Compound Object'
ClientHeight = 480 ClientHeight = 478
ClientWidth = 544 ClientWidth = 544
object Label1: TLabel object Label1: TLabel
Left = 4 Left = 4
Height = 13 Height = 15
Top = 18 Top = 18
Width = 27 Width = 32
Caption = 'Name' Caption = 'Name'
ParentColor = False ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
Left = 4 Left = 4
Height = 13 Height = 15
Top = 59 Top = 59
Width = 66 Width = 72
Caption = 'Inheritts from' Caption = 'Inheritts from'
ParentColor = False ParentColor = False
end end
object edtName: TEdit object edtName: TEdit
Left = 92 Left = 92
Height = 21 Height = 23
Top = 18 Top = 18
Width = 440 Width = 440
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -91,17 +91,17 @@ object fClassEdit: TfClassEdit
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 4 Left = 4
Height = 305 Height = 303
Top = 98 Top = 98
Width = 529 Width = 529
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
Caption = ' Properties ' Caption = ' Properties '
ClientHeight = 287 ClientHeight = 285
ClientWidth = 525 ClientWidth = 525
TabOrder = 2 TabOrder = 2
object edtProp: TListView object edtProp: TListView
Left = 0 Left = 0
Height = 287 Height = 285
Top = 0 Top = 0
Width = 525 Width = 525
Align = alClient Align = alClient
@ -121,6 +121,7 @@ object fClassEdit: TfClassEdit
end> end>
HideSelection = False HideSelection = False
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
ReadOnly = True
RowSelect = True RowSelect = True
TabOrder = 0 TabOrder = 0
ViewStyle = vsReport ViewStyle = vsReport
@ -130,7 +131,7 @@ object fClassEdit: TfClassEdit
object Button3: TButton object Button3: TButton
Left = 4 Left = 4
Height = 25 Height = 25
Top = 413 Top = 411
Width = 100 Width = 100
Action = actPropAdd Action = actPropAdd
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
@ -140,7 +141,7 @@ object fClassEdit: TfClassEdit
object Button4: TButton object Button4: TButton
Left = 116 Left = 116
Height = 25 Height = 25
Top = 413 Top = 411
Width = 100 Width = 100
Action = actPropEdit Action = actPropEdit
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
@ -150,7 +151,7 @@ object fClassEdit: TfClassEdit
object Button5: TButton object Button5: TButton
Left = 228 Left = 228
Height = 25 Height = 25
Top = 413 Top = 411
Width = 100 Width = 100
Action = actPropDelete Action = actPropDelete
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
@ -159,18 +160,18 @@ object fClassEdit: TfClassEdit
end end
object edtParent: TComboBox object edtParent: TComboBox
Left = 92 Left = 92
Height = 21 Height = 23
Top = 58 Top = 58
Width = 440 Width = 440
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 13 ItemHeight = 15
Style = csDropDownList Style = csDropDownList
TabOrder = 1 TabOrder = 1
end end
object Button7: TButton object Button7: TButton
Left = 372 Left = 372
Height = 25 Height = 25
Top = 413 Top = 411
Width = 70 Width = 70
Action = actMoveUp Action = actMoveUp
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
@ -180,7 +181,7 @@ object fClassEdit: TfClassEdit
object Button8: TButton object Button8: TButton
Left = 452 Left = 452
Height = 25 Height = 25
Top = 413 Top = 411
Width = 70 Width = 70
Action = actMoveDown Action = actMoveDown
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
@ -190,7 +191,7 @@ object fClassEdit: TfClassEdit
object Button9: TButton object Button9: TButton
Left = 372 Left = 372
Height = 25 Height = 25
Top = 442 Top = 440
Width = 70 Width = 70
Action = actMoveFirst Action = actMoveFirst
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
@ -199,7 +200,7 @@ object fClassEdit: TfClassEdit
object Button10: TButton object Button10: TButton
Left = 452 Left = 452
Height = 25 Height = 25
Top = 442 Top = 440
Width = 70 Width = 70
Action = actMoveLast Action = actMoveLast
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]

16
wst/trunk/type_lib_edtr/ufenumedit.lfm
View File

@ -8,7 +8,7 @@ object fEnumEdit: TfEnumEdit
Caption = 'fEnumEdit' Caption = 'fEnumEdit'
ClientHeight = 368 ClientHeight = 368
ClientWidth = 400 ClientWidth = 400
Position = poMainFormCenter Position = poDesktopCenter
LCLVersion = '1.2.2.0' LCLVersion = '1.2.2.0'
object PC: TPageControl object PC: TPageControl
Left = 0 Left = 0
@ -22,19 +22,19 @@ object fEnumEdit: TfEnumEdit
OnChange = PCChange OnChange = PCChange
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Enumeration' Caption = 'Enumeration'
ClientHeight = 292 ClientHeight = 290
ClientWidth = 392 ClientWidth = 392
object Label1: TLabel object Label1: TLabel
Left = 4 Left = 4
Height = 13 Height = 15
Top = 18 Top = 18
Width = 27 Width = 32
Caption = 'Name' Caption = 'Name'
ParentColor = False ParentColor = False
end end
object edtName: TEdit object edtName: TEdit
Left = 68 Left = 68
Height = 21 Height = 23
Top = 18 Top = 18
Width = 312 Width = 312
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -42,17 +42,17 @@ object fEnumEdit: TfEnumEdit
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 4 Left = 4
Height = 231 Height = 229
Top = 51 Top = 51
Width = 377 Width = 377
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
Caption = ' Items ' Caption = ' Items '
ClientHeight = 213 ClientHeight = 211
ClientWidth = 373 ClientWidth = 373
TabOrder = 1 TabOrder = 1
object edtItems: TMemo object edtItems: TMemo
Left = 0 Left = 0
Height = 213 Height = 211
Top = 0 Top = 0
Width = 373 Width = 373
Align = alClient Align = alClient

25
wst/trunk/type_lib_edtr/ufrecordedit.lfm
View File

@ -21,19 +21,19 @@ object fRecordEdit: TfRecordEdit
OnChange = PCChange OnChange = PCChange
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Record Type' Caption = 'Record Type'
ClientHeight = 466 ClientHeight = 464
ClientWidth = 551 ClientWidth = 551
object Label1: TLabel object Label1: TLabel
Left = 20 Left = 20
Height = 13 Height = 15
Top = 34 Top = 34
Width = 27 Width = 32
Caption = 'Name' Caption = 'Name'
ParentColor = False ParentColor = False
end end
object edtName: TEdit object edtName: TEdit
Left = 76 Left = 76
Height = 21 Height = 23
Top = 34 Top = 34
Width = 451 Width = 451
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -41,17 +41,17 @@ object fRecordEdit: TfRecordEdit
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 20 Left = 20
Height = 320 Height = 318
Top = 82 Top = 82
Width = 507 Width = 507
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
Caption = ' Fields ' Caption = ' Fields '
ClientHeight = 302 ClientHeight = 300
ClientWidth = 503 ClientWidth = 503
TabOrder = 1 TabOrder = 1
object edtFields: TListView object edtFields: TListView
Left = 0 Left = 0
Height = 302 Height = 300
Top = 0 Top = 0
Width = 503 Width = 503
Align = alClient Align = alClient
@ -70,6 +70,7 @@ object fRecordEdit: TfRecordEdit
end> end>
HideSelection = False HideSelection = False
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
ReadOnly = True
RowSelect = True RowSelect = True
TabOrder = 0 TabOrder = 0
ViewStyle = vsReport ViewStyle = vsReport
@ -78,7 +79,7 @@ object fRecordEdit: TfRecordEdit
object Button3: TButton object Button3: TButton
Left = 20 Left = 20
Height = 25 Height = 25
Top = 418 Top = 416
Width = 100 Width = 100
Action = actPropAdd Action = actPropAdd
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
@ -88,7 +89,7 @@ object fRecordEdit: TfRecordEdit
object Button4: TButton object Button4: TButton
Left = 132 Left = 132
Height = 25 Height = 25
Top = 418 Top = 416
Width = 100 Width = 100
Action = actPropEdit Action = actPropEdit
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
@ -98,7 +99,7 @@ object fRecordEdit: TfRecordEdit
object Button5: TButton object Button5: TButton
Left = 244 Left = 244
Height = 25 Height = 25
Top = 418 Top = 416
Width = 100 Width = 100
Action = actPropDelete Action = actPropDelete
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
@ -108,7 +109,7 @@ object fRecordEdit: TfRecordEdit
object Button7: TButton object Button7: TButton
Left = 383 Left = 383
Height = 25 Height = 25
Top = 418 Top = 416
Width = 70 Width = 70
Action = actMoveUp Action = actMoveUp
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
@ -118,7 +119,7 @@ object fRecordEdit: TfRecordEdit
object Button8: TButton object Button8: TButton
Left = 458 Left = 458
Height = 25 Height = 25
Top = 418 Top = 416
Width = 70 Width = 70
Action = actMoveDown Action = actMoveDown
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]

44
wst/trunk/type_lib_edtr/ufrmsaveoption.lfm
View File

@ -8,7 +8,7 @@ object frmSaveOptions: TfrmSaveOptions
Caption = 'Export file options ...' Caption = 'Export file options ...'
ClientHeight = 338 ClientHeight = 338
ClientWidth = 402 ClientWidth = 402
Position = poMainFormCenter Position = poDesktopCenter
LCLVersion = '1.2.2.0' LCLVersion = '1.2.2.0'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
@ -54,9 +54,9 @@ object frmSaveOptions: TfrmSaveOptions
TabOrder = 0 TabOrder = 0
object Label1: TLabel object Label1: TLabel
Left = 16 Left = 16
Height = 13 Height = 15
Top = 16 Top = 16
Width = 80 Width = 88
Caption = 'Output directory' Caption = 'Output directory'
ParentColor = False ParentColor = False
end end
@ -72,35 +72,35 @@ object frmSaveOptions: TfrmSaveOptions
TabOrder = 2 TabOrder = 2
object edtInterface: TCheckBox object edtInterface: TCheckBox
Left = 14 Left = 14
Height = 17 Height = 19
Top = 16 Top = 16
Width = 65 Width = 66
Caption = 'Interface' Caption = 'Interface'
TabOrder = 0 TabOrder = 0
end end
object edtProxy: TCheckBox object edtProxy: TCheckBox
Left = 14 Left = 14
Height = 17 Height = 19
Top = 53 Top = 51
Width = 48 Width = 49
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Caption = 'Proxy' Caption = 'Proxy'
TabOrder = 2 TabOrder = 2
end end
object edtImplementation: TCheckBox object edtImplementation: TCheckBox
Left = 230 Left = 219
Height = 17 Height = 19
Top = 14 Top = 14
Width = 94 Width = 105
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
Caption = 'Implementation' Caption = 'Implementation'
TabOrder = 1 TabOrder = 1
end end
object edtBinder: TCheckBox object edtBinder: TCheckBox
Left = 230 Left = 226
Height = 17 Height = 19
Top = 53 Top = 51
Width = 50 Width = 54
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
Caption = 'Binder' Caption = 'Binder'
TabOrder = 3 TabOrder = 3
@ -108,7 +108,7 @@ object frmSaveOptions: TfrmSaveOptions
end end
object edtOutputDir: TEdit object edtOutputDir: TEdit
Left = 16 Left = 16
Height = 21 Height = 23
Top = 38 Top = 38
Width = 336 Width = 336
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -147,18 +147,18 @@ object frmSaveOptions: TfrmSaveOptions
end end
object edtWrappedParams: TCheckBox object edtWrappedParams: TCheckBox
Left = 16 Left = 16
Height = 17 Height = 19
Top = 198 Top = 196
Width = 292 Width = 308
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Caption = 'Generate easy access interface for wrapped parameters' Caption = 'Generate easy access interface for wrapped parameters'
TabOrder = 3 TabOrder = 3
end end
object edtDocAsComments: TCheckBox object edtDocAsComments: TCheckBox
Left = 16 Left = 16
Height = 17 Height = 19
Top = 224 Top = 222
Width = 204 Width = 226
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Caption = 'Generate documentation as comments' Caption = 'Generate documentation as comments'
TabOrder = 4 TabOrder = 4

18
wst/trunk/type_lib_edtr/uftypealiasedit.lfm
View File

@ -8,7 +8,7 @@ object fTypeAliasEdit: TfTypeAliasEdit
Caption = 'fTypeAliasEdit' Caption = 'fTypeAliasEdit'
ClientHeight = 300 ClientHeight = 300
ClientWidth = 400 ClientWidth = 400
Position = poScreenCenter Position = poDesktopCenter
LCLVersion = '1.2.2.0' LCLVersion = '1.2.2.0'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
@ -64,27 +64,27 @@ object fTypeAliasEdit: TfTypeAliasEdit
OnChange = PCChange OnChange = PCChange
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Type Alias' Caption = 'Type Alias'
ClientHeight = 224 ClientHeight = 222
ClientWidth = 392 ClientWidth = 392
object Label1: TLabel object Label1: TLabel
Left = 20 Left = 20
Height = 13 Height = 15
Top = 26 Top = 26
Width = 27 Width = 32
Caption = 'Name' Caption = 'Name'
ParentColor = False ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
Left = 20 Left = 20
Height = 13 Height = 15
Top = 114 Top = 114
Width = 50 Width = 53
Caption = 'Base Type' Caption = 'Base Type'
ParentColor = False ParentColor = False
end end
object edtName: TEdit object edtName: TEdit
Left = 20 Left = 20
Height = 21 Height = 23
Top = 42 Top = 42
Width = 344 Width = 344
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -92,11 +92,11 @@ object fTypeAliasEdit: TfTypeAliasEdit
end end
object edtBaseType: TComboBox object edtBaseType: TComboBox
Left = 20 Left = 20
Height = 21 Height = 23
Top = 130 Top = 130
Width = 344 Width = 344
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 13 ItemHeight = 15
Style = csDropDownList Style = csDropDownList
TabOrder = 1 TabOrder = 1
end end

26
wst/trunk/type_lib_edtr/uinterfaceedit.lfm
View File

@ -57,19 +57,19 @@ object fInterfaceEdit: TfInterfaceEdit
TabOrder = 1 TabOrder = 1
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Interface definition' Caption = 'Interface definition'
ClientHeight = 488 ClientHeight = 486
ClientWidth = 523 ClientWidth = 523
object Label1: TLabel object Label1: TLabel
Left = 20 Left = 20
Height = 13 Height = 15
Top = 26 Top = 26
Width = 27 Width = 32
Caption = 'Name' Caption = 'Name'
ParentColor = False ParentColor = False
end end
object edtName: TEdit object edtName: TEdit
Left = 60 Left = 60
Height = 21 Height = 23
Top = 26 Top = 26
Width = 443 Width = 443
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -77,29 +77,31 @@ object fInterfaceEdit: TfInterfaceEdit
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 20 Left = 20
Height = 368 Height = 366
Top = 74 Top = 74
Width = 484 Width = 484
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
Caption = ' Methods ' Caption = ' Methods '
ClientHeight = 350 ClientHeight = 348
ClientWidth = 480 ClientWidth = 480
TabOrder = 1 TabOrder = 1
object trvMethods: TTreeView object trvMethods: TTreeView
Left = 0 Left = 0
Height = 350 Height = 348
Top = 0 Top = 0
Width = 480 Width = 480
Align = alClient Align = alClient
DefaultItemHeight = 16 DefaultItemHeight = 18
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
ReadOnly = True
TabOrder = 0 TabOrder = 0
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
end end
end end
object Button3: TButton object Button3: TButton
Left = 20 Left = 20
Height = 25 Height = 25
Top = 450 Top = 448
Width = 99 Width = 99
Action = actNewMethod Action = actNewMethod
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
@ -109,7 +111,7 @@ object fInterfaceEdit: TfInterfaceEdit
object Button4: TButton object Button4: TButton
Left = 132 Left = 132
Height = 25 Height = 25
Top = 450 Top = 448
Width = 107 Width = 107
Action = actUpdateOperation Action = actUpdateOperation
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
@ -119,7 +121,7 @@ object fInterfaceEdit: TfInterfaceEdit
object Button5: TButton object Button5: TButton
Left = 252 Left = 252
Height = 25 Height = 25
Top = 450 Top = 448
Width = 104 Width = 104
Action = actDeleteOperation Action = actDeleteOperation
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
@ -129,7 +131,7 @@ object fInterfaceEdit: TfInterfaceEdit
object Button6: TButton object Button6: TButton
Left = 396 Left = 396
Height = 25 Height = 25
Top = 450 Top = 448
Width = 107 Width = 107
Action = actBindingEdit Action = actBindingEdit
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]

18
wst/trunk/type_lib_edtr/umoduleedit.lfm
View File

@ -10,9 +10,10 @@ object fModuleEdit: TfModuleEdit
Caption = 'Module properties' Caption = 'Module properties'
ClientHeight = 300 ClientHeight = 300
ClientWidth = 400 ClientWidth = 400
Position = poMainFormCenter Position = poDesktopCenter
LCLVersion = '0.9.25' LCLVersion = '1.2.2.0'
object Panel1: TPanel object Panel1: TPanel
Left = 0
Height = 50 Height = 50
Top = 250 Top = 250
Width = 400 Width = 400
@ -43,7 +44,9 @@ object fModuleEdit: TfModuleEdit
end end
end end
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0
Height = 250 Height = 250
Top = 0
Width = 400 Width = 400
ActivePage = TabSheet1 ActivePage = TabSheet1
Align = alClient Align = alClient
@ -51,21 +54,21 @@ object fModuleEdit: TfModuleEdit
TabOrder = 1 TabOrder = 1
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Module' Caption = 'Module'
ClientHeight = 224 ClientHeight = 222
ClientWidth = 392 ClientWidth = 392
object Label1: TLabel object Label1: TLabel
Left = 20 Left = 20
Height = 14 Height = 15
Top = 39 Top = 39
Width = 28 Width = 32
Caption = 'Name' Caption = 'Name'
ParentColor = False ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
Left = 20 Left = 20
Height = 14 Height = 15
Top = 127 Top = 127
Width = 56 Width = 62
Caption = 'Namespace' Caption = 'Namespace'
ParentColor = False ParentColor = False
end end
@ -94,7 +97,6 @@ object fModuleEdit: TfModuleEdit
top = 126 top = 126
object actOK: TAction object actOK: TAction
Caption = 'OK' Caption = 'OK'
DisableIfNoHandler = True
OnExecute = actOKExecute OnExecute = actOKExecute
OnUpdate = actOKUpdate OnUpdate = actOKUpdate
end end

39
wst/trunk/type_lib_edtr/uprocedit.lfm
View File

@ -7,7 +7,7 @@ object fProcEdit: TfProcEdit
Caption = 'fProcEdit' Caption = 'fProcEdit'
ClientHeight = 543 ClientHeight = 543
ClientWidth = 522 ClientWidth = 522
Position = poMainFormCenter Position = poDesktopCenter
LCLVersion = '1.2.2.0' LCLVersion = '1.2.2.0'
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
@ -20,38 +20,38 @@ object fProcEdit: TfProcEdit
TabOrder = 0 TabOrder = 0
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = '&Operation' Caption = '&Operation'
ClientHeight = 467 ClientHeight = 465
ClientWidth = 514 ClientWidth = 514
object Label1: TLabel object Label1: TLabel
Left = 12 Left = 12
Height = 13 Height = 15
Top = 26 Top = 26
Width = 27 Width = 32
Caption = 'Name' Caption = 'Name'
ParentColor = False ParentColor = False
end end
object edtName: TEdit object edtName: TEdit
Left = 112 Left = 144
Height = 21 Height = 23
Top = 26 Top = 26
Width = 388 Width = 356
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
TabOrder = 0 TabOrder = 0
Text = 'edtName' Text = 'edtName'
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 11 Left = 11
Height = 304 Height = 302
Top = 114 Top = 114
Width = 489 Width = 489
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
Caption = ' Parametters ' Caption = ' Parametters '
ClientHeight = 286 ClientHeight = 284
ClientWidth = 485 ClientWidth = 485
TabOrder = 3 TabOrder = 3
object edtParams: TListView object edtParams: TListView
Left = 0 Left = 0
Height = 286 Height = 284
Top = 0 Top = 0
Width = 485 Width = 485
Align = alClient Align = alClient
@ -70,6 +70,7 @@ object fProcEdit: TfProcEdit
end end
item item
end> end>
ReadOnly = True
RowSelect = True RowSelect = True
TabOrder = 0 TabOrder = 0
ViewStyle = vsReport ViewStyle = vsReport
@ -77,28 +78,28 @@ object fProcEdit: TfProcEdit
end end
object edtFunction: TCheckBox object edtFunction: TCheckBox
Left = 12 Left = 12
Height = 17 Height = 19
Top = 74 Top = 74
Width = 99 Width = 107
Caption = 'Function returns' Caption = 'Function returns'
OnClick = edtFunctionClick OnClick = edtFunctionClick
OnEditingDone = edtFunctionEditingDone OnEditingDone = edtFunctionEditingDone
TabOrder = 1 TabOrder = 1
end end
object edtResultType: TComboBox object edtResultType: TComboBox
Left = 112 Left = 144
Height = 21 Height = 23
Top = 74 Top = 74
Width = 388 Width = 356
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 13 ItemHeight = 15
Style = csDropDownList Style = csDropDownList
TabOrder = 2 TabOrder = 2
end end
object Button3: TButton object Button3: TButton
Left = 12 Left = 12
Height = 25 Height = 25
Top = 429 Top = 427
Width = 108 Width = 108
Action = actNewArg Action = actNewArg
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
@ -108,7 +109,7 @@ object fProcEdit: TfProcEdit
object Button4: TButton object Button4: TButton
Left = 132 Left = 132
Height = 25 Height = 25
Top = 429 Top = 427
Width = 108 Width = 108
Action = actUpdateArgument Action = actUpdateArgument
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
@ -118,7 +119,7 @@ object fProcEdit: TfProcEdit
object Button5: TButton object Button5: TButton
Left = 248 Left = 248
Height = 25 Height = 25
Top = 429 Top = 427
Width = 108 Width = 108
Action = actDeleteArgument Action = actDeleteArgument
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]