paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 17:20:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed removing TSpeedButton

Browse Source 
git-svn-id: trunk@2391 -
This commit is contained in:
lazarus 2002-08-17 23:41:19 +00:00
parent 1057c266a2
commit 41ae32b3ad
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/speedbutton.inc
View File

@ -59,7 +59,7 @@ end;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
destructor TSpeedbutton.Destroy; destructor TSpeedbutton.Destroy;
begin begin
FGlyph.Free; FreeAndNil(FGlyph);
inherited Destroy; inherited Destroy;
end; end;
@ -290,6 +290,7 @@ begin
else FState := bsUp; else FState := bsUp;
end; end;
end; end;
if FGlyph=nil then exit;
PaintRect := Bounds(Left, Top, Width, Height); PaintRect := Bounds(Left, Top, Width, Height);
// PaintRect := Rect(0, 0, Width, Height); // PaintRect := Rect(0, 0, Width, Height);
@ -656,6 +657,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.25 2002/09/06 16:14:19 lazarus
MG: fixed removing TSpeedButton
Revision 1.24 2002/09/03 22:31:25 lazarus Revision 1.24 2002/09/03 22:31:25 lazarus
MG: removed old workaround in TSpeedButton MG: removed old workaround in TSpeedButton