Scrolling Window in Standard Graphics

[rtsmith]

I have existing code in QuickWin to create a scrolling window

open(unit=96,file='user',title='name')

call gettextposition(rc)

... in a called routine

hwnd=gethwndqq(96)

do 10 i=1,nrows

res=sendmessage(hwnd,wm_vscroll,sb_linedown,0)

10 continue

Please could someone show me the equivalent code required to open a scrolling window and to write text to it in standard graphics. Thanks

[Steven_L_Intel1]

"Standard Graphics" mode imitates DOS - there's no such thing as windows there. You just have one "window" which thinks it is the whole screen.

[Paul_Curtis]

Here is how this is done in standard Win32.

[rtsmith]

Paul

Thanks for the code. I have got it all to compile except for "CreateSimpleFont". Please could you tell me how to satisfy this reference.

Thanks

Richard

[Paul_Curtis]

Sorry to have omitted a utility routine. This is part of an extensive set of Win32 wrappers for common functions, which unfortunately everyone has to build for themselves.

[rtsmith]

Paul

I have incorporated your code into my work, but am having trouble satisfying the reference to textproc. I don't know where I am going wrong, so I have cut my program down to basics as test.f. I have attached this. If you compile and link it, it will tell you that textproc is unsatisfied. Please could you tell me where the mistake is. Thanks (Don't worry about the warnings)

Richard

[rtsmith]

I've tracked down the correction for TextProc

!DEC$ IF DEFINED(_X86_)

!DEC$ ATTRIBUTES STDCALL, ALIAS : '_TextProc@16' :: TextProc

!DEC$ ELSE

!DEC$ ATTRIBUTES STDCALL, ALIAS : 'TextProc' :: TextProc

!DEC$ ENDIF

Richard Smith