paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 15:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Apply patch from Margers to fix bug ID #6496

Browse Source 
git-svn-id: trunk@40804 -
This commit is contained in:
michael 2019-01-08 04:15:38 +00:00
parent db29d01c15
commit a9696520fb
2 changed files with 22 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
packages/ide/fpide.pas
View File

@ -1657,7 +1657,10 @@ procedure TIDEApp.UpdateRecentFileList;
var P: PMenuItem;
{ID,}I: word;
FileMenu: PMenuItem;
R: TRect;
AdjustRecentCount : word;
begin
if not assigned(MenuBar) then exit;
{ ID:=cmRecentFileBase;}
FileMenu:=SearchSubMenu(MenuBar^.Menu,menuFile);
repeat
@ -1683,13 +1686,25 @@ begin
if (P<>nil) and IsSeparator(P) then
RemoveMenuItem(FileMenu^.SubMenu,P);
if RecentFileCount>0 then
AppendMenuItem(FileMenu^.SubMenu,NewLine(nil));
for I:=1 to RecentFileCount do
GetExtent(R);
AdjustRecentCount :=0;
{calculate how much lines on screen for reacent files can be used }
if r.b.y-r.a.y -19 > 0 then AdjustRecentCount:=r.b.y-r.a.y -19;
{only if there is enough space then show all reacent files }
{else cut list shorter }
if RecentFileCount < AdjustRecentCount then
AdjustRecentCount:=RecentFileCount;
if AdjustRecentCount>0 then
begin
P:=NewItem('~'+IntToStr(I)+'~ '+ShrinkPath(SmartPath(RecentFiles[I].FileName),27),' ',
kbNoKey,cmRecentFileBase+I,hcRecentFileBase+I,nil);
AppendMenuItem(FileMenu^.SubMenu,P);
AppendMenuItem(FileMenu^.SubMenu,NewLine(nil));
for I:=1 to AdjustRecentCount do
begin
P:=NewItem('~'+IntToStr(I)+'~ '+ShrinkPath(SmartPath(RecentFiles[I].FileName),27),' ',
kbNoKey,cmRecentFileBase+I,hcRecentFileBase+I,nil);
AppendMenuItem(FileMenu^.SubMenu,P);
end;
end;
end;

1
packages/ide/fpmwnd.inc
View File

@ -38,6 +38,7 @@ begin
Mode.col:=x;
Mode.row:=y;
SetScreenVideoMode(Mode);
UpdateRecentFileList; {ensure file menu not go over screen}
Redraw;
end;
end;