Jedi TJvListview

[bluescreen25]

Zitat von marabu:

Guten Morgen,

du musst die Items selbst zeichnen. Setze OwnerDraw auf True und probiere aus, was dir gefällt:

Delphi-Quellcode:

procedure TDemoForm.JvListViewCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  r: TRect;
begin
  with (Sender as TJvListView).Canvas do
  begin
    // restore background
    Brush.Style := bsClear;  
    FillRect(Item.DisplayRect(drBounds));
    // show caption
    r := Item.DisplayRect(drLabel);
    Textout(r.Left+2, r.Top+2, Item.Caption);
  end;
  // keep bad things from happening
  DefaultDraw := False;
end;

Grüße vom marabu

Wie bekomme ich die SmallIcons vor die Einträge gezeichnet? Und warum sind alle Captions ineinander gezeichnet?
Gruß, bluescreen25