Discussion :

[mohamed]

Bonjour,

J'ai un ListBox avec 5 éléments et j'ai 1 bouton aussi.
Je voudrais qu'en cliquant sur le bouton, l'élément 2 et 3 semettent en rouge.
Apparemment c'est pas onDrawItem qui marche bien.
Voilà mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.FormShow(Sender: TObject);
begin
    ListBox1.Items.Add('valeur1');
    ListBox1.Items.Add('valeur2');
    ListBox1.Items.Add('valeur3');
    ListBox1.Items.Add('valeur4');
    ListBox1.Items.Add('valeur5');
    ListBox1.Items.Add('valeur6');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
    //quoi mettre???
end

Merci.

[Tardiff Jean-François]

Bonjour,

en principe c'est bien on drawnItem.

Aide Delphi 7 en français

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Se produit lorsqu'un élément d'une boîte liste dessinée par le propriétaire doit être réaffiché.
 
Syntaxe Delphi :
 
propertyOnDrawItem:TDrawItemEvent;
 
Syntaxe C++:
 
__ propertyTDrawItemEventOnDrawItem ={read=FOnDrawItem,write=FOnDrawItem};
 
Description
 
Utilisez l'événement OnDrawItem pour coder un gestionnaire dessinant les éléments des boîtes liste avec les valeurs de Style àlbOwnerDrawFixed,lbOwnerDrawVariable ou lbVirtualOwnerDraw.OnDrawItem se produit lorsque la boîte liste a besoin d'afficher un élément.OnDrawItem n'a lieu que dans les boîtes liste dessinées par le propriétaire.
 
La taille du rectangle contenant l'élément est déterminée soit par la propriétéItemHeight pour les boîtes liste dessinées par le propriétaire de hauteur fixe ou par la réponse àl'événement OnMeasureItem pour les boîtes liste de hauteur variable.

La question que je me pose en premier concerne le style de votre TListBox. Est il dans les valeurs que delphi indique comme correcte ?

Nota: L'aide donne aussi un exemple simple pour dessiner le text. Voir 'Exemple Delphi' en haut de l'écran, a coté de 'Voir aussi'.

[mohamed]

Merci
Mais le pbleme est que onDrawitem se produit quand la listbox est en train de dessiner alors que moi je voudrais que la couleur change après le clic sur le bouton.


PS:J'utilise comme style de mon listbox : lbOwnerDrawVariable

[Cl@udius]

Salut,

Je pense qu'il suffit de demander un repaint du contrôle.

Code :

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

1
2
 
  ListBox1.Repaint; // ou Refresh

@+

[denokan]

lbOwnerDrawVariable permet de définir une ListBox pour laquelle les éléments ont des hauteurs variables, ce n'est donc pas forcément nécessaire dans ton cas. de plus il n'existe pas de propriété colors qui permettrai d'affecter une couleur différente par ligne, tu va donc devoir gérer toi-même une liste des couleurs à utiliser, ou alors la deviner à partir du contenu de ton ListBox. pour cela tu peux utiliser l'objet TList dans lequel tu peux stoquer des TColor.

ci joint un petit exemple pour te montrer