anchor.diff:    TextLeft, TextTop: Integer;
     dx: integer;
     lTxtFlags: TFTextFlags;
  +  ActivePageVisible: Boolean;
   begin
     if not HasHandle then
       Exit; //==>
  
positive.code:         DrawTab(r3, false, 2);
          Canvas.DrawText(r3.Left+4, r3.Top+3, r3.Width, r3.Height, ActivePage.Text, lTxtFlags);
        end;
    end;  { case }
    Canvas.EndDraw;
  end;
  
  
negative.code:   if PageCount = 0 then
      Exit; //==>
  
    TabW:=FixedTabWidth;
    TabH:=FixedTabHeight;
    ActivePageVisible := false;
    If TabH = 0 then
      TabH := TabHeight;
    h := TfpgTabSheet(FPages.First);
    if h = nil then
      Exit; //==>
  