petag.pas

Delphi高级开发指南是开发程序的好帮手

unit PeTag;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages,
  Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, DsgnIntf;

type
  TTagMultiProperty = class (TIntegerProperty)
  public
    function GetAttributes: TPropertyAttributes; override;
    procedure Edit; override;
  end;

procedure Register;

implementation

uses
  PefTag;

{property editor methods}

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

procedure TTagMultiProperty.Edit;
var
  PeForm: TTagForm;
begin
  PeForm := TTagForm.Create (Application);
  PeForm.Pe := self;
  try
    // update the list
    PeForm.UpdateList;
    // select and show the first item
    PeForm.ListBoxTags.ItemIndex := 0;
    PeForm.ListBoxTagsClick (self);
    // show the form
    PeForm.ShowModal;
  finally
    PeForm.Free;
  end;
end;

procedure Register;
begin
  RegisterPropertyEditor (TypeInfo(LongInt),
    TComponent, 'Tag', TTagMultiProperty);
end;

end.