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:             FLeftButton.Visible   := False;
              FRightButton.Visible  := False;
            end;
            // tabsheet area - left outer line
            Canvas.SetColor(clHilite1);
            Canvas.DrawLine(FMargin, ButtonHeight, FMargin, Height-(FMargin*2));
            // tabsheet area - left inner line
            Canvas.SetColor(clHilite2);
            Canvas.DrawLine(FMargin+1, ButtonHeight+1, FMargin+1, Height - (FMargin*2) - 1);
            // tabsheet area - outer bottom & right line
            Canvas.SetColor(clShadow2);
            Canvas.DrawLine(FMargin, Height - (FMargin*2), Width - (FMargin*2), Height - (FMargin*2));
            Canvas.DrawLine(Width - (FMargin*2), Height - (FMargin*2), Width - (FMargin*2), FMargin + ButtonHeight - 3);
            // tabsheet area - inner bottom & right line
            Canvas.SetColor(clShadow1);
            Canvas.DrawLine(FMargin + 1, Height - (FMargin*2) - 1, Width - (FMargin*2) - 1, Height - (FMargin*2) - 1);
            Canvas.DrawLine(Width - FMargin - 2, Height - FMargin - 2, Width - FMargin - 2, FMargin + ButtonHeight - 2);
            Canvas.SetClipRect(r);
            lp := 0;
            while h <> nil do
  