paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 09:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Removed debugln() from TMenuItem.InternalRethinkLines

Browse Source
This commit is contained in:
Željan Rikalo 2024-09-07 12:46:09 +02:00
parent de24da1877
commit b83d086ebd
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/menuitem.inc
View File

@ -350,7 +350,7 @@ var
LLastVisibleItem: TMenuItem;
I: Integer;
begin
debugln(['TMenuItem.InternalRethinkLines, AForced=',AForced]);
//debugln(['TMenuItem.InternalRethinkLines, AForced=',AForced]);
Result := False;
if (csDesigning in ComponentState) then
Exit;
@ -370,7 +370,7 @@ begin
begin
LItem.Visible := not LLastVisibleIsLine;
Result := True;
debugln(['TMenuItem.InternalRethinkLines: hiding separator with name "',LItem.Name,'"']);
//debugln(['TMenuItem.InternalRethinkLines: hiding separator with name "',LItem.Name,'"']);
end;
end;
@ -387,7 +387,7 @@ begin
begin
LLastVisibleItem.Visible := False;
Result := True;
debugln(['TMenuItem.InternalRethinkLines: hiding separator with name "',LItem.Name,'"']);
//debugln(['TMenuItem.InternalRethinkLines: hiding separator with name "',LItem.Name,'"']);
end;
end
else
@ -400,7 +400,7 @@ begin
begin
LItem.Visible := True;
Result := True;
debugln(['TMenuItem.InternalRethinkLines: unhiding separator with name "',LItem.Name,'"']);
//debugln(['TMenuItem.InternalRethinkLines: unhiding separator with name "',LItem.Name,'"']);
end;
end;
end;