unit HTMLAbt; interface uses {$IFNDEF LCL} Windows, Messages, {$ELSE} LclIntf, LMessages, LclType, LResources, LCLVersion, {$ENDIF} SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Htmlview, ExtCtrls; const Version = '9.45'; type TAboutBox = class(TForm) BitBtn1: TBitBtn; Panel1: TPanel; Viewer: THTMLViewer; private { Private declarations } public { Public declarations } constructor CreateIt(Owner: TComponent; const ProgName, CompName: string); end; var AboutBox: TAboutBox; implementation {$IFNDEF LCL} {$R *.DFM} {$ENDIF} constructor TAboutBox.CreateIt(Owner: TComponent; const ProgName, CompName: string); var S: string[210]; begin inherited Create(Owner); //Viewer.DefFontName := 'MS Sans Serif'; //Windows-only font Viewer.DefFontName := 'Arial'; Viewer.DefFontSize := 9; Viewer.DefFontColor := clNavy; S :='
'+ '