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

IDE: run parameters dialog: fixed comboboxes list containing current value

Browse Source 
git-svn-id: trunk@32607 -
This commit is contained in:
mattias 2011-10-01 21:53:23 +00:00
parent 4cec37047a
commit 7136bc4b7a
1 changed files with 33 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
ide/runparamsopts.pas
View File

@ -391,9 +391,6 @@ begin
end;
procedure TRunParamsOptsDlg.SetupLocalPage;
var
List: THistoryList;
S: String;
begin
HostApplicationGroupBox.Caption := dlgHostApplication;
HostApplicationBrowseBtn.Caption := '...';
@ -406,29 +403,6 @@ begin
DisplayGroupBox.Caption := dlgRunODisplay;
UseDisplayCheckBox.Caption := dlgRunOUsedisplay;
DisplayEdit.Parent := DisplayGroupBox;
// history list: WorkingDirectoryComboBox
List:=InputHistories.HistoryLists.GetList(hlWorkingDirectory,true);
WorkingDirectoryComboBox.Items.Assign(List);
// history list: UseLaunchingApplicationComboBox
List := InputHistories.HistoryLists.GetList(hlLaunchingApplication,true);
S := FindTerminalInPath;
if S <> '' then
List.AppendEntry(S);
{$IFNDEF MSWINDOWS}
S := FindTerminalInPath('gnome-terminal');
if S <> '' then
List.AppendEntry(S);
S := FindTerminalInPath('konsole');
if S <> '' then
List.AppendEntry(S);
{$ENDIF}
UseLaunchingApplicationComboBox.Items.Assign(List);
// history list: CmdLineParametersComboBox
List:=InputHistories.HistoryLists.GetList(hlCmdLineParameters,true);
CmdLineParametersComboBox.Items.Assign(List);
end;
procedure TRunParamsOptsDlg.SetupEnvironmentPage;
@ -642,16 +616,45 @@ begin
end;
procedure TRunParamsOptsDlg.SetOptions(NewOptions: TRunParamsOptions);
var
List: THistoryList;
S: String;
begin
fOptions := NewOptions;
// local
HostApplicationEdit.Text := fOptions.HostApplicationFilename;
CmdLineParametersComboBox.Text := fOptions.CmdLineParams;
UseLaunchingApplicationCheckBox.Checked := fOptions.UseLaunchingApplication;
SetComboBoxText(UseLaunchingApplicationComboBox,
fOptions.LaunchingApplicationPathPlusParams);
// WorkingDirectoryComboBox
List:=InputHistories.HistoryLists.GetList(hlWorkingDirectory,true);
List.AppendEntry(fOptions.WorkingDirectory);
WorkingDirectoryComboBox.Items.Assign(List);
WorkingDirectoryComboBox.Text := fOptions.WorkingDirectory;
// UseLaunchingApplicationComboBox
UseLaunchingApplicationCheckBox.Checked := fOptions.UseLaunchingApplication;
List := InputHistories.HistoryLists.GetList(hlLaunchingApplication,true);
List.AppendEntry(fOptions.LaunchingApplicationPathPlusParams);
S := FindTerminalInPath;
if S <> '' then
List.AppendEntry(S);
{$IFNDEF MSWINDOWS}
S := FindTerminalInPath('gnome-terminal');
if S <> '' then
List.AppendEntry(S);
S := FindTerminalInPath('konsole');
if S <> '' then
List.AppendEntry(S);
{$ENDIF}
UseLaunchingApplicationComboBox.Items.Assign(List);
UseLaunchingApplicationComboBox.Text:=fOptions.LaunchingApplicationPathPlusParams;
// CmdLineParametersComboBox
List:=InputHistories.HistoryLists.GetList(hlCmdLineParameters,true);
List.AppendEntry(fOptions.CmdLineParams);
CmdLineParametersComboBox.Items.Assign(List);
CmdLineParametersComboBox.Text := fOptions.CmdLineParams;
UseDisplayCheckBox.Checked := fOptions.UseDisplay;
DisplayEdit.Text := fOptions.Display;