linkimage.cpp

最简单的VCL控件BCB源码。扩展了TImage的功能

  //---------------------------------------------------------------------------  
   
  #include   <vcl.h>  
  #pragma   hdrstop  
   
  #include   "LinkImage.h"  
  #pragma   package(smart_init)  
  //---------------------------------------------------------------------------  
  //   ValidCtrCheck   is   used   to   assure   that   the   components   created   do   not   have  
  //   any   pure   virtual   functions.  
  //  
   
  static   inline   void   ValidCtrCheck(TLinkImage   *)  
  {  
          new   TLinkImage(NULL);  
  }  
  //---------------------------------------------------------------------------  
  __fastcall   TLinkImage::TLinkImage(TComponent*   Owner)  
          :   TImage(Owner)  
  {  
          FHoverPic   =   new   TPicture();  
          FLinkPic   =   new   TPicture();  
  }  
  //---------------------------------------------------------------------------  
  namespace   Linkimage  
  {  
          void   __fastcall   PACKAGE   Register()  
          {  
                    TComponentClass   classes[1]   =   {__classid(TLinkImage)};  
                    RegisterComponents("ExtPackage",   classes,   0);  
          }  
  }  
  //---------------------------------------------------------------------------  
  void   __fastcall   TLinkImage::SetPicture(Graphics::TPicture   *   value)  
  {  
          //TODO:   Add   your   source   code   here  
          Picture->Assign(value);  
          FLinkPic->Assign(value);  
  }  
  //---------------------------------------------------------------------------  
  void   __fastcall   TLinkImage::SetHoverPic(Graphics::TPicture   *   value)  
  {  
          //TODO:   Add   your   source   code   here  
          FHoverPic->Assign(value);  
  }  
  //---------------------------------------------------------------------------  
  void   __fastcall   TLinkImage::MouseEnter(Messages::TMessage   &   Message)  
  {  
          //TODO:   Add   your   source   ode   here  
          Picture->Assign(FHoverPic);  
  }  
  //---------------------------------------------------------------------------  
  void   __fastcall   TLinkImage::MouseLeave(Messages::TMessage   &   Message)  
  {  
          //TODO:   Add   your   source   code   here  
          Picture->Assign(FLinkPic);  
  }  
  //---------------------------------------------------------------------------  
  __fastcall   TLinkImage::~TLinkImage()  
  {  
          //TODO:   Add   your   source   code   here  
  }  
  //---------------------------------------------------------------------------  
  void   __fastcall   TLinkImage::CreateWnd(void)  
  {  
  //     CreateWnd();  
  }  
  //---------------------------------------------------------------------------  
  void   __fastcall   TLinkImage::Click(void)  
  {  
          //TODO:   Add   your   source   code   here  
          TImage::Click();  
  }  
   
   
  void   __fastcall   TLinkImage::abcd(TNotifyEvent   value)  
  {  
          //TODO:   Add   your   source   code   here  
          ShowMessage("abcd");  
          Fabc   =   value;  
  }