anchor.diff:  var
     i: Integer;
     Pnt: TPoint;
  -  RDown: TRect;
  +  R1, RDown: TRect;
   begin
     Result:= -1;
     Pnt:= Point(X, Y);
  
positive.code:     TabObject: TObject;
      TabColor: TColor;
      TabModified: boolean;
    end;
  
  type
  
negative.code:   AInvert: Integer;
    TempCaption: atString;
  begin
    //optimize for 200 tabs
    if ARect.Left>=ClientWidth then exit;
  
    if FTabShowEntireColor and (ATabHilite<>clNone) then
      ATabBg:= ATabHilite;
  
  