ListView Columns und OwnerDraw

[EWeiss]

[quote="Nils_13"]

Zitat von marabu:

Hallo Nils,
Das heißt genauer ? Diese Sachen gehen so langsam über meinen Wissensbereich hinaus....

Es geht auch so.

Code:

    Dim i As Integer
    picBg.Width = lv.Width
    picBg.Height = lv.ListItems(1).Height * (lv.ListItems.Count)
    picBg.ScaleHeight = lv.ListItems.Count
    picBg.ScaleWidth = 1
    picBg.DrawWidth = 1
    picBg.Cls
    For i = 1 To lv.ListItems.Count
    
       If lv.ListItems(i).Checked = True Then
         picBg.Line (0, i - 1)-(1, i), &HC0FFFF, BF
       Else
         picBg.Line (0, i - 1)-(1, i), &HFF8080, BF
       End If
    Next
    

    lv.Picture = picBg.Image

Allerdings in VB mußt du nur übersetzen habe jetzt leider nicht die zeit dazu das für dich zu machen.

picBg ist ne PicBox mußt du eine alternative in Delphi finden.
lv = Listview mit lvwReport das gleiche wie vsReport in Delphi

gruß