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