paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 05:09:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

TCustomLabel: fix DoDrawText selecting Font for the Canvas

Browse Source 
git-svn-id: trunk@64191 -
This commit is contained in:
ondrej 2020-12-09 15:04:26 +00:00
parent 453f156da7
commit d7ef9f3f70
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/customlabel.inc
View File

@ -112,20 +112,20 @@ var
Rect2: TRect;
begin
LabelText := GetLabelText;
OldFontColor := Font.Color;
OldFontColor := Canvas.Font.Color;
if not IsEnabled and (Flags and DT_CALCRECT = 0) then
if ThemeServices.ThemesEnabled then
Font.Color := clGrayText
Canvas.Font.Color := clGrayText
else
begin
Font.Color := clBtnHighlight;
Canvas.Font.Color := clBtnHighlight;
Rect2 := Rect;
OffsetRect(Rect2, 1, 1);
DrawText(Canvas.Handle, PChar(LabelText), Length(LabelText), Rect2, Flags);
Font.Color := clBtnShadow;
Canvas.Font.Color := clBtnShadow;
end;
DrawText(Canvas.Handle, PChar(LabelText), Length(LabelText), Rect, Flags);
Font.Color := OldFontColor;
Canvas.Font.Color := OldFontColor;
end;
procedure TCustomLabel.SetAlignment(Value : TAlignment);