mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-10 14:38:18 +02:00
bug 1152: added debug code
git-svn-id: trunk@11437 -
This commit is contained in:
parent
12b5287922
commit
d81144b51a
@ -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;
|
||||||
|
@ -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;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user