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

{********************************************************************} 
{ TAdvGlassButton component                                          } 
{ for Delphi & C++Builder                                            } 
{ version 1.0                                                        } 
{                                                                    } 
{ written                                                            } 
{   TMS Software                                                     } 
{   copyright © 2007                                                 } 
{   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 AdvGlassButtonRegDE; 
 
interface 
{$I TMSDEFS.INC} 
uses 
  AdvGlassButton, GDIPicDE, Classes, GDIPicture, AdvHintInfo, 
{$IFDEF DELPHI6_LVL} 
  DesignIntf, DesignEditors 
{$ELSE} 
  DsgnIntf 
{$ENDIF} 
  ; 
 
procedure Register; 
 
implementation 
 
procedure Register; 
begin 
  RegisterPropertyEditor(TypeInfo(TGDIPPicture), TAdvGlassButton, 'Picture', TGDIPPictureProperty); 
  RegisterPropertyEditor(TypeInfo(TGDIPPicture), TAdvGlassButton, 'PictureDown', TGDIPPictureProperty); 
  RegisterPropertyEditor(TypeInfo(TGDIPPicture), TAdvGlassButton, 'PictureDisabled', TGDIPPictureProperty); 
end; 
 
end.