LIstBox..

A quel niveau peut on utiliser la proc drawtext pour un list box

Dans l'événement OnDrawItem

@+
Bonne Prog'
Nico [www.ni69.new.fr]

---

Ca ne marche pas, voici mon code:

procedure Tfichetype2.ListQuestionDrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
     inherited;

     with Control as TListBox do with Canvas do
          // Dessin du texte en utilisant la fonction API
          DrawText(Canvas.Handle,PChar(ListQuestion.Items[Index]),-1,Rect,DT_WORDBREAK);
end;

Ca ne change rien...

Pourquoi ne pas utiliser directement l'implémentation de cet API dnas la classe TCanvas ?
Je veux parler de la procedure TextOut().

Un exemple:

---

procedure TFicheType2.ListQuestionDrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
    inherited;     
    with (Control as TListBox).Canvas do
          // Dessin du texte en utilisant la fonction du TCanvas
          TextOut(Rect.Left,Rect.Top,ListQuestion.Items[Index]);
end;

---

Texte de l'aide: " [TextOut] Ecrit une chaîne dans le canevas en commençant au point (X,Y), puis actualise la valeur de PenPos à la fin du dessin de la chaîne ".

Exactement ce qu'il te faut.
@ ++
Florent

Si tu ne te plantes pas ......
tu ne poussera jamais

C'est d'ailleurs ce que j'avais déjà proposé..............
http://www.delphifr.com/forum.v2.aspx?ID=489203

@+
Bonne Prog'
Nico [www.ni69.new.fr]

---

Ta proposition avec textout ne marche pas, je simplementcouper les chaines possédant plusieurs mots, donc je dois bien utiliser drawtext mais ici ca ne marche pas 
 

Allez consulter le source
http://www.delphifr.com/code.aspx?ID=32199