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

autoedit for grids

Browse Source 
git-svn-id: trunk@3002 -
This commit is contained in:
mattias 2002-08-18 08:56:55 +00:00
parent 38a1982b74
commit 3f1acd6ac8
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/main.pp
View File

@ -4907,7 +4907,7 @@ begin
Result:=Project1.WriteProject([],'');
if Result=mrAbort then exit;
EnvironmentOptions.LastSavedProjectFile:=Project1.ProjectInfoFile;
EnvironmentOptions.Save(false);
AddRecentProjectFileToEnvironment(Project1.ProjectInfoFile);
SaveIncludeLinks;
UpdateCaption;
if Result=mrAbort then exit;
@ -5022,11 +5022,8 @@ begin
if Result=mrAbort then exit;
end;
if ofAddToRecent in Flags then begin
EnvironmentOptions.AddToRecentProjectFiles(AFileName);
SetRecentProjectFilesMenu;
SaveEnvironment;
end;
if ofAddToRecent in Flags then
AddRecentProjectFileToEnvironment(AFileName);
// close the old project
if SomethingOfProjectIsModified then begin
@ -5381,7 +5378,7 @@ begin
s:=Format(lisTheFile, ['"', ActiveUnitInfo.Filename, '"'])
else
s:=Format(lisTheFile, ['"', ActiveSourceEditor.PageName, '"']);
s:=Format(lisisAlreadyPartOfTheProject1, [s]);
s:=Format(lisisAlreadyPartOfTheProject, [s]);
MessageDlg(s,mtInformation,[mbOk],0);
end;
end else begin
@ -8668,6 +8665,9 @@ end.
{ =============================================================================
$Log$
Revision 1.560 2003/05/08 21:29:34 mattias
autoedit for grids
Revision 1.559 2003/05/07 18:55:43 mattias
fixed localization