AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

listview linien zeichnen?

Ein Thema von gandime · begonnen am 6. Mai 2007
Antwort Antwort
gandime
(Gast)

n/a Beiträge
 
#1

listview linien zeichnen?

  Alt 6. Mai 2007, 13:33
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?
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:01 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