hi,
ich möchte die einzelnen items mit strichen voneinander trennen mein erster versuch sieht bildlich so aus:
Bild
mein code:
Delphi-Quellcode:
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState;
var DefaultDraw: Boolean);
var
r_temp,r_temp2:real;
i:integer;
begin
Sender.Canvas.Pen.Color:=
rgb(195,196,200);
r_temp:=round(Item.
Index/2);
r_temp2:=Item.
Index/2;
if (Item.SubItems.Strings[0]='
angriff')
then
begin
Sender.Canvas.Brush.Color:=
rgb(241,209,209);
end
else if (r_temp=r_temp2)
then
begin
Sender.Canvas.Brush.Color:=
rgb(223,230,235);
end
else
begin
Sender.Canvas.Brush.Color:=clwhite;
end;
for I := 0
to ListView1.Columns.Count -1
do
begin
Sender.Canvas.MoveTo(ListView1.Column[i].Width-1,0);
Sender.Canvas.LineTo(ListView1.Column[i].Width-1,ListView1.Height);
end;
end;
wie bekomme ich die horizontalen striche hin undwie kann ich das problem beheben das manchmal der strich nicht im vordergrund ist, wie auch auf dem bild zu sehen ist?