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

LCL: hint window: use Font instead of Canvas.Font. Issue #31443

Browse Source 
git-svn-id: trunk@54293 -
This commit is contained in:
ondrej 2017-02-27 14:27:52 +00:00
parent dec8fb4e29
commit 2bac2f4e5a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/hintwindow.inc
View File

@ -27,7 +27,7 @@ begin
fCompStyle := csHintWindow; fCompStyle := csHintWindow;
Parent := nil; Parent := nil;
Color := clInfoBk; Color := clInfoBk;
Canvas.Font := Screen.HintFont; Font := Screen.HintFont;
Canvas.Brush.Style := bsClear; Canvas.Brush.Style := bsClear;
FAlignment := taLeftJustify; FAlignment := taLeftJustify;
BorderStyle := bsNone; BorderStyle := bsNone;