paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 20:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* correct last commit, FVISION conditional means the new fvision dir instead of fvnew

Browse Source
This commit is contained in:
pierre 2001-10-02 22:43:22 +00:00
parent 3badb147ef
commit 1237a6294f
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/weditor.pas
View File

@ -3888,15 +3888,21 @@ begin
begin
p:=@Self;
cur:=cursor;
{ origin is reelative to screen for fvision }
{$ifdef FVISION}
{ origin is relative to screen for fvision }
cur.x:=cur.x+p^.origin.x;
cur.y:=cur.y+p^.origin.y;
{$endif FVISION}
while true do
begin
if (cur.x<0) or (cur.x>=p^.size.x) or
(cur.y<0) or (cur.y>=p^.size.y) then
break;
p2:=p;
{$ifndef FVISION}
cur.x:=cur.x+p^.origin.x;
cur.y:=cur.y+p^.origin.y;
{$endif not FVISION}
G:=p^.owner;
if G=Nil then { top view }
begin
@ -7087,7 +7093,10 @@ end;
END.
{
$Log$
Revision 1.14 2001-10-02 16:35:04 pierre
Revision 1.15 2001-10-02 22:43:22 pierre
* correct last commit, FVISION conditional means the new fvision dir instead of fvnew
Revision 1.14 2001/10/02 16:35:04 pierre
* get correct curosr position for fvision
Revision 1.13 2001/10/01 09:08:21 pierre