qyuyulistboxeditor.pas

修改过样式的listbox,跟原来的listbox样子不一样

unit QYuyuListBoxEditor;

interface

uses
  SysUtils,Classes, dialogs, QYuyuListBox, DesignEditors,DesignIntf, VCLEditors;

type
  TYuyuListBoxEditor = class(TColorproperty)
  public
    function GetAttributes: TPropertyAttributes ;override;
    procedure EDIT; override;
  end;

type
  TYuyuListBoxEditor1 = class(TColorproperty)
  public
    function GetAttributes: TPropertyAttributes;override;
    procedure EDit;override;
  end;

implementation

procedure TYuyuListBoxEditor.EDIT;
begin
  inherited;
end;

function TYuyuListBoxEditor.GetAttributes: TPropertyAttributes ;
begin
  RESULT := [paDialog];
end;

{ TYuyuListBoxEditor1 }

procedure TYuyuListBoxEditor1.EDit;
begin
  inherited;
end;

function TYuyuListBoxEditor1.GetAttributes: TPropertyAttributes;
begin
  Result :=[padialog];
end;

end.