Discussion :

[secretman]

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

[apad]

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 :

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

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;

[secretman]

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

[Eric Boisvert]

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

Voici tout de même ca traduction en delphi:

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
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;

[secretman]

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

Daniel