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

use Select Directory Dialog for selecting the workdirectory

Browse Source 
git-svn-id: trunk@8337 -
This commit is contained in:
vincents 2005-12-18 20:15:03 +00:00
parent 8c50e2298d
commit 49122cc61f
3 changed files with 102 additions and 136 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
ide/runparamsopts.lfm
View File

@ -1,4 +1,5 @@
object RunParamsOptsDlg: TRunParamsOptsDlg
ActiveControl = OkButton
BorderStyle = bsSizeToolWin
Caption = 'RunParamsOptsDlg'
ClientHeight = 450
@ -15,7 +16,6 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
object OkButton: TButton
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
BorderSpacing.InnerBorder = 2
Caption = 'OkButton'
@ -30,7 +30,6 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
object CancelButton: TButton
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
BorderSpacing.InnerBorder = 2
Caption = 'CancelButton'
@ -44,7 +43,6 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
object Notebook: TNotebook
Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.OnChange = nil
PageIndex = 0
Height = 408
Width = 500
@ -61,7 +59,6 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
Caption = 'DisplayGroupBox'
ClientHeight = 54
ClientWidth = 476
ParentColor = True
TabOrder = 3
Left = 6
Height = 72
@ -94,12 +91,10 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
object CmdLineParametersGroupBox: TGroupBox
Align = alTop
AutoSize = True
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
Caption = 'CmdLineParametersGroupBox'
ClientHeight = 35
ClientWidth = 476
ParentColor = True
TabOrder = 0
Left = 6
Height = 53
@ -107,7 +102,6 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
Width = 480
object CmdLineParametersEdit: TEdit
Align = alTop
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
TabOrder = 0
Text = 'CmdLineParametersEdit'
@ -120,12 +114,10 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
object UseLaunchingApplicationGroupBox: TGroupBox
Align = alTop
AutoSize = True
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
Caption = 'UseLaunchingApplicationGroupBox'
ClientHeight = 52
ClientWidth = 476
ParentColor = True
TabOrder = 1
Left = 6
Height = 70
@ -133,7 +125,6 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
Width = 480
object UseLaunchingApplicationCheckBox: TCheckBox
Align = alTop
BorderSpacing.OnChange = nil
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
@ -148,7 +139,6 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
object UseLaunchingApplicationComboBox: TComboBox
Align = alTop
Anchors = [akTop]
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
MaxLength = 0
TabOrder = 1
@ -166,7 +156,6 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
Caption = 'HostApplicationGroupBox'
ClientHeight = 35
ClientWidth = 476
ParentColor = True
TabOrder = 2
Left = 6
Height = 53
@ -198,12 +187,10 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
object WorkingDirectoryGroupBox: TGroupBox
Align = alTop
AutoSize = True
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
Caption = 'WorkingDirectoryGroupBox'
ClientHeight = 35
ClientWidth = 476
ParentColor = True
TabOrder = 4
Left = 6
Height = 53
@ -211,7 +198,6 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
Width = 480
object WorkingDirectoryBtn: TButton
Align = alRight
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
BorderSpacing.InnerBorder = 2
Caption = 'WorkingDirectoryBtn'
@ -224,7 +210,6 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
end
object WorkingDirectoryEdit: TEdit
Align = alClient
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
TabOrder = 1
Text = 'WorkingDirectoryEdit'
@ -243,7 +228,6 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
Width = 492
object IncludeSystemVariablesCheckBox: TCheckBox
Align = alBottom
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
Caption = 'IncludeSystemVariablesCheckBox'
Enabled = False
@ -255,12 +239,10 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
end
object UserOverridesGroupBox: TGroupBox
Align = alBottom
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
Caption = 'UserOverridesGroupBox'
ClientHeight = 143
ClientWidth = 476
ParentColor = True
ClientHeight = 161
ClientWidth = 480
TabOrder = 1
Left = 6
Height = 161
@ -269,7 +251,6 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
object UserOverridesAddButton: TButton
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
BorderSpacing.InnerBorder = 2
Caption = 'UserOverridesAddButton'
@ -283,7 +264,6 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
object UserOverridesEditButton: TButton
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
BorderSpacing.InnerBorder = 2
Caption = 'UserOverridesEditButton'
@ -298,7 +278,6 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
object UserOverridesDeleteButton: TButton
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
BorderSpacing.InnerBorder = 2
Caption = 'UserOverridesDeleteButton'
@ -313,7 +292,6 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
object UserOverridesListView: TListView
Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
Columns = <
item
@ -337,12 +315,10 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
end
object SystemVariablesGroupBox: TGroupBox
Align = alClient
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
Caption = 'SystemVariablesGroupBox'
ClientHeight = 166
ClientWidth = 476
ParentColor = True
ClientHeight = 184
ClientWidth = 480
TabOrder = 2
Left = 6
Height = 184
@ -350,7 +326,6 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
Width = 480
object SystemVariablesListView: TListView
Align = alClient
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
Columns = <
item

181
ide/runparamsopts.lrs
View File

@ -1,27 +1,26 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TRunParamsOptsDlg','FORMDATA',[
'TPF0'#17'TRunParamsOptsDlg'#16'RunParamsOptsDlg'#11'BorderStyle'#7#13'bsSize'
+'ToolWin'#7'Caption'#6#16'RunParamsOptsDlg'#12'ClientHeight'#3#194#1#11'Clie'
+'ntWidth'#3#244#1#8'OnResize'#7#10'FormResize'#13'PixelsPerInch'#2'`'#8'Posi'
+'tion'#7#14'poScreenCenter'#18'HorzScrollBar.Page'#3#243#1#18'VertScrollBar.'
+'Page'#3#193#1#4'Left'#3#198#1#6'Height'#3#194#1#3'Top'#3#176#0#5'Width'#3
+#244#1#0#7'TButton'#8'OkButton'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'Aut'
+'oSize'#9#22'BorderSpacing.OnChange'#13#20'BorderSpacing.Around'#2#6#25'Bord'
'TPF0'#17'TRunParamsOptsDlg'#16'RunParamsOptsDlg'#13'ActiveControl'#7#8'OkBut'
+'ton'#11'BorderStyle'#7#13'bsSizeToolWin'#7'Caption'#6#16'RunParamsOptsDlg'
+#12'ClientHeight'#3#194#1#11'ClientWidth'#3#244#1#8'OnResize'#7#10'FormResiz'
+'e'#13'PixelsPerInch'#2'`'#8'Position'#7#14'poScreenCenter'#18'HorzScrollBar'
+'.Page'#3#243#1#18'VertScrollBar.Page'#3#193#1#4'Left'#3#198#1#6'Height'#3
+#194#1#3'Top'#3#176#0#5'Width'#3#244#1#0#7'TButton'#8'OkButton'#7'Anchors'#11
+#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#25'Bord'
+'erSpacing.InnerBorder'#2#2#7'Caption'#6#8'OkButton'#7'OnClick'#7#13'OkButto'
+'nClick'#8'TabOrder'#2#0#23'AnchorSideRight.Control'#7#12'CancelButton'#4'Le'
+'ft'#3'E'#1#6'Height'#2#29#3'Top'#3#159#1#5'Width'#2'E'#0#0#7'TButton'#12'Ca'
+'ncelButton'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#22'BorderS'
+'pacing.OnChange'#13#20'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBord'
+'er'#2#2#7'Caption'#6#12'CancelButton'#11'ModalResult'#2#2#8'TabOrder'#2#1#4
+'Left'#3#144#1#6'Height'#2#29#3'Top'#3#159#1#5'Width'#2'X'#0#0#9'TNotebook'#8
+'Notebook'#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8
+'akBottom'#0#22'BorderSpacing.OnChange'#13#9'PageIndex'#2#0#6'Height'#3#152#1
+#5'Width'#3#244#1#0#5'TPage'#5'Page1'#7'Caption'#6#5'Page1'#11'ClientWidth'#3
+#236#1#12'ClientHeight'#3'~'#1#6'Height'#3'~'#1#5'Width'#3#236#1#0#9'TGroupB'
+'ox'#15'DisplayGroupBox'#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.'
+'Around'#2#6#7'Caption'#6#15'DisplayGroupBox'#12'ClientHeight'#2'6'#11'Clien'
+'tWidth'#3#220#1#11'ParentColor'#9#8'TabOrder'#2#3#4'Left'#2#6#6'Height'#2'H'
+'ncelButton'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderS'
+'pacing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#12'Cancel'
+'Button'#11'ModalResult'#2#2#8'TabOrder'#2#1#4'Left'#3#144#1#6'Height'#2#29#3
+'Top'#3#159#1#5'Width'#2'X'#0#0#9'TNotebook'#8'Notebook'#5'Align'#7#5'alTop'
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#9'PageIndex'#2#0#6
+'Height'#3#152#1#5'Width'#3#244#1#0#5'TPage'#5'Page1'#7'Caption'#6#5'Page1'
+#11'ClientWidth'#3#236#1#12'ClientHeight'#3'~'#1#6'Height'#3'~'#1#5'Width'#3
+#236#1#0#9'TGroupBox'#15'DisplayGroupBox'#5'Align'#7#5'alTop'#8'AutoSize'#9
+#20'BorderSpacing.Around'#2#6#7'Caption'#6#15'DisplayGroupBox'#12'ClientHeig'
+'ht'#2'6'#11'ClientWidth'#3#220#1#8'TabOrder'#2#3#4'Left'#2#6#6'Height'#2'H'
+#3'Top'#3#3#1#5'Width'#3#224#1#0#5'TEdit'#11'DisplayEdit'#5'Align'#7#5'alTop'
+#20'BorderSpacing.Around'#2#6#8'TabOrder'#2#0#4'Text'#6#11'DisplayEdit'#4'Le'
+'ft'#2#6#6'Height'#2#23#3'Top'#2#25#5'Width'#3#208#1#0#0#9'TCheckBox'#18'Use'
@ -29,85 +28,77 @@ LazarusResources.Add('TRunParamsOptsDlg','FORMDATA',[
+'acing.Top'#2#6#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bottom'#2#6#7'C'
+'aption'#6#18'UseDisplayCheckBox'#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2#13
+#3'Top'#2#6#5'Width'#3#208#1#0#0#0#9'TGroupBox'#25'CmdLineParametersGroupBox'
+#5'Align'#7#5'alTop'#8'AutoSize'#9#22'BorderSpacing.OnChange'#13#20'BorderSp'
+'acing.Around'#2#6#7'Caption'#6#25'CmdLineParametersGroupBox'#12'ClientHeigh'
+'t'#2'#'#11'ClientWidth'#3#220#1#11'ParentColor'#9#8'TabOrder'#2#0#4'Left'#2
+#6#6'Height'#2'5'#3'Top'#2'A'#5'Width'#3#224#1#0#5'TEdit'#21'CmdLineParamete'
+'rsEdit'#5'Align'#7#5'alTop'#22'BorderSpacing.OnChange'#13#20'BorderSpacing.'
+'Around'#2#6#8'TabOrder'#2#0#4'Text'#6#21'CmdLineParametersEdit'#4'Left'#2#6
+#6'Height'#2#23#3'Top'#2#6#5'Width'#3#208#1#0#0#0#9'TGroupBox'#31'UseLaunchi'
+'ngApplicationGroupBox'#5'Align'#7#5'alTop'#8'AutoSize'#9#22'BorderSpacing.O'
+'nChange'#13#20'BorderSpacing.Around'#2#6#7'Caption'#6#31'UseLaunchingApplic'
+'ationGroupBox'#12'ClientHeight'#2'4'#11'ClientWidth'#3#220#1#11'ParentColor'
+#9#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2'F'#3'Top'#2'|'#5'Width'#3#224#1#0
+#9'TCheckBox'#31'UseLaunchingApplicationCheckBox'#5'Align'#7#5'alTop'#22'Bor'
+'derSpacing.OnChange'#13#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6
+#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bottom'#2#6#7'Caption'#6#31'Us'
+'eLaunchingApplicationCheckBox'#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#13#3
+'Top'#2#6#5'Width'#3#208#1#0#0#9'TComboBox'#31'UseLaunchingApplicationComboB'
+'ox'#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#0#22'BorderSpacing.OnChange'
+#13#20'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#8'TabOrder'#2#1#4'Text'#6
+#31'UseLaunchingApplicationComboBox'#4'Left'#2#6#6'Height'#2#21#3'Top'#2#25#5
+'Width'#3#208#1#0#0#0#9'TGroupBox'#23'HostApplicationGroupBox'#5'Align'#7#5
+'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#23'HostAppli'
+'cationGroupBox'#12'ClientHeight'#2'#'#11'ClientWidth'#3#220#1#11'ParentColo'
+'r'#9#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#2'5'#3'Top'#2#6#5'Width'#3#224#1
+#0#7'TButton'#24'HostApplicationBrowseBtn'#5'Align'#7#7'alRight'#20'BorderSp'
+'acing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#24'HostApp'
+'licationBrowseBtn'#7'OnClick'#7#29'HostApplicationBrowseBtnClick'#8'TabOrde'
+'r'#2#0#4'Left'#3#191#1#6'Height'#2#23#3'Top'#2#6#5'Width'#2#23#0#0#5'TEdit'
+#19'HostApplicationEdit'#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#6
+#8'TabOrder'#2#1#4'Text'#6#19'HostApplicationEdit'#4'Left'#2#6#6'Height'#2#23
+#3'Top'#2#6#5'Width'#3#179#1#0#0#0#9'TGroupBox'#24'WorkingDirectoryGroupBox'
+#5'Align'#7#5'alTop'#8'AutoSize'#9#22'BorderSpacing.OnChange'#13#20'BorderSp'
+'acing.Around'#2#6#7'Caption'#6#24'WorkingDirectoryGroupBox'#12'ClientHeight'
+#2'#'#11'ClientWidth'#3#220#1#11'ParentColor'#9#8'TabOrder'#2#4#4'Left'#2#6#6
+'Height'#2'5'#3'Top'#3#200#0#5'Width'#3#224#1#0#7'TButton'#19'WorkingDirecto'
+'ryBtn'#5'Align'#7#7'alRight'#22'BorderSpacing.OnChange'#13#20'BorderSpacing'
+'.Around'#2#6#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#19'WorkingDirec'
,'toryBtn'#7'OnClick'#7#24'WorkingDirectoryBtnClick'#8'TabOrder'#2#0#4'Left'#3
+#191#1#6'Height'#2#23#3'Top'#2#6#5'Width'#2#23#0#0#5'TEdit'#20'WorkingDirect'
+'oryEdit'#5'Align'#7#8'alClient'#22'BorderSpacing.OnChange'#13#20'BorderSpac'
+'ing.Around'#2#6#8'TabOrder'#2#1#4'Text'#6#20'WorkingDirectoryEdit'#4'Left'#2
+#6#6'Height'#2#23#3'Top'#2#6#5'Width'#3#179#1#0#0#0#0#5'TPage'#5'Page2'#7'Ca'
+'ption'#6#5'Page2'#11'ClientWidth'#3#236#1#12'ClientHeight'#3'~'#1#6'Height'
+#3'~'#1#5'Width'#3#236#1#0#9'TCheckBox'#30'IncludeSystemVariablesCheckBox'#5
+'Align'#7#8'alBottom'#22'BorderSpacing.OnChange'#13#20'BorderSpacing.Around'
+#2#6#7'Caption'#6#30'IncludeSystemVariablesCheckBox'#7'Enabled'#8#8'TabOrder'
+#2#0#4'Left'#2#6#6'Height'#2#13#3'Top'#3'k'#1#5'Width'#3#224#1#0#0#9'TGroupB'
+'ox'#21'UserOverridesGroupBox'#5'Align'#7#8'alBottom'#22'BorderSpacing.OnCha'
+'nge'#13#20'BorderSpacing.Around'#2#6#7'Caption'#6#21'UserOverridesGroupBox'
+#12'ClientHeight'#3#143#0#11'ClientWidth'#3#220#1#11'ParentColor'#9#8'TabOrd'
+'er'#2#1#4'Left'#2#6#6'Height'#3#161#0#3'Top'#3#196#0#5'Width'#3#224#1#0#7'T'
+'Button'#22'UserOverridesAddButton'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8
+'AutoSize'#9#22'BorderSpacing.OnChange'#13#20'BorderSpacing.Around'#2#6#25'B'
+'orderSpacing.InnerBorder'#2#2#7'Caption'#6#22'UserOverridesAddButton'#7'OnC'
+'lick'#7#27'UserOverridesAddButtonClick'#8'TabOrder'#2#0#4'Left'#2#6#6'Heigh'
+'t'#2#29#3'Top'#2'j'#5'Width'#3#141#0#0#0#7'TButton'#23'UserOverridesEditBut'
+'ton'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#22'BorderSpacing.O'
+'nChange'#13#20'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#2#7
+#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6
+#25'CmdLineParametersGroupBox'#12'ClientHeight'#2'#'#11'ClientWidth'#3#220#1
+#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2'5'#3'Top'#2'A'#5'Width'#3#224#1#0#5
+'TEdit'#21'CmdLineParametersEdit'#5'Align'#7#5'alTop'#20'BorderSpacing.Aroun'
+'d'#2#6#8'TabOrder'#2#0#4'Text'#6#21'CmdLineParametersEdit'#4'Left'#2#6#6'He'
+'ight'#2#23#3'Top'#2#6#5'Width'#3#208#1#0#0#0#9'TGroupBox'#31'UseLaunchingAp'
+'plicationGroupBox'#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Aroun'
+'d'#2#6#7'Caption'#6#31'UseLaunchingApplicationGroupBox'#12'ClientHeight'#2
+'4'#11'ClientWidth'#3#220#1#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2'F'#3'Top'
+#2'|'#5'Width'#3#224#1#0#9'TCheckBox'#31'UseLaunchingApplicationCheckBox'#5
+'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'B'
+'orderSpacing.Right'#2#6#20'BorderSpacing.Bottom'#2#6#7'Caption'#6#31'UseLau'
+'nchingApplicationCheckBox'#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#13#3'Top'
+#2#6#5'Width'#3#208#1#0#0#9'TComboBox'#31'UseLaunchingApplicationComboBox'#5
+'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#0#20'BorderSpacing.Around'#2#6#9'M'
+'axLength'#2#0#8'TabOrder'#2#1#4'Text'#6#31'UseLaunchingApplicationComboBox'
+#4'Left'#2#6#6'Height'#2#21#3'Top'#2#25#5'Width'#3#208#1#0#0#0#9'TGroupBox'
+#23'HostApplicationGroupBox'#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpac'
+'ing.Around'#2#6#7'Caption'#6#23'HostApplicationGroupBox'#12'ClientHeight'#2
+'#'#11'ClientWidth'#3#220#1#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#2'5'#3'Top'
+#2#6#5'Width'#3#224#1#0#7'TButton'#24'HostApplicationBrowseBtn'#5'Align'#7#7
+'alRight'#20'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#2#7'C'
+'aption'#6#24'HostApplicationBrowseBtn'#7'OnClick'#7#29'HostApplicationBrows'
+'eBtnClick'#8'TabOrder'#2#0#4'Left'#3#191#1#6'Height'#2#23#3'Top'#2#6#5'Widt'
+'h'#2#23#0#0#5'TEdit'#19'HostApplicationEdit'#5'Align'#7#8'alClient'#20'Bord'
+'erSpacing.Around'#2#6#8'TabOrder'#2#1#4'Text'#6#19'HostApplicationEdit'#4'L'
+'eft'#2#6#6'Height'#2#23#3'Top'#2#6#5'Width'#3#179#1#0#0#0#9'TGroupBox'#24'W'
+'orkingDirectoryGroupBox'#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing'
+'.Around'#2#6#7'Caption'#6#24'WorkingDirectoryGroupBox'#12'ClientHeight'#2'#'
+#11'ClientWidth'#3#220#1#8'TabOrder'#2#4#4'Left'#2#6#6'Height'#2'5'#3'Top'#3
+#200#0#5'Width'#3#224#1#0#7'TButton'#19'WorkingDirectoryBtn'#5'Align'#7#7'al'
+'Right'#20'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#2#7'Cap'
+'tion'#6#19'WorkingDirectoryBtn'#7'OnClick'#7#24'WorkingDirectoryBtnClick'#8
+'TabOrder'#2#0#4'Left'#3#191#1#6'Height'#2#23#3'Top'#2#6#5'Width'#2#23#0#0#5
+'TEdit'#20'WorkingDirectoryEdit'#5'Align'#7#8'alClient'#20'BorderSpacing.Aro'
+'und'#2#6#8'TabOrder'#2#1#4'Text'#6#20'WorkingDirectoryEdit'#4'Left'#2#6#6'H'
+'eight'#2#23#3'Top'#2#6#5'Width'#3#179#1#0#0#0#0#5'TPage'#5'Page2'#7'Caption'
,#6#5'Page2'#11'ClientWidth'#3#236#1#12'ClientHeight'#3'~'#1#6'Height'#3'~'#1
+#5'Width'#3#236#1#0#9'TCheckBox'#30'IncludeSystemVariablesCheckBox'#5'Align'
+#7#8'alBottom'#20'BorderSpacing.Around'#2#6#7'Caption'#6#30'IncludeSystemVar'
+'iablesCheckBox'#7'Enabled'#8#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#13#3'T'
+'op'#3'k'#1#5'Width'#3#224#1#0#0#9'TGroupBox'#21'UserOverridesGroupBox'#5'Al'
+'ign'#7#8'alBottom'#20'BorderSpacing.Around'#2#6#7'Caption'#6#21'UserOverrid'
+'esGroupBox'#12'ClientHeight'#3#161#0#11'ClientWidth'#3#224#1#8'TabOrder'#2#1
+#4'Left'#2#6#6'Height'#3#161#0#3'Top'#3#196#0#5'Width'#3#224#1#0#7'TButton'
+#22'UserOverridesAddButton'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'
+#9#20'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#2#7'Caption'
+#6#22'UserOverridesAddButton'#7'OnClick'#7#27'UserOverridesAddButtonClick'#8
+'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#29#3'Top'#2'j'#5'Width'#3#141#0#0#0#7
+'TButton'#23'UserOverridesEditButton'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8
+'AutoSize'#9#20'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#2#7
+'Caption'#6#23'UserOverridesEditButton'#7'OnClick'#7#28'UserOverridesEditBut'
+'tonClick'#8'TabOrder'#2#1#22'AnchorSideLeft.Control'#7#22'UserOverridesAddB'
+'utton'#4'Left'#3#153#0#6'Height'#2#29#3'Top'#2'j'#5'Width'#3#140#0#0#0#7'TB'
+'utton'#25'UserOverridesDeleteButton'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8
+'AutoSize'#9#22'BorderSpacing.OnChange'#13#20'BorderSpacing.Around'#2#6#25'B'
+'orderSpacing.InnerBorder'#2#2#7'Caption'#6#25'UserOverridesDeleteButton'#7
+'OnClick'#7#30'UserOverridesDeleteButtonClick'#8'TabOrder'#2#2#22'AnchorSide'
+'Left.Control'#7#23'UserOverridesEditButton'#4'Left'#3'+'#1#6'Height'#2#29#3
+'Top'#2'j'#5'Width'#3#153#0#0#0#9'TListView'#21'UserOverridesListView'#5'Ali'
+'gn'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#22
+'BorderSpacing.OnChange'#13#20'BorderSpacing.Around'#2#6#7'Columns'#14#1#8'A'
+'utoSize'#9#7'Caption'#6#7'Caption'#5'Width'#2'*'#0#1#8'AutoSize'#9#7'Captio'
+'n'#6#7'Caption'#5'Width'#2'*'#0#0#9'RowSelect'#9#8'SortType'#7#6'stText'#9
+'ViewStyle'#7#8'vsReport'#4'Left'#2#6#6'Height'#2'`'#3'Top'#2#6#5'Width'#3
+#208#1#0#0#0#9'TGroupBox'#23'SystemVariablesGroupBox'#5'Align'#7#8'alClient'
+#22'BorderSpacing.OnChange'#13#20'BorderSpacing.Around'#2#6#7'Caption'#6#23
+'SystemVariablesGroupBox'#12'ClientHeight'#3#166#0#11'ClientWidth'#3#220#1#11
+'ParentColor'#9#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#3#184#0#3'Top'#2#6#5'W'
+'idth'#3#224#1#0#9'TListView'#23'SystemVariablesListView'#5'Align'#7#8'alCli'
+'ent'#22'BorderSpacing.OnChange'#13#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'stTe'
+'xt'#9'ViewStyle'#7#8'vsReport'#4'Left'#2#6#6'Height'#3#154#0#3'Top'#2#6#5'W'
+'idth'#3#208#1#0#0#0#0#0#0
+'AutoSize'#9#20'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#2#7
+'Caption'#6#25'UserOverridesDeleteButton'#7'OnClick'#7#30'UserOverridesDelet'
+'eButtonClick'#8'TabOrder'#2#2#22'AnchorSideLeft.Control'#7#23'UserOverrides'
+'EditButton'#4'Left'#3'+'#1#6'Height'#2#29#3'Top'#2'j'#5'Width'#3#153#0#0#0#9
+'TListView'#21'UserOverridesListView'#5'Align'#7#5'alTop'#7'Anchors'#11#5'ak'
+'Top'#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Colu'
+'mns'#14#1#8'AutoSize'#9#7'Caption'#6#7'Caption'#5'Width'#2'*'#0#1#8'AutoSiz'
+'e'#9#7'Caption'#6#7'Caption'#5'Width'#2'*'#0#0#9'RowSelect'#9#8'SortType'#7
+#6'stText'#9'ViewStyle'#7#8'vsReport'#4'Left'#2#6#6'Height'#2'`'#3'Top'#2#6#5
+'Width'#3#208#1#0#0#0#9'TGroupBox'#23'SystemVariablesGroupBox'#5'Align'#7#8
+'alClient'#20'BorderSpacing.Around'#2#6#7'Caption'#6#23'SystemVariablesGroup'
+'Box'#12'ClientHeight'#3#184#0#11'ClientWidth'#3#224#1#8'TabOrder'#2#2#4'Lef'
+'t'#2#6#6'Height'#3#184#0#3'Top'#2#6#5'Width'#3#224#1#0#9'TListView'#23'Syst'
+'emVariablesListView'#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'#2'*'#0#0#9'RowSelect'#9#8'SortTyp'
+'e'#7#6'stText'#9'ViewStyle'#7#8'vsReport'#4'Left'#2#6#6'Height'#3#154#0#3'T'
+'op'#2#6#5'Width'#3#208#1#0#0#0#0#0#0
]);

22
ide/runparamsopts.pas
View File

@ -461,26 +461,26 @@ end;
procedure TRunParamsOptsDlg.WorkingDirectoryBtnClick(Sender: TObject);
var
OpenDialog: TOpenDialog;
WorkDirectoryDialog: TSelectDirectoryDialog;
begin
OpenDialog := TOpenDialog.Create(Self);
with OpenDialog do
WorkDirectoryDialog := TSelectDirectoryDialog.Create(Self);
with WorkDirectoryDialog do
begin
InputHistories.ApplyFileDialogSettings(OpenDialog);
InputHistories.ApplyFileDialogSettings(WorkDirectoryDialog);
if WorkingDirectoryEdit.Text <> '' then
OpenDialog.InitialDir := ExtractFilePath(WorkingDirectoryEdit.Text);
OpenDialog.Filename := HostApplicationEdit.Text;
if OpenDialog.Execute then
WorkDirectoryDialog.InitialDir := ExtractFilePath(WorkingDirectoryEdit.Text);
WorkDirectoryDialog.Filename := HostApplicationEdit.Text;
if WorkDirectoryDialog.Execute then
begin
if (DirPathExists(OpenDialog.Filename)) or
if (DirPathExists(WorkDirectoryDialog.Filename)) or
(MessageDlg(dlgDirectoryDoesNotExist, dlgTheDirectory +
OpenDialog.Filename + dlgDoesNotExist, mtWarning, [mbIgnore, mbCancel], 0) =
WorkDirectoryDialog.Filename + dlgDoesNotExist, mtWarning, [mbIgnore, mbCancel], 0) =
mrIgnore) then
begin
WorkingDirectoryEdit.Text := OpenDialog.Filename;
WorkingDirectoryEdit.Text := WorkDirectoryDialog.Filename;
end;
end;
InputHistories.StoreFileDialogSettings(OpenDialog);
InputHistories.StoreFileDialogSettings(WorkDirectoryDialog);
end;
end;