anchor.diff:  procedure TfpgTabSheet.HandlePaint;
   begin
     Canvas.BeginDraw;
  -  inherited HandlePaint;
  +//  inherited HandlePaint;
     Canvas.Clear(FBackgroundColor);
     Canvas.EndDraw;
   end;
  
positive.code:             else
                h := nil;
            end;  { while }
            Canvas.SetColor(clHilite1);
            Canvas.Drawline(lp + 1, FMargin + ButtonHeight - 2, Width, FMargin + ButtonHeight - 2);
            Canvas.SetColor(clHilite2);
            Canvas.Drawline(lp + 1, FMargin + ButtonHeight - 1, Width, FMargin + ButtonHeight - 1);
          end;
  
      tpBottom:
  
negative.code:   // forward declaration
    TfpgPageControl = class;
    
    TfpgTabStyle    = (tsTabs, tsButtons, tsFlatButtons);
    TfpgTabPosition = (tpTop, tpBottom{, tpLeft, tpRight});
  
  
    TfpgTabSheet = class(TfpgWidget)
    private
  