ListBox en couleurRésolu

Question

Bjr à tous
J'essaie de résoudre un petit problème : dans une listbox à choix multiple avec mise en surbrillance des lignes choisies, pouvoir changer la couleur de la fonte d'une ligne quelconque.
J'ai trouvé sur le site la façon de changer la couleur d'une ligne en passant par l'évènement DrawItem, par contre lorsque je fais ça, je perds la fonction MultiSelect même si elle est à True et la surbrillance en bleu ne fonctionne plus. Y a t'il une solution ?
Merci pour l'aide
Gabriel

cincap · Accepted Answer

Bonjour,

Je viens d'essayer de mettre une ligne rouge puis verte à chaque item puis les sélectionner (ctrl+A) et cela fonctionne quel est ton code ?

Dans le oncreate as tu mis pour le style de ton listbox  "lbOwnerDrawFixed;"

@+,

Cincap

[url]mailto:/url

ThWilliam · Answer

Salut,

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
   with ListBox1 do
   begin
      if odSelected in State then
      begin
        Canvas.Brush.Color:= clskyblue; // par exemple
        Canvas.Font.Color:= clwhite;
      end
      else
      begin
        Canvas.Brush.Color:= Color;
        Canvas.Font.Color:= Font.Color;
      end;
      Canvas.FillRect(Rect);
      Canvas.TextOut(Rect.Left, Rect.Top, Items[Index]);
   end;
end;

A +
Thierry

cincap · Answer

Bonsoir,

@ Thwilliam, même avec ton code, je suis obligé de mettre dans le "oncreate" de la fiche :

listbox1.Style := lbOwnerDrawFixed;

Sinon cela ne fonctionne pas.

@+,

Cincap

[url]mailto:/url

ThWilliam · Answer

@ cincap : je ne l'ai pas précisé, puisque tu l'avais toi-même mentionné. Mais comme style est une propriété publiée, tu peux le définir directement dans l'inspecteur d'objets. L'événement OnDrawItem n'est appelé que si style = lbOwnerDrawFixed ou lbOwnerDrawVariable.  

Petite correction du code :
  if (odSelected in State) or (odFocused in State) then...

cincap · Answer

Bonsoir,

@ ThWilliam, je viens d'apprendre encore une chose sur le filelistbox, merci beaucoup.

Code astucieux. 

@+,

Cincap

[url]mailto:/url

cs_f6dqm1 · Answer

Re:bjr
je vois qu'il y a des forts en Delphi sur ce forum.
En fait je testai le code de Nebula.
J'ai compris que lorsque l'on est en OwnerDrawFixed il faut tout gérer soi-même, même la surbrillance ! Je pensais naïvement que ça se faisait automatiquement.
Le "if odSelected as State" ne s'invente pas ! je n'aurais pas trouvé tout seul !
Merci de m'avoir ouvert les yeux !

Gabriel

ListBox en couleur

6 réponses

Votre réponse

Discussions similaires