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

lcl: hint window: move paint to protected

Browse Source 
git-svn-id: trunk@55602 -
This commit is contained in:
ondrej 2017-07-30 08:40:28 +00:00
parent 48e99ce2b5
commit 9fc42932fb
1 changed files with 1 additions and 1 deletions

2
lcl/forms.pp
View File

@ -896,6 +896,7 @@ type
procedure SetColor(Value: TColor); override;
function UseBGThemes: Boolean;
function UseFGThemes: Boolean;
procedure Paint; override;
private class var
FSysHintFont: TFont;
protected
@ -917,7 +918,6 @@ type
procedure InitializeWnd; override;
function IsHintMsg(Msg: TMsg): Boolean; virtual;
procedure ReleaseHandle;
procedure Paint; override;
procedure SetBounds(ALeft, ATop, AWidth, AHeight: integer); override;
class function GetControlClassDefaultSize: TSize; override;
public