anchor.diff:          ResetScrollbar;
           RePaint;
         end;
  -      
  +
       keyUp:
         begin
           if Selection = nil then
  
positive.code:         Canvas.SetColor(FTreeLineColor);
          Canvas.SetLineStyle(1, lsSolid);  // rectangle is always solid line style
          Canvas.DrawRectangle(w - FXOffset - GetColumnWidth(i1) div 2 - 3, ACenterPos - 3, 9, 9);
          
          Canvas.SetColor(clText1);
  
          if h.Collapsed {or h.HasChildren} then
  
negative.code:     next: PfpgTreeColumnWidth;
      width: word;
    end;
  
    // forward declaration
    TfpgTreeView = class;
    TfpgTreeNode = class;
  
    TfpgTreeNodeFindMethod = procedure(ANode: TfpgTreeNode; var AFound: boolean) of object;
    TfpgTreeExpandEvent = procedure(Sender: TObject; ANode: TfpgTreeNode) of object;
    TfpgStateImageClickedEvent = procedure(Sender: TObject; ANode: TfpgTreeNode) of object;
  