anchor.diff:    r: integer;
   begin
     {$IFDEF DEBUG}
  -  writeln('TfpgTreeView.MaxNodeWidth');
  +  SendDebug(Classname + '.MaxNodeWidth');
     {$ENDIF}
     result := 0;
     h := RootNode.FirstSubNode;
  
positive.code: procedure TfpgTreeview.VScrollbarScroll(Sender: TObject; position: integer);
  begin
    {$IFDEF DEBUG}
    writeln(Classname, '.VScrollbarMove');
    {$ENDIF}
    FYOffset := Position;
    RePaint;
  
negative.code:   AImage: TfpgImageItem;
  begin
    {$IFDEF DEBUG}
    SendDebug(Classname + '.GetNodeWidth');
    {$ENDIF}
    if ANode = nil then
      Result := 0
  