1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
|
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
__fastcall TMyImageList::TMyImageList(TComponent *Owner):TCustomImageList(Owner){
}
void __fastcall TMyImageList::DoDraw(int Index, Graphics::TCanvas* Canvas, int X, int Y, unsigned Style, bool Enabled){
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
//Chargement d'un bitmap
Graphics::TBitmap *LoadedBMP = new Graphics::TBitmap();
LoadedBMP->LoadFromFile("32x32.bmp");
//Crétaion de l'image list
MyImageList = new TMyImageList(this);
MyImageList->Width = LoadedBMP->Width;
MyImageList->Height = LoadedBMP->Width;
//Chargement du bitmap dans l'image list
MyImageList->AddMasked(LoadedBMP,LoadedBMP->Canvas->Pixels[0][LoadedBMP->Height-1]);
//Libération du Bitmap
LoadedBMP->Free();
//Création de la toolbar
MyToolBar = new TToolBar(this);
MyToolBar->Parent = this;
MyToolBar->Images = MyImageList;
//Crétation d'un ToolButton
MyToolButton = new TToolButton(MyToolBar);
MyToolButton->Parent = MyToolBar;
MyToolButton->ImageIndex = 0;
}
//--------------------------------------------------------------------------- |
Partager