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

IDE: remove (not needed anymore) ButtonPanel events assigning workaround from Run Parameters dialog and improve localization

Browse Source 
git-svn-id: trunk@26541 -
This commit is contained in:
maxim 2010-07-08 21:20:04 +00:00
parent 3d643d30a2
commit d46ab40066
2 changed files with 58 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

100
ide/runparamsopts.lfm
View File

@ -3,7 +3,6 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
Height = 501 Height = 501
Top = 176 Top = 176
Width = 500 Width = 500
ActiveControl = Notebook
BorderStyle = bsSizeToolWin BorderStyle = bsSizeToolWin
Caption = 'RunParamsOptsDlg' Caption = 'RunParamsOptsDlg'
ClientHeight = 501 ClientHeight = 501
@ -32,8 +31,8 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'DisplayGroupBox' Caption = 'DisplayGroupBox'
ClientHeight = 82 ClientHeight = 64
ClientWidth = 480 ClientWidth = 476
TabOrder = 3 TabOrder = 3
object DisplayEdit: TEdit object DisplayEdit: TEdit
Left = 6 Left = 6
@ -68,8 +67,8 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'CmdLineParametersGroupBox' Caption = 'CmdLineParametersGroupBox'
ClientHeight = 60 ClientHeight = 42
ClientWidth = 480 ClientWidth = 476
TabOrder = 0 TabOrder = 0
object CmdLineParametersComboBox: TComboBox object CmdLineParametersComboBox: TComboBox
Left = 6 Left = 6
@ -78,7 +77,7 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
Width = 464 Width = 464
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 0 ItemHeight = 13
TabOrder = 0 TabOrder = 0
Text = 'CmdLineParametersComboBox' Text = 'CmdLineParametersComboBox'
end end
@ -92,8 +91,8 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'UseLaunchingApplicationGroupBox' Caption = 'UseLaunchingApplicationGroupBox'
ClientHeight = 88 ClientHeight = 70
ClientWidth = 480 ClientWidth = 476
TabOrder = 1 TabOrder = 1
object UseLaunchingApplicationCheckBox: TCheckBox object UseLaunchingApplicationCheckBox: TCheckBox
Left = 6 Left = 6
@ -115,7 +114,7 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
Width = 464 Width = 464
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 0 ItemHeight = 13
TabOrder = 1 TabOrder = 1
Text = 'UseLaunchingApplicationComboBox' Text = 'UseLaunchingApplicationComboBox'
end end
@ -129,8 +128,8 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'HostApplicationGroupBox' Caption = 'HostApplicationGroupBox'
ClientHeight = 60 ClientHeight = 42
ClientWidth = 480 ClientWidth = 476
TabOrder = 2 TabOrder = 2
object HostApplicationBrowseBtn: TButton object HostApplicationBrowseBtn: TButton
AnchorSideTop.Control = HostApplicationGroupBox AnchorSideTop.Control = HostApplicationGroupBox
@ -174,8 +173,8 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'WorkingDirectoryGroupBox' Caption = 'WorkingDirectoryGroupBox'
ClientHeight = 60 ClientHeight = 42
ClientWidth = 480 ClientWidth = 476
TabOrder = 4 TabOrder = 4
object WorkingDirectoryBtn: TButton object WorkingDirectoryBtn: TButton
AnchorSideTop.Control = WorkingDirectoryGroupBox AnchorSideTop.Control = WorkingDirectoryGroupBox
@ -205,7 +204,7 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
Width = 317 Width = 317
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 0 ItemHeight = 13
TabOrder = 1 TabOrder = 1
Text = 'WorkingDirectoryComboBox' Text = 'WorkingDirectoryComboBox'
end end
@ -213,17 +212,17 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
end end
object EnvVarsPage: TPage object EnvVarsPage: TPage
Caption = 'EnvVarsPage' Caption = 'EnvVarsPage'
ClientWidth = 496 ClientWidth = 492
ClientHeight = 438 ClientHeight = 437
OnResize = EnvVarsPageResize OnResize = EnvVarsPageResize
object IncludeSystemVariablesCheckBox: TCheckBox object IncludeSystemVariablesCheckBox: TCheckBox
AnchorSideLeft.Control = EnvVarsPage AnchorSideLeft.Control = EnvVarsPage
AnchorSideBottom.Control = EnvVarsPage AnchorSideBottom.Control = EnvVarsPage
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 20 Height = 17
Top = 412 Top = 414
Width = 484 Width = 480
Align = alBottom Align = alBottom
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'IncludeSystemVariablesCheckBox' Caption = 'IncludeSystemVariablesCheckBox'
@ -237,14 +236,14 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = IncludeSystemVariablesCheckBox AnchorSideBottom.Control = IncludeSystemVariablesCheckBox
Left = 6 Left = 6
Height = 177 Height = 179
Top = 229 Top = 229
Width = 484 Width = 480
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'UserOverridesGroupBox' Caption = 'UserOverridesGroupBox'
ClientHeight = 158 ClientHeight = 161
ClientWidth = 480 ClientWidth = 476
TabOrder = 1 TabOrder = 1
object UserOverridesListView: TListView object UserOverridesListView: TListView
AnchorSideLeft.Control = UserOverridesGroupBox AnchorSideLeft.Control = UserOverridesGroupBox
@ -253,9 +252,9 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = UserOverridesAddButton AnchorSideBottom.Control = UserOverridesAddButton
Left = 6 Left = 6
Height = 115 Height = 120
Top = 6 Top = 6
Width = 468 Width = 464
Align = alTop Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -263,12 +262,12 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
item item
AutoSize = True AutoSize = True
Caption = 'Caption' Caption = 'Caption'
Width = 60 Width = 6
end end
item item
AutoSize = True AutoSize = True
Caption = 'Caption' Caption = 'Caption'
Width = 390 Width = 12
end> end>
ItemIndex = -1 ItemIndex = -1
RowSelect = True RowSelect = True
@ -281,9 +280,9 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
AnchorSideBottom.Control = UserOverridesGroupBox AnchorSideBottom.Control = UserOverridesGroupBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 25 Height = 23
Top = 127 Top = 132
Width = 159 Width = 146
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -297,10 +296,10 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = UserOverridesGroupBox AnchorSideBottom.Control = UserOverridesGroupBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 350 Left = 322
Height = 25 Height = 23
Top = 127 Top = 132
Width = 159 Width = 145
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -314,10 +313,10 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = UserOverridesGroupBox AnchorSideBottom.Control = UserOverridesGroupBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 171 Left = 158
Height = 25 Height = 23
Top = 127 Top = 132
Width = 173 Width = 158
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -332,13 +331,13 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
Left = 6 Left = 6
Height = 217 Height = 217
Top = 6 Top = 6
Width = 484 Width = 480
Align = alTop Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'SystemVariablesGroupBox' Caption = 'SystemVariablesGroupBox'
ClientHeight = 198 ClientHeight = 199
ClientWidth = 480 ClientWidth = 476
TabOrder = 2 TabOrder = 2
object SystemVariablesListView: TListView object SystemVariablesListView: TListView
AnchorSideLeft.Control = SystemVariablesGroupBox AnchorSideLeft.Control = SystemVariablesGroupBox
@ -348,21 +347,21 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
AnchorSideBottom.Control = SystemVariablesGroupBox AnchorSideBottom.Control = SystemVariablesGroupBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 186 Height = 187
Top = 6 Top = 6
Width = 468 Width = 464
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Columns = < Columns = <
item item
AutoSize = True AutoSize = True
Caption = 'Caption' Caption = 'Caption'
Width = 60 Width = 6
end end
item item
AutoSize = True AutoSize = True
Caption = 'Caption' Caption = 'Caption'
Width = 390 Width = 12
end> end>
ItemIndex = -1 ItemIndex = -1
RowSelect = True RowSelect = True
@ -378,6 +377,17 @@ object RunParamsOptsDlg: TRunParamsOptsDlg
Height = 26 Height = 26
Top = 469 Top = 469
Width = 488 Width = 488
OKButton.Name = 'OKButton'
OKButton.Caption = '&ОК'
OKButton.OnClick = OkButtonClick
HelpButton.Name = 'HelpButton'
HelpButton.Caption = '&Справка'
HelpButton.OnClick = HelpButtonClick
CloseButton.Name = 'CloseButton'
CloseButton.Caption = '&Закрыть'
CloseButton.Enabled = False
CancelButton.Name = 'CancelButton'
CancelButton.Caption = 'Отмена'
TabOrder = 1 TabOrder = 1
ShowButtons = [pbOK, pbCancel, pbHelp] ShowButtons = [pbOK, pbCancel, pbHelp]
ShowBevel = False ShowBevel = False

6
ide/runparamsopts.pas
View File

@ -398,10 +398,10 @@ begin
inherited Create(AnOwner); inherited Create(AnOwner);
Caption := dlgRunParameters; Caption := dlgRunParameters;
ButtonPanel.OKButton.Caption:=lisOk;
ButtonPanel.HelpButton.Caption:=lisMenuHelp;
ButtonPanel.CancelButton.Caption:=dlgCancel;
SetupNotebook; SetupNotebook;
ButtonPanel.OKButton.OnClick := @OKButtonClick;
ButtonPanel.HelpButton.OnClick := @HelpButtonClick;
end; end;
procedure TRunParamsOptsDlg.SetupNotebook; procedure TRunParamsOptsDlg.SetupNotebook;