paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 23:49:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: THintWindow: public mouse messages

Browse Source 
git-svn-id: trunk@52361 -
This commit is contained in:
ondrej 2016-05-23 15:24:23 +00:00
parent 2317b38b42
commit 4c522305c1
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/forms.pp
View File

@ -883,6 +883,9 @@ type
class function GetControlClassDefaultSize: TSize; override;
public
property OnMouseDown; // Public access may be needed.
property OnMouseUp;
property OnMouseMove;
property OnMouseLeave;
property Alignment: TAlignment read FAlignment write FAlignment;
property HintRect: TRect read FHintRect write FHintRect;
property HintRectAdjust: TRect read FHintRect write SetHintRectAdjust;