BCB6 Création d'un composant à partir d'un TButton

**Colloc** · 08/10/2012, 09h52

Bonjour,

Je cherche à créer un composant à partir d'un TButton pour y dessiner un bitmap spécifique (un peu à la manière d'un TBitBtn).
Comme un TButton ne dispose pas de canvas, j'en crée un, mais qd ensuite dans le constructeur je dessine dedans, lorsque je pose le contrôle, j'ai un message "le controle " n'a pas de parent"...

Mon code du constructeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
FGlyph = new Graphics::TBitmap();
 
 
Canvas=new TControlCanvas();
Canvas->Control=this;
Paint();

et dans Paint :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
if (Glyph)
        {
        Canvas->CopyRect(Rect(0,0,Glyph->Width,Glyph->Height),Glyph->Canvas,Rect(0,0,Glyph->Width,Glyph->Height));
 
 
 
        }

Que se passe-t'il ?

**blondelle** · 08/10/2012, 13h48

Salut Colloc

Pour modifier un composant
1 Creer un canvas, ce que tu a fait
2 L'affecter a ton TButton, this represente la Form
3 Crer un TBitmap
4 Charger une image.bmp dans le TBitmap
5 Afficher dans le TButton

le .cpp

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
// creer un Canvas
TControlCanvas *pCn;
pCn = new TControlCanvas();
pCn->Control = Button1;
Graphics::TBitmap *pBitmap = new Graphics::TBitmap();
pBitmap->LoadFromFile("C:\\Users\\home\\Documents\\Images\\Massiv10\\Bitmaps\\Arrow\\arcarrow1.bmp");
pCn->Draw(4,4,pBitmap);
// detruire le Canvas
delete pCn;
}