paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 20:29:14 +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} {$endif FVISION}
while true do while true do
begin 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 if (cur.x<0) or (cur.x>=p^.size.x) or
(cur.y<0) or (cur.y>=p^.size.y) then (cur.y<0) or (cur.y>=p^.size.y) then
{$endif FVISION}
break; break;
p2:=p; p2:=p;
{$ifndef FVISION} {$ifndef FVISION}
@ -7099,7 +7104,10 @@ end;
END. END.
{ {
$Log$ $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 * fix for bug report 1869
Revision 1.17 2002/01/25 14:15:35 pierre Revision 1.17 2002/01/25 14:15:35 pierre