Centrer un texte dans ListBox, dans OnDrawItem

Version imprimable

Bonjour a tous,
Je chercher a centrer le texte d'un 'Item' dans une listbox lors de OnDrawItem (en fonction de cas précis).
J'ai essayé :

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
42
43
44
45
46
47
 
void __fastcall TFVierge::NListBoxDrawItem(TWinControl *Control, int Index,
      const TRect &Rect, TOwnerDrawState State)
{
      TCanvas *pCanvas = ((TListBox *)Control)->Canvas;
      if ((Index%2)==0) pCanvas->Brush->Color = clSilver;
                       TField *pField;
                       switch (FVierge->ModeFiche[0])
                       {
                       case 'R':
                       pField = FVierge->NTable->Fields->Fields[3];
                       break;
                       case 'C':
                       pField = FVierge->NTable->Fields->Fields[4];
                       break;
                       }
      if (pField->AsString.operator ==(((TListBox *)Control)->Items->Strings[Index]))
                       {
                        pCanvas->Brush->Color = clCream;
                        pCanvas->FrameRect(Rect);
                        pCanvas->Font->Color = clRed;
                       }
                       else
                       {
      if(State.Contains(odSelected))
                       {
                        pCanvas->Brush->Color = clCream;
                        pCanvas->FillRect(Rect);
                        pCanvas->Font->Color = clMaroon;
                       }
      else
                       {
                        pCanvas->FillRect(Rect);
                       }
                       }
//C'est la que commence mon sujet ...
      if (pField->AsString.operator ==(((TListBox *)Control)->Items->Strings[Index]))
                       {
                       int LTexte = ((TListBox *)Control)->Items->Strings[Index].Length();
                       int DTexte = (Rect.Width() - LTexte) * 0.50;
      pCanvas->TextOut(DTexte,Rect.Top+1, ((TListBox *)Control)->Items->Strings[Index]);
                       }
      else
                       {
      pCanvas->TextOut(Rect.Left+5,Rect.Top+1, ((TListBox *)Control)->Items->Strings[Index]);
                       }
}

Cela fonctionne a peu pres mais on ne peut pas dire que cela soit centré a 100 %, donc finalement pas térrible... :(
Je pense que c'est parceque je 'compare' Strings[].Length() et Rect.Width(), enfin je crois (j'ai l'intuition que ce n'est pas tout a fait semblable :? ).
:koi: Comment puis je faire pour centrer parfaitement le texte ?
D'avance merci pour vos conseils (et bon dimanche...)

Bonsoir,
j'ai continué sur mon code et trouvé une solution qui fera l'affaire jusqu'a ce que je trouve comment réaliser réellement un 'alignment' digne de ce nom.
L'idée c'est juste de tester si

Code:

1
2
 
Items->Strings[Index].Length();

est inférieur ou supérieur a des valeurs repères que j'ai trouvé laborieusement (pas génial quoi), ce qui donne quelquechose comme:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
      if (pField->AsString.operator ==(((TListBox *)Control)->Items->Strings[Index]))
                       {
                       int LTexte = ((TListBox *)Control)->Items->Strings[Index].Length();
                       int DTexte;
                       if (LTexte < 10)
                       {
                       DTexte = (Rect.Width() - LTexte)/2.5;
                       }
                       else
                       {
                       DTexte = (Rect.Width() - LTexte)/3;
                       }
                       //etc, etc....
                      //
      pCanvas->TextOut(DTexte,Rect.Top+1, ((TListBox *)Control)->Items->Strings[Index]);
                       }

Je ne doute pas un seul instant qu'il y a mieux, alors n'hésitez pas je suis preneur :D .

21/03/2005, 01h29
henderson

Salut !

Pour centrer un texte avec TextOut il faut au moins utiliser TextWidth et TextHeight qui renvoient la largeur
et la hauteur du texte vis à vis du Canvas.
Connaissant la hauteur et la largeur du clip (Rect)...
Voir TCanvas dans l'aide !

A plus !

Bonsoir Henderson et merci,
J'etais resté bloqué sur TRect et ses propriétés et je suis passé complement a coté de la plaque !
Ca donne:

Code:

1
2
3
4
5
6
7
 
      if (pField->AsString.operator ==(((TListBox *)Control)->Items->Strings[Index]))
                       {
                       int LTexte = pCanvas->TextWidth(((TListBox *)Control)->Items->Strings[Index]);
                       int DTexte = (Rect.Width() - LTexte)/2;
      pCanvas->TextOut(DTexte,Rect.Top+1, ((TListBox *)Control)->Items->Strings[Index]);
                       }

et c'est beaucoup mieux, c'est sur.
Merci :ccool: