Discussion :

[Tymk]

Salut,

Je cherche à aligner le texte à l'intérieur d'une listbox à droite parce qu'elle contient des chemins de fichiers et que lors de la lecture seuls les noms de fichiers (qui figurent à la fin des chemins) m'intéressent.

Quelqu'un a une idée ?

Tymk

[Sunchaser]

Bonsoir,

Je pense que tu dois travailler sur l'évènement OnDrawItem de ton TListBox. Ainsi tu peut appliquer une des méthodes du TCanvas telle que TextOutA par exemple, qui te permettent de changer (entre autre) l'alignement du texte.

En espérant t'aider,

@+

[Tymk]

J'ai déjà utilisé cette méthode mais je ne sais pas comment modifier mon code pour obtenir l'alignement.

Code :

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

pCanvas->TextOut(Rect.Left+5,Rect.Top, ((TListBox *)Control)->Items->Strings[Index]);

[Djob]

tu peux peut être commencer comme ça :
(NB: option Style= lbOwnerDrawFixed)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm1::ListBox1DrawItem(TWinControl *Control, int Index,
      TRect &Rect, TOwnerDrawState State)
{
      TCanvas * pCanvas = ListBox1->Canvas;
      String ItemName = ((TListBox *)Control)->Items->Strings[Index];
      pCanvas->FillRect(Rect);
      int TextWidth = pCanvas->TextWidth(ItemName);
      int decalage = 4; //pour ne pas être collé au bord droit
      pCanvas->TextOut(Rect.Width()-TextWidth-decalage,Rect.Top,ItemName );
 
}

[Tymk]

Je te remercie une fois de plus pour ton aide. Le code fonctionne bien si ce n'est que les lignes de la listbox on par moment des lettres redondantes
ex: lignesnes
ceci n'est qu'un problème d'affichage et je devrais en venir à bout peut être avec un listB->Refresh au bon endroit.