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

added export procedure specifier

Browse Source 
git-svn-id: trunk@2994 -
This commit is contained in:
mattias 2002-08-18 08:56:51 +00:00
parent 162b3df048
commit a16a11a401
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/main.pp
View File

@ -363,7 +363,7 @@ type
protected
procedure ToolButtonClick(Sender: TObject);
procedure OnApplyWindowLayout(ALayout: TIDEWindowLayout);
procedure AddRecentFileToEnvironment(const AFilename: string);
procedure AddRecentProjectFileToEnvironment(const AFilename: string);
// methods for start
procedure LoadGlobalOptions;
@ -2235,12 +2235,12 @@ begin
end else if Sender is TMenuItem then begin
AFileName:=ExpandFilename(TMenuItem(Sender).Caption);
if DoOpenProjectFile(AFilename,[ofAddToRecent])=mrOk then begin
AddRecentFileToEnvironment(AFilename);
AddRecentProjectFileToEnvironment(AFilename);
end else begin
// open failed
if not FileExists(AFilename) then begin
EnvironmentOptions.RemoveFromRecentProjectFiles(AFilename);
AddRecentFileToEnvironment(AFilename);
AddRecentProjectFileToEnvironment(AFilename);
end;
end;
end;
@ -8617,7 +8617,7 @@ begin
end;
end;
procedure TMainIDE.AddRecentFileToEnvironment(const AFilename: string);
procedure TMainIDE.AddRecentProjectFileToEnvironment(const AFilename: string);
begin
EnvironmentOptions.AddToRecentProjectFiles(AFilename);
SetRecentProjectFilesMenu;
@ -8653,6 +8653,9 @@ end.
{ =============================================================================
$Log$
Revision 1.556 2003/05/06 08:40:57 mattias
added export procedure specifier
Revision 1.555 2003/05/05 18:45:32 mattias
localization