Icône a coté du texte dans une ListBox

Version imprimable

03/12/2003, 16h54
joce3000

[Résolu] Icône a coté du texte dans une ListBox

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 :)
03/12/2003, 21h06
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
03/12/2003, 22h41
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 !!!
04/12/2003, 08h39
Nicolas

Bonjour,

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

Nicolas
04/12/2003, 09h34
Freeze

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

voici un petit exemple qui fait ca dans un ComboBox

Code:

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

05/12/2003, 02h25
joce3000

Merci beaucoup

la soluce de Didier marche tres bien

merci aussi au autre pour votre aide