Alignement dans un TListBox

**Griswold** · 04/12/2003, 21h08

Bien le bonjour à tous,

Je me demandais s'il est possible de faire un alignement dans un TListBox? Par exemple :

Un début de ligne | fin de ligne.
Bonjour | à tous.
Testing one two | one two.

Les caractères | seraient tous placés à la même position vers la droite dans le ListBox, ce qui créerait un "genre" d'alignement si on veut.

Mes premiers tests furent de me créer des fonctions permettant de faire des alignements, puis d'essayer de les utiliser avec le TlistBox. Dans un fichier texte ça va marcher parfaitement, mais pour une raison x ce n'est pas fonctionnel dans un TListBox.

Voici le genre de fonction que je me suis fait :

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
 
function UStr_Pad_Right(cStr : String; nLong : integer; cCar : Char) : string;
var i, nLen : integer;
    PadStr : string;
begin
   PadStr := '';
   Result := trim(cStr);
   nLen   := nLong - Length(Result);
   if nLen > 0 then
      begin
         for i := 1 to nLen do
             PadStr := PadStr + cCar;
         Result := Result + PadStr;
      end
   else Result := copy(Result,1,nLong);
end;

Après je faisais par exemple :

Code :

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

1
2
3
4
 
ListBox1.Items.Add( UStr_Pad_Right(chaine1, 50, ' ') + chaine2);
ListBox1.Items.Add( UStr_Pad_Right(chaine3, 50, ' ') + chaine2);
ListBox1.Items.Add( UStr_Pad_Right(chaine4, 50, ' ') + chaine2);

Mais malheureusement, comme je le mentionnais, ça va bien fonctionner dans un fichier texte mais pas dans un ListBox.

Avez-vous une idée?
Merci d'avance...

**Merlin** · 04/12/2003, 21h27

c'est possible mais si tu ne veux pas bricoler des trucs qui marcheront à moitié, le mieux c'est de gérer le ownerdraw et placer au pixel près le texte comme tu le veux..

**Griswold** · 05/12/2003, 20h31

Idée fort intéressante...

Un exemple de code, sans être nécessairement très élaboré, serait le bienvenu.

Merci pour le feedback rapide!!!

**Pierre Castelain** · 05/12/2003, 21h14

Ton algorithme ne peut fonctionner que si tu utilise une police à chasse fixe, c'est à dire dans laquelle toutes les lettres ont la même largeur (courier par exemple). Ce n'est pas le cas avec les polices utilisée habituellement. Un exemple avec 20 caractères:
iiiiiiiiiiiiiiiiiiii
AAAAAAAAAAAAAAAAAAAA

La technique à utiliser est effectivement de se servir de l'évènement OnDrawItem. Voici un exemple de ce que cela pourrait donner. Attention, il faut que la propriété Style du TListBox soit à lbOwnerDrawFixed pour que cela fonctionne.

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
 
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
const
  POSITION = 50; // La "marge" est à 50 % du contrôle
var
  p: integer;
  gauche, droite: string;
  largeur: Integer;
  rg, rd: TRect;
begin
  with Control as TListBox do
  begin
    p:= Pos('|', Items[Index]);
    if p = 0 then
    begin
      { Si le caractère | n'est pas présent, on trace normalement }
      Canvas.FillRect(Rect); // Efface le rectangle
      Canvas.TextOut(Rect.Left, Rect.Top, Items[Index]); // Imprime le texte
    end
    else
    begin
      largeur:= Rect.Right - Rect.Left; // Largeur du contrôle en pixels
 
 
      { On travaille sur la partie gauche }
      gauche:= Copy(Items[Index], 1, p - 1); // Récupère la partie gauche du texte
      rg:= Classes.Rect(Rect.Left, Rect.Top,
        Rect.Left + largeur * POSITION div 100, Rect.Bottom);
      Canvas.FillRect(rg);
      Canvas.TextOut(rg.Left, rg.Top, gauche);
 
      { Même chose pour la partie droite }
      droite:= Copy(Items[Index], p + 1, Length(Items[Index]) - p);
      rd:= Classes.Rect(Rect.Left + largeur * POSITION div 100, Rect.Top,
        Rect.Right, Rect.Bottom);
      Canvas.FillRect(rd);
      Canvas.TextOut(rd.Left + 1, rd.Top, droite);
    end;
  end;
end;