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

- tiny changes in non transparent speedbutton painting

Browse Source 
git-svn-id: trunk@11162 -
This commit is contained in:
paul 2007-05-18 02:23:55 +00:00
parent e45bc069f0
commit a3507ade6c
2 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/speedbutton.inc
View File

@ -546,11 +546,6 @@ begin
end; end;
end; end;
if not Transparent then
begin
Canvas.Brush.Color := Color;
Canvas.FillRect(PaintRect);
end;
DrawGlyph(Canvas, PaintRect, Offset, FState, Transparent, 0); DrawGlyph(Canvas, PaintRect, Offset, FState, Transparent, 0);
if FShowCaption and (Caption <> '') then if FShowCaption and (Caption <> '') then
begin begin

3
lcl/widgetset/wsbuttons.pp
View File

@ -155,8 +155,7 @@ begin
end; end;
end; end;
if (not ASpeedButton.Transparent) and ASpeedButton.Enabled and if (not ASpeedButton.Transparent) and ASpeedButton.Enabled then
(ASpeedButton.Color <> clBtnFace) then
begin begin
ASpeedButton.Canvas.Brush.Color := ASpeedButton.Color; ASpeedButton.Canvas.Brush.Color := ASpeedButton.Color;
ASpeedButton.Canvas.FillRect(ARect); ASpeedButton.Canvas.FillRect(ARect);