paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-14 09:01:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: reduced debug output

Browse Source 
git-svn-id: trunk@12469 -
This commit is contained in:
mattias 2007-10-14 22:57:31 +00:00
parent bd90319620
commit 8528701b5f
3 changed files with 178 additions and 148 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

122
ide/runparamsopts.lfm
View File

@ -1,21 +1,23 @@
object RunParamsOptsDlg: TRunParamsOptsDlg object RunParamsOptsDlg: TRunParamsOptsDlg
Left = 454 Left = 454
Height = 450 Height = 501
Top = 176 Top = 176
Width = 500 Width = 500
HorzScrollBar.Page = 499 HorzScrollBar.Page = 499
VertScrollBar.Page = 449 VertScrollBar.Page = 500
ActiveControl = OkButton ActiveControl = OkButton
BorderStyle = bsSizeToolWin BorderStyle = bsSizeToolWin
Caption = 'RunParamsOptsDlg' Caption = 'RunParamsOptsDlg'
ClientHeight = 501
ClientWidth = 500
OnResize = FormResize OnResize = FormResize
Position = poScreenCenter Position = poScreenCenter
object OkButton: TButton object OkButton: TButton
AnchorSideRight.Control = CancelButton AnchorSideRight.Control = CancelButton
Left = 328 Left = 296
Height = 26 Height = 37
Top = 418 Top = 458
Width = 65 Width = 80
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -25,10 +27,10 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
TabOrder = 0 TabOrder = 0
end end
object CancelButton: TButton object CancelButton: TButton
Left = 399 Left = 382
Height = 26 Height = 37
Top = 418 Top = 458
Width = 89 Width = 106
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -38,27 +40,32 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
TabOrder = 1 TabOrder = 1
end end
object Notebook: TNotebook object Notebook: TNotebook
Height = 408 Height = 455
Width = 500 Width = 500
Align = alTop Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
PageIndex = 0 PageIndex = 0
TabOrder = 2
object Page1: TPage object Page1: TPage
Caption = 'Page1' Caption = 'Page1'
ClientWidth = 496
ClientHeight = 424
object DisplayGroupBox: TGroupBox object DisplayGroupBox: TGroupBox
Left = 6 Left = 6
Height = 78 Height = 82
Top = 205 Top = 211
Width = 484 Width = 484
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'DisplayGroupBox' Caption = 'DisplayGroupBox'
ClientHeight = 63
ClientWidth = 480
TabOrder = 3 TabOrder = 3
object DisplayEdit: TEdit object DisplayEdit: TEdit
Left = 6 Left = 6
Height = 23 Height = 23
Top = 32 Top = 34
Width = 468 Width = 468
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -67,7 +74,7 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
end end
object UseDisplayCheckBox: TCheckBox object UseDisplayCheckBox: TCheckBox
Left = 6 Left = 6
Height = 20 Height = 22
Top = 6 Top = 6
Width = 468 Width = 468
Align = alTop Align = alTop
@ -81,13 +88,15 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
end end
object CmdLineParametersGroupBox: TGroupBox object CmdLineParametersGroupBox: TGroupBox
Left = 6 Left = 6
Height = 52 Height = 54
Top = 65 Top = 65
Width = 484 Width = 484
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'CmdLineParametersGroupBox' Caption = 'CmdLineParametersGroupBox'
ClientHeight = 35
ClientWidth = 480
TabOrder = 0 TabOrder = 0
object CmdLineParametersComboBox: TComboBox object CmdLineParametersComboBox: TComboBox
Left = 6 Left = 6
@ -104,17 +113,19 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
end end
object UseLaunchingApplicationGroupBox: TGroupBox object UseLaunchingApplicationGroupBox: TGroupBox
Left = 6 Left = 6
Height = 76 Height = 80
Top = 123 Top = 125
Width = 484 Width = 484
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'UseLaunchingApplicationGroupBox' Caption = 'UseLaunchingApplicationGroupBox'
ClientHeight = 61
ClientWidth = 480
TabOrder = 1 TabOrder = 1
object UseLaunchingApplicationCheckBox: TCheckBox object UseLaunchingApplicationCheckBox: TCheckBox
Left = 6 Left = 6
Height = 20 Height = 22
Top = 6 Top = 6
Width = 468 Width = 468
Align = alTop Align = alTop
@ -128,10 +139,9 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
object UseLaunchingApplicationComboBox: TComboBox object UseLaunchingApplicationComboBox: TComboBox
Left = 6 Left = 6
Height = 21 Height = 21
Top = 32 Top = 34
Width = 468 Width = 468
Align = alTop Align = alTop
Anchors = [akTop]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
MaxLength = 0 MaxLength = 0
@ -148,10 +158,12 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'HostApplicationGroupBox' Caption = 'HostApplicationGroupBox'
ClientHeight = 49
ClientWidth = 480
TabOrder = 2 TabOrder = 2
object HostApplicationBrowseBtn: TButton object HostApplicationBrowseBtn: TButton
Left = 451 Left = 451
Height = 24 Height = 37
Top = 6 Top = 6
Width = 23 Width = 23
Align = alRight Align = alRight
@ -163,10 +175,11 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
end end
object HostApplicationEdit: TEdit object HostApplicationEdit: TEdit
Left = 6 Left = 6
Height = 24 Height = 37
Top = 6 Top = 6
Width = 439 Width = 439
Align = alClient Align = alClient
AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
TabOrder = 1 TabOrder = 1
Text = 'HostApplicationEdit' Text = 'HostApplicationEdit'
@ -174,17 +187,19 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
end end
object WorkingDirectoryGroupBox: TGroupBox object WorkingDirectoryGroupBox: TGroupBox
Left = 6 Left = 6
Height = 53 Height = 68
Top = 289 Top = 299
Width = 484 Width = 484
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'WorkingDirectoryGroupBox' Caption = 'WorkingDirectoryGroupBox'
ClientHeight = 49
ClientWidth = 480
TabOrder = 4 TabOrder = 4
object WorkingDirectoryBtn: TButton object WorkingDirectoryBtn: TButton
Left = 451 Left = 451
Height = 24 Height = 37
Top = 6 Top = 6
Width = 23 Width = 23
Align = alRight Align = alRight
@ -196,7 +211,7 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
end end
object WorkingDirectoryComboBox: TComboBox object WorkingDirectoryComboBox: TComboBox
Left = 6 Left = 6
Height = 24 Height = 37
Top = 6 Top = 6
Width = 439 Width = 439
Align = alClient Align = alClient
@ -210,10 +225,12 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
end end
object Page2: TPage object Page2: TPage
Caption = 'Page2' Caption = 'Page2'
ClientWidth = 496
ClientHeight = 424
object IncludeSystemVariablesCheckBox: TCheckBox object IncludeSystemVariablesCheckBox: TCheckBox
Left = 6 Left = 6
Height = 20 Height = 22
Top = 352 Top = 396
Width = 484 Width = 484
Align = alBottom Align = alBottom
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -224,17 +241,19 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
object UserOverridesGroupBox: TGroupBox object UserOverridesGroupBox: TGroupBox
Left = 6 Left = 6
Height = 161 Height = 161
Top = 185 Top = 229
Width = 484 Width = 484
Align = alBottom Align = alBottom
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'UserOverridesGroupBox' Caption = 'UserOverridesGroupBox'
ClientHeight = 142
ClientWidth = 480
TabOrder = 1 TabOrder = 1
object UserOverridesAddButton: TButton object UserOverridesAddButton: TButton
Left = 6 Left = 6
Height = 26 Height = 37
Top = 92 Top = 96
Width = 152 Width = 179
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -246,10 +265,10 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
object UserOverridesEditButton: TButton object UserOverridesEditButton: TButton
AnchorSideLeft.Control = UserOverridesAddButton AnchorSideLeft.Control = UserOverridesAddButton
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
Left = 164 Left = 191
Height = 26 Height = 37
Top = 92 Top = 96
Width = 150 Width = 178
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -261,10 +280,10 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
object UserOverridesDeleteButton: TButton object UserOverridesDeleteButton: TButton
AnchorSideLeft.Control = UserOverridesEditButton AnchorSideLeft.Control = UserOverridesEditButton
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
Left = 320 Left = 375
Height = 26 Height = 37
Top = 92 Top = 96
Width = 165 Width = 196
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -274,10 +293,11 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
TabOrder = 2 TabOrder = 2
end end
object UserOverridesListView: TListView object UserOverridesListView: TListView
AnchorSideBottom.Control = UserOverridesAddButton
Left = 6 Left = 6
Height = 79 Height = 84
Top = 6 Top = 6
Width = 472 Width = 468
Align = alTop Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -285,12 +305,12 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
item item
AutoSize = True AutoSize = True
Caption = 'Caption' Caption = 'Caption'
Width = 42 Width = 59
end end
item item
AutoSize = True AutoSize = True
Caption = 'Caption' Caption = 'Caption'
Width = 42 Width = 391
end> end>
RowSelect = True RowSelect = True
SortType = stText SortType = stText
@ -300,30 +320,32 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
end end
object SystemVariablesGroupBox: TGroupBox object SystemVariablesGroupBox: TGroupBox
Left = 6 Left = 6
Height = 173 Height = 217
Top = 6 Top = 6
Width = 484 Width = 484
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'SystemVariablesGroupBox' Caption = 'SystemVariablesGroupBox'
ClientHeight = 198
ClientWidth = 480
TabOrder = 2 TabOrder = 2
object SystemVariablesListView: TListView object SystemVariablesListView: TListView
Left = 6 Left = 6
Height = 161 Height = 186
Top = 6 Top = 6
Width = 472 Width = 468
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Columns = < Columns = <
item item
AutoSize = True AutoSize = True
Caption = 'Caption' Caption = 'Caption'
Width = 42 Width = 59
end end
item item
AutoSize = True AutoSize = True
Caption = 'Caption' Caption = 'Caption'
Width = 42 Width = 391
end> end>
RowSelect = True RowSelect = True
SortType = stText SortType = stText

201
ide/runparamsopts.lrs
View File

@ -2,101 +2,108 @@
LazarusResources.Add('TRunParamsOptsDlg','FORMDATA',[ LazarusResources.Add('TRunParamsOptsDlg','FORMDATA',[
'TPF0'#17'TRunParamsOptsDlg'#16'RunParamsOptsDlg'#4'Left'#3#198#1#6'Height'#3 'TPF0'#17'TRunParamsOptsDlg'#16'RunParamsOptsDlg'#4'Left'#3#198#1#6'Height'#3
+#194#1#3'Top'#3#176#0#5'Width'#3#244#1#18'HorzScrollBar.Page'#3#243#1#18'Ver' +#245#1#3'Top'#3#176#0#5'Width'#3#244#1#18'HorzScrollBar.Page'#3#243#1#18'Ver'
+'tScrollBar.Page'#3#193#1#13'ActiveControl'#7#8'OkButton'#11'BorderStyle'#7 +'tScrollBar.Page'#3#244#1#13'ActiveControl'#7#8'OkButton'#11'BorderStyle'#7
+#13'bsSizeToolWin'#7'Caption'#6#16'RunParamsOptsDlg'#8'OnResize'#7#10'FormRe' +#13'bsSizeToolWin'#7'Caption'#6#16'RunParamsOptsDlg'#12'ClientHeight'#3#245#1
+'size'#8'Position'#7#14'poScreenCenter'#0#7'TButton'#8'OkButton'#23'AnchorSi' +#11'ClientWidth'#3#244#1#8'OnResize'#7#10'FormResize'#8'Position'#7#14'poScr'
+'deRight.Control'#7#12'CancelButton'#4'Left'#3'H'#1#6'Height'#2#26#3'Top'#3 +'eenCenter'#0#7'TButton'#8'OkButton'#23'AnchorSideRight.Control'#7#12'Cancel'
+#162#1#5'Width'#2'A'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20 +'Button'#4'Left'#3'('#1#6'Height'#2'%'#3'Top'#3#202#1#5'Width'#2'P'#7'Anchor'
+'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#8 +'s'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#25
+'OkButton'#7'OnClick'#7#13'OkButtonClick'#8'TabOrder'#2#0#0#0#7'TButton'#12 +'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#8'OkButton'#7'OnClick'#7#13'OkB'
+'CancelButton'#4'Left'#3#143#1#6'Height'#2#26#3'Top'#3#162#1#5'Width'#2'Y'#7 +'uttonClick'#8'TabOrder'#2#0#0#0#7'TButton'#12'CancelButton'#4'Left'#3'~'#1#6
+'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around' +'Height'#2'%'#3'Top'#3#202#1#5'Width'#2'j'#7'Anchors'#11#7'akRight'#8'akBott'
+#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#12'CancelButton'#11'Moda' +'om'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBord'
+'lResult'#2#2#8'TabOrder'#2#1#0#0#9'TNotebook'#8'Notebook'#6'Height'#3#152#1 +'er'#2#4#7'Caption'#6#12'CancelButton'#11'ModalResult'#2#2#8'TabOrder'#2#1#0
+#5'Width'#3#244#1#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akR' +#0#9'TNotebook'#8'Notebook'#6'Height'#3#199#1#5'Width'#3#244#1#5'Align'#7#5
+'ight'#8'akBottom'#0#9'PageIndex'#2#0#0#5'TPage'#5'Page1'#7'Caption'#6#5'Pag' +'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#9'PageInde'
+'e1'#0#9'TGroupBox'#15'DisplayGroupBox'#4'Left'#2#6#6'Height'#2'N'#3'Top'#3 +'x'#2#0#8'TabOrder'#2#2#0#5'TPage'#5'Page1'#7'Caption'#6#5'Page1'#11'ClientW'
+#205#0#5'Width'#3#228#1#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.A' +'idth'#3#240#1#12'ClientHeight'#3#168#1#0#9'TGroupBox'#15'DisplayGroupBox'#4
+'round'#2#6#7'Caption'#6#15'DisplayGroupBox'#8'TabOrder'#2#3#0#5'TEdit'#11'D' +'Left'#2#6#6'Height'#2'R'#3'Top'#3#211#0#5'Width'#3#228#1#5'Align'#7#5'alTop'
+'isplayEdit'#4'Left'#2#6#6'Height'#2#23#3'Top'#2' '#5'Width'#3#212#1#5'Align' +#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#15'DisplayGroupBox'
+#7#5'alTop'#20'BorderSpacing.Around'#2#6#8'TabOrder'#2#0#4'Text'#6#11'Displa' +#12'ClientHeight'#2'?'#11'ClientWidth'#3#224#1#8'TabOrder'#2#3#0#5'TEdit'#11
+'yEdit'#0#0#9'TCheckBox'#18'UseDisplayCheckBox'#4'Left'#2#6#6'Height'#2#20#3 +'DisplayEdit'#4'Left'#2#6#6'Height'#2#23#3'Top'#2'"'#5'Width'#3#212#1#5'Alig'
+'Top'#2#6#5'Width'#3#212#1#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6#17 +'n'#7#5'alTop'#20'BorderSpacing.Around'#2#6#8'TabOrder'#2#0#4'Text'#6#11'Dis'
+'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bottom' +'playEdit'#0#0#9'TCheckBox'#18'UseDisplayCheckBox'#4'Left'#2#6#6'Height'#2#22
+#2#6#7'Caption'#6#18'UseDisplayCheckBox'#8'TabOrder'#2#1#0#0#0#9'TGroupBox' +#3'Top'#2#6#5'Width'#3#212#1#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6
+#25'CmdLineParametersGroupBox'#4'Left'#2#6#6'Height'#2'4'#3'Top'#2'A'#5'Widt' +#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bott'
+'h'#3#228#1#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7 +'om'#2#6#7'Caption'#6#18'UseDisplayCheckBox'#8'TabOrder'#2#1#0#0#0#9'TGroupB'
+'Caption'#6#25'CmdLineParametersGroupBox'#8'TabOrder'#2#0#0#9'TComboBox'#25 +'ox'#25'CmdLineParametersGroupBox'#4'Left'#2#6#6'Height'#2'6'#3'Top'#2'A'#5
+'CmdLineParametersComboBox'#4'Left'#2#6#6'Height'#2#23#3'Top'#2#6#5'Width'#3 +'Width'#3#228#1#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2
+#212#1#5'Align'#7#5'alTop'#16'AutoCompleteText'#11#22'cbactEndOfLineComplete' +#6#7'Caption'#6#25'CmdLineParametersGroupBox'#12'ClientHeight'#2'#'#11'Clien'
+#20'cbactSearchAscending'#0#20'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#8 +'tWidth'#3#224#1#8'TabOrder'#2#0#0#9'TComboBox'#25'CmdLineParametersComboBox'
+'TabOrder'#2#0#4'Text'#6#25'CmdLineParametersComboBox'#0#0#0#9'TGroupBox'#31 +#4'Left'#2#6#6'Height'#2#23#3'Top'#2#6#5'Width'#3#212#1#5'Align'#7#5'alTop'
+'UseLaunchingApplicationGroupBox'#4'Left'#2#6#6'Height'#2'L'#3'Top'#2'{'#5'W' +#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'
+'idth'#3#228#1#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6 +#0#20'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#8'TabOrder'#2#0#4'Text'#6#25
+#7'Caption'#6#31'UseLaunchingApplicationGroupBox'#8'TabOrder'#2#1#0#9'TCheck' +'CmdLineParametersComboBox'#0#0#0#9'TGroupBox'#31'UseLaunchingApplicationGro'
+'Box'#31'UseLaunchingApplicationCheckBox'#4'Left'#2#6#6'Height'#2#20#3'Top'#2 +'upBox'#4'Left'#2#6#6'Height'#2'P'#3'Top'#2'}'#5'Width'#3#228#1#5'Align'#7#5
+#6#5'Width'#3#212#1#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6#17'Border' +'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#31'UseLaunch'
+'Spacing.Top'#2#6#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bottom'#2#6#7 +'ingApplicationGroupBox'#12'ClientHeight'#2'='#11'ClientWidth'#3#224#1#8'Tab'
+'Caption'#6#31'UseLaunchingApplicationCheckBox'#8'TabOrder'#2#0#0#0#9'TCombo' +'Order'#2#1#0#9'TCheckBox'#31'UseLaunchingApplicationCheckBox'#4'Left'#2#6#6
+'Box'#31'UseLaunchingApplicationComboBox'#4'Left'#2#6#6'Height'#2#21#3'Top'#2 +'Height'#2#22#3'Top'#2#6#5'Width'#3#212#1#5'Align'#7#5'alTop'#18'BorderSpaci'
+' '#5'Width'#3#212#1#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#0#16'AutoCom' +'ng.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#20'Borde'
+'pleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#20'Bord' +'rSpacing.Bottom'#2#6#7'Caption'#6#31'UseLaunchingApplicationCheckBox'#8'Tab'
+'erSpacing.Around'#2#6#9'MaxLength'#2#0#8'TabOrder'#2#1#4'Text'#6#31'UseLaun' +'Order'#2#0#0#0#9'TComboBox'#31'UseLaunchingApplicationComboBox'#4'Left'#2#6
+'chingApplicationComboBox'#0#0#0#9'TGroupBox'#23'HostApplicationGroupBox'#4 +#6'Height'#2#21#3'Top'#2'"'#5'Width'#3#212#1#5'Align'#7#5'alTop'#16'AutoComp'
+'Left'#2#6#6'Height'#2'5'#3'Top'#2#6#5'Width'#3#228#1#5'Align'#7#5'alTop'#8 +'leteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#20'Borde'
+'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#23'HostApplicationGro' +'rSpacing.Around'#2#6#9'MaxLength'#2#0#8'TabOrder'#2#1#4'Text'#6#31'UseLaunc'
+'upBox'#8'TabOrder'#2#2#0#7'TButton'#24'HostApplicationBrowseBtn'#4'Left'#3 +'hingApplicationComboBox'#0#0#0#9'TGroupBox'#23'HostApplicationGroupBox'#4'L'
+#195#1#6'Height'#2#24#3'Top'#2#6#5'Width'#2#23#5'Align'#7#7'alRight'#20'Bord' +'eft'#2#6#6'Height'#2'5'#3'Top'#2#6#5'Width'#3#228#1#5'Align'#7#5'alTop'#8'A'
+'erSpacing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#24'Hos' +'utoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#23'HostApplicationGrou'
+'tApplicationBrowseBtn'#7'OnClick'#7#29'HostApplicationBrowseBtnClick'#8'Tab' +'pBox'#12'ClientHeight'#2'1'#11'ClientWidth'#3#224#1#8'TabOrder'#2#2#0#7'TBu'
+'Order'#2#0#0#0#5'TEdit'#19'HostApplicationEdit'#4'Left'#2#6#6'Height'#2#24#3 +'tton'#24'HostApplicationBrowseBtn'#4'Left'#3#195#1#6'Height'#2'%'#3'Top'#2#6
+'Top'#2#6#5'Width'#3#183#1#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2 +#5'Width'#2#23#5'Align'#7#7'alRight'#20'BorderSpacing.Around'#2#6#25'BorderS'
+#6#8'TabOrder'#2#1#4'Text'#6#19'HostApplicationEdit'#0#0#0#9'TGroupBox'#24'W' +'pacing.InnerBorder'#2#4#7'Caption'#6#24'HostApplicationBrowseBtn'#7'OnClick'
+'orkingDirectoryGroupBox'#4'Left'#2#6#6'Height'#2'5'#3'Top'#3'!'#1#5'Width'#3 +#7#29'HostApplicationBrowseBtnClick'#8'TabOrder'#2#0#0#0#5'TEdit'#19'HostApp'
+#228#1#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Capt' +'licationEdit'#4'Left'#2#6#6'Height'#2'%'#3'Top'#2#6#5'Width'#3#183#1#5'Alig'
+'ion'#6#24'WorkingDirectoryGroupBox'#8'TabOrder'#2#4#0#7'TButton'#19'Working' +'n'#7#8'alClient'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#8'TabOrder'#2#1
+'DirectoryBtn'#4'Left'#3#195#1#6'Height'#2#24#3'Top'#2#6#5'Width'#2#23#5'Ali' +#4'Text'#6#19'HostApplicationEdit'#0#0#0#9'TGroupBox'#24'WorkingDirectoryGro'
+'gn'#7#7'alRight'#20'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBorder' +'upBox'#4'Left'#2#6#6'Height'#2'D'#3'Top'#3'+'#1#5'Width'#3#228#1#5'Align'#7
+#2#4#7'Caption'#6#19'WorkingDirectoryBtn'#7'OnClick'#7#24'WorkingDirectoryBt' +#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#24'Working'
+'nClick'#8'TabOrder'#2#0#0#0#9'TComboBox'#24'WorkingDirectoryComboBox'#4'Lef' +'DirectoryGroupBox'#12'ClientHeight'#2'1'#11'ClientWidth'#3#224#1#8'TabOrder'
+'t'#2#6#6'Height'#2#24#3'Top'#2#6#5'Width'#3#183#1#5'Align'#7#8'alClient'#16 +#2#4#0#7'TButton'#19'WorkingDirectoryBtn'#4'Left'#3#195#1#6'Height'#2'%'#3'T'
+'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0 +'op'#2#6#5'Width'#2#23#5'Align'#7#7'alRight'#20'BorderSpacing.Around'#2#6#25
+#20'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#8'TabOrder'#2#1#4'Text'#6#24 +'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#19'WorkingDirectoryBtn'#7'OnCli'
+'WorkingDirectoryComboBox'#0#0#0#0#5'TPage'#5'Page2'#7'Caption'#6#5'Page2'#0 +'ck'#7#24'WorkingDirectoryBtnClick'#8'TabOrder'#2#0#0#0#9'TComboBox'#24'Work'
+#9'TCheckBox'#30'IncludeSystemVariablesCheckBox'#4'Left'#2#6#6'Height'#2#20#3 +'ingDirectoryComboBox'#4'Left'#2#6#6'Height'#2'%'#3'Top'#2#6#5'Width'#3#183#1
,'Top'#3'`'#1#5'Width'#3#228#1#5'Align'#7#8'alBottom'#20'BorderSpacing.Around' ,#5'Align'#7#8'alClient'#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20
+#2#6#7'Caption'#6#30'IncludeSystemVariablesCheckBox'#7'Enabled'#8#8'TabOrder' +'cbactSearchAscending'#0#20'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#8'Tab'
+#2#0#0#0#9'TGroupBox'#21'UserOverridesGroupBox'#4'Left'#2#6#6'Height'#3#161#0 +'Order'#2#1#4'Text'#6#24'WorkingDirectoryComboBox'#0#0#0#0#5'TPage'#5'Page2'
+#3'Top'#3#185#0#5'Width'#3#228#1#5'Align'#7#8'alBottom'#20'BorderSpacing.Aro' +#7'Caption'#6#5'Page2'#11'ClientWidth'#3#240#1#12'ClientHeight'#3#168#1#0#9
+'und'#2#6#7'Caption'#6#21'UserOverridesGroupBox'#8'TabOrder'#2#1#0#7'TButton' +'TCheckBox'#30'IncludeSystemVariablesCheckBox'#4'Left'#2#6#6'Height'#2#22#3
+#22'UserOverridesAddButton'#4'Left'#2#6#6'Height'#2#26#3'Top'#2'\'#5'Width'#3 +'Top'#3#140#1#5'Width'#3#228#1#5'Align'#7#8'alBottom'#20'BorderSpacing.Aroun'
+#152#0#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.' +'d'#2#6#7'Caption'#6#30'IncludeSystemVariablesCheckBox'#7'Enabled'#8#8'TabOr'
+'Around'#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#22'UserOverrides' +'der'#2#0#0#0#9'TGroupBox'#21'UserOverridesGroupBox'#4'Left'#2#6#6'Height'#3
+'AddButton'#7'OnClick'#7#27'UserOverridesAddButtonClick'#8'TabOrder'#2#0#0#0 +#161#0#3'Top'#3#229#0#5'Width'#3#228#1#5'Align'#7#8'alBottom'#20'BorderSpaci'
+#7'TButton'#23'UserOverridesEditButton'#22'AnchorSideLeft.Control'#7#22'User' +'ng.Around'#2#6#7'Caption'#6#21'UserOverridesGroupBox'#12'ClientHeight'#3#142
+'OverridesAddButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#3#164#0#6 +#0#11'ClientWidth'#3#224#1#8'TabOrder'#2#1#0#7'TButton'#22'UserOverridesAddB'
+'Height'#2#26#3'Top'#2'\'#5'Width'#3#150#0#7'Anchors'#11#6'akLeft'#8'akBotto' +'utton'#4'Left'#2#6#6'Height'#2'%'#3'Top'#2'`'#5'Width'#3#179#0#7'Anchors'#11
+'m'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBorde' +#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#25'Borde'
+'r'#2#4#7'Caption'#6#23'UserOverridesEditButton'#7'OnClick'#7#28'UserOverrid' +'rSpacing.InnerBorder'#2#4#7'Caption'#6#22'UserOverridesAddButton'#7'OnClick'
+'esEditButtonClick'#8'TabOrder'#2#1#0#0#7'TButton'#25'UserOverridesDeleteBut' +#7#27'UserOverridesAddButtonClick'#8'TabOrder'#2#0#0#0#7'TButton'#23'UserOve'
+'ton'#22'AnchorSideLeft.Control'#7#23'UserOverridesEditButton'#19'AnchorSide' +'rridesEditButton'#22'AnchorSideLeft.Control'#7#22'UserOverridesAddButton'#19
+'Left.Side'#7#9'asrBottom'#4'Left'#3'@'#1#6'Height'#2#26#3'Top'#2'\'#5'Width' +'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#3#191#0#6'Height'#2'%'#3'Top'#2
+#3#165#0#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacin' +'`'#5'Width'#3#178#0#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#20
+'g.Around'#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#25'UserOverrid' +'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#23
+'esDeleteButton'#7'OnClick'#7#30'UserOverridesDeleteButtonClick'#8'TabOrder' +'UserOverridesEditButton'#7'OnClick'#7#28'UserOverridesEditButtonClick'#8'Ta'
+#2#2#0#0#9'TListView'#21'UserOverridesListView'#4'Left'#2#6#6'Height'#2'O'#3 +'bOrder'#2#1#0#0#7'TButton'#25'UserOverridesDeleteButton'#22'AnchorSideLeft.'
+'Top'#2#6#5'Width'#3#216#1#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLe' +'Control'#7#23'UserOverridesEditButton'#19'AnchorSideLeft.Side'#7#9'asrBotto'
+'ft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Columns'#14#1#8 +'m'#4'Left'#3'w'#1#6'Height'#2'%'#3'Top'#2'`'#5'Width'#3#196#0#7'Anchors'#11
+'AutoSize'#9#7'Caption'#6#7'Caption'#5'Width'#2'*'#0#1#8'AutoSize'#9#7'Capti' +#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#25'Borde'
+'on'#6#7'Caption'#5'Width'#2'*'#0#0#9'RowSelect'#9#8'SortType'#7#6'stText'#8 +'rSpacing.InnerBorder'#2#4#7'Caption'#6#25'UserOverridesDeleteButton'#7'OnCl'
+'TabOrder'#2#3#9'ViewStyle'#7#8'vsReport'#0#0#0#9'TGroupBox'#23'SystemVariab' +'ick'#7#30'UserOverridesDeleteButtonClick'#8'TabOrder'#2#2#0#0#9'TListView'
+'lesGroupBox'#4'Left'#2#6#6'Height'#3#173#0#3'Top'#2#6#5'Width'#3#228#1#5'Al' +#21'UserOverridesListView'#24'AnchorSideBottom.Control'#7#22'UserOverridesAd'
+'ign'#7#8'alClient'#20'BorderSpacing.Around'#2#6#7'Caption'#6#23'SystemVaria' +'dButton'#4'Left'#2#6#6'Height'#2'T'#3'Top'#2#6#5'Width'#3#212#1#5'Align'#7#5
+'blesGroupBox'#8'TabOrder'#2#2#0#9'TListView'#23'SystemVariablesListView'#4 +'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderS'
+'Left'#2#6#6'Height'#3#161#0#3'Top'#2#6#5'Width'#3#216#1#5'Align'#7#8'alClie' +'pacing.Around'#2#6#7'Columns'#14#1#8'AutoSize'#9#7'Caption'#6#7'Caption'#5
+'nt'#20'BorderSpacing.Around'#2#6#7'Columns'#14#1#8'AutoSize'#9#7'Caption'#6 +'Width'#2';'#0#1#8'AutoSize'#9#7'Caption'#6#7'Caption'#5'Width'#3#135#1#0#0#9
+#7'Caption'#5'Width'#2'*'#0#1#8'AutoSize'#9#7'Caption'#6#7'Caption'#5'Width' +'RowSelect'#9#8'SortType'#7#6'stText'#8'TabOrder'#2#3#9'ViewStyle'#7#8'vsRep'
+#2'*'#0#0#9'RowSelect'#9#8'SortType'#7#6'stText'#8'TabOrder'#2#0#9'ViewStyle' +'ort'#0#0#0#9'TGroupBox'#23'SystemVariablesGroupBox'#4'Left'#2#6#6'Height'#3
+#7#8'vsReport'#0#0#0#0#0#0 +#217#0#3'Top'#2#6#5'Width'#3#228#1#5'Align'#7#8'alClient'#20'BorderSpacing.A'
+'round'#2#6#7'Caption'#6#23'SystemVariablesGroupBox'#12'ClientHeight'#3#198#0
+#11'ClientWidth'#3#224#1#8'TabOrder'#2#2#0#9'TListView'#23'SystemVariablesLi'
+'stView'#4'Left'#2#6#6'Height'#3#186#0#3'Top'#2#6#5'Width'#3#212#1#5'Align'#7
+#8'alClient'#20'BorderSpacing.Around'#2#6#7'Columns'#14#1#8'AutoSize'#9#7'Ca'
+'ption'#6#7'Caption'#5'Width'#2';'#0#1#8'AutoSize'#9#7'Caption'#6#7'Caption'
+#5'Width'#3#135#1#0#0#9'RowSelect'#9#8'SortType'#7#6'stText'#8'TabOrder'#2#0
+#9'ViewStyle'#7#8'vsReport'#0#0#0#0#0#0
]); ]);

3
lcl/include/wincontrol.inc
View File

@ -947,7 +947,8 @@ begin
for a:=Low(TAnchorKind) to High(TAnchorKind) do begin for a:=Low(TAnchorKind) to High(TAnchorKind) do begin
if a in AnchorAlign[Child.Align] then begin if a in AnchorAlign[Child.Align] then begin
// the aligned sides can not be anchored to a control // the aligned sides can not be anchored to a control
DebugLn(['TAutoSizeCtrlData.FixControlProperties aligned sides can not be anchored ',DbgSName(Child),' a=',dbgs(a),' old=',DbgSName(Child.AnchorSide[a].Control),' new=nil']); if Child.AnchorSide[a].Control<>nil then
DebugLn(['TAutoSizeCtrlData.FixControlProperties aligned sides can not be anchored ',DbgSName(Child),' a=',dbgs(a),' old=',DbgSName(Child.AnchorSide[a].Control),' new=nil']);
Child.AnchorSide[a].Control:=nil; Child.AnchorSide[a].Control:=nil;
end; end;
if Child.AnchorSide[a].Side=asrCenter then begin if Child.AnchorSide[a].Side=asrCenter then begin