paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 23:49:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Changed GetCaretPos into GetCursorPos in GetFormRelativeMousePosition

Browse Source 
git-svn-id: trunk@4429 -
This commit is contained in:
marc 2003-07-27 17:10:43 +00:00
parent e4f766c128
commit bbec34165b
1 changed files with 1 additions and 1 deletions

2
designer/designerprocs.pas
View File

@ -185,7 +185,7 @@ var
begin
Result.X:=0;
Result.Y:=0;
GetCaretPos(Result);
GetCursorPos(Result);
FormClientOrigin:=Form.ClientOrigin;
dec(Result.X,FormClientOrigin.X);
dec(Result.Y,FormClientOrigin.Y);