You've already forked lazarus-ccr
0071bd8371
ws_helper now has the following parameters :
ws_helper [-u] [-p] [-b] [-i] [-oPATH] inputFilename
-u Generate the pascal translation of the WSDL input file
-p Generate service proxy
-b Generate service binder
-i Generate service minimal implementation
-o PATH Relative output directory
-a PATH Absolute output directory
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@135 8e941d3f-bd1b-0410-a28a-d453659cc2b4
153 lines
3.7 KiB
Plaintext
153 lines
3.7 KiB
Plaintext
object fMain: TfMain
|
|
Left = 175
|
|
Height = 311
|
|
Top = 233
|
|
Width = 574
|
|
HorzScrollBar.Page = 573
|
|
VertScrollBar.Page = 310
|
|
ActiveControl = edtAddress
|
|
Caption = 'WST Metadata Browser'
|
|
object pnlHead: TPanel
|
|
Height = 82
|
|
Width = 574
|
|
Align = alTop
|
|
TabOrder = 0
|
|
object Label1: TLabel
|
|
Left = 14
|
|
Height = 18
|
|
Top = 12
|
|
Width = 26
|
|
Caption = 'URL'
|
|
Color = clNone
|
|
ParentColor = False
|
|
end
|
|
object Label3: TLabel
|
|
Left = 11
|
|
Height = 18
|
|
Top = 46
|
|
Width = 45
|
|
Caption = 'Format'
|
|
Color = clNone
|
|
ParentColor = False
|
|
end
|
|
object edtAddress: TEdit
|
|
Left = 88
|
|
Height = 23
|
|
Top = 12
|
|
Width = 480
|
|
Anchors = [akTop, akLeft, akRight]
|
|
Font.CharSet = ANSI_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Arial'
|
|
Font.Pitch = fpVariable
|
|
TabOrder = 0
|
|
Text = 'http://127.0.0.1:8000/wst/services/IWSTMetadataService'
|
|
end
|
|
object btnGetRepList: TButton
|
|
Left = 477
|
|
Height = 25
|
|
Top = 40
|
|
Width = 91
|
|
Action = actGetRepositoryList
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.InnerBorder = 4
|
|
TabOrder = 2
|
|
end
|
|
object edtFormat: TRadioGroup
|
|
Left = 88
|
|
Height = 37
|
|
Top = 35
|
|
Width = 280
|
|
AutoFill = True
|
|
Caption = ' &Format '
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.TopBottomSpacing = 6
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 2
|
|
Columns = 2
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'&SOAP'
|
|
'&binary'
|
|
)
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
object pnlClient: TPanel
|
|
Height = 229
|
|
Top = 82
|
|
Width = 574
|
|
Align = alClient
|
|
BevelInner = bvRaised
|
|
BevelOuter = bvLowered
|
|
TabOrder = 1
|
|
object Label2: TLabel
|
|
Left = 14
|
|
Height = 18
|
|
Top = 14
|
|
Width = 67
|
|
Caption = 'Repository'
|
|
Color = clNone
|
|
ParentColor = False
|
|
end
|
|
object edtRepositoryList: TComboBox
|
|
Left = 112
|
|
Height = 24
|
|
Top = 7
|
|
Width = 344
|
|
Anchors = [akTop, akLeft, akRight]
|
|
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
|
|
MaxLength = 0
|
|
TabOrder = 0
|
|
Text = 'edtRepositoryList'
|
|
end
|
|
object tvwMetadata: TTreeView
|
|
Left = 11
|
|
Height = 176
|
|
Top = 38
|
|
Width = 555
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
DefaultItemHeight = 18
|
|
Font.CharSet = ANSI_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Courier New'
|
|
Font.Pitch = fpFixed
|
|
ReadOnly = True
|
|
TabOrder = 1
|
|
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoShowSeparators, tvoToolTips]
|
|
TreeLineColor = clNavy
|
|
end
|
|
object Button1: TButton
|
|
Left = 477
|
|
Height = 25
|
|
Top = 6
|
|
Width = 91
|
|
Action = actGetRepository
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.InnerBorder = 4
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
object AL: TActionList
|
|
left = 72
|
|
top = 464
|
|
object actGetRepositoryList: TAction
|
|
Caption = 'Get Rep. List'
|
|
DisableIfNoHandler = True
|
|
OnExecute = actGetRepositoryListExecute
|
|
end
|
|
object actGetRepository: TAction
|
|
Caption = 'Get Repository'
|
|
DisableIfNoHandler = True
|
|
OnExecute = actGetRepositoryExecute
|
|
OnUpdate = actGetRepositoryUpdate
|
|
end
|
|
end
|
|
end
|