paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 12:59:16 +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 protected
class procedure WSRegisterClass; override; class procedure WSRegisterClass; override;
procedure WMNCHitTest(var Message: TLMessage); message LM_NCHITTEST; procedure WMNCHitTest(var Message: TLMessage); message LM_NCHITTEST;
procedure ActivateSub; procedure ActivateSub; virtual;
procedure DoShowWindow; override; procedure DoShowWindow; override;
procedure UpdateRegion; procedure UpdateRegion; virtual;
procedure SetColor(Value: TColor); override; procedure SetColor(Value: TColor); override;
function UseBGThemes: Boolean; function UseBGThemes: Boolean; virtual;
function UseFGThemes: Boolean; function UseFGThemes: Boolean; virtual;
procedure Paint; override; procedure Paint; override;
private class var private class var
FSysHintFont: TFont; FSysHintFont: TFont;
protected protected
class function SysHintFont: TFont; class function SysHintFont: TFont; virtual;
public public
class destructor Destroy; class destructor Destroy;
public public