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

Partially implemented Save Project As menu selection. CAW

Browse Source 
git-svn-id: trunk@180 -
This commit is contained in:
lazarus 2001-02-08 06:09:25 +00:00
parent a2e58fdb3b
commit 79445d5fa8
1 changed files with 58 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
ide/main.pp
View File

@ -1450,7 +1450,14 @@ Begin
//save and close the project
end;
//Create a new project
{TODO:
Display new project dialog to allow the type of project to be selected
Create the new project from a template for that project type
}
// This is temporary code until the project dialog and templates is created
Project.ProjectFile := 'Project1.lpr';
Project.MainUnit := 'Unit1';
@ -1520,6 +1527,12 @@ end;
Procedure TMainIDE.mnuOpenProjectClicked(Sender : TObject);
Begin
Assert(False, 'Trace:Open Project Clicked');
{TODO:
Display File Open dialog with .lpr as the filter
Put the selected file into a TProject
Open the project file and all unit files in the SourceNotebook
}
end;
Procedure TMainIDE.mnuSaveProjectClicked(Sender : TObject);
@ -1529,8 +1542,49 @@ Begin
end;
procedure TMainIDE.mnuSaveProjectAsClicked(Sender : TObject);
var
savdlg: TSaveDialog;
begin
Assert(False, 'Trace:Save Project As Clicked');
try
{TODO:
Display File Save dialog with .lpr as the filter
Put the selected filename into the TProject
Save the project file and all unit files
}
savdlg := TSaveDialog.Create(Self);
try
savdlg.Title := 'Save Project ' + Project.Title + ' as: ';
if (Project.ProjectFile <> '') then
begin
savdlg.Filename := Project.ProjectFile;
end
else
begin
if (SourceNotebook.ActiveFileName <> '') then
savdlg.Filename := SourceNotebook.ActiveFileName
else
savdlg.Filename := SourceNotebook.ActiveUnitName + '.lpr';
end;
if (savdlg.Execute) then
begin
Project.ProjectFile := savdlg.Filename;
Project.WriteProject;
{TODO:
Add code to fire OnSaveFile event somewhere????
if assigned(FOnSaveFile) then FOnSaveFile(TObject(SourceNotebook.GetActiveSE), Project.ProjectFile);
}
end
else
Exit;
finally
savdlg.Free;
end;
except
on E: Exception do WriteLN('Exception: ' + E.Message);
end;
end;
Procedure TMainIDE.mnuBuildProjectClicked(Sender : TObject);
@ -1625,6 +1679,9 @@ end.
{ =============================================================================
$Log$
Revision 1.58 2001/02/08 06:09:25 lazarus
Partially implemented Save Project As menu selection. CAW
Revision 1.57 2001/02/06 13:38:57 lazarus
Fixes from Mattias for EditorOPtions
Fixes to COmpiler that should allow people to compile if their path is set up.