TVirtualStringTree Scrollbalken unterschiedliche Node Höhe

[stalkingwolf]

Bei MeasureItem

Delphi-Quellcode:

procedure Tfmain.vtMeasureItem(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; Node: PVirtualNode; var NodeHeight: Integer);
begin
    if sender.tag = 1 then NodeHeight := vt1.ComputeNodeHeight(TargetCanvas, Node, 2)+vt1.DefaultNodeHeight;
    if sender.tag = 2 then NodeHeight := vt2.ComputeNodeHeight(TargetCanvas, Node, 2)+vt2.DefaultNodeHeight;
end;