VirtualDrawTree: Bereich rechts von letzter Spalte zeichnen

[s.h.a.r.k]

Hallo zusammen,

schaut euch einfach den Screenshot an, da seht ihr das Problem eigentlich auf Anhieb. Und zwar zeichne ich in der OnDrawNode einen Gradient, wenn das Item selektiert ist, nur ist dieser leider auf die einzelnen Zellen beschränkt. Ich habe bisher noch keine Möglichkeit gefeunden, wie ich rechts von der letzten Spalte zeichnen kann. Ich hoffe mir kann jemand helfen

// edit

Natürlich den Screenshot vergessen... -.-

[Hawkeye219]

Hallo Armin,

vielleicht geht es so:

Delphi-Quellcode:

procedure TDemoForm.VDTBeforeItemErase(Sender: TBaseVirtualTree; TargetCanvas: TCanvas;
  Node: PVirtualNode; ItemRect: TRect; var ItemColor: TColor; var EraseAction: TItemEraseAction);
begin
  ItemRect.Left := 0;
  ItemRect.Right := Sender.ClientWidth;
  {GraphUtil.}GradientFillCanvas (TargetCanvas, clAqua, clYellow, ItemRect, gdHorizontal);

  EraseAction := eaNone;
end;

Gruß Hawkeye

[s.h.a.r.k]

Danke, werde es mal testen, aber was hat das mit dem Löschen zu tun?

[s.h.a.r.k]

Zitat von Hawkeye219:

Hallo Armin,

vielleicht geht es so:

Delphi-Quellcode:

procedure TDemoForm.VDTBeforeItemErase(Sender: TBaseVirtualTree; TargetCanvas: TCanvas;
  Node: PVirtualNode; ItemRect: TRect; var ItemColor: TColor; var EraseAction: TItemEraseAction);
begin
  ItemRect.Left := 0;
  ItemRect.Right := Sender.ClientWidth;
  {GraphUtil.}GradientFillCanvas (TargetCanvas, clAqua, clYellow, ItemRect, gdHorizontal);

  EraseAction := eaNone;
end;

Gruß Hawkeye

Naja, es funktionier nicht nur vielleicht, sondern es tut wirklich. Aber warum eigentlich?

[Hawkeye219]

Zitat von s.h.a.r.k:

Naja, es funktionier nicht nur vielleicht, sondern es tut wirklich. Aber warum eigentlich?

Das Ereignis OnBeforeItemErase wird aufgerufen, bevor ein Knoten gezeichnet wird. Das "erase" bezieht sich hier auf den Hintergrund. Du kannst in der Behandlungsroutine eine bestimmte Hintergrundfarbe für den Knoten festlegen (eaColor), den Hintergrund selbst zeichnen (eaNone) oder dem Tree das Zeichnen überlassen (eaDefault).

In der Dokumentation zum Virtual Treeview werden die paint cycles and stages genauer beschrieben.

Gruß Hawkeye

[s.h.a.r.k]

Absolute klasse, danke

[s.h.a.r.k]

@Hawkeye219: Hm... Irgendwie scheint das ganze aber Probleme zu verursachen Wenn ich deine Lösung nutze, so wird die Methode *immer* ausgeführt, auch wenn eigentlich nichts gezeichnet werden müsste. Somit habe ich (auf einem Core) eine CPU-Auslastung von 100%, was natürlich das Programm ungemein verlangsamt.

Ich bin leider erst gerade eben drauf gekommen, da ich diesen "Überhang" nur sehr selten zu sehen bekomme, eben nur dann, wenn ich die Anwendung auf Fullscreen setze.

[Hawkeye219]

Zitat von s.h.a.r.k:

Wenn ich deine Lösung nutze, so wird die Methode *immer* ausgeführt, auch wenn eigentlich nichts gezeichnet werden müsste. Somit habe ich (auf einem Core) eine CPU-Auslastung von 100%, was natürlich das Programm ungemein verlangsamt.

Ich kann das beschriebene Verhalten nicht nachstellen, und es dürfte eigentlich auch nicht am gezeigten Code liegen. Irgendetwas in deinem Programm scheint das Neuzeichnen des Controls bzw. einzelner Knoten zu erzwingen.

Gruß Hawkeye

[s.h.a.r.k]

jo, irgendwas hab ich da verkehrt gemacht, nun klappt alles