列表8.1.txt

来自「klinux书籍的配套光盘。可以学习学习。」· 文本 代码 · 共 39 行

【列表8.1】类TsimpleHelpViewer的声明。
{
  SimpleHelpViewer.pas - Implements the simplest possible Help Viewer.
}
unit SimpleHelpViewer;
interface
{ This unit has no interface! }
implementation
uses
   SysUtils, classes, HelpIntfs,
   QDialogs;
const
   STR_VIEWER_NAME = 'Simple Help Viewer';
type
   TSimpleHelpViewer = class (TInterfacedObject, ICustomHelpViewer)
   private
       FHelpManager: IHelpManager;
       FViewerID: Integer;
       FHelpStrings: TStringList;
       procedure InternalShutdown;
    public
       constructor Create;
       destructor Destroy; override;
       { ICustomHelpViewer methods }
       function  GetViewerName : String;
       function  UnderstandsKeyword(const HelpString: String): Integer;
       function  GetHelpStrings(const HelpString: String): TStringList;
       function  CanShowTableOfContents : Boolean;
       procedure ShowTableOfContents;
       procedure ShowHelp(const HelpString: String);
       procedure NotifyID(const ViewerID: Integer);
       procedure SoftShutDown;
       procedure ShutDown;
  end;

 var
    {HeloViewer is  a module global that is initialized at program startup}
    HelpViewer:TSimpleHelpViewer;