OpenEuphoria

Re: Displaying HTML

• Posted by Pete Lomax <petelomax at blueyonder.co.uk> Feb 03, 2004
• 494 views

On Tue,  3 Feb 2004 01:22:02 +0000, Philip Deets
<philip1987 at hotmail.com> wrote:

>Hi, I want to add a View ReadMe Menu Item to the Help Menu in my 
>program.  The readme is in HTML.  I've looked through the platform SDK 
>but can't find any answers.  Can you help me?
>
>Windows XP SP1
>win32lib 0.59.1 (the latest, I think)
>
>Thanks,
>Phil
Here is an example from MEditor:

procedure onClickEuManual(integer self, integer event, sequence
params)
object void
sequence helpfilepath
	-- open the HTML version of refman.doc
	helpfilepath=getenv("EUDIR")&"\\HTML\\Refman.htm"
	void = open(helpfilepath, "r")
	if void != -1 then -- see if Euphoria manual present
		close(void)
		shellExecute("open",helpfilepath, SW_SHOWMAXIMIZED)
	else
		void = message_box("Euphoria Manual not present in Euphoria
directory"&10&13&
						   helpfilepath,
						   "Euphoria Manual not found", 0 )
	end if
end procedure
setHandler(HelpEuph,w32HClick,routine_id("onClickEuManual"))

HTH,
Pete