paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 10:09:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Use ShrinkPas for RecentFiles

Browse Source
This commit is contained in:
pierre 1999-09-22 16:21:41 +00:00
parent 402b944d4b
commit 8d89660849
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

@ -731,7 +731,7 @@ begin
AppendMenuItem(FileMenu^.SubMenu,NewLine(nil)); AppendMenuItem(FileMenu^.SubMenu,NewLine(nil));
for I:=1 to RecentFileCount do for I:=1 to RecentFileCount do
begin begin
P:=NewItem('~'+IntToStr(I)+'~. '+SmartPath(RecentFiles[I].FileName),' ', P:=NewItem('~'+IntToStr(I)+'~. '+ShrinkPath(SmartPath(RecentFiles[I].FileName),27),' ',
kbNoKey,cmRecentFileBase+I,hcRecentFileBase+I,nil); kbNoKey,cmRecentFileBase+I,hcRecentFileBase+I,nil);
AppendMenuItem(FileMenu^.SubMenu,P); AppendMenuItem(FileMenu^.SubMenu,P);
end; end;
@ -847,7 +847,10 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.40 1999-09-22 13:04:31 pierre Revision 1.41 1999-09-22 16:21:41 pierre
* Use ShrinkPas for RecentFiles
Revision 1.40 1999/09/22 13:04:31 pierre
+ Close UserScreen to avoid store crash + Close UserScreen to avoid store crash
Revision 1.39 1999/09/21 17:09:00 pierre Revision 1.39 1999/09/21 17:09:00 pierre