anchor.diff:    FHScrollbar.Visible     := False;
     FHScrollbar.Position    := 0;
     FHScrollbar.SliderSize  := 0.5;
  -  
  +
     FVScrollbar := TfpgScrollbar.Create(self);
     FVScrollbar.Orientation := orVertical;
     FVScrollbar.OnScroll    := @VScrollbarScroll;
     FVScrollbar.Visible     := False;
     FVScrollbar.Position    := 0;
     FVScrollbar.SliderSize  := 0.2;
  -  
  +
     FBackgroundColor  := clListBox;
     FTreeLineColor    := clShadow1; //clText1;
     FTreeLineStyle    := lsDot;
  
positive.code:   fpg_imagelist,
    fpg_scrollbar,
    fpg_menu;
    
  type
  
    TfpgNodeAttachMode = (naAdd, naAddFirst, naAddChild, naAddChildFirst, naInsert);
  
negative.code:         UpdateScrollBars;
        end;
      end;
  
      if dy - FVScrollbar.Position < 0 then
      begin
        FVScrollbar.Position := dy;
  