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

WstImportDlg: improve GUI layout use anchors (Thanks Juha Maninnen)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3182 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2014-06-16 19:09:54 +00:00
parent 58be34c928
commit 1d92e483ca
1 changed files with 116 additions and 79 deletions
Download Patch File Download Diff File Expand all files Collapse all files

195
wst/trunk/ide/lazarus/wstimportdlg.lfm
View File

@ -1,60 +1,68 @@
object formImport: TformImport object formImport: TformImport
Left = 574 Left = 574
Height = 553 Height = 571
Top = 133 Top = 133
Width = 526 Width = 598
ActiveControl = Button1 ActiveControl = Button1
BorderStyle = bsSizeToolWin BorderStyle = bsSizeToolWin
Caption = 'WSDL Importer' Caption = 'WSDL Importer'
ClientHeight = 553 ClientHeight = 571
ClientWidth = 526 ClientWidth = 598
LCLVersion = '1.2.2.0' LCLVersion = '1.3'
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Height = 505 Height = 523
Top = 0 Top = 0
Width = 526 Width = 598
Align = alClient Align = alClient
ClientHeight = 505 ClientHeight = 523
ClientWidth = 526 ClientWidth = 598
TabOrder = 1 TabOrder = 1
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 8 Left = 8
Height = 168 Height = 176
Top = 8 Top = 8
Width = 506 Width = 578
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ClientHeight = 150 ClientHeight = 154
ClientWidth = 502 ClientWidth = 574
TabOrder = 0 TabOrder = 0
object Label1: TLabel object Label1: TLabel
Left = 9 Left = 9
Height = 13 Height = 20
Top = 4 Top = 4
Width = 185 Width = 257
Caption = 'Web Services Description File ( WSDL )' Caption = 'Web Services Description File ( WSDL )'
ParentColor = False ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
AnchorSideTop.Control = edtInputFile
AnchorSideTop.Side = asrBottom
Left = 9 Left = 9
Height = 13 Height = 20
Top = 69 Top = 60
Width = 80 Width = 109
BorderSpacing.Top = 6
Caption = 'Output directory' Caption = 'Output directory'
ParentColor = False ParentColor = False
end end
object edtInputFile: TEdit object edtInputFile: TEdit
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 9 Left = 9
Height = 21 Height = 28
Top = 31 Top = 26
Width = 380 Width = 452
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
TabOrder = 0 TabOrder = 0
end end
object Button2: TButton object Button2: TButton
Left = 407 AnchorSideTop.Control = edtInputFile
AnchorSideTop.Side = asrCenter
Left = 479
Height = 25 Height = 25
Top = 31 Top = 28
Width = 40 Width = 40
Action = actOpenFile Action = actOpenFile
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@ -62,17 +70,22 @@ object formImport: TformImport
TabOrder = 1 TabOrder = 1
end end
object edtOutputDir: TEdit object edtOutputDir: TEdit
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom
Left = 9 Left = 9
Height = 21 Height = 28
Top = 88 Top = 82
Width = 380 Width = 452
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
TabOrder = 2 TabOrder = 2
end end
object Button3: TButton object Button3: TButton
Left = 407 AnchorSideTop.Control = edtOutputDir
AnchorSideTop.Side = asrCenter
Left = 479
Height = 25 Height = 25
Top = 88 Top = 84
Width = 40 Width = 40
Action = actOpenDir Action = actOpenDir
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@ -80,50 +93,59 @@ object formImport: TformImport
TabOrder = 3 TabOrder = 3
end end
object edtAddToProject: TCheckBox object edtAddToProject: TCheckBox
AnchorSideTop.Control = edtOutputDir
AnchorSideTop.Side = asrBottom
Left = 9 Left = 9
Height = 17 Height = 24
Top = 128 Top = 116
Width = 183 Width = 249
BorderSpacing.Top = 6
Caption = 'Add the generated files to project' Caption = 'Add the generated files to project'
TabOrder = 4 TabOrder = 4
end end
end end
object GroupBox2: TGroupBox object GroupBox3: TGroupBox
AnchorSideTop.Control = GroupBox2
AnchorSideTop.Side = asrBottom
Left = 8 Left = 8
Height = 129 Height = 157
Top = 368 Top = 358
Width = 506 Width = 578
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 3
Caption = ' Messages ' Caption = ' Messages '
ClientHeight = 111 ClientHeight = 135
ClientWidth = 502 ClientWidth = 574
TabOrder = 2 TabOrder = 1
object mmoLog: TMemo object mmoLog: TMemo
Left = 0 Left = 0
Height = 111 Height = 135
Top = 0 Top = 0
Width = 502 Width = 574
Align = alClient Align = alClient
ReadOnly = True ReadOnly = True
ScrollBars = ssBoth ScrollBars = ssBoth
TabOrder = 0 TabOrder = 0
end end
end end
object GroupBox3: TGroupBox object GroupBox2: TGroupBox
AnchorSideTop.Control = GroupBox1
AnchorSideTop.Side = asrBottom
Left = 8 Left = 8
Height = 168 Height = 168
Top = 184 Top = 187
Width = 506 Width = 578
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 3
Caption = ' Options ' Caption = ' Options '
ClientHeight = 150 ClientHeight = 146
ClientWidth = 502 ClientWidth = 574
TabOrder = 1 TabOrder = 2
object edtOptionIntf: TCheckBox object edtOptionIntf: TCheckBox
Left = 9 Left = 9
Height = 17 Height = 24
Top = 8 Top = 8
Width = 82 Width = 107
Caption = 'Interface file' Caption = 'Interface file'
Checked = True Checked = True
OnClick = edtOptionIntfClick OnClick = edtOptionIntfClick
@ -131,63 +153,78 @@ object formImport: TformImport
TabOrder = 0 TabOrder = 0
end end
object edtOptionProxy: TCheckBox object edtOptionProxy: TCheckBox
Left = 9 AnchorSideTop.Control = edtOptionIntfALL
Height = 17 AnchorSideTop.Side = asrBottom
Top = 56 Left = 8
Width = 65 Height = 24
Top = 60
Width = 85
BorderSpacing.Top = 2
Caption = 'Proxy file' Caption = 'Proxy file'
Checked = True Checked = True
State = cbChecked State = cbChecked
TabOrder = 2 TabOrder = 2
end end
object edtOptionBinder: TCheckBox object edtOptionBinder: TCheckBox
Left = 294 AnchorSideTop.Control = edtOptionIntf
Height = 17 Left = 318
Height = 24
Top = 8 Top = 8
Width = 105 Width = 143
Caption = 'Service Binder file' Caption = 'Service Binder file'
TabOrder = 3 TabOrder = 3
end end
object edtOptionImp: TCheckBox object edtOptionImp: TCheckBox
Left = 294 AnchorSideLeft.Control = edtOptionBinder
Height = 17 AnchorSideTop.Control = edtOptionProxy
Top = 56 Left = 318
Width = 155 Height = 24
Top = 60
Width = 216
Caption = 'Implementation Skeleton file' Caption = 'Implementation Skeleton file'
TabOrder = 4 TabOrder = 4
end end
object edtOptionIntfALL: TCheckBox object edtOptionIntfALL: TCheckBox
AnchorSideTop.Control = edtOptionIntf
AnchorSideTop.Side = asrBottom
Left = 30 Left = 30
Height = 17 Height = 24
Top = 32 Top = 34
Width = 90 Width = 118
BorderSpacing.Top = 2
Caption = 'Parse all types' Caption = 'Parse all types'
OnClick = edtOptionIntfALLClick OnClick = edtOptionIntfALLClick
TabOrder = 1 TabOrder = 1
end end
object edtOptionWrappedParams: TCheckBox object edtOptionWrappedParams: TCheckBox
AnchorSideTop.Control = edtOptionProxy
AnchorSideTop.Side = asrBottom
Left = 9 Left = 9
Height = 17 Height = 24
Top = 90 Top = 86
Width = 292 Width = 390
Anchors = [akLeft, akBottom] BorderSpacing.Top = 2
Caption = 'Generate easy access interface for wrapped parameters' Caption = 'Generate easy access interface for wrapped parameters'
TabOrder = 5 TabOrder = 5
end end
object edtDocAsComments: TCheckBox object edtDocAsComments: TCheckBox
AnchorSideTop.Control = edtOptionWrappedParams
AnchorSideTop.Side = asrBottom
Left = 9 Left = 9
Height = 17 Height = 24
Top = 121 Top = 112
Width = 204 Width = 280
Anchors = [akLeft, akBottom] BorderSpacing.Top = 2
Caption = 'Generate documentation as comments' Caption = 'Generate documentation as comments'
TabOrder = 6 TabOrder = 6
end end
object edtGenCollection: TCheckBox object edtGenCollection: TCheckBox
Left = 294 AnchorSideLeft.Control = edtOptionImp
Height = 17 AnchorSideTop.Control = edtDocAsComments
Top = 121 Left = 318
Width = 190 Height = 24
Top = 112
Width = 256
Caption = 'Generate object array as Collection' Caption = 'Generate object array as Collection'
TabOrder = 7 TabOrder = 7
end end
@ -196,14 +233,14 @@ object formImport: TformImport
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 48 Height = 48
Top = 505 Top = 523
Width = 526 Width = 598
Align = alBottom Align = alBottom
ClientHeight = 48 ClientHeight = 48
ClientWidth = 526 ClientWidth = 598
TabOrder = 0 TabOrder = 0
object Button1: TButton object Button1: TButton
Left = 351 Left = 423
Height = 25 Height = 25
Top = 8 Top = 8
Width = 75 Width = 75
@ -214,7 +251,7 @@ object formImport: TformImport
TabOrder = 0 TabOrder = 0
end end
object Button4: TButton object Button4: TButton
Left = 439 Left = 511
Height = 25 Height = 25
Top = 8 Top = 8
Width = 75 Width = 75