anchor.diff:      h := FirstSubNode;
       while h <> nil do
       begin
  -//      writeln('h.Text = ', h.Text);
         if h.Text = AText then
         begin
           result := h;
  
positive.code:     // only paint the node if it is fully visible
      if i > FXOffset then
      begin
  //      writeln('painting node: ', h.Text);
        if h = Selection then // draw the selection rectangle and text
        begin
          if Focused then
  
negative.code: procedure TfpgTreeview.HandleResize(awidth, aheight: TfpgCoord);
  begin
    {$IFDEF DEBUG}
    SendDebug(Classname + '.HandleResize');
    {$ENDIF}
    inherited HandleResize(awidth, aheight);
    if not (csLoading in ComponentState) then
  