paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 03:37:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: reduce debug output

Browse Source 
git-svn-id: trunk@19463 -
This commit is contained in:
paul 2009-04-17 01:34:25 +00:00
parent b6c3f2f65d
commit 87e1d4d117
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/toolbutton.inc
View File

@ -45,10 +45,10 @@ end;
procedure TToolButtonActionLink.SetImageIndex(Value: Integer);
begin
DebugLn(['TToolButtonActionLink.SetImageIndex A ',ClassName,' Client=',
{DebugLn(['TToolButtonActionLink.SetImageIndex A ',ClassName,' Client=',
TToolButton(FClient).Name,' IsImageIndexLinked=',
IsImageIndexLinked,' Old=',
TToolButton(FClient).ImageIndex,' New=',Value]);
TToolButton(FClient).ImageIndex,' New=',Value]);}
if IsImageIndexLinked then TToolButton(FClient).ImageIndex := Value;
end;