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)
{
}
//---------------------------------------------------------------------------
namespace Linkimage
{
        void __fastcall PACKAGE Register()
        {
                 TComponentClass classes[1] = {__classid(TLinkImage)};
                 RegisterComponents("Minking", classes, 0);
        }
}
//---------------------------------------------------------------------------