paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 07:17:27 +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

17
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;
@ -864,12 +863,11 @@ begin
WorkingDirectoryComboBox.Text := AMode.WorkingDirectory;
SaveInComboBox.ItemIndex := Ord(AMode.SaveIn);
if SaveInComboBox.ItemIndex=-1 then
if SaveInComboBox.ItemIndex = -1 then
SaveInComboBox.ItemIndex := 0;
// UseLaunchingApplicationComboBox
UseLaunchingApplicationCheckBox.Checked := AMode.UseLaunchingApplication;
CmdLineParametersGroupBox.Enabled:=not UseLaunchingApplicationCheckBox.Checked;
List := InputHistories.HistoryLists.GetList(hlLaunchingApplication,true,rltFile);
List.AppendEntry(AMode.LaunchingApplicationPathPlusParams);
S := FindTerminalInPath;
@ -884,7 +882,8 @@ begin
List.AppendEntry(S);
{$ENDIF}
UseLaunchingApplicationComboBox.Items.Assign(List);
UseLaunchingApplicationComboBox.Text:=AMode.LaunchingApplicationPathPlusParams;
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);