Discussion :

[beastlord]

Bonjour je suis en train de développer un petit logiciel personnel et la je pense avoir épuiser les FAQ sur les icones
Bon le problème que je rencontre est le suivant ''Canvas is not a member of TTabsheet'' lors de la compilation sous BCB 6.

en gros je récupère l'icone d'un fichier et je veux le mettre sur un TTabSheet
J'ai trouvé un bout de code dans les FAQ qui marche très bien et merci au auteurs.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
if ( OpenDialog1->Execute() )
{
Ligne1->Text = OpenDialog1->FileName;

}
char* Adresse = new char[ Ligne1->Text.Length() + 1 ];
strcpy( Adresse, Ligne1->Text.c_str() );

WORD pIcon = 0;

HICON hicon = ExtractAssociatedIcon(HInstance, Adresse, &pIcon);
if (hicon == NULL)
{
MessageBox(NULL, "Raté", "Icon", MB_OK);
return;
}
DrawIcon(TabSheet1->Canvas->Handle, 0, 0, hicon);
DestroyIcon(hicon);

}

DrawIcon(Form1->Canvas->Handle, 0, 0, hicon); si je mets cela alors je vois bien mon icone
mais avec TabSheet1 alors j'ai mon erreur de compilation.

j'ai essayé de mettre mon icone dans un SpeedButton1 mais sans succes :-(
car ca me donne une autre erreur '' TGraphicControl::Canvas is not accessible''

Alors je suis perdu la

[Sunchaser]

Bonsoir,
Effectivement, a priori c'est le TPageControl (contenant les TTabSheets) qui présente un Canvas accessible ...
Ne peut tu pas travailler par ce biais ?

@ +

[beastlord]

Oui j'ai essayé dans un TPageControl mais ca peux pas placer l'icone dans le TTabSheets ;-( .
Je croyais que c'étais mon erreur au début de pas mettre l'icone sur la bonne Form.

Merci de l'info

[Sunchaser]

Une idée qui me viens suite a un sujet passé de ce forum ...c'est peut être nul comme idée mais sait on jamais :
Crois tu que le TControlCanvas peut être associé au TTabSheet, afin que tu effectues ton dessin dedans ?

@ +