ComboBox et largeur de liste variable

Version imprimable

10/10/2006, 11h53
davels

ComboBox et largeur de liste variable
Est il possible d'avoir la largeur de la liste d'un combobox plus grande que la largeur du combobox lui même?
Je m'explique, j'ai des combobox contenant des valeurs de type :
- 0981223||Belgique
- 0981224||France
- 0981225||Italie
Il se peut aussi parfois que le nombre avant le double pipe "||" soit plus court et la description plus longue.
Lorsque je sélectionne mon item dans la liste, je ne retourne que la première valeur (numérique) dans le text du combobox
J'aimerais donc avoir un combo avec une largeur courte et sa liste avec une largeur plus longue.

Cadeau :

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
33
34
 
procedure AdjustComboBoxListWidth(Combo: TComboBox);
var
  I: integer;
  WCurr, WMax: integer;
begin
  // Détermination de la largeur maximale en pixel pour tous les articles de la
  // liste
  with Combo do
  begin
    WMax := 0;
    for I := 0 to Items.Count-1 do
    begin
      WCurr := Canvas.TextWidth(Items[I]);
      if WCurr > WMax then
        WMax := WCurr;
    end;
    if (WMax + GetSystemMetrics(SM_CXFRAME)) > Width then
      WMax := WMax + GetSystemMetrics(SM_CXFRAME);
    // Tient compte de la largeur de l'ascenseur (V-Scrollbar) si présent
    if Items.Count > DropDownCount then // ascenseur présent
      WMax := WMax + GetSystemMetrics(SM_CXVSCROLL);
    // Ajustement proprement dit
    if WMax > Width then
      SendMessage(handle, CB_SETDROPPEDWIDTH, WMax, 0);
  end;
End;
 
// Exemple d'utilisation dans TComboBox.OnDropDown
procedure TFrmRechercheAvanceeCRE.cbb_StatutCREDropDown(Sender: TObject);
begin
  if Sender is TComboBox then
    AdjustComboBoxListWidth(Sender as TComboBox);
End;

Ajuste la taille de la combobox à la taille de son plus grand item.

cdlt

e-ric

10/10/2006, 12h42
davels

Merci pour la réponse mais en réalité, ce que je cherche, c'est d'avoir une largeur différente pour la liste (drop down) que pour le ComboBox :)
10/10/2006, 13h42
e-ric

as-tu bien lu mon message ? ou j'ai mal compris...

e-ric
10/10/2006, 13h49
davels

Si j'ai bien compris ton message, tu adaptes la largeur du ComboBox par rapport à la chaine de caractère la plus longue dans le drop down.

Ce que j'essaye de faire, c'est d'avoir une largeur de DropDown de 200 pour une largeur de ComboBox de 100 par exemple
10/10/2006, 14h09
Jipété

Salut !

Mon grain de sel :

Citation:

Il se peut aussi parfois que le nombre avant le double pipe "||" soit plus court

Si déjà tu formattais ce "premier" champ pour qu'il ait une longueur constante ?
Avec une police fixe et la fonction "Format" (F1) ?
Sinon, il est possible de dessiner complètement la dropdown liste à la mano, j'avais vu ça il y a longtemps...

--
jp

un peu d'imagination, voyons !
Code:

1 2 3 4 5 6 procedure TFrmRechercheAvanceeCRE.cbb_StatutCREDropDown(Sender: TObject); begin if Sender is TComboBox then SendMessage((Sender as TComboBox).handle, CB_SETDROPPEDWIDTH, 200, 0); End;
La largeur de la combobox se règle à la conception ou par code.

e-ric

10/10/2006, 14h44
davels
Citation:

Envoyé par Jipété

Salut !

Mon grain de sel :
Si déjà tu formattais ce "premier" champ pour qu'il ait une longueur constante ?
Avec une police fixe et la fonction "Format" (F1) ?
Sinon, il est possible de dessiner complètement la dropdown liste à la mano, j'avais vu ça il y a longtemps...

--
jp

Ce n'est malheureusement pas possible, je reprends des valeurs qui existe depuis déjà bien longtemps
Citation:
Envoyé par e-ric

un peu d'imagination, voyons !

Code:

1 2 3 4 5 6 procedure TFrmRechercheAvanceeCRE.cbb_StatutCREDropDown(Sender: TObject); begin if Sender is TComboBox then SendMessage((Sender as TComboBox).handle, CB_SETDROPPEDWIDTH, 200, 0); End;

La largeur de la combobox se règle à la conception ou par code.

e-ric
Super! C'est exactement ce que je recherchais!

Par contre ... il est dans la FAQ sur ce même site :lol: :aie: