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

LCL: added property MouseInClient for Delphi compatibility, deprecated MouseEntered, issue #32020

Browse Source 
git-svn-id: trunk@55353 -
This commit is contained in:
mattias 2017-06-15 18:21:31 +00:00
parent 733ed305e6
commit 313c3fc636
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/controls.pp
View File

@ -1155,7 +1155,7 @@ type
FAutoSizingAll: boolean;
FAutoSizingSelf: Boolean;
FEnabled: Boolean;
FMouseEntered: boolean;
FMouseInClient: boolean;
FVisible: Boolean;
function CaptureMouseButtonsIsStored: boolean;
procedure DoActionChange(Sender: TObject);
@ -1656,7 +1656,8 @@ type
property Enabled: Boolean read GetEnabled write SetEnabled stored IsEnabledStored default True;
property Font: TFont read FFont write SetFont stored IsFontStored;
property IsControl: Boolean read FIsControl write FIsControl;
property MouseEntered: Boolean read FMouseEntered;
property MouseEntered: Boolean read FMouseInClient; deprecated 'use MouseInClient instead';// changed in 1.9
property MouseInClient: Boolean read FMouseInClient;
property OnChangeBounds: TNotifyEvent read FOnChangeBounds write FOnChangeBounds;
property OnClick: TNotifyEvent read FOnClick write FOnClick;
property OnResize: TNotifyEvent read FOnResize write FOnResize;

8
lcl/include/control.inc
View File

@ -1124,10 +1124,10 @@ end;
------------------------------------------------------------------------------}
procedure TControl.CMMouseEnter(var Message: TLMessage);
begin
if FMouseEntered then
if FMouseInClient then
Exit;
FMouseEntered := True;
FMouseInClient := True;
// broadcast to parents first
if Assigned(Parent) then
@ -1143,10 +1143,10 @@ end;
------------------------------------------------------------------------------}
procedure TControl.CMMouseLeave(var Message: TLMessage);
begin
if not FMouseEntered then
if not FMouseInClient then
Exit;
FMouseEntered := False;
FMouseInClient := False;
// broadcast to parents first
if Assigned(Parent) then