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

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:

---

1 2 3 4 5 6 7

FGlyph = new Graphics::TBitmap();     Canvas=new TControlCanvas(); Canvas->Control=this; Paint();

---

et dans Paint :

Code:

---

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 ?

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:

---

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; }

---

il y a des exemples de CGI sur le site pour la creation de divers composants

Citation:

---

http://chgi.developpez.com/compo1/

---

Tu peut remplacer

Citation:

---

pCn->Draw(4,4,pBitmap);

---

par

Citation:

---

TRect TheRect;
TheRect = Rect(4,4,((Button1->Width) - 4),(Button1->Height) - 4);
pCn->StretchDraw(TheRect, pBitmap);

---

L'image s'adaptera au Canvas du TButton