unit HTMLAbt;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, Buttons, HtmlGlobals, Htmlview, ExtCtrls, HTMLUn2,
OverbyteIcsWSocket, OverbyteIcsUtils, OverbyteIcstypes;
{$INCLUDE htmlcons.inc}
type
TAboutBox = class(TForm)
BitBtn1 : TBitBtn;
Panel1 : TPanel;
Viewer : THTMLViewer;
private
{ Private declarations }
public
{ Public declarations }
constructor CreateIt(Owner: TComponent; const ProgName, CompName: string); overload;
constructor CreateIt(Owner: TComponent; const Message: ThtString); overload;
end;
var
AboutBox : TAboutBox;
implementation
{$R *.DFM}
function ConfigInfo : String;
begin
Result := '- compiled with ' + IcsBuiltWithEx; { V8.71 }
{$IFDEF UseTNT}
Result := Result + '
- Using TNT unicode controls.';
{$ELSE}
{$IFDEF UseElPack}
Result := Result + '
- Using ElPack unicode controls.';
{$ELSE}
{$IFDEF UNICODE}
{$IFDEF LCL}
Result := Result + '
- Using LCL unicode character controls.';
{$ELSE}
Result := Result + '
- Using VCL unicode character controls.';
{$ENDIF}
{$ELSE}
{$IFDEF LCL}
Result := Result + '
- Using LCL single byte character controls.';
{$ELSE}
Result := Result + '
- Using VCL single byte character controls.';
{$ENDIF}
{$ENDIF}
{$ENDIF}
{$ENDIF}
Result := Result + '
- ' + IcsVerLitRelDate + IcsVerLitCopyright;
Result := Result + '
';
end;
constructor TAboutBox.CreateIt(Owner: TComponent; const ProgName, CompName: string);
var
S: String;
begin
inherited Create(Owner);
inherited Loaded;
Viewer.DefFontName := 'Segoe UI';
Viewer.DefFontSize := 9;
Viewer.DefFontColor := clNavy;
S :=''+
''+
''+ProgName+'
'+
'A demo program for the '+CompName+' component'+
'Version '+ VersionNo +'
'+
''+
ConfigInfo +
'';
Viewer.LoadFromString(S);
end;
constructor TAboutBox.CreateIt(Owner: TComponent;
const Message: ThtString);
begin
inherited Create(Owner);
inherited Loaded;
if Owner is TCustomForm then
Caption := TCustomForm(Owner).Caption;
Viewer.DefFontName := 'Verdana';
Viewer.DefFontSize := 12;
Viewer.DefFontColor := clBlack;
Viewer.LoadFromString('' + Message + '');
end;
end.