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

MG: fixed client origin coordinates

Browse Source 
git-svn-id: trunk@1234 -
This commit is contained in:
lazarus 2002-02-09 01:48:09 +00:00
parent 33f2ddca8e
commit 24711d2c5d
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/wincontrol.inc
View File

@ -825,8 +825,9 @@ begin
and (CaptureControl.Parent = Self)
then Control := CaptureControl;
end
else Control := ControlAtPos(SmallPointtoPoint(TheMessage.Pos),
False,True,False);
else
Control := ControlAtPos(SmallPointToPoint(TheMessage.Pos),
False,True,False);
Result := False;
if Control <> nil then
@ -2459,6 +2460,9 @@ end;
{ =============================================================================
$Log$
Revision 1.93 2002/10/09 10:22:54 lazarus
MG: fixed client origin coordinates
Revision 1.92 2002/10/08 22:32:27 lazarus
MG: fixed cool little bug (menu double attaching bug)