Discussion :

[kurul1]

Bonjour à tous

J'aimerais créer une liste déroulante ou chaque élément aurait 2 colonnes, une case à cocher et une image. Je dit bien une image, pas une icone.

J'ai vu que l'on pouvait faire cela avec une ListView mais je ne m'en sort pas.

Est-ce que quelqu'un pourrait m'aider ?

Merci d'avance pour votre aide.

[Sunchaser]

Bonsoir,
Sous forme de liste déroulante, vraimment ?
(type combobox quoi ?)

@ +

[Sunchaser]

Bonjour,

J'ai tenté un petit truc, même si je commence a croire que je suis peut être dans une impasse ...
Cela suppose de travailler dans le OnDrawItem du ComboBox, avec la propriété Style a csOwnerDrawFixed, et d'avoir une TImageList avec deux images : 'case cochée', 'case non cochée' ...

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
TRect gRect, dRect;
//
gRect.top = Rect.top;
gRect.left = Rect.left;
gRect.bottom = Rect.bottom;
gRect.right = ((Rect.right - Rect.left)/2) - 12;
//
dRect.top = Rect.top;
dRect.bottom = dRect.bottom;
dRect.right = Rect.right;
dRect.left = ((Rect.right - Rect.left)/2) - 12;
////
ComboBox1->Canvas->FillRect(Rect);
if (State.Contains(odSelected) || State.Contains(odFocused))
{
	ComboBox1->Canvas->Brush->Color = clMoneyGreen;
	ComboBox1->Canvas->Font->Color = clBlack;
	ComboBox1->Canvas->Font->Style = TFontStyles() << fsBold;
	ComboBox1->Canvas->DrawFocusRect(Rect);
}
else
{
	ComboBox1->Canvas->Brush->Color = clWindow;
	ComboBox1->Canvas->Font->Color = clNavy;
	ComboBox1->Canvas->Font->Style = TFontStyles();
}
////
String S, gTexte, dTexte, coche;
S = ComboBox1->Items->Strings[Index];
int sep = S.AnsiPos("/");
//texte gauche
gTexte = S.SubString(0, (sep-1));
//texte droite
dTexte = S.SubString((sep+1), (S.Length()- gTexte.Length() - 3));
//coche
coche = S.SubString(S.Length(), 1);
//
int gw, gl, dw, dl;
//position texte gauche
gw = ComboBox1->Canvas->TextExtent(gTexte).cx;
gl = (gRect.Width() - gw)/2;
//position texte droite
dw = ComboBox1->Canvas->TextExtent(dTexte).cx;
dl = gRect.Width() + ((dRect.Width() - dw)/2);
 
//restitution
ComboBox1->Canvas->TextRect(gRect, gl, gRect.top, gTexte);
ComboBox1->Canvas->TextRect(dRect, dl, dRect.top, dTexte);
IML->Draw(ComboBox1->Canvas, (Rect.right - IML->Width), Rect.top, StrToInt(coche), true);

Je suis parti du principe (tout a fait arbitraire) que les Items étaient sous la forme :

Item1/SubItem1/0
Item2/SubItem2/1
Item3/SubItem3/0
Item4/SubItem4/1
Item5/SubItem5/0
Item6/SubItem6/1
Item7/SubItem7/0
Item8/SubItem8/1
Item9/SubItem9/0

Bon ... l'affichage foire un peu ...c'est vrai
Ca aurait été trop facile que cela fonctionne du premier coup


@ +

[kurul1]

J'ai vu qu'on pouvait ajouter des cases a cocher dans une listeview

[kurul1]

Finalement, j'ai utilisé une Checklistbox avec en face le nom de l'image et à coté, j'ai mis un TImage qui affiche l'aperçu de l'image.