qyuyulistboxreg.pas

来自「修改过样式的listbox,跟原来的listbox样子不一样」· PAS 代码 · 共 20 行

unit QYuyuListBoxReg;

interface

uses
  SysUtils,Classes,Graphics ,DesignEditors, DesignIntf, QYuyuListBox, QYuyuListBoxEditor;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Yuyu',[TYuyuListBox]);
  RegisterPropertyEditor(TypeInfo(TColor),TYuyulistbox,'FontColor',TYuyuListBoxEditor);
  RegisterPropertyEditor(Typeinfo(TColor),TYuyuListBox,'BackGroundColor',TYuyuListBoxEditor1);
end;

end.