anchor.diff:    {$IFDEF UNIX}{$IFDEF UseCThreads}
     cthreads,
     {$ENDIF}{$ENDIF}
  -  Classes,
  +  Classes, SysUtils,
     fpg_main, fpg_base, fpg_widget, fpg_form, fpg_tab, fpg_button,
     fpg_label, fpg_edit, fpg_checkbox, fpg_combobox;
   
  
positive.code:   tsFour := TfpgTabSheet.Create(pcMain);
    tsFour.Text := 'This is one long text caption';
    tsFour.BackgroundColor := clMediumSeaGreen;
    
    pcMain.ActivePage := tsOne;
  
    btn2 := CreateButton(self, 10, 320, 80, 'Page 1', @btn2Click);
  
negative.code:   end;
  
  { TMainForm }
  
  procedure TMainForm.TabSheet4Painting(Sender: TObject);
  begin
    lbl.Text := 'H: ' + IntToStr(tsFour.Height);
  end;
  
  procedure TMainForm.edtHeightChanged(Sender: TObject);
  begin
  