paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 13:19:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* RecentFiles missed the last char

Browse Source
This commit is contained in:
pierre 1999-11-25 00:26:49 +00:00
parent 4ce0ed8b15
commit 7e23f37e6c
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/text/fpide.pas
View File

@ -738,7 +738,7 @@ begin
AppendMenuItem(FileMenu^.SubMenu,NewLine(nil));
for I:=1 to RecentFileCount do
begin
P:=NewItem('~'+IntToStr(I)+'~. '+ShrinkPath(SmartPath(RecentFiles[I].FileName),27),' ',
P:=NewItem('~'+IntToStr(I)+'~ '+ShrinkPath(SmartPath(RecentFiles[I].FileName),27),' ',
kbNoKey,cmRecentFileBase+I,hcRecentFileBase+I,nil);
AppendMenuItem(FileMenu^.SubMenu,P);
end;
@ -854,7 +854,10 @@ end;
END.
{
$Log$
Revision 1.43 1999-11-10 17:19:06 pierre
Revision 1.44 1999-11-25 00:26:49 pierre
* RecentFiles missed the last char
Revision 1.43 1999/11/10 17:19:06 pierre
* Use DosExecute from Fpredir unit
Revision 1.42 1999/10/27 12:10:42 pierre