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

LCL: in TMenuItem.InternalRethinkLines un-hide a separator if a previously hidden (but now visible) menu-item was between separators. Part of issue #41028.

Browse Source
This commit is contained in:
Bart 2024-09-10 18:49:29 +02:00
parent 9a1bfd8663
commit 3afd9c5762
1 changed files with 27 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
lcl/include/menuitem.inc
View File

@ -362,19 +362,40 @@ begin
for I:= 0 to Count - 1 do
begin
CurItem := Items[I];
if CurItem.IsLine and CurItem.Visible then
if CurItem.IsLine {and CurItem.Visible} then
begin
debugln(['TMenuItem.InternalRethinkLines: LastVisibleItem=',dbgsname(LastVisibleItem)]);
if (LastVisibleItem = nil) or (LastVisibleItem.IsLine) or (I = Count-1) then
if CurItem.Visible then
begin
CurItem.Visible := False;
Result := True;
debugln(['TMenuItem.InternalRethinkLines: hiding separator with name "',CurItem.Name,'"']);
debugln(['TMenuItem.InternalRethinkLines: LastVisibleItem=',dbgsname(LastVisibleItem)]);
if (LastVisibleItem = nil) or (LastVisibleItem.IsLine) or (I = Count-1) then
begin
CurItem.Visible := False;
Result := True;
debugln(['TMenuItem.InternalRethinkLines: hiding separator with name "',CurItem.Name,'"']);
end;
end
else
begin
//if a previously hidden item is now visible and it was between separators
// we may need to unhide the separator now
if (LastVisibleItem <> nil) and (not LastVisibleItem.IsLine) then
begin
CurItem.Visible := True;
Result := True;
debugln(['TMenuItem.InternalRethinkLines: UNhiding separator with name "',CurItem.Name,'"']);
end;
end;
end;
if CurItem.Visible then
LastVisibleItem := CurItem;
end;//for
//we may have accidently unhidden a separator which turns out to be the last visible item: we must hide that
if (LastVisibleItem <> nil) and (LastVisibleItem.IsLine) then
begin
LastVisibleItem.Visible := False;
Result := True;
debugln(['TMenuItem.InternalRethinkLines: hiding LastVisibleItem with name "',LastVisibleItem.Name,'"']);
end;
end// if AForced or HideSep
else
begin