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

LCL: optimized TApplication.GetControlAtMouse (no functional changes), patch by Rika, issue #40465

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-08-26 02:50:48 +03:00
parent f27a50f74e
commit 895c80c4ea
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/include/application.inc
View File

@ -569,15 +569,13 @@ begin
Result := FLastMouseControl
else
Result := FindControlAtPosition(P, False);
if Assigned(Result) and (csDesigning in Result.ComponentState) then
Result := nil;
if Assigned(Result) then
begin
FLastMouseControlValid := True;
FLastMousePos := p;
FLastMouseControl := Result;
end;
if not Assigned(Result) or (csDesigning in Result.ComponentState) then
Exit(nil);
FLastMouseControlValid := True;
FLastMousePos := p;
FLastMouseControl := Result;
end;
procedure TApplication.SetBidiMode(const AValue: TBiDiMode) ;