anchor.diff:    end;
   
   { TMainForm }
  +
  +procedure TMainForm.edtHeightChanged(Sender: TObject);
  +begin
  +  pcMain.FixedTabHeight := edtHeight.Value;
  +end;
   
   procedure TMainForm.btnQuitClick(Sender: TObject);
   begin
  
positive.code:     btn2, btn3: TfpgButton;
      chkSort: TfpgCheckBox;
      cbTabPos: TfpgComboBox;
      procedure   btnQuitClick(Sender: TObject);
      procedure   btn2Click(Sender: TObject);
      procedure   btn3Click(Sender: TObject);
  
negative.code:   inherited Create(AOwner);
    WindowTitle := 'Tab control test';
    SetPosition(100, 100, 566, 350);
    ShowHint := True;
    
    btnQuit := CreateButton(self, 476, 320, 80, 'Quit', @btnQuitClick);
    btnQuit.ImageName := 'stdimg.Quit';
  