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

IDE/Toolbar: Respect zero max count when displaying file list in IDE toolbars dropdown. Merge request !414.

Browse Source
This commit is contained in:
n7800 2024-12-31 01:05:21 +05:00 committed by Juha
parent 43a9af055d
commit 5963c7d45f
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/mainbase.pas
View File

@ -525,12 +525,10 @@ procedure TOpenFileToolButton.RefreshMenu(Sender: TObject);
var var
i: integer; i: integer;
begin begin
i := 0; if MaxCount <= 0 then
while (i < List.Count) and (i < MaxCount) do MaxCount := List.Count;
begin for i := 0 to Min(MaxCount, List.Count) - 1 do
AddFile(List[i], AOnClick); AddFile(List[i], AOnClick);
inc(i);
end;
end; end;
begin begin