[D2010] Problème avec OnCustomDrawItem de TListView

Je cherche à afficher une image (à un endroit précis) pour chaque élément d'une TListView (en mode vsReport).
J'ai donc commencé à ajouter un bout de code :

Code:

---

1 2 3 4 5

var ARect: TRect; begin ARect := Item.DisplayRect(drBounds); ImageList.Draw(ListView.Canvas, ARect.Left, ARect.Top, 0);

---

L'affichage se fait bien (ce n'est pas le problème).

Le problème, c'est que le texte affiché dans la TListView apparait désormais en gras.
Comment éviter çà ?

:hola:

Vérifie ceci (CTRL + ALT + V) pour un debuggage par texte non bloquant

Code:

---

1 2	if fsBold in ListView.Canvas.Font.Style then OutputDebugString('gras');

---

Citation:

---

Envoyé par ShaiLeTroll

Vérifie ceci (CTRL + ALT + V) pour un debuggage par texte non bloquant

---

Connaissais pas. Ca peut être pratique. ;)

Citation:

---

Envoyé par ShaiLeTroll

Code:

---

1 2	if fsBold in ListView.Canvas.Font.Style then OutputDebugString('gras');

---

---

C'est pas en gras.
:(

Reforce le Style := Style - [fsBold];

J'ai ajouté dans ListViewCustomDrawItem:

Code:

---

ListView.Font.Style := ListView.Font.Style - [fsBold];

---

Ca ne change rien.
:(

Par hasard, j'ai refait un essai dans OnAdvancedCustomDrawItem, et ça semble fonctionner.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TFormPlanDExecution.ListViewAdvancedCustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage; var DefaultDraw: Boolean); var ARect: TRect; nDecalage: Integer; begin if(Item.SubItems.Count > 0) and (Item.SubItems.Objects[0] <> nil) then begin ARect := Item.DisplayRect(drBounds); nDecalage := ListView.Canvas.TextWidth(DupeString(' ', (Item.SubItems.Objects[0] as TElement)._nDecalage * NB_CARACTERES_DECALAGE)); ImageList.Draw(ListView.Canvas, ARect.Left + 2 + nDecalage, ARect.Top, 0); end; end;

---

:yaisse2:

Il manque dans le TListView un SubItemImageAlignments qui accompagnrait les SubItemImages

j'essayé SANS succès LVCFMT_BITMAP_ON_RIGHT;

Pas d'erreur, pas de beep, juste aucun effet !

Code:

---

1 2 3 4 5 6 7 8 9 10 11

var col: TLVColumn; begin ZeroMemory(@col, SizeOf(col)); col.mask := LVCF_FMT; if ListView_GetColumn(lvPostes.Handle, 2, col) then begin col.fmt := col.fmt or LVCFMT_BITMAP_ON_RIGHT; if not ListView_SetColumn(lvPostes.Handle, 2, col) then Beep(); end;

---