Zeichnen in TListeView SubItem?

bruce185 · Beiträge: 282 winXP D7 Ent

Hallo,
wenn ich versuche einen Rect in TListView SubItem zu zeichnen, dann wird die komplette fläche von z.B. SubItem = 3 gefüllt, was ich nicht möchte.

So hab ich es versucht:

Delphi-Quelltext

markieren

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TfrmMain.ListeCustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  if SubItem = 3 then
  begin
    Liste.Canvas.Brush.Color := clRed;
    Liste.Canvas.Brush.Style := bsSolid;
    Liste.Canvas.FillRect(rect(0, 0, 10, 5));
  end
  else begin
    Liste.Canvas.Brush.Color := clWhite;
  end;
end;

Ich danke euch schonmal für die Hilfe.

Moderiert von Narses: Topic aus Multimedia / Grafik verschoben am Do 10.11.2011 um 14:01

Horschdware · Verfasst: Do 10.11.11 14:05

Ich weiss ja nicht genau, was du vorhast... aber:

Unter Umständen mag es dir helfen, nicht FillRect, sondern FrameRect zu verwenden.

Zum anderen mag es in deinem Interesse sein, den ursprünglichen Text wieder manuell zu zeichnen, da dieser (wenn ich mich richtig erinnere) in deinem Fall überschrieben (/-zeichnet) werden dürfte.

_________________
Delphi: XE - OS: Windows 7 Professional x64

bruce185 · Beiträge: 282 winXP D7 Ent

Danke Dir.
Mit FrameRect funktioniert das auch nicht.
Ich möchte einfach ein Rechteck mit der breite von z.B. 10 Pixel in ListView Spalte nr 3 zeichnen, aber er füllt immer die komplette Spalte aus.
Ich denke wegen dieser Zeile:

Delphi-Quelltext

markieren

1:	Liste.Canvas.Brush.Color := clRed;

Das müsste ja irgendwie machbar sein, eine bestimmte breite von TRect in Spalte nr 3 in Farbe rot zu zeichnen.

Danke schonmal.

Edit: Ich hab es jetzt so gelöst:

Delphi-Quelltext

markieren

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  if subitem<>4 then begin
    DefaultDraw:=True;
    exit;
  end;
  DefaultDraw:=False;
  r:=item.DisplayRect(drBounds);
  for i:=0 to 3 do
   r.left:=r.left+Liste.Columns[i].Width;
  r.right:=r.left+Liste.Columns[4].Width-20;
  Liste.Canvas.Brush.color:=clGreen;
  Liste.canvas.FillRect(r);

Danke trotzdem für die Hilfe.

Teekeks · Verfasst: Do 10.11.11 14:30

Was öfter mal hilft:
Die voreingestellte farbe merken, dann deine eigenen Sachen machen und danach die gemerkte Farbe wieder zurück stellen.

bruce185 · Beiträge: 282 winXP D7 Ent

Ich habe das jetzt gelöst und oben mein Beitrag editiert wie ich es gelöst habe.

Ich danke dir trotzdem für die Hilfe.

Moderiert von Narses: Beiträge zusammengefasst

Hallo nochmal,
wenn ich jetzt mehrere Einträge in der ListView habe und über Repaint neu zeichne, dann Flackert die Liste extrem.
Ich habe versucht DoubleBuffered einzusetzen, leider hilft mir das auch nicht weiter.

Kann mir da Vielleicht jemand Weiterhelfen?

Danke schonmal.

Edit: Ich hab für die Form DoubleBuffered gesetzt gehabt, deshalb hat es für die Liste nicht funktioniert.
Damit funktioniert es jetzt:

Delphi-Quelltext

markieren

1:	frmMain.Liste.DoubleBuffered := true;

Gruss


Delphi-Forum.de	Delphi-Library.de
C-Sharp-Forum.de	C-Sharp-Library.de