Moveto top

Moveto top

After outputting a bunch (~100 lines) of text to a QWICKWIN window (after SETWINDOWCONFIG(wc)) I would like to scroll to the top so that the user can read the top lines first. I have tried:
CALL MOVETO(int2(1),int2(1),XXYYxy)
and
CALL settextposition(int2(1),int2(1),XXYYrc)

Neither did anything at all! Any suggestions?

3 帖子 / 0 全新
最新文章
如需更全面地了解编译器优化,请参阅优化注意事项

Make sure your window has enough buffer lines for your output. For example:

program test ! quickwin
use dflib
implicit none
type (windowconfig) wc
integer i
if (GETWINDOWCONFIG(wc)) then
  wc%numxpixels  = -1
  wc%numypixels  = -1
  wc%numtextrows = 120
  call SETWINDOWCONFIG(wc)
end if
call clearscreen($GCLEARSCREEN)
do i = 1, 100
  print *, "Hello, this is line ", i
end do
pause
end program test

James

Sorry for posting such a dumb question!

It was all my fault, I had nadvertently left the folloing statment in my program:

wc.mode = QWIN$SCROLLDOWN

and so, of course, window was scrolled to bottom.

发表评论

登录添加评论。还不是成员?立即加入