ListBox ou ComboBox en couleur

Version imprimable

29/03/2008, 08h20
tonton67

ListBox ou ComboBox en couleur

Bonjour,

J'ai trouvé des exemples sur le sites mais mon cas est différent :
Mon cas :
Je voudrais ajouter un item à partir d'une autre liste. Au moment de l'ajout, je dois affecter à chaque ligne ajoutée une couleur de texte et une couleur de fond. Là je tourne en rond.
Je ne vois pas comment le faire.
Merci pour des conseils
29/03/2008, 11h51
henderson
Salut !

Au moins deux solutions :

a) Au niveau des chaines elles-mêmes
Dans chaque ligne qui est ajoutée, concaténer les deux couleurs avec des caractères de séparation.
Code:

1 2 Chaine = Chaine + "*" + IntToStr(Couleur); + '!' + IntToStr(Couleur);
Dans la OnDrawItem, il sera possible d'extraire les couleurs :
- Détecter les séparteurs avec AnsiString:: Pos(..)
- Tronçonner avec AnsiString:: SubString(..)
- Convertir avec AnsiString:: ToIntDef(0) ou ToInt() si on est sûr de soi, pour récupérer les couleurs
On ne représente que le tronçon utile de la chaîne.

b) En se servant d'objets supplémentaires que l'on ajoute avec InsertObject (voir l'aide).
Une nouvelle classe dérivée de TComponent par exemple comportant deux propriétés TColor.
L'extraction des couleurs se fera plus simplement que dans la solution précédente via Items->Objects.

A plus !
29/03/2008, 14h34
tonton67

Bonjour,
merci pour votre réponse, mais je ne vois pas comment affecter la couleur de fond à une ligne d'une Listbox.
Avec l'évènément : ListBox1DrawItem( ), je peux afficher les caractères d'une ligne dans une couleur donnée, mais pas le fond des caractères.

Merci
29/03/2008, 14h43
Sunchaser

Bonjour,

Pour le 'fond', il faut voir du côté de 'Canvas', 'Brush', 'Color'.
Chaque ligne peut être d'une couleur différente, avec une font de couleurs différentes de même.

@+
;)

Salut !

Donc pour l'exemple, j'utilise deux TListBox.
Quant on double clique sur un item de ListBox2 on l'ajoute à ListBox1 avec un objet pour les couleurs.
Ici, les couleurs sont apportées par un tableau (presque quelconques).

REM : ListBox1->Style sur lbOwnerDrawFixed

Code:

1
2
3
4
5
6
7
8
9
 
class jColors : public TComponent
{
public :
TColor BrushColor;
TColor FontColor;
    __fastcall jColors(TComponent *AOwner, TColor B, TColor F);
    __fastcall ~jColors();
};

Code:

1
2
3
4
5
6
7
8
9
10
11
 
__fastcall jColors::jColors(TComponent *AOwner, TColor B, TColor F)
    : TComponent(AOwner)
{
BrushColor = B;
FontColor = F;
}
 
__fastcall jColors::~jColors()
{
}

Code:

1
2
3
4
5
6
7
8
9
 
TColor TabColors[8] = {clWhite,
                      clSilver,
                      clBlack,
                      clRed,
                      clGreen,
                      clYellow,
                      clBlue,
                      clFuchsia};

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
void __fastcall TForm1::ListBox1DrawItem(TWinControl *Control, int Index,
      TRect &Rect, TOwnerDrawState State)
{
TListBox *ListBox = (TListBox*)Control;
jColors *Colors = (jColors*)ListBox->Items->Objects[Index];
 
ListBox->Canvas->Brush->Style = bsSolid;
ListBox->Canvas->Brush->Color = Colors->BrushColor;
ListBox->Canvas->FillRect(Rect);
ListBox->Canvas->Font->Color = Colors->FontColor;
 
AnsiString N = ListBox->Items->Strings[Index];
int he = ListBox->Canvas->TextHeight(N) / 2;
int x = Rect.Left + 3;
int y = (Rect.Top + Rect.Bottom) / 2;
ListBox->Canvas->TextOut(x, y-he, N);
}

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
void __fastcall TForm1::ListBox2DblClick(TObject *Sender)
{
int n = ListBox2->ItemIndex;
if(n != -1)
    {
    AnsiString N = ListBox2->Items->Strings[n];
    ListBox1->Items->AddObject(N, new jColors(this,
                                              TabColors[n & 7],
                                              TabColors[(n + 1) & 7]));
    }
}

A plus !

29/03/2008, 16h13
tonton67

Merci
Votre exemple marche à merveille
Avec votre permission, je dois l'adapter à mon cas.