Indentation des items dans un TListview

Comment indenter (décaler vers la droite comme une tabulation) certains items de la première colonne d'un TListview (comme dans le shareware EVEREST) ? (avec une icone devant chaque ligne)

exemple :

Item 1
option 1
option 2
option 3
Item 2
option 1
option 2
option 3
etc.

Merci de votre aide

Daniel

Bonjour

Tu utilises par exemple un TImageList pour stocker tes icones.
Tu peux utiliser l'événement OnDrawItem pour gérer l'affichage comme tu le souhaites.
Voici un exemple avec l'utilisation de l'icone 1 du TImageList et avec une indentation de 10 pixels si {Condition} est rencontrée.

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.ListView1DrawItem(Sender: TCustomListView; Item: TListItem; Rect: TRect; State: TOwnerDrawState); var Indentation: Integer; begin if {Condition} then Intentation := 10 else Indentation := 0; ilCalendrier.Draw(Sender.Canvas, Rect.Left + Indentation, Rect.Top, 1); Sender.Canvas.TextOut(Rect.Left + ilCalendrier.Width + Indentation, Rect.Top, Item.Caption); end;

---

Merci pour la réponse.
J'ai trouvé cette fonction en VB, il suffit de la transposer en Delphi
est-ce que cette solution est mieux ou pas par rapport au ListView1DrawItem ?

Indentation des Items d'un TListview :

Public Function SetListviewIndentItem(hwnd As Long, nItem As Long, nIndent As Long)

Dim LV As LVITEM

If nIndent > 0 Then

With LV
.mask = LVIF_INDENT
.iItem = nItem - 1
.iIndent = nIndent
End With

Call SendMessage(hwnd, LVM_SETITEM, 0&, LV)

End If

End Function

Mieux je sais pas...
mais c'est bizard ta fonction VB ne retourne rien?8O ?

Voici tout de même ca traduction en delphi:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

//============================================================================== //=== USES: Commctrl Function SetListviewIndentItem(hwnd:THandle;nItem:Integer; nIndent:Integer):boolean; var LV:TLVItem; begin If nIndent > 0 Then begin With LV do begin mask:= LVIF_INDENT; iItem:= nItem - 1; iIndent:= nIndent; end; end; result:=ListView_SetItem(Hwnd,lv); End;

---

Je pense que tu as oublié le SendMessage, qui me parait fondamental.

Daniel