tntabout.pas

TntExUpdate 是 流行的 TntUnicodeControls控件的扩展包.包括很难找到的 TntJVCL 也在里面. TntSysUtils2.pas/TntSysUtilsEx.pa

unit TntAbout;

interface

{$I JVCL.inc}

uses
  {$IFDEF DELPHI6_UP} RTLConsts, DesignIntf, DesignEditors, VCLEditors
    {$ELSE} DsgnIntf {$ENDIF};

const
  TntWareMess =
   'Troy Wolbrink''s TntWare v. %s'+#13#10+
   'http://www.tntware.com/delphicontrols/unicode/';
  FLMess = 'Francisco Leong';
  JMNMess = 'Jordi March ([e-mail])';

type
  TAboutTnt = class(TPropertyEditor)
  protected
    function TntWareStr: string;
    function DialogTitle: string; virtual; abstract;
    function DialogMess: string; virtual; abstract;
    function PropertyTitle: string; virtual; abstract;
  public
    function GetAttributes: TPropertyAttributes; override;
    procedure Edit; override;
    function  GetValue: string; override;
  end;

implementation

uses
  SysUtils, Forms, Windows,
  TntVer;

{--------------------------------------}
{-PROTECTED--------}

function TAboutTnt.TntWareStr: string;
begin
  Result := Format (TntWareMess, [Tnt_VersionString]);
end;

{-PUBLIC-----------}

procedure TAboutTnt.Edit;
begin
  Application.MessageBox(PChar(DialogMess), PChar(Concat('About ',DialogTitle)), MB_ICONASTERISK);
end;

function TAboutTnt.GetValue: string;
begin
  Result := PropertyTitle;
end;

function TAboutTnt.GetAttributes: TPropertyAttributes;
begin
  Result := [paMultiSelect, paDialog, paReadOnly];
end;

{--------------------------------------}
end.