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.