paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-10 11:38:49 +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))) and not (csNoDesignVisible in ControlStyle)))
then begin then begin
Rect := BoundsRect; 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 InvalidateRect(Parent.Handle, @Rect, not (CtrlIsOpaque or
(csOpaque in Parent.ControlStyle) or BackgroundClipped)); (csOpaque in Parent.ControlStyle) or BackgroundClipped));
end; end;

3
lcl/include/speedbutton.inc
View File

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