anchor.diff:    Canvas.EndDraw;
   end;
   
  +procedure TfpgPageControl.HandleShow;
  +begin
  +  inherited HandleShow;
  +  FLeftButton.Visible := False;
  +  FRightButton.Visible := False;
  +end;
  +
   procedure TfpgPageControl.HandleLMouseUp(x, y: integer; shiftstate: TShiftState);
   var
     h: TfpgTabSheet;
  
positive.code:     procedure   OrderSheets; // currently using bubblesort
      procedure   RePaintTitles; virtual;
      procedure   HandlePaint; override;
      procedure   HandleLMouseUp(x, y: integer; shiftstate: TShiftState); override;
      procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
    public
  
negative.code:   FLeftButton := TfpgButton.Create(self);
    FLeftButton.Text      := '<';
    FLeftButton.Width     := FLeftButton.Height;
    FLeftButton.OnClick   := @LeftButtonClick;
  
    FRightButton := TfpgButton.Create(self);
    FRightButton.Text     := '>';
    FRightButton.Width    := FRightButton.Height;
    FRightButton.OnClick  := @RightButtonClick;
  end;
  
  