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

LCL: commented debugLn()

Browse Source
This commit is contained in:
Željan Rikalo 2024-09-11 17:11:09 +02:00
parent 0a25d6933a
commit dda392d165
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/include/menuitem.inc
View File

@ -354,7 +354,7 @@ begin
if (csDesigning in ComponentState) then if (csDesigning in ComponentState) then
Exit; Exit;
HideSeps := GetAutoLineReduction; HideSeps := GetAutoLineReduction;
debugln(['TMenuItem.InternalRethinkLines, AForced=',AForced,', HideSeps=',HideSeps]); // debugln(['TMenuItem.InternalRethinkLines, AForced=',AForced,', HideSeps=',HideSeps]);
if {AForced or} HideSeps then if {AForced or} HideSeps then
begin begin
LastVisibleItem := nil; LastVisibleItem := nil;
@ -366,12 +366,12 @@ begin
begin begin
if CurItem.Visible then if CurItem.Visible then
begin begin
debugln(['TMenuItem.InternalRethinkLines: LastVisibleItem=',dbgsname(LastVisibleItem)]); // debugln(['TMenuItem.InternalRethinkLines: LastVisibleItem=',dbgsname(LastVisibleItem)]);
if (LastVisibleItem = nil) or (LastVisibleItem.IsLine) or (I = Count-1) then if (LastVisibleItem = nil) or (LastVisibleItem.IsLine) or (I = Count-1) then
begin begin
CurItem.Visible := False; CurItem.Visible := False;
Result := True; Result := True;
debugln(['TMenuItem.InternalRethinkLines: hiding separator with name "',CurItem.Name,'"']); // debugln(['TMenuItem.InternalRethinkLines: hiding separator with name "',CurItem.Name,'"']);
end; end;
end end
else else
@ -382,7 +382,7 @@ begin
begin begin
CurItem.Visible := True; CurItem.Visible := True;
Result := True; Result := True;
debugln(['TMenuItem.InternalRethinkLines: UNhiding separator with name "',CurItem.Name,'"']); // debugln(['TMenuItem.InternalRethinkLines: UNhiding separator with name "',CurItem.Name,'"']);
end; end;
end; end;
end; end;
@ -394,7 +394,7 @@ begin
begin begin
LastVisibleItem.Visible := False; LastVisibleItem.Visible := False;
Result := True; Result := True;
debugln(['TMenuItem.InternalRethinkLines: hiding LastVisibleItem with name "',LastVisibleItem.Name,'"']); // debugln(['TMenuItem.InternalRethinkLines: hiding LastVisibleItem with name "',LastVisibleItem.Name,'"']);
end; end;
end// if AForced or HideSep end// if AForced or HideSep
else else
@ -407,7 +407,7 @@ begin
begin begin
CurItem.Visible := True; CurItem.Visible := True;
Result := True; Result := True;
debugln(['TMenuItem.InternalRethinkLines: unhiding separator with name "',CurItem.Name,'"']); // debugln(['TMenuItem.InternalRethinkLines: unhiding separator with name "',CurItem.Name,'"']);
end; end;
end; end;
end; end;