Discussion :

[davels]

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.

[e-ric]

Cadeau :

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

[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

[e-ric]

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

e-ric

[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

[Jipété]

Salut !

Mon grain de sel :

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

[e-ric]

un peu d'imagination, voyons !

Code :

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

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

[davels]

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

un peu d'imagination, voyons !

Code :

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

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