anchor.diff:    if FOptShowEntireColor then
     begin
       Data:= GetTabData(AIndex);
  +    if (FTabIndexOver=AIndex) and not _IsDrag and Assigned(Data) and (Data.TabColorOver<>clNone) then
  +      Result:= Data.TabColorOver
  +    else
       if Assigned(Data) and (Data.TabColor<>clNone) then
         Result:= Data.TabColor;
     end;
  
positive.code: begin
    inherited;
    TabColor:= clNone;
    TabImageIndex:= -1;
    TabFontStyle:= [];
  end;
  
negative.code:     end;
    end;
  
    NColor:= clNone;
    if ATabMouseOver and not ATabActive and Assigned(Data) and (Data.TabColorOver<>clNone) then
      NColor:= Data.TabColorOver
    else
    if ATabActive and Assigned(Data) and (Data.TabColorActive<>clNone) then
      NColor:= Data.TabColorActive
    else
    if Assigned(Data) and (Data.TabColor<>clNone) then
      NColor:= Data.TabColor;
  
    //colored band
    if not FOptShowEntireColor then
    begin
      if NColor<>clNone then
      begin
        case FOptPosition of
          atpTop:
  