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

bug 1152: added debug code

Browse Source 
git-svn-id: trunk@11437 -
This commit is contained in:
mattias 2007-07-06 13:41:29 +00:00
parent 12b5287922
commit d81144b51a
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/control.inc
View File

@ -2510,7 +2510,9 @@ begin
and not (csNoDesignVisible in ControlStyle)))
then begin
Rect := BoundsRect;
//DebugLn(['TControl.InvalidateControl Rect=',dbgs(Rect)]);
{$IFDEF VerboseBug1152}
DebugLn(['TControl.InvalidateControl ',DbgSName(Self),' Rect=',dbgs(Rect)]);
{$ENDIF}
InvalidateRect(Parent.Handle, @Rect, not (CtrlIsOpaque or
(csOpaque in Parent.ControlStyle) or BackgroundClipped));
end;

3
lcl/include/speedbutton.inc
View File

@ -486,6 +486,9 @@ var
SIndex : Longint;
TMP : String;
begin
{$IFDEF VerboseBug1152}
DebugLn(['TCustomSpeedButton.Paint ',DbgSName(Self)]);
{$ENDIF}
UpdateState(false);
if FGlyph=nil then exit;