anchor.diff:      chkSort: TfpgCheckBox;
       cbTabPos: TfpgComboBox;
       edtHeight: TfpgEditInteger;
  +    lbl: TfpgLabel;
  +    procedure   TabSheet4Painting(Sender: TObject);
       procedure   edtHeightChanged(Sender: TObject);
       procedure   btnQuitClick(Sender: TObject);
       procedure   btn2Click(Sender: TObject);
  
positive.code:   {$IFDEF UNIX}{$IFDEF UseCThreads}
    cthreads,
    {$ENDIF}{$ENDIF}
    Classes,
    fpg_main, fpg_base, fpg_widget, fpg_form, fpg_tab, fpg_button,
    fpg_label, fpg_edit, fpg_checkbox, fpg_combobox;
  
  
negative.code:   tsFour := TfpgTabSheet.Create(pcMain);
    tsFour.Text := 'This is one long text caption';
    tsFour.BackgroundColor := clMediumSeaGreen;
    tsFour.OnPaint := @TabSheet4Painting;
    lbl := CreateLabel(tsFour, 30, 50, 'TabSheet Four');
  
    pcMain.ActivePage := tsOne;
  
    btn2 := CreateButton(self, 10, 320, 80, 'Page 1', @btn2Click);
  