![]() |
Virtualstringtree: colrize odd row problem
Ich möchte in einem Virtualtree jede 2. Zeile einfärben.
Dies kann ich auf zweierlei Arten tun:
Delphi-Quellcode:
oder
procedure TForm.VSTBeforeItemErase(Sender: TBaseVirtualTree;
TargetCanvas: TCanvas; Node: PVirtualNode; ItemRect: TRect; var ItemColor: TColor; var EraseAction: TItemEraseAction); begin if Odd(Sender.AbsoluteIndex(Node)) then begin ItemColor := clBlue; end; EraseAction:=eaColor; end;
Delphi-Quellcode:
Wobei ich ersteres bevorzugen würde, da dieses Event nur bei jedem Knoten und das 2. Event bei jeder Zelle gefeuert wird.
procedure TForm.VSTBeforeCellPaint(Sender: TBaseVirtualTree;
TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex; CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect); begin if Odd(Sender.AbsoluteIndex(Node)) then begin Canvas.Brush.Color := clBlue; Canvas.FillRect(CellRect); end; end; Problem: bei hidden Nodes wird das Konzept der unterschiedlich eingefärbten sichtbaren Knoten über den Haufen geworfen. Man müsste hier sowas wie einen sichtbaren AbsoluteIndex oder ähnliches haben. Ich hab da zwar schon Versuche angestellt, bin damit aber neoch nicht wirklich zufrieden, weil bei jeder Überprüfung maximal alle sichtbaren Knoten durchlaufen werden müssen. Dies wird besonders bei großen Listen (> 100.000) ein Problem während des Scrollens.
Delphi-Quellcode:
Hat da jemand eine andere Idee?
function TMyVirtualStringTree.GetVisibleIndex(ANode: PVirtualNode): Integer;
var VisibleIndex: Integer; VisibleNode: PVirtualNode; begin Result := -1; VisibleIndex := 0; VisibleNode := GetFirstVisible(); while Assigned(VisibleNode) do begin if VisibleNode = ANode then begin Result := VisibleIndex; Break; end else begin Inc(VisibleIndex); VisibleNode := Self.GetNextVisible(VisibleNode); end; end; end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:02 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz