paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 19:50:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix ResetCursor for fvision

Browse Source
This commit is contained in:
pierre 2002-05-30 22:01:12 +00:00
parent 44c8bff736
commit 8529bbc6c8
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/weditor.pas
View File

@ -3896,8 +3896,13 @@ begin
{$endif FVISION}
while true do
begin
{$ifdef FVISION}
if (cur.x<p^.origin.x) or (cur.x>=p^.origin.x+p^.size.x) or
(cur.y<p^.origin.y) or (cur.y>=p^.origin.y+p^.size.y) then
{$else not FVISION}
if (cur.x<0) or (cur.x>=p^.size.x) or
(cur.y<0) or (cur.y>=p^.size.y) then
{$endif FVISION}
break;
p2:=p;
{$ifndef FVISION}
@ -7099,7 +7104,10 @@ end;
END.
{
$Log$
Revision 1.18 2002-04-16 08:27:01 pierre
Revision 1.19 2002-05-30 22:01:12 pierre
* fix ResetCursor for fvision
Revision 1.18 2002/04/16 08:27:01 pierre
* fix for bug report 1869
Revision 1.17 2002/01/25 14:15:35 pierre