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

MG: small bugfixes

Browse Source 
git-svn-id: trunk@2405 -
This commit is contained in:
lazarus 2002-08-17 23:41:20 +00:00
parent ef850cf18d
commit 4af2550576
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/speedbutton.inc
View File

@ -299,7 +299,7 @@ begin
BrushStyle:= bsClear
else
BrushStyle:= bsSolid;}
DrawFlags:=DFCS_BUTTONPUSH;
if Flat and (not (csDesigning in ComponentState)) then inc(DrawFlags,DFCS_FLAT);
if FState in [bsDown, bsExclusive] then inc(DrawFlags,DFCS_PUSHED);
@ -400,6 +400,8 @@ begin
FGlyph.Draw(Canvas, PaintRect, Offset, FState, Transparent, 0);
if Caption <> '' then begin
Canvas.Brush.Color:=clBlue;
Canvas.FillRect(PaintRect);
TXTStyle := Canvas.TextStyle;
TXTStyle.Opaque := False;
TXTStyle.Clipping := True;
@ -657,6 +659,9 @@ end;
{ =============================================================================
$Log$
Revision 1.26 2002/09/12 15:35:57 lazarus
MG: small bugfixes
Revision 1.25 2002/09/06 16:14:19 lazarus
MG: fixed removing TSpeedButton