unit hlpmain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, Menus, ExtCtrls, Buttons,
uch2ProviderWindowsSearch,
uch2ProviderStaticWebsearch
;
type
THelpExplorer =
class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
MainMenu1: TMainMenu;
Hilfedatei1: TMenuItem;
Installieren1: TMenuItem;
N1: TMenuItem;
Beenden1: TMenuItem;
Bearbeiten1: TMenuItem;
Kopieren1: TMenuItem;
Markieren1: TMenuItem;
Panel2: TPanel;
SpeedButton1: TSpeedButton;
TreeView1: TTreeView;
Splitter1: TSplitter;
HlpOpen: TOpenDialog;
procedure SpeedButton1Click(Sender: TObject);
procedure Beenden1Click(Sender: TObject);
procedure Installieren1Click(Sender: TObject);
private
{ Private-Deklarationen }
FHelpFile: AnsiString;
//Das WinHelp-Config Formular
FWinHlpInstallForm: Tuch2FormProviderWindowsSearch;
//Das WebHelp-Config Formular
FWebHlpInstallForm: Tch2FormConfigStaticWebsearch;
procedure InstallHelpFiles;
public
{ Public-Deklarationen }
end;
var
HelpExplorer: THelpExplorer;
implementation
{$R *.dfm}
procedure THelpExplorer.Beenden1Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure THelpExplorer.InstallHelpFiles;
var
Install: Tch2FormConfigStaticWebsearch;
begin
//Hier will ich eine Instanz des WebHelp-Configurations-Formulars erstellen
//um dann die Konfiguration vornehmen zu können
FWebHlpInstallForm := Tch2FormConfigStaticWebsearch.Create(self);
end;
procedure THelpExplorer.Installieren1Click(Sender: TObject);
begin
if HlpOpen.Execute
then
Begin
FHelpFile := HlpOpen.FileName;
//Hilfedatei hier registrieren
End;
end;
procedure THelpExplorer.SpeedButton1Click(Sender: TObject);
begin
Panel1.Visible := false;
end;
end.