www.pudn.com > TMS.Component.Pack.v5.0.rar > advglowbuttonregde.pas, change:2009-01-24,size:2076b

{********************************************************************} 
{ TAdvGlowButton component                                           } 
{ for Delphi & C++Builder                                            } 
{ version 1.8                                                        } 
{                                                                    } 
{ written                                                            } 
{   TMS Software                                                     } 
{   copyright © 2006                                                 } 
{   Email : info@tmssoftware.com                                     } 
{   Web : http://www.tmssoftware.com                                 } 
{                                                                    } 
{ The source code is given as is. The author is not responsible      } 
{ for any possible damage done due to the use of this code.          } 
{ The component can be freely used in any application. The source    } 
{ code remains property of the writer and may not be distributed     } 
{ freely as such.                                                    } 
{********************************************************************} 
 
unit AdvGlowButtonRegDE; 
 
interface 
{$I TMSDEFS.INC} 
uses 
  AdvGlowButton, GDIPicDE, Classes, GDIPicture, AdvHintInfo, {ImageIndexDE,} ImgList, 
{$IFDEF DELPHI6_LVL} 
  DesignIntf, DesignEditors 
{$ELSE} 
  DsgnIntf 
{$ENDIF} 
  ; 
 
 
procedure Register; 
 
implementation 
 
 
procedure Register; 
begin 
  RegisterPropertyEditor(TypeInfo(TGDIPPicture), TAdvGlowButton, 'Picture', TGDIPPictureProperty); 
  RegisterPropertyEditor(TypeInfo(TGDIPPicture), TAdvGlowButton, 'DisabledPicture', TGDIPPictureProperty); 
  RegisterPropertyEditor(TypeInfo(TGDIPPicture), TAdvHintInfo, 'Picture', TGDIPPictureProperty); 
  RegisterPropertyEditor(TypeInfo(TGDIPPicture), TAdvGlowButton, 'HotPicture', TGDIPPictureProperty); 
 
  {RegisterPropertyEditor(TypeInfo(TImageIndex), TAdvGlowButton, 'ImageIndex', TImageIndexPropertyEditor);} 
end; 
 
 
end.