FAQ DelphiConsultez toutes les FAQ

Nombre d'auteurs : 119, nombre de questions : 909, dernière mise à jour : 22 décembre 2016  Ajouter une question

 

Cette FAQ a été réalisée à partir des questions fréquemment posées sur les forums Delphi et Delphi et bases de données de www.developpez.com et de l'expérience personnelle des auteurs.

Nous tenons à souligner que cette FAQ ne garantit en aucun cas que les informations qu'elle propose soient correctes. Les auteurs font le maximum, mais l'erreur est humaine. Cette FAQ ne prétend pas non plus être complète. Si vous souhaitez y apporter des corrections ou la compléter, contactez un responsable (lien au bas de cette page).

Nous espérons que cette FAQ saura répondre à vos attentes. Nous vous en souhaitons une bonne lecture.

L'équipe Delphi de Developpez.com.

Commentez


SommaireInterface utilisateurComposantsLe composant TListBox (2)
précédent sommaire suivant
 

Il n'est pas possible d'aligner les éléments d'une TListBox à droite comme la plupart des descendants de TControl en mettant la propriété BiDiMode à bdRightToLeft. Nous vous proposons deux méthodes pour le faire. Nous allons utiliser dans les deux cas l'évènement OnDrawItem; pour que cet évènement soit appelé, il faut que le contrôle soit dessiné par son propriétaire : ce qui implique que la propriété style doit être lbOwnerDrawFixed, lbOwnerDrawVariable ou lbVirtualOwnerDraw. Dans le code qui suit, style vaut lbOwnerDrawFixed.

La première méthode consiste à ajuster la limite droite du texte dans le canevas de la liste puis d'utiliser la méthode TextOut de ce dernier pour le dessiner :

Code delphi : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); 
var 
  Text: string; 
  TextWidth, TextHeight, RectHeight: Integer; 
begin 
  with (Control as TListBox) do 
    if Index < Items.Count then 
    begin 
      Canvas.FillRect(Rect); 
      Text:= Items[Index]; 
      Dec(Rect.Right, 2); // Il ne faut pas que le texte soit trop collé au bord droit 
      TextWidth:= Canvas.TextWidth(Text); 
      TextHeight:= Canvas.TextHeight(Text); 
      RectHeight:= Rect.Bottom - Rect.Top; 
      // On écrit le texte 
      Canvas.TextOut(Rect.Right - TextWidth, 
        Rect.Top + (RectHeight - TextHeight) div 2, 
        Text);  
    end; 
end;
La seconde méthode utilise une fonction de l'API Windows : DrawText
Code delphi : Sélectionner tout
1
2
3
4
5
6
7
8
9
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); 
var  
  Txt: string;  
begin  
    Txt := (Control as TListBox).Items[Index];  
    DrawText((Control as TListBox).Canvas.Handle, PChar(Txt), StrLen(PChar(Txt)), Rect, DT_RIGHT  
or DT_NOPREFIX or DT_SINGLELINE);  
    // DT_NOPREFIX = désactiver le soulignement si & dans le texte  
end;

Mis à jour le 21 janvier 2014 Pierre Castelain

Lien MSDN : fonction DrawText

  1. Mettre la propriété Style d'une ListBox à lbOwnerDrawFixed
  2. Coder l'évènement OnDrawItem comme suit :

Code delphi : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; 
  Rect: TRect; State: TOwnerDrawState); 
begin 
  with(Control as TListBox).Canvas do  // Le dessin se fait sur le canevas du contrôle, pas dans la fiche 
    begin 
    // On choisit les couleurs en fonction de l'index 
    if Index=1 then 
    begin 
       // Fond 
       Brush.Color:=clRed; 
       // Police 
       Font.Color:=clYellow; 
    end; 
    FillRect(Rect); // Efface le rectangle 
    // Dessin du texte 
    TextOut(Rect.Left,Rect.Top,(Control as TListBox).Items[Index]);//affiche le texte 
  
  end; 
end;

Mis à jour le 21 janvier 2014 LadyWasky

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça


Réponse à la question

Liens sous la question
précédent sommaire suivant
 

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2017 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

 
Responsables bénévoles de la rubrique Delphi : Gilles Vasseur - Alcatîz -