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 :=''+
''+
''+ProgName+'
'+
'A demo program for the '+CompName+' component'+
{$IFNDEF LCL}
'Version '+Version+' compiled with Delphi '+
{$ifdef Windows}
'1
'+
{$endif}
{$ifdef Ver90}
'2'+
{$endif}
{$ifdef Ver100}
'3'+
{$endif}
{$ifdef Ver120}
'4'+
{$endif}
{$ifdef Ver130}
'5'+
{$endif}
{$ifdef Ver140}
'6'+
{$endif}
{$ifdef Ver150}
'7'+
{$endif}
{$ifdef Ver170}
'2005'+
{$endif}
{$ifdef Ver180}
'2006'+
{$endif}
{$ELSE}
'Version ' + Version + ' compiled with Lazarus ' + lcl_version + '
' +
{$ENDIF}
''+
'';
Viewer.LoadFromBuffer(@S[1], Length(S), '');
end;
initialization
{$IFDEF LCL}
{$I Htmlabt.lrs} {Include form's resource file}
{$ENDIF}
end.