Discussion :

[Invité]

Bonjour,

J'ai une CheckListBox (sous Delphi7).
elle fait par exemple 100 de large.

Mon problème est qu'une de mes ligne contient 140 de large. Or, je ne peux pas agrandir en largeur ma checkListBox.

La solution que j'envisageais serait de mettre une "barre de défilement horizontale" à ma CheckListBox.

Est-ce possible ? Si oui, comment faire ?

J'ai essayé avec un composant ScrollBox dans lequel j'ai placé ma CheckListBox mais sans succès.

si quelqu'un sait comment faire, par avance, merci.

Julien.

[phplive]

Bsr

Il suffit d'utiliser la propriété ScrollWidth qui curieusement n'est pas publiée (peut être parce ce que ceci peut poser un pb à toi de bien tester donc)

Cas où tu ne connais pas la largeur :

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
procedure TForm1.Button1Click(Sender: TObject);
var
  MaxWidth : Integer;
  i : Integer;
 
begin
  // Calcul de la largeur maxi
  MaxWidth := CheckListBox1.ClientWidth;
  for i:=0 to CheckListBox1.Items.Count-1 do
  begin
    MaxWidth := Max(MaxWidth,
      CheckListBox1.Canvas.TextWidth(CheckListBox1.Items[i]));
  end;
  CheckListBox1.ScrollWidth := MaxWidth+20;
end;

Bien sûr si tu connais déjà la largeur maxi 140 ds ton cas tu peux directement écrire :

Code :

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

  CheckListBox1.ScrollWidth := MaxWidth+20;

+20 : pour tenir compte de la largeur de la case à cocher plus une petite marge droite

Voilà

A tester donc

@+
Php

[Invité]

Merci Phplive.

Ca semble fonctionner parfaitement !!

Les fonctions auxquel tu fais appel apparaissent bien pourtant dans les listes déroulantes de delphi (ex: CheckListBox1.[listeDéroulante]). J'espère donc que ça ne va pas générer des bugs.

Encore merci...

Julien.