anireg.pas

来自「Delphi 开发的的热键操作 很值得看的」· PAS 代码 · 共 24 行

unit AniReg;

interface

uses
  Classes, DsgnIntf,
  AboutPrp, AboutEdt,
  AniIcons, AniIcoEd,
  AniIcon, AniPlay,
  AniTray;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('SheAr', [TAnimatedIcon, TAnimatedIconPlayer, TAnimatedTrayIcon]);
  RegisterPropertyEditor(TypeInfo(TAboutInfo), nil, '', TAboutPropertyEditor);
  RegisterPropertyEditor(TypeInfo(TAnimatedIcons), nil, '', TAnimatedIconsProperty);
end;

end.