paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 16:38:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

cleanup

Browse Source 
git-svn-id: trunk@9422 -
This commit is contained in:
mattias 2006-06-12 19:06:18 +00:00
parent 436dd7b560
commit 8bf46b037a
2 changed files with 8 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
examples/htmlhelp_ipro/htmlhelp2unit1.pas
View File

@ -46,11 +46,9 @@ type
procedure HelpButtonClick(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
end;
var
Form1: TForm1;
@ -65,16 +63,12 @@ begin
ShowHelpOrErrorForKeyword('','HTML/index.html'); // HTML is case sensitive
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
HtmlHelp2Viewer.RegisterHelpViewer; // This registers the help viewer
// using the iPro viewer
end;
initialization
{$I htmlhelp2unit1.lrs}

13
examples/htmlhelp_ipro/htmlhelp2viewer.pas
View File

@ -35,8 +35,9 @@ unit HtmlHelp2Viewer;
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls, LCLProc,
IpHtml, Buttons, helpintfs, lazhelpintf, ComCtrls, ipfilebroker, iputils;
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
LCLProc, IpHtml, Buttons, helpintfs, lazhelpintf, ComCtrls, ipfilebroker,
iputils;
type
@ -69,7 +70,10 @@ procedure RegisterHelpViewer;
implementation
type
THTMLHelpViewer = class(THelpViewer)
{ THTMLHelpViewer }
THTMLHelpViewer = class(THelpViewer)
private
public
constructor Create(TheOwner: TComponent); override;
@ -122,20 +126,17 @@ begin
IHP.GoBack;
end;
procedure THelpViewerForm.ForwardButtonClick(Sender: TObject);
begin
IHP.GoForward;
end;
procedure THelpViewerForm.IHPDocumentOpen(Sender: TObject);
begin
BackButton.Enabled := IHP.canGoBack;
ForwardButton.Enabled := IHP.canGoForward;
end;
procedure THelpViewerForm.showURL(URL : String);
begin
Show;