Unterschidliche Schriftgrössen in Virtualstringtree

[aschne1]

@generic
Danke für Deine Hilfe. Funzt prima!

Für alle die das gleiche Problem haben noch mein Code:

Delphi-Quellcode:

procedure Tfrm_Pos.vstPositionBeforeItemErase(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; Node: PVirtualNode; ItemRect: TRect;
  var ItemColor: TColor; var EraseAction: TItemEraseAction);
begin
  if Node.Parent = Sender.RootNode then
    if Odd(Node.Index) then ItemColor:=kon_color1 else
  else
    if Odd(Node.Parent.Index) then ItemColor:=kon_color1;
  EraseAction:=eaColor;
end;

procedure Tfrm_Pos.vstPositionPaintText(Sender: TBaseVirtualTree;
  const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
  TextType: TVSTTextType);
begin
  if Node.Parent <> Sender.RootNode then
  begin
    TargetCanvas.Font.Size:=8;
    Node.NodeHeight := 16;
  end;
end;

Gruss