055525bdff
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1411 8e941d3f-bd1b-0410-a28a-d453659cc2b4
93 lines
1.7 KiB
ObjectPascal
Executable File
93 lines
1.7 KiB
ObjectPascal
Executable File
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 :='<body bgcolor="ffffeb" text="000080">'+
|
|
'<center>'+
|
|
'<h1>'+ProgName+'</h1>'+
|
|
'<font color="Maroon">A demo program for the '+CompName+' component</font>'+
|
|
|
|
{$IFNDEF LCL}
|
|
'<h3>Version '+Version+' compiled with Delphi '+
|
|
{$ifdef Windows}
|
|
'1</h3>'+
|
|
{$endif}
|
|
{$ifdef Ver90}
|
|
'2</h3>'+
|
|
{$endif}
|
|
{$ifdef Ver100}
|
|
'3</h3>'+
|
|
{$endif}
|
|
{$ifdef Ver120}
|
|
'4</h3>'+
|
|
{$endif}
|
|
{$ifdef Ver130}
|
|
'5</h3>'+
|
|
{$endif}
|
|
{$ifdef Ver140}
|
|
'6</h3>'+
|
|
{$endif}
|
|
{$ifdef Ver150}
|
|
'7</h3>'+
|
|
{$endif}
|
|
{$ifdef Ver170}
|
|
'2005</h3>'+
|
|
{$endif}
|
|
{$ifdef Ver180}
|
|
'2006</h3>'+
|
|
{$endif}
|
|
|
|
{$ELSE}
|
|
'<h3>Version ' + Version + ' compiled with Lazarus ' + lcl_version + '</h3>' +
|
|
{$ENDIF}
|
|
|
|
'</center>'+
|
|
'</body>';
|
|
Viewer.LoadFromBuffer(@S[1], Length(S), '');
|
|
end;
|
|
|
|
initialization
|
|
{$IFDEF LCL}
|
|
{$I Htmlabt.lrs} {Include form's resource file}
|
|
{$ENDIF}
|
|
|
|
end.
|