Discussion :

[Lung]

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 :

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

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 çà ?

[ShaiLeTroll]

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

Code :

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

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

[Lung]

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

Connaissais pas. Ca peut être pratique.

Code :

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

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

C'est pas en gras.

[ShaiLeTroll]

Reforce le Style := Style - [fsBold];

[Lung]

J'ai ajouté dans ListViewCustomDrawItem:

Code :

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

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

Ca ne change rien.

[Lung]

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

Code :

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

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;