anchor.diff:    FOptScrollMarkSizeX:= 20;
     FOptScrollMarkSizeY:= 4;
   
  +  FOptShowAtBottom:= false;
     FOptShowScrollArrows:= true;
     FOptShowScrollMark:= true;
     FOptShowDropMark:= true;
  
positive.code:   if TabCount>0 then
    begin
      D:= GetTabData(TabCount-1);
      Result:= Max(0, D.TabRect.Right - RDown.Left + FOptSpaceInitial + 2);
    end;
  end;
  
  
negative.code:   if IsClick then     
    begin
      DoHandleClick;
      Invalidate;
      Exit
    end;
  end;
  