anchor.diff:    if FStyle = AValue then
       Exit; //==>
     FStyle := AValue;
  -  RePaintTitles;
  +  Invalidate;
   end;
   
   procedure TfpgPageControl.SetTabPosition(const AValue: TfpgTabPosition);
  
positive.code:     Exit; //==>
    FText := AValue;
    if PageControl <> nil then
      PageControl.RePaintTitles;
  end;
  
  procedure TfpgTabSheet.HandlePaint;
  
negative.code:       end;
    end; { case }
  
  end;
  
  procedure TfpgPageControl.HandlePaint;
  