paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 14:38:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: THintWindow: made some protected methods virtual

Browse Source
This commit is contained in:
mattias 2021-11-09 15:00:41 +01:00
parent 79e6efe7eb
commit 6221e1c546
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/forms.pp
View File

@ -922,17 +922,17 @@ type
protected
class procedure WSRegisterClass; override;
procedure WMNCHitTest(var Message: TLMessage); message LM_NCHITTEST;
procedure ActivateSub;
procedure ActivateSub; virtual;
procedure DoShowWindow; override;
procedure UpdateRegion;
procedure UpdateRegion; virtual;
procedure SetColor(Value: TColor); override;
function UseBGThemes: Boolean;
function UseFGThemes: Boolean;
function UseBGThemes: Boolean; virtual;
function UseFGThemes: Boolean; virtual;
procedure Paint; override;
private class var
FSysHintFont: TFont;
protected
class function SysHintFont: TFont;
class function SysHintFont: TFont; virtual;
public
class destructor Destroy;
public