TComponentEditor = class(TInterfacedObject, IComponentEditor)
  private
    FComponent: TComponent;
    FDesigner: IFormDesigner;
  public
    constructor Create(AComponent: TComponent; ADesigner: IFormDesigner); virtual;
    procedure Edit; virtual;
    procedure ExecuteVerb(Index: Integer); virtual;
    function GetIComponent: IComponent;
    function GetDesigner: IFormDesigner;
    function GetVerb(Index: Integer): string; virtual;
    function GetVerbCount: Integer; virtual;
    function IsInInlined: Boolean;
    procedure PrepareItem(Index: Integer; const AItem: TMenuItem); virtual;
    procedure Copy; virtual;
    property Component: TComponent read FComponent;
    property Designer: IFormDesigner read GetDesigner;
  end;

procedure RegisterComponentEditor(ComponentClass: TComponentClass;
  ComponentEditor: TComponentEditorClass);

type
  TdpbLabelEditor = class(TComponentEditor)
  public
    procedure SynchronizeLabel(Dest, Source : TdpbLabel);
    procedure ExecuteVerb(Index: Integer); override;
    function GetVerb(Index: Integer): string; override;
    function GetVerbCount: Integer; override;
  end;

{ TdpbLabelEditor }

function TdpbLabelEditor.GetVerb(Index: Integer): string;
begin
  case Index of
    0 : Result := '¸ð¾ç ÆíÁý...';
    1 : Result := 'TdpbLabel¿¡ ´ëÇÏ¿©...';
  end;
end;

function TdpbLabelEditor.GetVerbCount: Integer;
begin
  Result := 2;
end;

{ ÆíÁý Æû¿¡ ÀÖ´Â ·¹À̺í°ú ÆíÁýÇÏ´Â ·¹À̺í»çÀÌÀÇ ÇÁ·ÎÆÛƼ µ¿±âÈ­ }
procedure TdpbLabelEditor.SynchronizeLabel(Dest, Source: TdpbLabel);
begin
  Dest.Caption := Source.Caption;
  Dest.Font := Source.Font;
  Dest.Alignment := Source.Alignment;
  Dest.Layout := Source.Layout;
  Dest.TextStyle := Source.TextStyle;
  Dest.ShadowColor := Source.ShadowColor;
  Dest.ShadowDepth := Source.ShadowDepth;
  Dest.ShadowDirection := Source.ShadowDirection;
  Dest.EdgeStyle := Source.EdgeStyle;
  Dest.Edges := Source.Edges;
end;

{ ÄÜÅؽºÆ® ¸Þ´º ½ÇÇà }
procedure TdpbLabelEditor.ExecuteVerb(Index: Integer);
var
  DLG : TfrmLabelEdit;
begin
  case Index of
    { ù¹ø° ¸Þ´º }
    { ÄÞÆ÷³ÍÆ®¸¦ ´õºí Ŭ¸¯Çصµ ½ÇÇàµÈ´Ù. }
    0 :
    begin
      DLG := TfrmLabelEdit.Create(nil);
      try
        SynchronizeLabel(DLG.lblPreview, TdpbLabel(Component));
        DLG.Caption := Component.Owner.Name + '.' + Component.Name + ' ÆíÁý';
        if DLG.ShowModal = mrOk then
        begin
          SynchronizeLabel(TdpbLabel(Component), DLG.lblPreview);
          { ÄÞÆ÷³ÍÆ®¸¦ º¯°æÇßÀ¸¸é ¹Ýµå½Ã È£ÃâÇØ ÁÖ¾î¾ß ÇÑ´Ù. }
          Designer.Modified;
        end
      finally
        DLG.Free;
      end;
    end;
    { µÎ¹ø° ¸Þ´º }
    1 :
    begin
      ShowMessage('µ¨ÆÄÀÌ ÇÁ·Î±×·¡¹Ö ¹ÙÀÌºí ¿¹Á¦ ÄÞÆ÷³ÍÆ®');
    end;
  end;
end;

procedure Register;
begin
  { ÄÞÆ÷³ÍÆ® ¿¡µðÅÍ µî·Ï }
  RegisterComponentEditor(TdpbLabel, TdpbLabelEditor);
end;