You've already forked lazarus-ccr
2822429864
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2123 8e941d3f-bd1b-0410-a28a-d453659cc2b4
44 lines
852 B
ObjectPascal
44 lines
852 B
ObjectPascal
unit dlgabout;
|
|
|
|
interface
|
|
|
|
uses
|
|
LclIntf, LMessages, LclType, LResources, LCLVersion,
|
|
SysUtils, Classes, Graphics, Controls,
|
|
Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,
|
|
//
|
|
browserviewer, browserconstants;
|
|
|
|
type
|
|
|
|
{ TAboutBox }
|
|
|
|
TAboutBox = class(TForm)
|
|
BitBtn1: TBitBtn;
|
|
labelTitle: TLabel;
|
|
Label2: TLabel;
|
|
labelEngine: TLabel;
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
constructor CreateIt(Owner: TComponent; const ProgName, CompName: string);
|
|
end;
|
|
|
|
var
|
|
AboutBox: TAboutBox;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
constructor TAboutBox.CreateIt(Owner: TComponent; const ProgName, CompName: string);
|
|
begin
|
|
inherited Create(Owner);
|
|
|
|
labelTitle.Caption := 'FPBrowser ' + BrowserVersion;
|
|
labelEngine.Caption := ' Rendering Engine: ' + GetCurrentBrowserViewer().ViewerName;
|
|
end;
|
|
|
|
end.
|