Alignement dans un TListBox

Version imprimable

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:

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:

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... :roll:

04/12/2003, 21h27
Merlin

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..
05/12/2003, 20h31
Griswold

Idée fort intéressante...

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

Merci pour le feedback rapide!!!

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:

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;

05/12/2003, 21h44
antp

Pour des colonnes comme ça on utilise en général une TListView en mode vsReport.
05/12/2003, 21h53
Pierre Castelain

Citation:

Envoyé par antp

Pour des colonnes comme ça on utilise en général une TListView en mode vsReport.

Evidemment, antp a définitivement raison.
Je suis passé complètement à coté du problème. :oops:
05/12/2003, 21h57
Griswold

Ça fonctionne super bien!!!
Un gros merci à tous!!!
:ccool: