Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi listview linien zeichnen? (https://www.delphipraxis.net/91516-listview-linien-zeichnen.html)

gandime 6. Mai 2007 13:33


listview linien zeichnen?
 
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?


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:46 Uhr.

Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf