tntjvdbgrids_design.pas

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

{*****************************************************************************}
{                                                                             }
{    Tnt Delphi Unicode Controls                                              }
{      http://www.tntware.com/delphicontrols/unicode/                         }
{        Version: 2.1.19                                                      }
{                                                                             }
{    Copyright (c) 2002-2005, Troy Wolbrink ([e-mail])       }
{                                                                             }
{*****************************************************************************}

unit TntJvDBGridS_Design;

interface

uses
  DesignEditors, DesignIntf;

type
  TTntDBGridEditor = class(TComponentEditor)
  public
    procedure ExecuteVerb(Index: Integer); override;
    function GetVerb(Index: Integer): string{TNT-ALLOW string}; override;
    function GetVerbCount: Integer; override;
  end;

procedure Register;

implementation

uses
  SysUtils,
  TntVer, TntAbout, TntJvAbout,
  TntJvDBGridS, DsnDBCst, TntDesignEditors_Design;

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

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

function TAboutH.DialogMess: string;
const
  MainMess = 'Adapted by'#13#10'%s'#13#10#13#10+
    'Used:'#13#10'%s'#13#10'and'#13#10'%s';
begin
  Result := Format (MainMess, [JMNMess, TntWareStr, JVCLStr]);
end;

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

procedure Register;
begin
  RegisterComponentEditor(TTntJvDBGridS, TTntDBGridEditor);
  RegisterPropertyEditor(TypeInfo(TAboutInfo), TTntJvDBGridS, 'About', TAboutH);
  RegisterPropertyEditor(TypeInfo(TAboutInfo), TTntDBGridEditor, 'About', TAboutH);
end;

{ TTntDBGridEditor }

function TTntDBGridEditor.GetVerbCount: Integer;
begin
  Result := 1;
end;

function TTntDBGridEditor.GetVerb(Index: Integer): string{TNT-ALLOW string};
begin
  Result := DsnDBCst.SDBGridColEditor;
end;

procedure TTntDBGridEditor.ExecuteVerb(Index: Integer);
begin
  EditPropertyWithDialog(Component, 'Columns', Designer);
end;

end.