You've already forked lazarus-ccr
+ main windows of the Type Library Editor now has, for the select item, a document view, xsd view and a dependencies view + each type edit dialog now has, for the select item, a document view, xsd view and a dependencies view + the interface file generator is able to generate the xsd documentation as comments in the Object Pascal source code git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@531 8e941d3f-bd1b-0410-a28a-d453659cc2b4
251 lines
5.6 KiB
Plaintext
251 lines
5.6 KiB
Plaintext
object formImport: TformImport
|
|
Left = 574
|
|
Height = 553
|
|
Top = 133
|
|
Width = 526
|
|
HorzScrollBar.Page = 525
|
|
VertScrollBar.Page = 552
|
|
ActiveControl = Button1
|
|
BorderStyle = bsSizeToolWin
|
|
Caption = 'WSDL Importer'
|
|
ClientHeight = 553
|
|
ClientWidth = 526
|
|
LCLVersion = '0.9.25'
|
|
object Panel2: TPanel
|
|
Height = 505
|
|
Width = 526
|
|
Align = alClient
|
|
ClientHeight = 505
|
|
ClientWidth = 526
|
|
TabOrder = 1
|
|
object GroupBox1: TGroupBox
|
|
Left = 8
|
|
Height = 168
|
|
Top = 8
|
|
Width = 506
|
|
Anchors = [akTop, akLeft, akRight]
|
|
ClientHeight = 150
|
|
ClientWidth = 502
|
|
TabOrder = 0
|
|
object Label1: TLabel
|
|
Left = 9
|
|
Height = 14
|
|
Top = 4
|
|
Width = 186
|
|
Caption = 'Web Services Description File ( WSDL )'
|
|
ParentColor = False
|
|
end
|
|
object Label2: TLabel
|
|
Left = 9
|
|
Height = 14
|
|
Top = 69
|
|
Width = 81
|
|
Caption = 'Output directory'
|
|
ParentColor = False
|
|
end
|
|
object edtInputFile: TEdit
|
|
Left = 9
|
|
Height = 23
|
|
Top = 31
|
|
Width = 380
|
|
Anchors = [akTop, akLeft, akRight]
|
|
TabOrder = 0
|
|
end
|
|
object Button2: TButton
|
|
Left = 407
|
|
Height = 25
|
|
Top = 31
|
|
Width = 40
|
|
Action = actOpenFile
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.InnerBorder = 4
|
|
TabOrder = 1
|
|
end
|
|
object edtOutputDir: TEdit
|
|
Left = 9
|
|
Height = 23
|
|
Top = 88
|
|
Width = 380
|
|
Anchors = [akTop, akLeft, akRight]
|
|
TabOrder = 2
|
|
end
|
|
object Button3: TButton
|
|
Left = 407
|
|
Height = 25
|
|
Top = 88
|
|
Width = 40
|
|
Action = actOpenDir
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.InnerBorder = 4
|
|
TabOrder = 3
|
|
end
|
|
object edtAddToProject: TCheckBox
|
|
Left = 9
|
|
Height = 19
|
|
Top = 128
|
|
Width = 182
|
|
Caption = 'Add the generated files to project'
|
|
TabOrder = 4
|
|
end
|
|
end
|
|
object GroupBox2: TGroupBox
|
|
Left = 8
|
|
Height = 129
|
|
Top = 368
|
|
Width = 506
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
Caption = ' Messages '
|
|
ClientHeight = 111
|
|
ClientWidth = 502
|
|
TabOrder = 2
|
|
object mmoLog: TMemo
|
|
Height = 111
|
|
Width = 502
|
|
Align = alClient
|
|
ReadOnly = True
|
|
ScrollBars = ssBoth
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object GroupBox3: TGroupBox
|
|
Left = 8
|
|
Height = 168
|
|
Top = 184
|
|
Width = 506
|
|
Anchors = [akTop, akLeft, akRight]
|
|
Caption = ' Options '
|
|
ClientHeight = 150
|
|
ClientWidth = 502
|
|
TabOrder = 1
|
|
object edtOptionIntf: TCheckBox
|
|
Left = 9
|
|
Height = 19
|
|
Top = 8
|
|
Width = 84
|
|
Caption = 'Interface file'
|
|
Checked = True
|
|
OnClick = edtOptionIntfClick
|
|
State = cbChecked
|
|
TabOrder = 0
|
|
end
|
|
object edtOptionProxy: TCheckBox
|
|
Left = 9
|
|
Height = 19
|
|
Top = 56
|
|
Width = 68
|
|
Caption = 'Proxy file'
|
|
Checked = True
|
|
State = cbChecked
|
|
TabOrder = 2
|
|
end
|
|
object edtOptionBinder: TCheckBox
|
|
Left = 294
|
|
Height = 19
|
|
Top = 8
|
|
Width = 111
|
|
Caption = 'Service Binder file'
|
|
TabOrder = 3
|
|
end
|
|
object edtOptionImp: TCheckBox
|
|
Left = 294
|
|
Height = 19
|
|
Top = 56
|
|
Width = 158
|
|
Caption = 'Implementation Skeleton file'
|
|
TabOrder = 4
|
|
end
|
|
object edtOptionIntfALL: TCheckBox
|
|
Left = 30
|
|
Height = 19
|
|
Top = 32
|
|
Width = 94
|
|
Caption = 'Parse all types'
|
|
OnClick = edtOptionIntfALLClick
|
|
TabOrder = 1
|
|
end
|
|
object edtOptionWrappedParams: TCheckBox
|
|
Left = 9
|
|
Height = 19
|
|
Top = 88
|
|
Width = 290
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Generate easy access interface for wrapped parameters'
|
|
TabOrder = 5
|
|
end
|
|
object edtDocAsComments: TCheckBox
|
|
Left = 9
|
|
Height = 19
|
|
Top = 119
|
|
Width = 208
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Generate documentation as comments'
|
|
TabOrder = 6
|
|
end
|
|
end
|
|
end
|
|
object Panel1: TPanel
|
|
Height = 48
|
|
Top = 505
|
|
Width = 526
|
|
Align = alBottom
|
|
ClientHeight = 48
|
|
ClientWidth = 526
|
|
TabOrder = 0
|
|
object Button1: TButton
|
|
Left = 351
|
|
Height = 25
|
|
Top = 8
|
|
Width = 75
|
|
Action = actOK
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.InnerBorder = 4
|
|
Default = True
|
|
TabOrder = 0
|
|
end
|
|
object Button4: TButton
|
|
Left = 439
|
|
Height = 25
|
|
Top = 8
|
|
Width = 75
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.InnerBorder = 4
|
|
Cancel = True
|
|
Caption = 'Cancel'
|
|
ModalResult = 2
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
object AL: TActionList
|
|
left = 104
|
|
top = 328
|
|
object actOK: TAction
|
|
Caption = 'OK'
|
|
DisableIfNoHandler = True
|
|
OnExecute = actOKExecute
|
|
OnUpdate = actOKUpdate
|
|
end
|
|
object actOpenFile: TAction
|
|
Caption = '...'
|
|
DisableIfNoHandler = True
|
|
OnExecute = actOpenFileExecute
|
|
end
|
|
object actOpenDir: TAction
|
|
Caption = '...'
|
|
DisableIfNoHandler = True
|
|
OnExecute = actOpenDirExecute
|
|
end
|
|
end
|
|
object OD: TOpenDialog
|
|
Filter = 'WSDL Files ( *.wsdl )|*.wsdl'
|
|
FilterIndex = 0
|
|
Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
|
|
left = 272
|
|
top = 32
|
|
end
|
|
object SDD: TSelectDirectoryDialog
|
|
FilterIndex = 0
|
|
left = 224
|
|
top = 176
|
|
end
|
|
end
|