mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-17 15:38:19 +02:00
43 lines
1.2 KiB
ObjectPascal
43 lines
1.2 KiB
ObjectPascal
Program Hhex;
|
|
{
|
|
Small example/test of the html help OCX.
|
|
Marco van de Voort (C) 2009
|
|
|
|
Copy ref.chm from the CHM distribution to this dir.
|
|
}
|
|
{$mode objfpc}{$H+}
|
|
uses htmlhelp;
|
|
|
|
|
|
var
|
|
HelpfileName : AnsiString;
|
|
htmltopic : AnsiString;
|
|
res : Integer;
|
|
|
|
Begin
|
|
Helpfilename:='ref.chm';
|
|
htmltopic := 'ref/refli3.html';
|
|
|
|
Writeln('Html example 1');
|
|
Writeln('note: Copy ref.chm from the CHM distribution to this dir');
|
|
|
|
// HH_DISPLAY_INDEX or HH_DISPLAY_SEARCH work too.
|
|
Writeln('calling TOC');
|
|
Res:=HtmlHelpA(0,pchar(helpfilename) ,HH_DISPLAY_TOC,0);
|
|
Writeln('program now blocked on readln, press enter (in console window) to continue');
|
|
|
|
readln;
|
|
writeln('Showing a topic that is probably about dialog.');
|
|
// probably because due to automatic generation filenames and exact contact can drift.
|
|
Res:=HtmlHelpA(0,pchar(helpfilename) ,HH_DISPLAY_TOPIC,ptruint(pchar(htmltopic)));
|
|
Writeln('program now blocked on readln, press enter (in console window) to continue');
|
|
readln;
|
|
Writeln('ready. Note that the windows die automatically on exit of the program');
|
|
|
|
{
|
|
Not demoed yet : HH_HELPCONTEXT. Load on ID, because we have no files that do that yet
|
|
}
|
|
|
|
|
|
end.
|
|
|