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

let designer search recursively for hint window text (use same procedure as mousedownoncontrol)

Browse Source 
git-svn-id: trunk@7351 -
This commit is contained in:
micha 2005-07-15 09:00:23 +00:00
parent c2be93cd45
commit 1bfc334185
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
designer/designer.pp
View File

@ -2538,9 +2538,7 @@ begin
AComponent:=NonVisualComponentAtPos(ClientPos.X,ClientPos.Y); AComponent:=NonVisualComponentAtPos(ClientPos.X,ClientPos.Y);
if AComponent=nil then begin if AComponent=nil then begin
// then search a control at the position // then search a control at the position
ClientPos := AWinControl.ScreenToClient(Position); AComponent := ControlAtPos(ClientPos.X,ClientPos.Y,true,true);
AComponent := AWinControl.ControlAtPos(ClientPos,true,true);
if not Assigned(AComponent) then if not Assigned(AComponent) then
AComponent := AWinControl; AComponent := AWinControl;
end; end;