paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 13:19:21 +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 Result := FLastMouseControl
else else
Result := FindControlAtPosition(P, False); Result := FindControlAtPosition(P, False);
if Assigned(Result) and (csDesigning in Result.ComponentState) then if not Assigned(Result) or (csDesigning in Result.ComponentState) then
Result := nil; Exit(nil);
if Assigned(Result) then
begin FLastMouseControlValid := True;
FLastMouseControlValid := True; FLastMousePos := p;
FLastMousePos := p; FLastMouseControl := Result;
FLastMouseControl := Result;
end;
end; end;
procedure TApplication.SetBidiMode(const AValue: TBiDiMode) ; procedure TApplication.SetBidiMode(const AValue: TBiDiMode) ;