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 Virtualstringtree: colrize odd row problem (https://www.delphipraxis.net/151213-virtualstringtree-colrize-odd-row-problem.html)

semo 9. Mai 2010 12:49


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:
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;
oder

Delphi-Quellcode:
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;
Wobei ich ersteres bevorzugen würde, da dieses Event nur bei jedem Knoten und das 2. Event bei jeder Zelle gefeuert wird.

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:
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;
Hat da jemand eine andere Idee?


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