paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 09:19:22 +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

5
lcl/include/speedbutton.inc
View File

@ -400,6 +400,8 @@ begin
FGlyph.Draw(Canvas, PaintRect, Offset, FState, Transparent, 0); FGlyph.Draw(Canvas, PaintRect, Offset, FState, Transparent, 0);
if Caption <> '' then begin if Caption <> '' then begin
Canvas.Brush.Color:=clBlue;
Canvas.FillRect(PaintRect);
TXTStyle := Canvas.TextStyle; TXTStyle := Canvas.TextStyle;
TXTStyle.Opaque := False; TXTStyle.Opaque := False;
TXTStyle.Clipping := True; TXTStyle.Clipping := True;
@ -657,6 +659,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.26 2002/09/12 15:35:57 lazarus
MG: small bugfixes
Revision 1.25 2002/09/06 16:14:19 lazarus Revision 1.25 2002/09/06 16:14:19 lazarus
MG: fixed removing TSpeedButton MG: fixed removing TSpeedButton