paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-27 20:22:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed uninitialized style

Browse Source 
git-svn-id: trunk@2571 -
This commit is contained in:
mattias 2002-08-17 23:41:29 +00:00
parent ecef43463f
commit c7336736da
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/speedbutton.inc
View File

@ -335,7 +335,6 @@ begin
UpdateState(false); UpdateState(false);
if FGlyph=nil then exit; if FGlyph=nil then exit;
// PaintRect := Rect(0, 0, Width, Height);
PaintRect:= ClientRect; PaintRect:= ClientRect;
{if Transparent and not (csDesigning in ComponentState) then {if Transparent and not (csDesigning in ComponentState) then
@ -344,6 +343,7 @@ begin
BrushStyle:= bsSolid;} BrushStyle:= bsSolid;}
FLastDrawFlags:=GetDrawFlags; FLastDrawFlags:=GetDrawFlags;
//writeln('TSpeedbutton.Paint ',Name,':',ClassName,' Parent.Name=',Parent.Name);
DrawFrameControl(Canvas.Handle, PaintRect, DFC_BUTTON, FLastDrawFlags); DrawFrameControl(Canvas.Handle, PaintRect, DFC_BUTTON, FLastDrawFlags);
GlyphWidth:= TButtonGlyph(FGlyph).Glyph.Width; GlyphWidth:= TButtonGlyph(FGlyph).Glyph.Width;
@ -704,6 +704,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.35 2003/02/16 01:40:43 mattias
fixed uninitialized style
Revision 1.34 2003/02/06 20:46:51 mattias Revision 1.34 2003/02/06 20:46:51 mattias
default fpc src dirs and clean ups default fpc src dirs and clean ups