paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 13:50:06 +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; DrawFlags, GlyphWidth, GlyphHeight: Integer;
Offset, OffsetCap: TPoint; Offset, OffsetCap: TPoint;
ClientSize, TotalSize, TextSize: TSize; ClientSize, TotalSize, TextSize: TSize;
BrushStyle : TBrushStyle; //BrushStyle : TBrushStyle;
M, S : integer; M, S : integer;
begin begin
@ -276,10 +276,10 @@ begin
PaintRect := Bounds(Left, Top, Width, Height); PaintRect := Bounds(Left, Top, Width, Height);
// PaintRect := Rect(0, 0, 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 BrushStyle:= bsClear
else else
BrushStyle:= bsSolid; BrushStyle:= bsSolid;}
Canvas.Brush.Color:= clBtnFace; Canvas.Brush.Color:= clBtnFace;
Canvas.FillRect(PaintRect); Canvas.FillRect(PaintRect);
@ -653,6 +653,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.13 2002/02/25 17:08:50 lazarus
MG: reduced hints
Revision 1.12 2002/02/24 20:51:24 lazarus Revision 1.12 2002/02/24 20:51:24 lazarus
Improved TSpeedButton (Glyph, Spacing, Margin, drawing) Improved TSpeedButton (Glyph, Spacing, Margin, drawing)
Added PageCount to TNotebook Added PageCount to TNotebook