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

IDE: Fix enabled/disabled state of some controls in RunParams dialog. Issue #33008.

Browse Source 
git-svn-id: trunk@58970 -
This commit is contained in:
juha 2018-09-12 18:54:41 +00:00
parent 34613d5cb8
commit ced0c01a3b
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/runparamsopts.pas
View File

@ -848,8 +848,7 @@ begin
LoadFromOptionsMode(SelectedMode);
end;
procedure TRunParamsOptsDlg.LoadFromOptionsMode(
const AMode: TRunParamsOptionsMode);
procedure TRunParamsOptsDlg.LoadFromOptionsMode(const AMode: TRunParamsOptionsMode);
var
List: THistoryList;
S: String;
@ -869,7 +868,6 @@ begin
// UseLaunchingApplicationComboBox
UseLaunchingApplicationCheckBox.Checked := AMode.UseLaunchingApplication;
CmdLineParametersGroupBox.Enabled:=not UseLaunchingApplicationCheckBox.Checked;
List := InputHistories.HistoryLists.GetList(hlLaunchingApplication,true,rltFile);
List.AppendEntry(AMode.LaunchingApplicationPathPlusParams);
S := FindTerminalInPath;
@ -885,6 +883,7 @@ begin
{$ENDIF}
UseLaunchingApplicationComboBox.Items.Assign(List);
UseLaunchingApplicationComboBox.Text := AMode.LaunchingApplicationPathPlusParams;
UseLaunchingApplicationComboBox.Enabled := UseLaunchingApplicationCheckBox.Checked;
// CmdLineParametersComboBox
List:=InputHistories.HistoryLists.GetList(hlCmdLineParameters,true,rltCaseSensitive);
@ -905,10 +904,9 @@ begin
fLastSelectedMode := AMode;
end;
procedure TRunParamsOptsDlg.UseLaunchingApplicationCheckBoxChange(
Sender: TObject);
procedure TRunParamsOptsDlg.UseLaunchingApplicationCheckBoxChange(Sender: TObject);
begin
CmdLineParametersGroupBox.Enabled:=not UseLaunchingApplicationCheckBox.Checked;
UseLaunchingApplicationComboBox.Enabled := (Sender as TCheckBox).Checked;
end;
procedure TRunParamsOptsDlg.UserOverridesListViewSelectItem(Sender: TObject;
@ -991,8 +989,7 @@ begin
end;
end;
procedure TRunParamsOptsDlg.SaveToOptionsMode(const AMode: TRunParamsOptionsMode
);
procedure TRunParamsOptsDlg.SaveToOptionsMode(const AMode: TRunParamsOptionsMode);
procedure SaveComboHistory(AComboBox: TComboBox; const History: string;
ListType: TRecentListType);