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

LCL: speedbutton fixes (bug #8635)

Browse Source 
* fixed font after button has been disabled
* move text down and right, if button is pressed

git-svn-id: trunk@10906 -
This commit is contained in:
vincents 2007-04-06 19:08:16 +00:00
parent 35eb65af02
commit 62397e5dc3
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/include/speedbutton.inc
View File

@ -574,12 +574,15 @@ begin
TXTStyle.ShowPrefix := ShowAccelChar;
TXTStyle.Alignment := taLeftJustify;
TXTStyle.Layout := tlTop;
// set color here, otherwise SystemFont is wrong if the button was disabled before
Canvas.Font.Color := Font.Color;
TXTStyle.SystemFont := Canvas.Font.IsDefault;//Match System Default Style
With PaintRect, OffsetCap do begin
Left := Left + X;
Top := Top + Y;
end;
If not Enabled then begin
Canvas.Font.Color := clBtnHighlight;
OffsetRect(PaintRect, 1, 1);
@ -587,8 +590,12 @@ begin
Canvas.Font.Color := clBtnShadow;
OffsetRect(PaintRect, -1, -1);
end
else Canvas.Font.Color := Font.Color;
//DebugLn('TCustomSpeedButton.Paint PaintRect=',PaintRect.Left,',',PaintRect.TOp,',',PaintRect.Right,',',PaintRect.Bottom,caption);
else begin
// if pushed, move text 1 pixel right and down
if (FLastDrawFlags and DFCS_PUSHED) <>0 then
OffsetRect(PaintRect, 1, 1);
end;
//DebugLn(['TCustomSpeedButton.Paint PaintRect=',PaintRect.Left,',',PaintRect.TOp,',',PaintRect.Right,',',PaintRect.Bottom,caption,', ', TXTStyle.SystemFont]);
Canvas.TextRect(PaintRect, PaintRect.Left, PaintRect.Top, Caption, TXTStyle);
end;