tntjvabout.pas

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

unit TntJvAbout;

interface

{$I JVCL.inc}

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

const
  JVCLMess =
   'JEDI Visual Component Library, JVCL v. %s'+#13#10+
   'http://jvcl.sourceforge.net';
  MainMess = 'From:'#13#10'%s'#13#10'and'#13#10'%s'#13#10#13#10'Adapted by:'#13#10'%s'#13#10'and/or'#13#10'%s';

type
  TAboutTntJv00 = class(TAboutTnt)
  protected
    function JVCLStr: string;
  end;

  TAboutTntJv0 = class(TAboutTntJv00)
  protected
    function DialogTitle: string; override;
    function PropertyTitle: string; override;
  end;

  TAboutTntJv = class(TAboutTntJv0)
  protected
    function DialogMess: string; override;
  end;

implementation

uses
  Classes, Forms, Windows, SysUtils, TntVer, TntJVCLVer;

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

function TAboutTntJv00.JVCLStr: string;
begin
  Result := Format (JVCLMess, [JVCL_VersionString]);
end;

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

function TAboutTntJv0.DialogTitle: string;
begin
  Result := 'Tnt-JVCL';
end;

function TAboutTntJv0.PropertyTitle: string;
begin
  Result := Concat ('Tnt-JVCL, Version ', TntJVCL_VersionString);
end;

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

function TAboutTntJv.DialogMess: string;
begin
  Result := Format (MainMess, [TntWareStr, JVCLStr, FLMess, JMNMess]);
end;

{--------------------------------------}

end.