[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ß