fdreg.pas.svn-base

来自「TFormDesigner allows you move and resize」· SVN-BASE 代码 · 共 61 行

(*  GREATIS FORM DESIGNER PRO                 *)
(*  unit version 3.50.006                     *)
(*  Copyright (C) 2001-2003 Greatis Software  *)
(*  http://www.greatis.com/formdes.htm        *)
(*  [e-mail]                        *)

unit FDReg;

interface

{$IFDEF VER140}
{$DEFINE NEWDSGNINTF}
{$ENDIF}
{$IFDEF VER150}
{$DEFINE NEWDSGNINTF}
{$ENDIF}

uses
  {$IFDEF NEWDSGNINTF}
  DesignIntf, DesignEditors,
  {$ELSE}
  DsgnIntf,
  {$ENDIF}
  Classes, FDMain, FDEditor;

type
  TFormDesignerEditor = class(TComponentEditor)
    function GetVerbCount: Integer; override;
    function GetVerb(Index: Integer): string; override;
    procedure ExecuteVerb(Index: Integer); override;
  end;

procedure Register;

implementation

{$R FDREG.DCR}

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

function TFormDesignerEditor.GetVerb(Index: Integer): string;
begin
  Result:='Control &lists editor...';
end;

procedure TFormDesignerEditor.ExecuteVerb(Index: Integer);
begin
  if EditLists(Component as TCustomFormDesigner,ltLocked) then Designer.Modified;
end;

procedure Register;
begin
  RegisterComponents('Designers', [TFormDesigner]);
  RegisterComponentEditor(TCustomFormDesigner,TFormDesignerEditor);
end;

end.