Discussion :

[joce3000]

Bonjour

Je voudrai savoir comment faire pour mettre des icônes dans une listBox . C’est-à-dire un icône a coté du texte .

On peu voir ça par exemple dans Borland quand on veux changée la police d’un composant ,on a la liste des police dans une listBox et des icône a coté du nom de la police


Si qqu sais comment faire , je suis preneur

[Alacazam]

Bonsoir,

Je ne connais pas de composant "tout-fait" pour ça ...
Utilise le Canvas de ta ListBox.

De la couleur dans une ListBox (c'est le 1er trucs & astuces !!!)

N.B. Prière de Rechercher et consulter FAQ, TIPs et Tutos avant de poster, merci

Même si c'est pas exactement ce que tu cherches, ça te montrera comment te servir du canvas.

Bonne Continuation,
Mathieu

[joce3000]

J’avais fais une recherche mais
Même avec les tuto faq et autre je n'ai par réussi.

si qqu sais le faire et m'expliquer ça serai simpa !!!

[Nicolas]

Bonjour,

A voir : http://www.torry.net/enhancedlistandcomboboxes.htm

Nicolas

[Freeze]

je crois que tu peux faire ca avec un TTreeView... j'en suis même sûr...

[Didier Derain]

voici un petit exemple qui fait ca dans un ComboBox

Code :

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

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
void __fastcall TForm4::ComboBox1DrawItem(TWinControl *Control, int Index,
      TRect &Rect, TOwnerDrawState State)
{   char st[256];
    using Graphics::TBitmap;
    int var;
    Graphics::TBitmap *Bitmap = new Graphics::TBitmap();
    Bitmap = new Graphics::TBitmap;
    TRect   MyRect, MyRect2;
 
MyRect.Left=0; //taille de l'image et du ComboBox
MyRect.Right=30;
MyRect.Top=0;
MyRect.Bottom=14;
strcpy(st,"nom du fichier");        
if (file_exists(st)==1)
    {
     ComboBox1->Canvas->Brush->Color = clWhite;
     ComboBox1->Canvas->Brush->Style = bsSolid;
     ComboBox1->Canvas->FillRect(Rect);
     ComboBox1->Canvas->CopyRect(Rect, Bitmap->Canvas, MyRect);
     Rect.Left=3;
     Rect.Right=33;
     Rect.Top=Rect.Top+1;
     Rect.Bottom=Rect.Bottom-1;
     Bitmap->LoadFromFile(st);
     Canvas->CopyMode = cmNotSrcCopy;
     ComboBox1->Canvas->CopyRect(Rect, Bitmap->Canvas, MyRect);
     delete Bitmap;
     }
ComboBox1->Canvas->Font->Color = clBlack;
ComboBox1->Canvas->TextOut(Rect.Left+40 , Rect.Top, ComboBox1->Items->Strings[Index]);
}

[joce3000]

Merci beaucoup

la soluce de Didier marche tres bien

merci aussi au autre pour votre aide