Discussion :

[tonton67]

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

[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 :

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

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 !

[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

[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.

@+

[henderson]

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 :

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

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 :

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

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 :

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

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

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
 
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 :

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

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 !

[tonton67]

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