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

ide: restore run params dialog size

Browse Source
This commit is contained in:
mattias 2023-06-21 10:06:35 +02:00
parent d3aee748ac
commit fa2114cc78
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/runparamsopts.pas
View File

@ -52,7 +52,7 @@ uses
Controls, Forms, Buttons, StdCtrls, ComCtrls, Dialogs, ButtonPanel, ExtCtrls, Controls, Forms, Buttons, StdCtrls, ComCtrls, Dialogs, ButtonPanel, ExtCtrls,
// IdeIntf // IdeIntf
IdeIntfStrConsts, BaseIDEIntf, IDEHelpIntf, ProjectIntf, IDEDialogs, InputHistory, IdeIntfStrConsts, BaseIDEIntf, IDEHelpIntf, ProjectIntf, IDEDialogs, InputHistory,
IDEImagesIntf, MacroIntf, IDEImagesIntf, IDEWindowIntf, MacroIntf,
// LazUtils // LazUtils
LazFileUtils, LazFileCache, LazUTF8, Laz2_XMLCfg, LazFileUtils, LazFileCache, LazUTF8, Laz2_XMLCfg,
// IdeConfig // IdeConfig
@ -948,6 +948,7 @@ procedure TRunParamsOptsDlg.FormClose(Sender: TObject;
var CloseAction: TCloseAction); var CloseAction: TCloseAction);
begin begin
MiscellaneousOptions.ShowCompOptMultiLine:=PreviewMultilineCheckBox.Checked; MiscellaneousOptions.ShowCompOptMultiLine:=PreviewMultilineCheckBox.Checked;
IDEDialogLayoutList.SaveLayout(Self);
end; end;
procedure TRunParamsOptsDlg.FormCreate(Sender: TObject); procedure TRunParamsOptsDlg.FormCreate(Sender: TObject);
@ -957,6 +958,9 @@ begin
CmdLineParametersComboBox.DropDownCount := EnvironmentOptions.DropDownCount; CmdLineParametersComboBox.DropDownCount := EnvironmentOptions.DropDownCount;
UseLaunchingApplicationComboBox.DropDownCount := EnvironmentOptions.DropDownCount; UseLaunchingApplicationComboBox.DropDownCount := EnvironmentOptions.DropDownCount;
WorkingDirectoryComboBox.DropDownCount := EnvironmentOptions.DropDownCount; WorkingDirectoryComboBox.DropDownCount := EnvironmentOptions.DropDownCount;
AutoSize:=IDEDialogLayoutList.Find(Self,false)=nil;
IDEDialogLayoutList.ApplyLayout(Self);
end; end;
procedure TRunParamsOptsDlg.HelpButtonClick(Sender: TObject); procedure TRunParamsOptsDlg.HelpButtonClick(Sender: TObject);