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