anchor.diff:        begin
           lTxtFlags += TextFlagsDflt;
           lp := 0;
  -        r2.SetRect(2, Height - ButtonHeight-3, 50, 21);
  +        r2.SetRect(2, Height - ButtonHeight-3, 50, TabH);
           while h <> nil do
           begin
             if h <> ActivePage then
  
positive.code:       begin
          lTxtFlags += TextFlagsDflt;
          lp := 0;
          r2.SetRect(2, 2, 50, 21);
          while h <> nil do
          begin
            if h <> ActivePage then
  
negative.code: 
  procedure TfpgPageControl.RePaintTitles;
  const
    TAB_HEIGHT = 21;
  var
    TabW, TabH: Integer;
    r2: TfpgRect;
  