Thanks Paul - Code below -
Program -
winapp 50000,50000,'paul.rc'
OPTIONS(INTL)
OPTIONS(LOGL)
implicit none
INCLUDE <WINDOWS.INS>
external back_func,help_func
integer*4 ii,icntrl
call add_hypertext_resource@('help')
ii=winio@('%ww[maximise,no_minbox,fixed_size]&')
ii=winio@('%mn[&Help]&',help_func)
ii=winio@('%nl%cn%14^bt[&Exit]&',back_func)
ii=winio@('%lw',icntrl)
call yield_program_control@(y_temporarily)
end
integer*4 function back_func()
include <windows.ins>
back_func = 0L
end
c
integer4 function help_func()
INCLUDE <WINDOWS.INS>
integer4 ii
ii = winio@('%`bg[white]%pv%60.20ht[SIX]')
help_func = 1L
end
Resource (paul.rc):
help HYPERTEXT 'cargohlp.htm'
HTM file (cargohlp.htm)
<HTML>
<TITLE> CARGOMANAGER HELP </TITLE>
<DOC name='ONE'>
This is info on Screen One <p>
This program is written using ClearWin+ and is available as a sample
program. By browsing the text which follows you can explore many of the
features of ClearWin+ (especially some new features, not yet found in the
manual) simply by clicking on highlighted text describing items of
interest to you. Some of the icons and bitmaps also respond to a click.<red>
Please note that the use of this program is no substitute for reading the
manual</red> - it is designed to give you a taste of what is possible using
ClearWin+. <p>
This program is written using ClearWin+ and is available as a sample
program. By browsing the text which follows you can explore many of the
features of ClearWin+ (especially some new features, not yet found in the
manual) simply by clicking on highlighted text describing items of
interest to you. Some of the icons and bitmaps also respond to a click.<red>
Please note that the use of this program is no substitute for reading the
manual</red> - it is designed to give you a taste of what is possible using
ClearWin+. <p>
<DOC name='SIX'>
<h1>Packing Options</h1>
This is info on Screen 6.
Please Note: In addition to using this help system the FULL MANUAL contains a full search / history mechanism.
The Help option contents on each screen focus on information of immediate relevance to the interpretation of the screen.
</HTML>