(C++ VCL) TImageList

//Forward declaration
namespace Controls { class TImageList; }
//Header file
include <Controls.hpp>

//Note: Create a 1x1 bitmap image (e.g. by using Paint) and put it
//in the program's folder!
//Also, put a TImageList Component on the main TForm
include <memory> //For std::auto_ptr


//Create TImageList
const int width  = 256;
const int height = 256;
ImageList1->Width  = width;
ImageList1->Height = height;
//Create pImage
std::auto_ptr<TImage> pImage(new TImage(0));
pImage->Picture->LoadFromFile("1x1.bmp");
pImage->Picture->Bitmap->Width = width;
pImage->Picture->Bitmap->Height = height;
pImage->Width = width;
pImage->Height = height;
//Draw first image in own scope
{
  for (int y=0; y!=pImage->Height; ++y)
  {
    unsigned char * pLine 
      = static_cast<unsigned char *>(
        pImage->Picture->Bitmap->ScanLine[y]);
    for (int x=0; x!=pImage->Width; ++x)
    {
      pLine[x*3+0]= x  ; //Blue
      pLine[x*3+1]= y  ; //Green
      pLine[x*3+2]= x+y; //Red
    }
  }
  ImageList1->Add(pImage->Picture->Bitmap,0);
}
//Draw second image in own scope
{
  for (int y=0; y!=pImage->Height; ++y)
  {
    unsigned char * pLine
      = static_cast<unsigned char *>(
        pImage->Picture->Bitmap->ScanLine[y]);
    for (int x=0; x!=pImage->Width; ++x)
    {
      pLine[x*3+0]= x+y; //Blue
      pLine[x*3+1]= x  ; //Green
      pLine[x*3+2]= y  ; //Red
    }
  }
  ImageList1->Add(pImage->Picture->Bitmap,0);
}
ImageList1->Draw(this->Canvas,0,0,0,true);
ImageList1->Draw(this->Canvas,width+1,0,1,true);

Code links

• std::auto_ptr
• const
• for
• int
• ScanLine
• new
• TImage

'TImageList' links

• C++ CLX
• C++ Builder
• Pascal CLX
• Pascal VCL