Discussion :

[kabish]

Salut a tous,
J'aimerais savoir s'il est possible d'avoir un composant combox avec plusieurs colonnes. C'est a dire un combo qui pourra m'afficher pour chaque ligne au moins deux valeurs.

[Gilbert Geyer]

Bonjour,

C'est a dire un combo qui pourra m'afficher pour chaque ligne au moins deux valeurs

... tu peux toujours placer deux combos côte à côte et les synchroniser de sorte que si tu sélectionnes un Item dans l'un cela provoque la sélection simultanée de l'Item de même indice dans l'autre.

A+

[kabish]

Tres bonne idee je fais l'essai, merci infiniment

[Gilbert Geyer]

Re-Salut,

Si t'as un problème pour synchroniser tes 2 combobox vas voir ici : http://www.developpez.net/forums/sho...t=synchroniser
tu y trouveras le code qui permet de "Synchroniser le même Item sur trois ComboBox"

A+

[papadrago]

Salut a tous,
J'aimerais savoir s'il est possible d'avoir un composant combox avec plusieurs colonnes. C'est a dire un combo qui pourra m'afficher pour chaque ligne au moins deux valeurs.

C'est un boulot pour un OnDrawItem. L'exemple suivant coupe l'item en deux, l'affiche au bon endroit et trace les traits de séparation.

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
 
procedure TForm1.ComboBox1DrawItem (Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  s, s1, s2 : string;
begin
  with Control as TComboBox do
    begin
      s := Items [Index];
      s1 := Copy (s, 1, Length (s) div 2);
      s2 := Copy (s, Length (s) div 2 + 1, MaxInt);
 
      // erase item
      Canvas.Brush.Color := clWhite;
      Canvas.FillRect (Rect);
 
      // write item
      Canvas.TextOut (Rect.Left + 5      , Rect.Top  + 2, s1);
      Canvas.TextOut (Rect.Left + 150 + 5, Rect.Top  + 2, s2);
 
      // draw vertical separator
      Canvas.Pen.Color := $C0C0C0;
      Canvas.MoveTo (Rect.Left + 150, Rect.Top);
      Canvas.LineTo (Rect.Left + 150, Rect.Bottom - 1);
 
      // draw horizontal separator
      Canvas.MoveTo (Rect.Left, Rect.Bottom - 1);
      Canvas.LineTo (Rect.Right, Rect.Bottom - 1)
    end
end;

Il faut aussi mettre ComboBox1.Style à csOwnerDrawFixed

[Gilbert Geyer]

Re-Salut,

L'idée de Papadrago ave OnDrawItem n'est pas mal non plus. Par contre j'ai amélioré son code comme ceci (car s1 := Copy (s, 1, Length (s) div 2) c'était un peu arbitraire de même que le 150) :

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
 
procedure TfrmImgD.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  s, s1, s2 : string; i,po,lg1,lgMax1 : integer;
begin lgMax1:=0;
  with Control as TComboBox do
  begin for i:=0 to Items.Count-1 do
        begin s := Items [i];
              po :=Pos(' ',s); //< ' ' espace utilisé comme séparateur des valeurs
              s1 := Copy (s, 1, po);
              lg1:=Canvas.TextWidth(s1);
              lgMax1:=max(lgMax1,lg1);
        end;
        // Dommage qu''on ne puisse pas ajuster la largeur de la combo pendant le DrawItem !
        s := Items [Index];
        po :=Pos(' ',s);
        s1 := Copy (s, 1, po);
        s2 := Copy (s, po, Length (s)- po + 1);
 
        // Items de couleur alternée
        if Not odd(Index) then Canvas.Brush.Color := clWhite
                          else Canvas.Brush.Color := clAqua;
        Canvas.FillRect (Rect);
 
        // write item
        Canvas.Font.Color:=clBlack; Canvas.TextOut(Rect.Left + 2,          Rect.Top  + 1, s1);
        Canvas.Font.Color:=clRed;   Canvas.TextOut(Rect.Left + lgMax1 + 5, Rect.Top  + 1, s2);
    end
end;

... reste que je n'ai pas réussi à ajuster la largeur de la combo pendant le DrawItem à une valeur égale à lgMax:=max(lgMax, Canvas.TextWidth(s)) + marges; faut donc ajuster la largeur de la combo à la conception par exemple.

Ne pas oublier de mettre ComboBox1.Style à csOwnerDrawFixed.

A+

[Gilbert Geyer]

Bonjour,

Voiçi la version modifiée du code d'hier avec ajustage de la taille de la ComboBox en fonction de la longueur des chaînes, ici j'utilise le caractère ':' comme séparateur de chaîne au lieu du caractère 'espace' qui poserait des problèmes avec des chaines du type 'Pointe à Pitre : 32°Celsius' et le ':' n'apparaît pas à l'affichage mais chaque colonne est alignée à gauche et les Items sont de couleur alternée (clWhite, clAqua) à modifier selon les goûts :

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
51
52
53
 
//Pour ComboBox à 2 colonnes : testé, marche.
 
var       lgS1max : integer; 
 
procedure TForm1.FormShow(Sender: TObject);
var       SLtmp : tStringList; i, po, lg1, lg, lgSmax : integer; s, s1 : string;
begin    ...
          combobox1.clear;
          combobox1.Items.Add('Paris : 18°C'); // ':' utilisé comme séparateur de chaîne
          combobox1.Items.Add('Lyon : 22°C');
          combobox1.Items.Add('Pointe à Pitre : 32°C');
          combobox1.Items.Add('Djerba : 45°C');
          ComboBox1.ItemIndex:=0;
          SLtmp := tStringList.create;
          SLtmp.Assign(ComboBox1.Items);
          lgS1max:=0; lgSmax:=0;
          with SLtmp do
          begin for i:=0 to Count-1 do
                begin s := SLtmp[i];
                      lg:= Canvas.TextWidth(s);
                      lgSmax:=max(lgSmax,lg); // Pour largeur de la comboBox
                      po :=Pos(':',s);
                      s1 := Copy (s, 1, po-1);
                      lg1:=Canvas.TextWidth(s1); 
                      lgS1max:=max(lgS1max,lg1); // Pour positionnement de la 2ème colonne
                end;
                free;
          end;
          ComboBox1.width:=lgSmax+30;
end;
 
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var       s, s1, s2 : string; po : integer;
begin     with Control as TComboBox do
          begin s := Items [Index];
                po :=Pos(':',s);
                s1 := Copy (s, 1, po-1);
                s2 := Copy (s, po+1, maxInt);
 
                // Items de couleur alternée
                if Not odd(Index) then Canvas.Brush.Color := clWhite
                                  else Canvas.Brush.Color := clAqua;
                Canvas.FillRect (Rect);
 
                // write item
                Canvas.Font.Color:=clBlack;
                Canvas.TextOut(Rect.Left+2, Rect.Top, s1);
                Canvas.Font.Color:=clRed;
                Canvas.TextOut(Rect.Left + lgS1max+5, Rect.Top, s2);
          end;
end;

A+

EDIT : Toujours pareil : Ne pas oublier de mettre ComboBox1.Style à csOwnerDrawFixed.

[kabish]

Vous êtes vraiment formidable
Et c'est toujours un réel plaisir d'être connecte sur ce site. Je crois que je marque cette discussion comme résolue. merci et A+

[eponette]

Pour l'info. Il existe des composants payants (je ne sais pas si je peux mettre des info commerciales...) qui permettent de faire cela sans mettre plusieurs combo et les synchroniser. Autant de colonne que tu veux, même des images,...

Au boulot, on les a et on en est TRES content.