anchor.diff:    h: TfpgTabSheet;
     lp: integer;
     toffset: integer;
  +  dx: integer;
   begin
     if not HasHandle then
       Exit; //==>
  
positive.code:             if h <> ActivePage then
              begin
                toffset := 4;
                Canvas.SetColor(clHilite1);
                Canvas.DrawLine(FMargin + lp, FMargin + ButtonHeight - 2, FMargin + lp + ButtonWidth(h.Text), FMargin + ButtonHeight - 2);
                Canvas.SetColor(clHilite2);
                Canvas.DrawLine(FMargin + lp, FMargin + ButtonHeight - 1, FMargin + lp + ButtonWidth(h.Text) + 1, FMargin + ButtonHeight - 1);
                Canvas.SetColor(clShadow1);
                Canvas.DrawLine(lp + FMargin + ButtonWidth(h.Text), FMargin, lp + FMargin + ButtonWidth(h.Text), FMargin + ButtonHeight - 3);
                h.Visible := False;
              end
              else
  
negative.code: procedure TfpgTabSheet.HandlePaint;
  begin
    Canvas.BeginDraw;
  //  inherited HandlePaint;
    Canvas.Clear(FBackgroundColor);
    Canvas.EndDraw;
  end;
  