paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 01:47:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: reduced hints

Browse Source 
git-svn-id: trunk@1458 -
This commit is contained in:
lazarus 2002-02-25 17:08:50 +00:00
parent ef4913819e
commit fbfb9e8cbf
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/speedbutton.inc
View File

@ -256,7 +256,7 @@ var
DrawFlags, GlyphWidth, GlyphHeight: Integer;
Offset, OffsetCap: TPoint;
ClientSize, TotalSize, TextSize: TSize;
BrushStyle : TBrushStyle;
//BrushStyle : TBrushStyle;
M, S : integer;
begin
@ -276,10 +276,10 @@ begin
PaintRect := Bounds(Left, Top, Width, Height);
// PaintRect := Rect(0, 0, Width, Height);
if Transparent and not (csDesigning in ComponentState) then
{if Transparent and not (csDesigning in ComponentState) then
BrushStyle:= bsClear
else
BrushStyle:= bsSolid;
BrushStyle:= bsSolid;}
Canvas.Brush.Color:= clBtnFace;
Canvas.FillRect(PaintRect);
@ -653,6 +653,9 @@ end;
{ =============================================================================
$Log$
Revision 1.13 2002/02/25 17:08:50 lazarus
MG: reduced hints
Revision 1.12 2002/02/24 20:51:24 lazarus
Improved TSpeedButton (Glyph, Spacing, Margin, drawing)
Added PageCount to TNotebook