mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-16 05:20:36 +01:00
IDE: fixed run params FormResize code, LCL: using basebounds for computing order of align controls
git-svn-id: trunk@12700 -
This commit is contained in:
mattias
parent
cfaf975984
commit
81829658cf
@ -10,7 +10,6 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
|
||||
Caption = 'RunParamsOptsDlg'
|
||||
ClientHeight = 501
|
||||
ClientWidth = 500
|
||||
OnResize = FormResize
|
||||
Position = poScreenCenter
|
||||
object OkButton: TButton
|
||||
AnchorSideRight.Control = CancelButton
|
||||
@ -42,7 +41,7 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
|
||||
Width = 500
|
||||
Align = alTop
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
PageIndex = 0
|
||||
PageIndex = 1
|
||||
TabOrder = 2
|
||||
object GeneralPage: TPage
|
||||
Caption = 'GeneralPage'
|
||||
@ -51,7 +50,7 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
|
||||
object DisplayGroupBox: TGroupBox
|
||||
Left = 6
|
||||
Height = 82
|
||||
Top = 232
|
||||
Top = 224
|
||||
Width = 484
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
@ -87,7 +86,7 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
|
||||
object CmdLineParametersGroupBox: TGroupBox
|
||||
Left = 6
|
||||
Height = 56
|
||||
Top = 80
|
||||
Top = 72
|
||||
Width = 484
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
@ -112,7 +111,7 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
|
||||
object UseLaunchingApplicationGroupBox: TGroupBox
|
||||
Left = 6
|
||||
Height = 84
|
||||
Top = 142
|
||||
Top = 134
|
||||
Width = 484
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
@ -149,14 +148,14 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
|
||||
end
|
||||
object HostApplicationGroupBox: TGroupBox
|
||||
Left = 6
|
||||
Height = 68
|
||||
Height = 60
|
||||
Top = 6
|
||||
Width = 484
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'HostApplicationGroupBox'
|
||||
ClientHeight = 49
|
||||
ClientHeight = 41
|
||||
ClientWidth = 480
|
||||
TabOrder = 2
|
||||
object HostApplicationBrowseBtn: TButton
|
||||
@ -165,10 +164,10 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = HostApplicationEdit
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 286
|
||||
Left = 294
|
||||
Height = 27
|
||||
Top = 6
|
||||
Width = 188
|
||||
Width = 180
|
||||
Anchors = [akTop, akRight, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 6
|
||||
@ -185,7 +184,7 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
|
||||
Left = 6
|
||||
Height = 27
|
||||
Top = 6
|
||||
Width = 274
|
||||
Width = 282
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
@ -195,14 +194,14 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
|
||||
end
|
||||
object WorkingDirectoryGroupBox: TGroupBox
|
||||
Left = 6
|
||||
Height = 68
|
||||
Top = 320
|
||||
Height = 60
|
||||
Top = 312
|
||||
Width = 484
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'WorkingDirectoryGroupBox'
|
||||
ClientHeight = 49
|
||||
ClientHeight = 41
|
||||
ClientWidth = 480
|
||||
TabOrder = 4
|
||||
object WorkingDirectoryBtn: TButton
|
||||
@ -211,10 +210,10 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = WorkingDirectoryComboBox
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 325
|
||||
Left = 333
|
||||
Height = 27
|
||||
Top = 6
|
||||
Width = 149
|
||||
Width = 141
|
||||
Anchors = [akTop, akRight, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Top = 6
|
||||
@ -230,7 +229,7 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
|
||||
Left = 6
|
||||
Height = 27
|
||||
Top = 6
|
||||
Width = 313
|
||||
Width = 321
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
|
||||
BorderSpacing.Around = 6
|
||||
@ -244,6 +243,7 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
|
||||
Caption = 'EnvVarsPage'
|
||||
ClientWidth = 496
|
||||
ClientHeight = 424
|
||||
OnResize = EnvVarsPageResize
|
||||
object IncludeSystemVariablesCheckBox: TCheckBox
|
||||
Left = 6
|
||||
Height = 22
|
||||
@ -270,9 +270,9 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
|
||||
TabOrder = 1
|
||||
object UserOverridesAddButton: TButton
|
||||
Left = 6
|
||||
Height = 31
|
||||
Top = 102
|
||||
Width = 179
|
||||
Height = 29
|
||||
Top = 104
|
||||
Width = 171
|
||||
Anchors = [akLeft, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
@ -283,10 +283,10 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
|
||||
object UserOverridesEditButton: TButton
|
||||
AnchorSideLeft.Control = UserOverridesAddButton
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 191
|
||||
Height = 31
|
||||
Top = 102
|
||||
Width = 178
|
||||
Left = 183
|
||||
Height = 29
|
||||
Top = 104
|
||||
Width = 170
|
||||
Anchors = [akLeft, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
@ -297,10 +297,10 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
|
||||
object UserOverridesDeleteButton: TButton
|
||||
AnchorSideLeft.Control = UserOverridesEditButton
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 375
|
||||
Height = 31
|
||||
Top = 102
|
||||
Width = 196
|
||||
Left = 359
|
||||
Height = 29
|
||||
Top = 104
|
||||
Width = 188
|
||||
Anchors = [akLeft, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
@ -311,7 +311,7 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
|
||||
object UserOverridesListView: TListView
|
||||
AnchorSideBottom.Control = UserOverridesAddButton
|
||||
Left = 6
|
||||
Height = 90
|
||||
Height = 92
|
||||
Top = 6
|
||||
Width = 468
|
||||
Align = alTop
|
||||
|
||||
@ -5,117 +5,118 @@ LazarusResources.Add('TRunParamsOptsDlg','FORMDATA',[
|
||||
+#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'8'#1#6'Height'#2#29#3'Top'#3#210#1#5'Width'#2'H'#7'Anchor'
|
||||
+'s'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7
|
||||
+'Caption'#6#8'OkButton'#7'OnClick'#7#13'OkButtonClick'#8'TabOrder'#2#0#0#0#7
|
||||
+'TButton'#12'CancelButton'#4'Left'#3#134#1#6'Height'#2#29#3'Top'#3#210#1#5'W'
|
||||
+'idth'#2'b'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderSp'
|
||||
+'acing.Around'#2#6#7'Caption'#6#12'CancelButton'#11'ModalResult'#2#2#8'TabOr'
|
||||
+'der'#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'PageIndex'#2#0#8'TabOrder'#2#2#0#5'TPage'#11'GeneralPage'#7'Caption'#6#11
|
||||
+'GeneralPage'#11'ClientWidth'#3#240#1#12'ClientHeight'#3#168#1#0#9'TGroupBox'
|
||||
+#15'DisplayGroupBox'#4'Left'#2#6#6'Height'#2'R'#3'Top'#3#232#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'TabOr'
|
||||
+'der'#2#3#0#5'TEdit'#11'DisplayEdit'#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'DisplayEdit'#0#0#9'TCheckBox'#18'UseDisplayCheckBox'#4'Lef'
|
||||
+'t'#2#6#6'Height'#2#22#3'Top'#2#6#5'Width'#3#212#1#5'Align'#7#5'alTop'#18'Bo'
|
||||
+'rderSpacing.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
|
||||
+'8'#3'Top'#2'P'#5'Width'#3#228#1#5'Align'#7#5'alTop'#8'AutoSize'#9#20'Border'
|
||||
+'Spacing.Around'#2#6#7'Caption'#6#25'CmdLineParametersGroupBox'#12'ClientHei'
|
||||
+'ght'#2'%'#11'ClientWidth'#3#224#1#8'TabOrder'#2#0#0#9'TComboBox'#25'CmdLine'
|
||||
+'ParametersComboBox'#4'Left'#2#6#6'Height'#2#25#3'Top'#2#6#5'Width'#3#212#1#5
|
||||
+'Align'#7#5'alTop'#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cba'
|
||||
+'ctSearchAscending'#0#20'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#8'TabOrd'
|
||||
+'er'#2#0#4'Text'#6#25'CmdLineParametersComboBox'#0#0#0#9'TGroupBox'#31'UseLa'
|
||||
+'unchingApplicationGroupBox'#4'Left'#2#6#6'Height'#2'T'#3'Top'#3#142#0#5'Wid'
|
||||
+'th'#3#228#1#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7
|
||||
+'Caption'#6#31'UseLaunchingApplicationGroupBox'#12'ClientHeight'#2'A'#11'Cli'
|
||||
+'entWidth'#3#224#1#8'TabOrder'#2#1#0#9'TCheckBox'#31'UseLaunchingApplication'
|
||||
+'CheckBox'#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'BorderSpac'
|
||||
+'ing.Right'#2#6#20'BorderSpacing.Bottom'#2#6#7'Caption'#6#31'UseLaunchingApp'
|
||||
+'licationCheckBox'#8'TabOrder'#2#0#0#0#9'TComboBox'#31'UseLaunchingApplicati'
|
||||
+'onComboBox'#4'Left'#2#6#6'Height'#2#25#3'Top'#2'"'#5'Width'#3#212#1#5'Align'
|
||||
+#7#5'alTop'#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearc'
|
||||
+'hAscending'#0#20'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#8'TabOrder'#2#1
|
||||
+#4'Text'#6#31'UseLaunchingApplicationComboBox'#0#0#0#9'TGroupBox'#23'HostApp'
|
||||
+'licationGroupBox'#4'Left'#2#6#6'Height'#2'D'#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
|
||||
+'HostApplicationGroupBox'#12'ClientHeight'#2'1'#11'ClientWidth'#3#224#1#8'Ta'
|
||||
+'bOrder'#2#2#0#7'TButton'#24'HostApplicationBrowseBtn'#21'AnchorSideTop.Cont'
|
||||
+'rol'#7#23'HostApplicationGroupBox'#23'AnchorSideRight.Control'#7#23'HostApp'
|
||||
+'licationGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBott'
|
||||
+'om.Control'#7#19'HostApplicationEdit'#21'AnchorSideBottom.Side'#7#9'asrBott'
|
||||
+'om'#4'Left'#3#30#1#6'Height'#2#27#3'Top'#2#6#5'Width'#3#188#0#7'Anchors'#11
|
||||
+#5'akTop'#7'akRight'#8'akBottom'#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#6
|
||||
+#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#7'Caption'#6#24'HostA'
|
||||
+'pplicationBrowseBtn'#7'OnClick'#7#29'HostApplicationBrowseBtnClick'#8'TabOr'
|
||||
+'der'#2#0#0#0#5'TEdit'#19'HostApplicationEdit'#22'AnchorSideLeft.Control'#7
|
||||
+#23'HostApplicationGroupBox'#21'AnchorSideTop.Control'#7#23'HostApplicationG'
|
||||
+'roupBox'#23'AnchorSideRight.Control'#7#24'HostApplicationBrowseBtn'#4'Left'
|
||||
+#2#6#6'Height'#2#27#3'Top'#2#6#5'Width'#3#18#1#7'Anchors'#11#5'akTop'#6'akLe'
|
||||
+'ft'#7'akRight'#0#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'#21'AnchorSideTop.Control'#7#24'Wor'
|
||||
+'kingDirectoryGroupBox'#23'AnchorSideRight.Control'#7#24'WorkingDirectoryGro'
|
||||
+'upBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'
|
||||
+#7#24'WorkingDirectoryComboBox'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'L'
|
||||
+'eft'#3'E'#1#6'Height'#2#27#3'Top'#2#6#5'Width'#3#149#0#7'Anchors'#11#5'akTo'
|
||||
+'p'#7'akRight'#8'akBottom'#0#8'AutoSize'#9#17'BorderSpacing.Top'#2#6#19'Bord'
|
||||
+'erSpacing.Right'#2#6#7'Caption'#6#19'WorkingDirectoryBtn'#7'OnClick'#7#24'W'
|
||||
+'orkingDirectoryBtnClick'#8'TabOrder'#2#0#0#0#9'TComboBox'#24'WorkingDirecto'
|
||||
+'ryComboBox'#22'AnchorSideLeft.Control'#7#24'WorkingDirectoryGroupBox'#21'An'
|
||||
+'chorSideTop.Control'#7#24'WorkingDirectoryGroupBox'#23'AnchorSideRight.Cont'
|
||||
+'rol'#7#19'WorkingDirectoryBtn'#4'Left'#2#6#6'Height'#2#27#3'Top'#2#6#5'Widt'
|
||||
+'h'#3'9'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'
|
||||
+#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#20'BorderSpacing.A'
|
||||
+'round'#2#6#9'MaxLength'#2#0#8'TabOrder'#2#1#4'Text'#6#24'WorkingDirectoryCo'
|
||||
+'mboBox'#0#0#0#0#5'TPage'#11'EnvVarsPage'#7'Caption'#6#11'EnvVarsPage'#11'Cl'
|
||||
+'ientWidth'#3#240#1#12'ClientHeight'#3#168#1#0#9'TCheckBox'#30'IncludeSystem'
|
||||
+'VariablesCheckBox'#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.Around'#2#6#7'Caption'#6#30'Inclu'
|
||||
+'deSystemVariablesCheckBox'#7'Enabled'#8#8'TabOrder'#2#0#0#0#9'TGroupBox'#21
|
||||
+'UserOverridesGroupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6
|
||||
+'Height'#3#161#0#3'Top'#3#229#0#5'Width'#3#228#1#5'Align'#7#8'alBottom'#7'An'
|
||||
+'chors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Ca'
|
||||
+'ption'#6#21'UserOverridesGroupBox'#12'ClientHeight'#3#142#0#11'ClientWidth'
|
||||
+#3#224#1#8'TabOrder'#2#1#0#7'TButton'#22'UserOverridesAddButton'#4'Left'#2#6
|
||||
+#6'Height'#2#31#3'Top'#2'f'#5'Width'#3#179#0#7'Anchors'#11#6'akLeft'#8'akBot'
|
||||
+'tom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#22'UserOverr'
|
||||
+'idesAddButton'#7'OnClick'#7#27'UserOverridesAddButtonClick'#8'TabOrder'#2#0
|
||||
+#0#0#7'TButton'#23'UserOverridesEditButton'#22'AnchorSideLeft.Control'#7#22
|
||||
+'UserOverridesAddButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#3#191
|
||||
+#0#6'Height'#2#31#3'Top'#2'f'#5'Width'#3#178#0#7'Anchors'#11#6'akLeft'#8'akB'
|
||||
+'ottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#23'UserOve'
|
||||
+'rridesEditButton'#7'OnClick'#7#28'UserOverridesEditButtonClick'#8'TabOrder'
|
||||
+#2#1#0#0#7'TButton'#25'UserOverridesDeleteButton'#22'AnchorSideLeft.Control'
|
||||
+#7#23'UserOverridesEditButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'
|
||||
+#3'w'#1#6'Height'#2#31#3'Top'#2'f'#5'Width'#3#196#0#7'Anchors'#11#6'akLeft'#8
|
||||
+'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#25'User'
|
||||
+'OverridesDeleteButton'#7'OnClick'#7#30'UserOverridesDeleteButtonClick'#8'Ta'
|
||||
+'bOrder'#2#2#0#0#9'TListView'#21'UserOverridesListView'#24'AnchorSideBottom.'
|
||||
+'Control'#7#22'UserOverridesAddButton'#4'Left'#2#6#6'Height'#2'Z'#3'Top'#2#6
|
||||
+#5'Width'#3#212#1#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akR'
|
||||
+'ight'#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'Caption'#6#7'Ca'
|
||||
+'ption'#5'Width'#3#135#1#0#0#9'RowSelect'#9#8'SortType'#7#6'stText'#8'TabOrd'
|
||||
+'er'#2#3#9'ViewStyle'#7#8'vsReport'#0#0#0#9'TGroupBox'#23'SystemVariablesGro'
|
||||
+'upBox'#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.Around'#2#6#7'Caption'#6#23'SystemVariablesGro'
|
||||
+'upBox'#12'ClientHeight'#3#198#0#11'ClientWidth'#3#224#1#8'TabOrder'#2#2#0#9
|
||||
+'TListView'#23'SystemVariablesListView'#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'Caption'#6#7'Caption'#5'Width'#2';'#0#1#8'Aut'
|
||||
+'oSize'#9#7'Caption'#6#7'Caption'#5'Width'#3#135#1#0#0#9'RowSelect'#9#8'Sort'
|
||||
+'Type'#7#6'stText'#8'TabOrder'#2#0#9'ViewStyle'#7#8'vsReport'#0#0#0#0#0#0
|
||||
+#11'ClientWidth'#3#244#1#8'Position'#7#14'poScreenCenter'#0#7'TButton'#8'OkB'
|
||||
+'utton'#23'AnchorSideRight.Control'#7#12'CancelButton'#4'Left'#3'8'#1#6'Heig'
|
||||
+'ht'#2#29#3'Top'#3#210#1#5'Width'#2'H'#7'Anchors'#11#7'akRight'#8'akBottom'#0
|
||||
+#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#8'OkButton'#7'OnCli'
|
||||
+'ck'#7#13'OkButtonClick'#8'TabOrder'#2#0#0#0#7'TButton'#12'CancelButton'#4'L'
|
||||
+'eft'#3#134#1#6'Height'#2#29#3'Top'#3#210#1#5'Width'#2'b'#7'Anchors'#11#7'ak'
|
||||
+'Right'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6
|
||||
+#12'CancelButton'#11'ModalResult'#2#2#8'TabOrder'#2#1#0#0#9'TNotebook'#8'Not'
|
||||
+'ebook'#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'PageIndex'#2#1#8'TabOrder'#2#2
|
||||
+#0#5'TPage'#11'GeneralPage'#7'Caption'#6#11'GeneralPage'#11'ClientWidth'#3
|
||||
+#240#1#12'ClientHeight'#3#168#1#0#9'TGroupBox'#15'DisplayGroupBox'#4'Left'#2
|
||||
+#6#6'Height'#2'R'#3'Top'#3#224#0#5'Width'#3#228#1#5'Align'#7#5'alTop'#8'Auto'
|
||||
+'Size'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#15'DisplayGroupBox'#12'Cl'
|
||||
+'ientHeight'#2'?'#11'ClientWidth'#3#224#1#8'TabOrder'#2#3#0#5'TEdit'#11'Disp'
|
||||
+'layEdit'#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'DisplayE'
|
||||
+'dit'#0#0#9'TCheckBox'#18'UseDisplayCheckBox'#4'Left'#2#6#6'Height'#2#22#3'T'
|
||||
+'op'#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'8'#3'Top'#2'H'#5'Widt'
|
||||
+'h'#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'ClientWid'
|
||||
+'th'#3#224#1#8'TabOrder'#2#0#0#9'TComboBox'#25'CmdLineParametersComboBox'#4
|
||||
+'Left'#2#6#6'Height'#2#25#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'T'#3'Top'#3#134#0#5'Width'#3#228#1#5'Align'#7
|
||||
+#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#31'UseLaun'
|
||||
+'chingApplicationGroupBox'#12'ClientHeight'#2'A'#11'ClientWidth'#3#224#1#8'T'
|
||||
+'abOrder'#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'BorderSpa'
|
||||
+'cing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#20'Bor'
|
||||
+'derSpacing.Bottom'#2#6#7'Caption'#6#31'UseLaunchingApplicationCheckBox'#8'T'
|
||||
+'abOrder'#2#0#0#0#9'TComboBox'#31'UseLaunchingApplicationComboBox'#4'Left'#2
|
||||
+#6#6'Height'#2#25#3'Top'#2'"'#5'Width'#3#212#1#5'Align'#7#5'alTop'#16'AutoCo'
|
||||
+'mpleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#20'Bor'
|
||||
+'derSpacing.Around'#2#6#9'MaxLength'#2#0#8'TabOrder'#2#1#4'Text'#6#31'UseLau'
|
||||
+'nchingApplicationComboBox'#0#0#0#9'TGroupBox'#23'HostApplicationGroupBox'#4
|
||||
+'Left'#2#6#6'Height'#2'<'#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'#12'ClientHeight'#2')'#11'ClientWidth'#3#224#1#8'TabOrder'#2#2#0#7'TB'
|
||||
+'utton'#24'HostApplicationBrowseBtn'#21'AnchorSideTop.Control'#7#23'HostAppl'
|
||||
+'icationGroupBox'#23'AnchorSideRight.Control'#7#23'HostApplicationGroupBox'
|
||||
+#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#19'H'
|
||||
+'ostApplicationEdit'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3'&'#1
|
||||
+#6'Height'#2#27#3'Top'#2#6#5'Width'#3#180#0#7'Anchors'#11#5'akTop'#7'akRight'
|
||||
+#8'akBottom'#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'
|
||||
+#2#6#19'BorderSpacing.Right'#2#6#7'Caption'#6#24'HostApplicationBrowseBtn'#7
|
||||
+'OnClick'#7#29'HostApplicationBrowseBtnClick'#8'TabOrder'#2#0#0#0#5'TEdit'#19
|
||||
+'HostApplicationEdit'#22'AnchorSideLeft.Control'#7#23'HostApplicationGroupBo'
|
||||
+'x'#21'AnchorSideTop.Control'#7#23'HostApplicationGroupBox'#23'AnchorSideRig'
|
||||
+'ht.Control'#7#24'HostApplicationBrowseBtn'#4'Left'#2#6#6'Height'#2#27#3'Top'
|
||||
+#2#6#5'Width'#3#26#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSiz'
|
||||
+'e'#9#20'BorderSpacing.Around'#2#6#8'TabOrder'#2#1#4'Text'#6#19'HostApplicat'
|
||||
+'ionEdit'#0#0#0#9'TGroupBox'#24'WorkingDirectoryGroupBox'#4'Left'#2#6#6'Heig'
|
||||
+'ht'#2'<'#3'Top'#3'8'#1#5'Width'#3#228#1#5'Align'#7#5'alTop'#8'AutoSize'#9#20
|
||||
+'BorderSpacing.Around'#2#6#7'Caption'#6#24'WorkingDirectoryGroupBox'#12'Clie'
|
||||
,'ntHeight'#2')'#11'ClientWidth'#3#224#1#8'TabOrder'#2#4#0#7'TButton'#19'Work'
|
||||
+'ingDirectoryBtn'#21'AnchorSideTop.Control'#7#24'WorkingDirectoryGroupBox'#23
|
||||
+'AnchorSideRight.Control'#7#24'WorkingDirectoryGroupBox'#20'AnchorSideRight.'
|
||||
+'Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#24'WorkingDirectoryComb'
|
||||
+'oBox'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3'M'#1#6'Height'#2#27
|
||||
+#3'Top'#2#6#5'Width'#3#141#0#7'Anchors'#11#5'akTop'#7'akRight'#8'akBottom'#0
|
||||
+#8'AutoSize'#9#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#7'Capti'
|
||||
+'on'#6#19'WorkingDirectoryBtn'#7'OnClick'#7#24'WorkingDirectoryBtnClick'#8'T'
|
||||
+'abOrder'#2#0#0#0#9'TComboBox'#24'WorkingDirectoryComboBox'#22'AnchorSideLef'
|
||||
+'t.Control'#7#24'WorkingDirectoryGroupBox'#21'AnchorSideTop.Control'#7#24'Wo'
|
||||
+'rkingDirectoryGroupBox'#23'AnchorSideRight.Control'#7#19'WorkingDirectoryBt'
|
||||
+'n'#4'Left'#2#6#6'Height'#2#27#3'Top'#2#6#5'Width'#3'A'#1#7'Anchors'#11#5'ak'
|
||||
+'Top'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbactEndOfLineComple'
|
||||
+'te'#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'#11
|
||||
+'EnvVarsPage'#7'Caption'#6#11'EnvVarsPage'#11'ClientWidth'#3#240#1#12'Client'
|
||||
+'Height'#3#168#1#8'OnResize'#7#17'EnvVarsPageResize'#0#9'TCheckBox'#30'Inclu'
|
||||
+'deSystemVariablesCheckBox'#4'Left'#2#6#6'Height'#2#22#3'Top'#3#140#1#5'Widt'
|
||||
+'h'#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'TGrou'
|
||||
+'pBox'#21'UserOverridesGroupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Lef'
|
||||
+'t'#2#6#6'Height'#3#161#0#3'Top'#3#229#0#5'Width'#3#228#1#5'Align'#7#8'alBot'
|
||||
+'tom'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'
|
||||
+#2#6#7'Caption'#6#21'UserOverridesGroupBox'#12'ClientHeight'#3#142#0#11'Clie'
|
||||
+'ntWidth'#3#224#1#8'TabOrder'#2#1#0#7'TButton'#22'UserOverridesAddButton'#4
|
||||
+'Left'#2#6#6'Height'#2#29#3'Top'#2'h'#5'Width'#3#171#0#7'Anchors'#11#6'akLef'
|
||||
+'t'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#22
|
||||
+'UserOverridesAddButton'#7'OnClick'#7#27'UserOverridesAddButtonClick'#8'TabO'
|
||||
+'rder'#2#0#0#0#7'TButton'#23'UserOverridesEditButton'#22'AnchorSideLeft.Cont'
|
||||
+'rol'#7#22'UserOverridesAddButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4
|
||||
+'Left'#3#183#0#6'Height'#2#29#3'Top'#2'h'#5'Width'#3#170#0#7'Anchors'#11#6'a'
|
||||
+'kLeft'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6
|
||||
+#23'UserOverridesEditButton'#7'OnClick'#7#28'UserOverridesEditButtonClick'#8
|
||||
+'TabOrder'#2#1#0#0#7'TButton'#25'UserOverridesDeleteButton'#22'AnchorSideLef'
|
||||
+'t.Control'#7#23'UserOverridesEditButton'#19'AnchorSideLeft.Side'#7#9'asrBot'
|
||||
+'tom'#4'Left'#3'g'#1#6'Height'#2#29#3'Top'#2'h'#5'Width'#3#188#0#7'Anchors'
|
||||
+#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Cap'
|
||||
+'tion'#6#25'UserOverridesDeleteButton'#7'OnClick'#7#30'UserOverridesDeleteBu'
|
||||
+'ttonClick'#8'TabOrder'#2#2#0#0#9'TListView'#21'UserOverridesListView'#24'An'
|
||||
+'chorSideBottom.Control'#7#22'UserOverridesAddButton'#4'Left'#2#6#6'Height'#2
|
||||
+'\'#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'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'C'
|
||||
+'aption'#6#7'Caption'#5'Width'#3#135#1#0#0#9'RowSelect'#9#8'SortType'#7#6'st'
|
||||
+'Text'#8'TabOrder'#2#3#9'ViewStyle'#7#8'vsReport'#0#0#0#9'TGroupBox'#23'Syst'
|
||||
+'emVariablesGroupBox'#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.Around'#2#6#7'Caption'#6#23'Syste'
|
||||
+'mVariablesGroupBox'#12'ClientHeight'#3#198#0#11'ClientWidth'#3#224#1#8'TabO'
|
||||
+'rder'#2#2#0#9'TListView'#23'SystemVariablesListView'#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.A'
|
||||
+'round'#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'RowSele'
|
||||
+'ct'#9#8'SortType'#7#6'stText'#8'TabOrder'#2#0#9'ViewStyle'#7#8'vsReport'#0#0
|
||||
+#0#0#0#0
|
||||
]);
|
||||
|
||||
@ -138,7 +138,7 @@ type
|
||||
EnvVarsPage: TPage;
|
||||
OkButton: TButton;
|
||||
CancelButton: TButton;
|
||||
procedure FormResize(Sender: TObject);
|
||||
procedure EnvVarsPageResize(Sender: TObject);
|
||||
procedure OkButtonClick(Sender: TObject);
|
||||
procedure HostApplicationBrowseBtnClick(Sender: TObject);
|
||||
procedure WorkingDirectoryBtnClick(Sender: TObject);
|
||||
@ -345,7 +345,6 @@ begin
|
||||
OkButton.Caption := lisOkBtn;
|
||||
CancelButton.Caption := dlgCancel;
|
||||
CancelControl := CancelButton;
|
||||
FormResize(nil);
|
||||
end;
|
||||
|
||||
procedure TRunParamsOptsDlg.SetupNotebook;
|
||||
@ -429,9 +428,13 @@ begin
|
||||
ModalResult := mrOk;
|
||||
end;
|
||||
|
||||
procedure TRunParamsOptsDlg.FormResize(Sender: TObject);
|
||||
procedure TRunParamsOptsDlg.EnvVarsPageResize(Sender: TObject);
|
||||
var
|
||||
NewHeight: Integer;
|
||||
begin
|
||||
UserOverridesGroupBox.Height := (Notebook.Page[1].Height - 37) div 2;
|
||||
NewHeight:=(Notebook.Page[1].Height - 37) div 2;
|
||||
with UserOverridesGroupBox do
|
||||
SetBounds(Left,Top+Height-NewHeight,Width,NewHeight);
|
||||
|
||||
SystemVariablesListView.Column[0].Width := SystemVariablesListView.Width div 2;
|
||||
SystemVariablesListView.Column[1].Width := SystemVariablesListView.Column[0].Width;
|
||||
|
||||
@ -2840,13 +2840,16 @@ begin
|
||||
and (NewBaseParentClientSize.Y=FBaseParentClientSize.Y)
|
||||
then exit;
|
||||
//if csDesigning in ComponentState then
|
||||
{if CompareText(ClassName,'TScrollBar')=0 then
|
||||
DebugLn('TControl.UpdateBaseBounds '+dbgs(Self)+
|
||||
' OldBounds='+dbgs(FBaseBounds)+
|
||||
' OldClientSize='+dbgs(FBaseParentClientSize)+
|
||||
' NewBounds='+dbgs(NewBaseBounds)+
|
||||
' NewClientSize='+dbgs(NewBaseParentClientSize)+
|
||||
'');}
|
||||
{$IFDEF CHECK_POSITION}
|
||||
if CheckPosition(Self) then begin
|
||||
DebugLn(['TControl.UpdateBaseBounds '+DbgSName(Self),
|
||||
' OldBounds='+dbgs(FBaseBounds),
|
||||
' OldClientSize='+dbgs(FBaseParentClientSize),
|
||||
' NewBounds='+dbgs(NewBaseBounds),
|
||||
' NewClientSize='+dbgs(NewBaseParentClientSize),
|
||||
'']);
|
||||
end;
|
||||
{$ENDIF}
|
||||
FBaseBounds:=NewBaseBounds;
|
||||
Include(FControlFlags,cfBaseBoundsValid);
|
||||
FBaseParentClientSize:=NewBaseParentClientSize;
|
||||
|
||||
@ -30,14 +30,12 @@
|
||||
|
||||
{off $DEFINE CHECK_POSITION}
|
||||
{$IFDEF CHECK_POSITION}
|
||||
const CheckPostionClassName = 'TPage';
|
||||
const CheckPostionClassName = 'xxTPage';
|
||||
const CheckPostionName = 'xxxBakProjTypeRadioGroup';
|
||||
const CheckPostionParentName = 'xxxInheritedPage';
|
||||
const CheckPostionParentName = 'EnvVarsPage';
|
||||
|
||||
function CheckPosition(AControl: TControl): boolean;
|
||||
begin
|
||||
Result:=true;
|
||||
exit;
|
||||
Result:=(CompareText(AControl.ClassName,CheckPostionClassName)=0)
|
||||
or (CompareText(AControl.Name,CheckPostionName)=0)
|
||||
or ((AControl.Parent<>nil)
|
||||
@ -2098,26 +2096,23 @@ procedure TWinControl.CreateControlAlignList(TheAlign: TAlign;
|
||||
Result := False;
|
||||
case AAlign of
|
||||
alTop:
|
||||
Result := (Control1.Top < Control2.Top)
|
||||
or ((Control1.Top = Control2.Top)
|
||||
and (Control1.FBaseBounds.Top<Control2.FBaseBounds.Top));
|
||||
alLeft: Result := (Control1.Left < Control2.Left)
|
||||
or ((Control1.Left = Control2.Left)
|
||||
and (Control1.FBaseBounds.Left<Control2.FBaseBounds.Left));
|
||||
Result := (Control1.FBaseBounds.Top < Control2.FBaseBounds.Top)
|
||||
or ((Control1.FBaseBounds.Top = Control2.FBaseBounds.Top)
|
||||
and (Control1.Top<Control2.Top));
|
||||
alLeft: Result := (Control1.FBaseBounds.Left < Control2.FBaseBounds.Left)
|
||||
or ((Control1.FBaseBounds.Left = Control2.FBaseBounds.Left)
|
||||
and (Control1.Left<Control2.Left));
|
||||
// contrary to VCL, we use > for alBottom, alRight
|
||||
// Maybe it is a bug in the VCL.
|
||||
// This results in first control is put rightmost/bottommost
|
||||
alBottom: begin
|
||||
Result :=
|
||||
((Control1.Top + Control1.Height) > (Control2.Top + Control2.Height))
|
||||
or (((Control1.Top + Control1.Height) = (Control2.Top + Control2.Height))
|
||||
and (Control1.FBaseBounds.Bottom > Control2.FBaseBounds.Bottom));
|
||||
DebugLn(['InsertBefore Control1=',DbgSName(Control1),' ',dbgs(Control1.BoundsRect),' Control2=',DbgSName(Control2),' ',dbgs(Control2.BoundsRect),' Result=',Result]);
|
||||
end;
|
||||
alBottom: Result :=
|
||||
(Control1.FBaseBounds.Bottom > Control2.FBaseBounds.Bottom)
|
||||
or ((Control1.FBaseBounds.Bottom = Control2.FBaseBounds.Bottom)
|
||||
and ((Control1.Top + Control1.Height) > (Control2.Top + Control2.Height)));
|
||||
alRight: Result :=
|
||||
((Control1.Left + Control1.Width) > (Control2.Left + Control2.Width))
|
||||
or (((Control1.Left + Control1.Width) = (Control2.Left + Control2.Width))
|
||||
and (Control1.FBaseBounds.Right > Control2.FBaseBounds.Right));
|
||||
(Control1.FBaseBounds.Right > Control2.FBaseBounds.Right)
|
||||
or ((Control1.FBaseBounds.Right = Control2.FBaseBounds.Right)
|
||||
and ((Control1.Left + Control1.Width) > (Control2.Left + Control2.Width)));
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user