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