From 8528701b5f662c10da630155378076ddc0b89c86 Mon Sep 17 00:00:00 2001 From: mattias Date: Sun, 14 Oct 2007 22:57:31 +0000 Subject: [PATCH] LCL: reduced debug output git-svn-id: trunk@12469 - --- ide/runparamsopts.lfm | 122 +++++++++++++--------- ide/runparamsopts.lrs | 201 +++++++++++++++++++------------------ lcl/include/wincontrol.inc | 3 +- 3 files changed, 178 insertions(+), 148 deletions(-) diff --git a/ide/runparamsopts.lfm b/ide/runparamsopts.lfm index 995c9b0e6c..f02ff832ca 100644 --- a/ide/runparamsopts.lfm +++ b/ide/runparamsopts.lfm @@ -1,21 +1,23 @@ object RunParamsOptsDlg: TRunParamsOptsDlg Left = 454 - Height = 450 + Height = 501 Top = 176 Width = 500 HorzScrollBar.Page = 499 - VertScrollBar.Page = 449 + VertScrollBar.Page = 500 ActiveControl = OkButton BorderStyle = bsSizeToolWin Caption = 'RunParamsOptsDlg' + ClientHeight = 501 + ClientWidth = 500 OnResize = FormResize Position = poScreenCenter object OkButton: TButton AnchorSideRight.Control = CancelButton - Left = 328 - Height = 26 - Top = 418 - Width = 65 + Left = 296 + Height = 37 + Top = 458 + Width = 80 Anchors = [akRight, akBottom] AutoSize = True BorderSpacing.Around = 6 @@ -25,10 +27,10 @@ object RunParamsOptsDlg: TRunParamsOptsDlg TabOrder = 0 end object CancelButton: TButton - Left = 399 - Height = 26 - Top = 418 - Width = 89 + Left = 382 + Height = 37 + Top = 458 + Width = 106 Anchors = [akRight, akBottom] AutoSize = True BorderSpacing.Around = 6 @@ -38,27 +40,32 @@ object RunParamsOptsDlg: TRunParamsOptsDlg TabOrder = 1 end object Notebook: TNotebook - Height = 408 + Height = 455 Width = 500 Align = alTop Anchors = [akTop, akLeft, akRight, akBottom] PageIndex = 0 + TabOrder = 2 object Page1: TPage Caption = 'Page1' + ClientWidth = 496 + ClientHeight = 424 object DisplayGroupBox: TGroupBox Left = 6 - Height = 78 - Top = 205 + Height = 82 + Top = 211 Width = 484 Align = alTop AutoSize = True BorderSpacing.Around = 6 Caption = 'DisplayGroupBox' + ClientHeight = 63 + ClientWidth = 480 TabOrder = 3 object DisplayEdit: TEdit Left = 6 Height = 23 - Top = 32 + Top = 34 Width = 468 Align = alTop BorderSpacing.Around = 6 @@ -67,7 +74,7 @@ object RunParamsOptsDlg: TRunParamsOptsDlg end object UseDisplayCheckBox: TCheckBox Left = 6 - Height = 20 + Height = 22 Top = 6 Width = 468 Align = alTop @@ -81,13 +88,15 @@ object RunParamsOptsDlg: TRunParamsOptsDlg end object CmdLineParametersGroupBox: TGroupBox Left = 6 - Height = 52 + Height = 54 Top = 65 Width = 484 Align = alTop AutoSize = True BorderSpacing.Around = 6 Caption = 'CmdLineParametersGroupBox' + ClientHeight = 35 + ClientWidth = 480 TabOrder = 0 object CmdLineParametersComboBox: TComboBox Left = 6 @@ -104,17 +113,19 @@ object RunParamsOptsDlg: TRunParamsOptsDlg end object UseLaunchingApplicationGroupBox: TGroupBox Left = 6 - Height = 76 - Top = 123 + Height = 80 + Top = 125 Width = 484 Align = alTop AutoSize = True BorderSpacing.Around = 6 Caption = 'UseLaunchingApplicationGroupBox' + ClientHeight = 61 + ClientWidth = 480 TabOrder = 1 object UseLaunchingApplicationCheckBox: TCheckBox Left = 6 - Height = 20 + Height = 22 Top = 6 Width = 468 Align = alTop @@ -128,10 +139,9 @@ object RunParamsOptsDlg: TRunParamsOptsDlg object UseLaunchingApplicationComboBox: TComboBox Left = 6 Height = 21 - Top = 32 + Top = 34 Width = 468 Align = alTop - Anchors = [akTop] AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] BorderSpacing.Around = 6 MaxLength = 0 @@ -148,10 +158,12 @@ object RunParamsOptsDlg: TRunParamsOptsDlg AutoSize = True BorderSpacing.Around = 6 Caption = 'HostApplicationGroupBox' + ClientHeight = 49 + ClientWidth = 480 TabOrder = 2 object HostApplicationBrowseBtn: TButton Left = 451 - Height = 24 + Height = 37 Top = 6 Width = 23 Align = alRight @@ -163,10 +175,11 @@ object RunParamsOptsDlg: TRunParamsOptsDlg end object HostApplicationEdit: TEdit Left = 6 - Height = 24 + Height = 37 Top = 6 Width = 439 Align = alClient + AutoSize = True BorderSpacing.Around = 6 TabOrder = 1 Text = 'HostApplicationEdit' @@ -174,17 +187,19 @@ object RunParamsOptsDlg: TRunParamsOptsDlg end object WorkingDirectoryGroupBox: TGroupBox Left = 6 - Height = 53 - Top = 289 + Height = 68 + Top = 299 Width = 484 Align = alTop AutoSize = True BorderSpacing.Around = 6 Caption = 'WorkingDirectoryGroupBox' + ClientHeight = 49 + ClientWidth = 480 TabOrder = 4 object WorkingDirectoryBtn: TButton Left = 451 - Height = 24 + Height = 37 Top = 6 Width = 23 Align = alRight @@ -196,7 +211,7 @@ object RunParamsOptsDlg: TRunParamsOptsDlg end object WorkingDirectoryComboBox: TComboBox Left = 6 - Height = 24 + Height = 37 Top = 6 Width = 439 Align = alClient @@ -210,10 +225,12 @@ object RunParamsOptsDlg: TRunParamsOptsDlg end object Page2: TPage Caption = 'Page2' + ClientWidth = 496 + ClientHeight = 424 object IncludeSystemVariablesCheckBox: TCheckBox Left = 6 - Height = 20 - Top = 352 + Height = 22 + Top = 396 Width = 484 Align = alBottom BorderSpacing.Around = 6 @@ -224,17 +241,19 @@ object RunParamsOptsDlg: TRunParamsOptsDlg object UserOverridesGroupBox: TGroupBox Left = 6 Height = 161 - Top = 185 + Top = 229 Width = 484 Align = alBottom BorderSpacing.Around = 6 Caption = 'UserOverridesGroupBox' + ClientHeight = 142 + ClientWidth = 480 TabOrder = 1 object UserOverridesAddButton: TButton Left = 6 - Height = 26 - Top = 92 - Width = 152 + Height = 37 + Top = 96 + Width = 179 Anchors = [akLeft, akBottom] AutoSize = True BorderSpacing.Around = 6 @@ -246,10 +265,10 @@ object RunParamsOptsDlg: TRunParamsOptsDlg object UserOverridesEditButton: TButton AnchorSideLeft.Control = UserOverridesAddButton AnchorSideLeft.Side = asrBottom - Left = 164 - Height = 26 - Top = 92 - Width = 150 + Left = 191 + Height = 37 + Top = 96 + Width = 178 Anchors = [akLeft, akBottom] AutoSize = True BorderSpacing.Around = 6 @@ -261,10 +280,10 @@ object RunParamsOptsDlg: TRunParamsOptsDlg object UserOverridesDeleteButton: TButton AnchorSideLeft.Control = UserOverridesEditButton AnchorSideLeft.Side = asrBottom - Left = 320 - Height = 26 - Top = 92 - Width = 165 + Left = 375 + Height = 37 + Top = 96 + Width = 196 Anchors = [akLeft, akBottom] AutoSize = True BorderSpacing.Around = 6 @@ -274,10 +293,11 @@ object RunParamsOptsDlg: TRunParamsOptsDlg TabOrder = 2 end object UserOverridesListView: TListView + AnchorSideBottom.Control = UserOverridesAddButton Left = 6 - Height = 79 + Height = 84 Top = 6 - Width = 472 + Width = 468 Align = alTop Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Around = 6 @@ -285,12 +305,12 @@ object RunParamsOptsDlg: TRunParamsOptsDlg item AutoSize = True Caption = 'Caption' - Width = 42 + Width = 59 end item AutoSize = True Caption = 'Caption' - Width = 42 + Width = 391 end> RowSelect = True SortType = stText @@ -300,30 +320,32 @@ object RunParamsOptsDlg: TRunParamsOptsDlg end object SystemVariablesGroupBox: TGroupBox Left = 6 - Height = 173 + Height = 217 Top = 6 Width = 484 Align = alClient BorderSpacing.Around = 6 Caption = 'SystemVariablesGroupBox' + ClientHeight = 198 + ClientWidth = 480 TabOrder = 2 object SystemVariablesListView: TListView Left = 6 - Height = 161 + Height = 186 Top = 6 - Width = 472 + Width = 468 Align = alClient BorderSpacing.Around = 6 Columns = < item AutoSize = True Caption = 'Caption' - Width = 42 + Width = 59 end item AutoSize = True Caption = 'Caption' - Width = 42 + Width = 391 end> RowSelect = True SortType = stText diff --git a/ide/runparamsopts.lrs b/ide/runparamsopts.lrs index 4def65d19a..a5ce3d3e6b 100644 --- a/ide/runparamsopts.lrs +++ b/ide/runparamsopts.lrs @@ -2,101 +2,108 @@ LazarusResources.Add('TRunParamsOptsDlg','FORMDATA',[ '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' - +'tScrollBar.Page'#3#193#1#13'ActiveControl'#7#8'OkButton'#11'BorderStyle'#7 - +#13'bsSizeToolWin'#7'Caption'#6#16'RunParamsOptsDlg'#8'OnResize'#7#10'FormRe' - +'size'#8'Position'#7#14'poScreenCenter'#0#7'TButton'#8'OkButton'#23'AnchorSi' - +'deRight.Control'#7#12'CancelButton'#4'Left'#3'H'#1#6'Height'#2#26#3'Top'#3 - +#162#1#5'Width'#2'A'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20 - +'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#8 - +'OkButton'#7'OnClick'#7#13'OkButtonClick'#8'TabOrder'#2#0#0#0#7'TButton'#12 - +'CancelButton'#4'Left'#3#143#1#6'Height'#2#26#3'Top'#3#162#1#5'Width'#2'Y'#7 - +'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around' - +#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#12'CancelButton'#11'Moda' - +'lResult'#2#2#8'TabOrder'#2#1#0#0#9'TNotebook'#8'Notebook'#6'Height'#3#152#1 - +#5'Width'#3#244#1#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akR' - +'ight'#8'akBottom'#0#9'PageIndex'#2#0#0#5'TPage'#5'Page1'#7'Caption'#6#5'Pag' - +'e1'#0#9'TGroupBox'#15'DisplayGroupBox'#4'Left'#2#6#6'Height'#2'N'#3'Top'#3 - +#205#0#5'Width'#3#228#1#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.A' - +'round'#2#6#7'Caption'#6#15'DisplayGroupBox'#8'TabOrder'#2#3#0#5'TEdit'#11'D' - +'isplayEdit'#4'Left'#2#6#6'Height'#2#23#3'Top'#2' '#5'Width'#3#212#1#5'Align' - +#7#5'alTop'#20'BorderSpacing.Around'#2#6#8'TabOrder'#2#0#4'Text'#6#11'Displa' - +'yEdit'#0#0#9'TCheckBox'#18'UseDisplayCheckBox'#4'Left'#2#6#6'Height'#2#20#3 - +'Top'#2#6#5'Width'#3#212#1#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6#17 - +'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bottom' - +#2#6#7'Caption'#6#18'UseDisplayCheckBox'#8'TabOrder'#2#1#0#0#0#9'TGroupBox' - +#25'CmdLineParametersGroupBox'#4'Left'#2#6#6'Height'#2'4'#3'Top'#2'A'#5'Widt' - +'h'#3#228#1#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7 - +'Caption'#6#25'CmdLineParametersGroupBox'#8'TabOrder'#2#0#0#9'TComboBox'#25 - +'CmdLineParametersComboBox'#4'Left'#2#6#6'Height'#2#23#3'Top'#2#6#5'Width'#3 - +#212#1#5'Align'#7#5'alTop'#16'AutoCompleteText'#11#22'cbactEndOfLineComplete' - +#20'cbactSearchAscending'#0#20'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#8 - +'TabOrder'#2#0#4'Text'#6#25'CmdLineParametersComboBox'#0#0#0#9'TGroupBox'#31 - +'UseLaunchingApplicationGroupBox'#4'Left'#2#6#6'Height'#2'L'#3'Top'#2'{'#5'W' - +'idth'#3#228#1#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6 - +#7'Caption'#6#31'UseLaunchingApplicationGroupBox'#8'TabOrder'#2#1#0#9'TCheck' - +'Box'#31'UseLaunchingApplicationCheckBox'#4'Left'#2#6#6'Height'#2#20#3'Top'#2 - +#6#5'Width'#3#212#1#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6#17'Border' - +'Spacing.Top'#2#6#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bottom'#2#6#7 - +'Caption'#6#31'UseLaunchingApplicationCheckBox'#8'TabOrder'#2#0#0#0#9'TCombo' - +'Box'#31'UseLaunchingApplicationComboBox'#4'Left'#2#6#6'Height'#2#21#3'Top'#2 - +' '#5'Width'#3#212#1#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#0#16'AutoCom' - +'pleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#20'Bord' - +'erSpacing.Around'#2#6#9'MaxLength'#2#0#8'TabOrder'#2#1#4'Text'#6#31'UseLaun' - +'chingApplicationComboBox'#0#0#0#9'TGroupBox'#23'HostApplicationGroupBox'#4 - +'Left'#2#6#6'Height'#2'5'#3'Top'#2#6#5'Width'#3#228#1#5'Align'#7#5'alTop'#8 - +'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#23'HostApplicationGro' - +'upBox'#8'TabOrder'#2#2#0#7'TButton'#24'HostApplicationBrowseBtn'#4'Left'#3 - +#195#1#6'Height'#2#24#3'Top'#2#6#5'Width'#2#23#5'Align'#7#7'alRight'#20'Bord' - +'erSpacing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#24'Hos' - +'tApplicationBrowseBtn'#7'OnClick'#7#29'HostApplicationBrowseBtnClick'#8'Tab' - +'Order'#2#0#0#0#5'TEdit'#19'HostApplicationEdit'#4'Left'#2#6#6'Height'#2#24#3 - +'Top'#2#6#5'Width'#3#183#1#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2 - +#6#8'TabOrder'#2#1#4'Text'#6#19'HostApplicationEdit'#0#0#0#9'TGroupBox'#24'W' - +'orkingDirectoryGroupBox'#4'Left'#2#6#6'Height'#2'5'#3'Top'#3'!'#1#5'Width'#3 - +#228#1#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Capt' - +'ion'#6#24'WorkingDirectoryGroupBox'#8'TabOrder'#2#4#0#7'TButton'#19'Working' - +'DirectoryBtn'#4'Left'#3#195#1#6'Height'#2#24#3'Top'#2#6#5'Width'#2#23#5'Ali' - +'gn'#7#7'alRight'#20'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBorder' - +#2#4#7'Caption'#6#19'WorkingDirectoryBtn'#7'OnClick'#7#24'WorkingDirectoryBt' - +'nClick'#8'TabOrder'#2#0#0#0#9'TComboBox'#24'WorkingDirectoryComboBox'#4'Lef' - +'t'#2#6#6'Height'#2#24#3'Top'#2#6#5'Width'#3#183#1#5'Align'#7#8'alClient'#16 - +'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0 - +#20'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#8'TabOrder'#2#1#4'Text'#6#24 - +'WorkingDirectoryComboBox'#0#0#0#0#5'TPage'#5'Page2'#7'Caption'#6#5'Page2'#0 - +#9'TCheckBox'#30'IncludeSystemVariablesCheckBox'#4'Left'#2#6#6'Height'#2#20#3 - ,'Top'#3'`'#1#5'Width'#3#228#1#5'Align'#7#8'alBottom'#20'BorderSpacing.Around' - +#2#6#7'Caption'#6#30'IncludeSystemVariablesCheckBox'#7'Enabled'#8#8'TabOrder' - +#2#0#0#0#9'TGroupBox'#21'UserOverridesGroupBox'#4'Left'#2#6#6'Height'#3#161#0 - +#3'Top'#3#185#0#5'Width'#3#228#1#5'Align'#7#8'alBottom'#20'BorderSpacing.Aro' - +'und'#2#6#7'Caption'#6#21'UserOverridesGroupBox'#8'TabOrder'#2#1#0#7'TButton' - +#22'UserOverridesAddButton'#4'Left'#2#6#6'Height'#2#26#3'Top'#2'\'#5'Width'#3 - +#152#0#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.' - +'Around'#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#22'UserOverrides' - +'AddButton'#7'OnClick'#7#27'UserOverridesAddButtonClick'#8'TabOrder'#2#0#0#0 - +#7'TButton'#23'UserOverridesEditButton'#22'AnchorSideLeft.Control'#7#22'User' - +'OverridesAddButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#3#164#0#6 - +'Height'#2#26#3'Top'#2'\'#5'Width'#3#150#0#7'Anchors'#11#6'akLeft'#8'akBotto' - +'m'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBorde' - +'r'#2#4#7'Caption'#6#23'UserOverridesEditButton'#7'OnClick'#7#28'UserOverrid' - +'esEditButtonClick'#8'TabOrder'#2#1#0#0#7'TButton'#25'UserOverridesDeleteBut' - +'ton'#22'AnchorSideLeft.Control'#7#23'UserOverridesEditButton'#19'AnchorSide' - +'Left.Side'#7#9'asrBottom'#4'Left'#3'@'#1#6'Height'#2#26#3'Top'#2'\'#5'Width' - +#3#165#0#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacin' - +'g.Around'#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#25'UserOverrid' - +'esDeleteButton'#7'OnClick'#7#30'UserOverridesDeleteButtonClick'#8'TabOrder' - +#2#2#0#0#9'TListView'#21'UserOverridesListView'#4'Left'#2#6#6'Height'#2'O'#3 - +'Top'#2#6#5'Width'#3#216#1#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLe' - +'ft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Columns'#14#1#8 - +'AutoSize'#9#7'Caption'#6#7'Caption'#5'Width'#2'*'#0#1#8'AutoSize'#9#7'Capti' - +'on'#6#7'Caption'#5'Width'#2'*'#0#0#9'RowSelect'#9#8'SortType'#7#6'stText'#8 - +'TabOrder'#2#3#9'ViewStyle'#7#8'vsReport'#0#0#0#9'TGroupBox'#23'SystemVariab' - +'lesGroupBox'#4'Left'#2#6#6'Height'#3#173#0#3'Top'#2#6#5'Width'#3#228#1#5'Al' - +'ign'#7#8'alClient'#20'BorderSpacing.Around'#2#6#7'Caption'#6#23'SystemVaria' - +'blesGroupBox'#8'TabOrder'#2#2#0#9'TListView'#23'SystemVariablesListView'#4 - +'Left'#2#6#6'Height'#3#161#0#3'Top'#2#6#5'Width'#3#216#1#5'Align'#7#8'alClie' - +'nt'#20'BorderSpacing.Around'#2#6#7'Columns'#14#1#8'AutoSize'#9#7'Caption'#6 - +#7'Caption'#5'Width'#2'*'#0#1#8'AutoSize'#9#7'Caption'#6#7'Caption'#5'Width' - +#2'*'#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 + +#245#1#3'Top'#3#176#0#5'Width'#3#244#1#18'HorzScrollBar.Page'#3#243#1#18'Ver' + +'tScrollBar.Page'#3#244#1#13'ActiveControl'#7#8'OkButton'#11'BorderStyle'#7 + +#13'bsSizeToolWin'#7'Caption'#6#16'RunParamsOptsDlg'#12'ClientHeight'#3#245#1 + +#11'ClientWidth'#3#244#1#8'OnResize'#7#10'FormResize'#8'Position'#7#14'poScr' + +'eenCenter'#0#7'TButton'#8'OkButton'#23'AnchorSideRight.Control'#7#12'Cancel' + +'Button'#4'Left'#3'('#1#6'Height'#2'%'#3'Top'#3#202#1#5'Width'#2'P'#7'Anchor' + +'s'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#25 + +'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#8'OkButton'#7'OnClick'#7#13'OkB' + +'uttonClick'#8'TabOrder'#2#0#0#0#7'TButton'#12'CancelButton'#4'Left'#3'~'#1#6 + +'Height'#2'%'#3'Top'#3#202#1#5'Width'#2'j'#7'Anchors'#11#7'akRight'#8'akBott' + +'om'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBord' + +'er'#2#4#7'Caption'#6#12'CancelButton'#11'ModalResult'#2#2#8'TabOrder'#2#1#0 + +#0#9'TNotebook'#8'Notebook'#6'Height'#3#199#1#5'Width'#3#244#1#5'Align'#7#5 + +'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#9'PageInde' + +'x'#2#0#8'TabOrder'#2#2#0#5'TPage'#5'Page1'#7'Caption'#6#5'Page1'#11'ClientW' + +'idth'#3#240#1#12'ClientHeight'#3#168#1#0#9'TGroupBox'#15'DisplayGroupBox'#4 + +'Left'#2#6#6'Height'#2'R'#3'Top'#3#211#0#5'Width'#3#228#1#5'Align'#7#5'alTop' + +#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#15'DisplayGroupBox' + +#12'ClientHeight'#2'?'#11'ClientWidth'#3#224#1#8'TabOrder'#2#3#0#5'TEdit'#11 + +'DisplayEdit'#4'Left'#2#6#6'Height'#2#23#3'Top'#2'"'#5'Width'#3#212#1#5'Alig' + +'n'#7#5'alTop'#20'BorderSpacing.Around'#2#6#8'TabOrder'#2#0#4'Text'#6#11'Dis' + +'playEdit'#0#0#9'TCheckBox'#18'UseDisplayCheckBox'#4'Left'#2#6#6'Height'#2#22 + +#3'Top'#2#6#5'Width'#3#212#1#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6 + +#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bott' + +'om'#2#6#7'Caption'#6#18'UseDisplayCheckBox'#8'TabOrder'#2#1#0#0#0#9'TGroupB' + +'ox'#25'CmdLineParametersGroupBox'#4'Left'#2#6#6'Height'#2'6'#3'Top'#2'A'#5 + +'Width'#3#228#1#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2 + +#6#7'Caption'#6#25'CmdLineParametersGroupBox'#12'ClientHeight'#2'#'#11'Clien' + +'tWidth'#3#224#1#8'TabOrder'#2#0#0#9'TComboBox'#25'CmdLineParametersComboBox' + +#4'Left'#2#6#6'Height'#2#23#3'Top'#2#6#5'Width'#3#212#1#5'Align'#7#5'alTop' + +#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending' + +#0#20'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#8'TabOrder'#2#0#4'Text'#6#25 + +'CmdLineParametersComboBox'#0#0#0#9'TGroupBox'#31'UseLaunchingApplicationGro' + +'upBox'#4'Left'#2#6#6'Height'#2'P'#3'Top'#2'}'#5'Width'#3#228#1#5'Align'#7#5 + +'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#31'UseLaunch' + +'ingApplicationGroupBox'#12'ClientHeight'#2'='#11'ClientWidth'#3#224#1#8'Tab' + +'Order'#2#1#0#9'TCheckBox'#31'UseLaunchingApplicationCheckBox'#4'Left'#2#6#6 + +'Height'#2#22#3'Top'#2#6#5'Width'#3#212#1#5'Align'#7#5'alTop'#18'BorderSpaci' + +'ng.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#20'Borde' + +'rSpacing.Bottom'#2#6#7'Caption'#6#31'UseLaunchingApplicationCheckBox'#8'Tab' + +'Order'#2#0#0#0#9'TComboBox'#31'UseLaunchingApplicationComboBox'#4'Left'#2#6 + +#6'Height'#2#21#3'Top'#2'"'#5'Width'#3#212#1#5'Align'#7#5'alTop'#16'AutoComp' + +'leteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#20'Borde' + +'rSpacing.Around'#2#6#9'MaxLength'#2#0#8'TabOrder'#2#1#4'Text'#6#31'UseLaunc' + +'hingApplicationComboBox'#0#0#0#9'TGroupBox'#23'HostApplicationGroupBox'#4'L' + +'eft'#2#6#6'Height'#2'5'#3'Top'#2#6#5'Width'#3#228#1#5'Align'#7#5'alTop'#8'A' + +'utoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#23'HostApplicationGrou' + +'pBox'#12'ClientHeight'#2'1'#11'ClientWidth'#3#224#1#8'TabOrder'#2#2#0#7'TBu' + +'tton'#24'HostApplicationBrowseBtn'#4'Left'#3#195#1#6'Height'#2'%'#3'Top'#2#6 + +#5'Width'#2#23#5'Align'#7#7'alRight'#20'BorderSpacing.Around'#2#6#25'BorderS' + +'pacing.InnerBorder'#2#4#7'Caption'#6#24'HostApplicationBrowseBtn'#7'OnClick' + +#7#29'HostApplicationBrowseBtnClick'#8'TabOrder'#2#0#0#0#5'TEdit'#19'HostApp' + +'licationEdit'#4'Left'#2#6#6'Height'#2'%'#3'Top'#2#6#5'Width'#3#183#1#5'Alig' + +'n'#7#8'alClient'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#8'TabOrder'#2#1 + +#4'Text'#6#19'HostApplicationEdit'#0#0#0#9'TGroupBox'#24'WorkingDirectoryGro' + +'upBox'#4'Left'#2#6#6'Height'#2'D'#3'Top'#3'+'#1#5'Width'#3#228#1#5'Align'#7 + +#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#24'Working' + +'DirectoryGroupBox'#12'ClientHeight'#2'1'#11'ClientWidth'#3#224#1#8'TabOrder' + +#2#4#0#7'TButton'#19'WorkingDirectoryBtn'#4'Left'#3#195#1#6'Height'#2'%'#3'T' + +'op'#2#6#5'Width'#2#23#5'Align'#7#7'alRight'#20'BorderSpacing.Around'#2#6#25 + +'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#19'WorkingDirectoryBtn'#7'OnCli' + +'ck'#7#24'WorkingDirectoryBtnClick'#8'TabOrder'#2#0#0#0#9'TComboBox'#24'Work' + +'ingDirectoryComboBox'#4'Left'#2#6#6'Height'#2'%'#3'Top'#2#6#5'Width'#3#183#1 + ,#5'Align'#7#8'alClient'#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20 + +'cbactSearchAscending'#0#20'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#8'Tab' + +'Order'#2#1#4'Text'#6#24'WorkingDirectoryComboBox'#0#0#0#0#5'TPage'#5'Page2' + +#7'Caption'#6#5'Page2'#11'ClientWidth'#3#240#1#12'ClientHeight'#3#168#1#0#9 + +'TCheckBox'#30'IncludeSystemVariablesCheckBox'#4'Left'#2#6#6'Height'#2#22#3 + +'Top'#3#140#1#5'Width'#3#228#1#5'Align'#7#8'alBottom'#20'BorderSpacing.Aroun' + +'d'#2#6#7'Caption'#6#30'IncludeSystemVariablesCheckBox'#7'Enabled'#8#8'TabOr' + +'der'#2#0#0#0#9'TGroupBox'#21'UserOverridesGroupBox'#4'Left'#2#6#6'Height'#3 + +#161#0#3'Top'#3#229#0#5'Width'#3#228#1#5'Align'#7#8'alBottom'#20'BorderSpaci' + +'ng.Around'#2#6#7'Caption'#6#21'UserOverridesGroupBox'#12'ClientHeight'#3#142 + +#0#11'ClientWidth'#3#224#1#8'TabOrder'#2#1#0#7'TButton'#22'UserOverridesAddB' + +'utton'#4'Left'#2#6#6'Height'#2'%'#3'Top'#2'`'#5'Width'#3#179#0#7'Anchors'#11 + +#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#25'Borde' + +'rSpacing.InnerBorder'#2#4#7'Caption'#6#22'UserOverridesAddButton'#7'OnClick' + +#7#27'UserOverridesAddButtonClick'#8'TabOrder'#2#0#0#0#7'TButton'#23'UserOve' + +'rridesEditButton'#22'AnchorSideLeft.Control'#7#22'UserOverridesAddButton'#19 + +'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#3#191#0#6'Height'#2'%'#3'Top'#2 + +'`'#5'Width'#3#178#0#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#20 + +'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#23 + +'UserOverridesEditButton'#7'OnClick'#7#28'UserOverridesEditButtonClick'#8'Ta' + +'bOrder'#2#1#0#0#7'TButton'#25'UserOverridesDeleteButton'#22'AnchorSideLeft.' + +'Control'#7#23'UserOverridesEditButton'#19'AnchorSideLeft.Side'#7#9'asrBotto' + +'m'#4'Left'#3'w'#1#6'Height'#2'%'#3'Top'#2'`'#5'Width'#3#196#0#7'Anchors'#11 + +#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#25'Borde' + +'rSpacing.InnerBorder'#2#4#7'Caption'#6#25'UserOverridesDeleteButton'#7'OnCl' + +'ick'#7#30'UserOverridesDeleteButtonClick'#8'TabOrder'#2#2#0#0#9'TListView' + +#21'UserOverridesListView'#24'AnchorSideBottom.Control'#7#22'UserOverridesAd' + +'dButton'#4'Left'#2#6#6'Height'#2'T'#3'Top'#2#6#5'Width'#3#212#1#5'Align'#7#5 + +'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderS' + +'pacing.Around'#2#6#7'Columns'#14#1#8'AutoSize'#9#7'Caption'#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#3#9'ViewStyle'#7#8'vsRep' + +'ort'#0#0#0#9'TGroupBox'#23'SystemVariablesGroupBox'#4'Left'#2#6#6'Height'#3 + +#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 ]); diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc index 84f8fe774d..5dae9f05e8 100644 --- a/lcl/include/wincontrol.inc +++ b/lcl/include/wincontrol.inc @@ -947,7 +947,8 @@ begin for a:=Low(TAnchorKind) to High(TAnchorKind) do begin if a in AnchorAlign[Child.Align] then begin // 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; end; if Child.AnchorSide[a].Side=asrCenter then begin