anchor.diff:              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 - 1, FMargin + ButtonHeight - 1, Width - FMargin - 1, Height - FMargin);
  +          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, FMargin + ButtonHeight - 1, Width - FMargin - 2, Height - FMargin - 2);
  +          Canvas.DrawLine(Width - FMargin - 2, Height - FMargin - 2, Width - FMargin - 2, FMargin + ButtonHeight - 2);
             Canvas.SetClipRect(r);
             lp := 0;
             while h <> nil do
  
positive.code: procedure TfpgTabSheet.HandlePaint;
  begin
    Canvas.BeginDraw;
    inherited HandlePaint;
    Canvas.Clear(FBackgroundColor);
    Canvas.EndDraw;
  end;
  
negative.code:             else
                h := nil;
            end;  { while }
            // tabsheet area - top lines on right of tabs
            Canvas.SetColor(clHilite1);
            Canvas.Drawline(lp + 1, FMargin + ButtonHeight - 2, Width - (FMargin*2), FMargin + ButtonHeight - 2);
            Canvas.SetColor(clHilite2);
            Canvas.Drawline(lp , FMargin + ButtonHeight - 1, Width - (FMargin*2)-1, FMargin + ButtonHeight - 1);
          end;
  
      tpBottom:
  