anchor.diff:    end;
   
   { TMainForm }
  +
  +procedure TMainForm.TabSheet4Painting(Sender: TObject);
  +begin
  +  lbl.Text := 'H: ' + IntToStr(tsFour.Height);
  +end;
   
   procedure TMainForm.edtHeightChanged(Sender: TObject);
   begin
  
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:     chkSort: TfpgCheckBox;
      cbTabPos: TfpgComboBox;
      edtHeight: TfpgEditInteger;
      lbl: TfpgLabel;
      procedure   TabSheet4Painting(Sender: TObject);
      procedure   edtHeightChanged(Sender: TObject);
      procedure   btnQuitClick(Sender: TObject);
      procedure   btn2Click(Sender: TObject);
  