paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 09:59:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Fix showing of session in the new build mode window.

Browse Source 
git-svn-id: trunk@41315 -
This commit is contained in:
juha 2013-05-20 10:22:19 +00:00
parent aabc580b13
commit 00bd2e9ee9
2 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/buildmodesmanager.pas
View File

@ -70,7 +70,7 @@ var
OnLoadIDEOptionsHook: TOnLoadIDEOptions;
OnSaveIDEOptionsHook: TOnSaveIDEOptions;
function ShowBuildModesDlg: TModalResult;
function ShowBuildModesDlg(aShowSession: Boolean): TModalResult;
procedure SwitchBuildMode(aBuildModeID: string);
procedure UpdateBuildModeCombo(aCombo: TComboBox);
@ -79,7 +79,7 @@ implementation
{$R *.lfm}
function ShowBuildModesDlg: TModalResult;
function ShowBuildModesDlg(aShowSession: Boolean): TModalResult;
var
frm: TBuildModesForm;
begin
@ -91,7 +91,7 @@ begin
// Copy to dialog
frm.fBuildModes.Assign(Project1.BuildModes, True);
frm.SetActiveBuildModeByID(Project1.ActiveBuildMode);
frm.fShowSession:=Project1.SessionStorage in [pssInProjectDir,pssInIDEConfig];
frm.fShowSession:=aShowSession;
// Show the form. Let user add / edit / delete.
Result := frm.ShowModal;
if Result = mrOk then

17
ide/ideoptionsdlg.pas
View File

@ -31,11 +31,11 @@ interface
uses
Classes, SysUtils, Controls, Forms, ComCtrls, LCLProc, LCLType,
Buttons, ButtonPanel, ExtCtrls, EditBtn, StdCtrls, Dialogs,
TreeFilterEdit, IDEWindowIntf, IDEOptionsIntf, IDECommands, IDEHelpIntf,
Buttons, ButtonPanel, ExtCtrls, EditBtn, StdCtrls, Dialogs, TreeFilterEdit,
IDEWindowIntf, IDEOptionsIntf, IDECommands, IDEHelpIntf, ProjectIntf,
EnvironmentOpts, LazarusIDEStrConsts, CompOptsIntf, EditorOptions,
{$IFDEF NewBuildModeWindow}
BuildModesManager; //project_save_options;
BuildModesManager, project_save_options;
{$ELSE}
BuildModesEditor;
{$ENDIF}
@ -242,9 +242,18 @@ begin
end;
procedure TIDEOptionsDialog.BuildModeManageButtonClick(Sender: TObject);
{$IFDEF NewBuildModeWindow}
var
ProjectSaveOptions: TProjectSaveOptionsFrame;
ShowSes: Boolean;
{$ENDIF}
begin
{$IFDEF NewBuildModeWindow}
if ShowBuildModesDlg = mrOK then
ProjectSaveOptions:=TProjectSaveOptionsFrame(FindEditor(TProjectSaveOptionsFrame));
Assert(Assigned(ProjectSaveOptions),
'TIDEOptionsDialog.BuildModeManageButtonClick: ProjectSaveOptions is not assigned');
ShowSes:=ProjectSaveOptions.GetSessionLocation in [pssInIDEConfig,pssInProjectDir];
if ShowBuildModesDlg(ShowSes) = mrOK then
UpdateBuildModeCombo(BuildModeComboBox);
{$ENDIF}
end;