anchor.diff:    end;
   
   { TMainForm }
  +
  +procedure TMainForm.edtHeightChanged(Sender: TObject);
  +begin
  +  pcMain.FixedTabHeight := edtHeight.Value;
  +end;
   
   procedure TMainForm.btnQuitClick(Sender: TObject);
   begin
  
positive.code:   inherited Create(AOwner);
    WindowTitle := 'Tab control test';
    SetPosition(100, 100, 566, 350);
    
    btnQuit := CreateButton(self, 476, 320, 80, 'Quit', @btnQuitClick);
    btnQuit.ImageName := 'stdimg.Quit';
  
negative.code:   cbTabPos.Items.Add('tpNone');
    cbTabPos.FocusItem := 0;
    cbTabPos.Anchors := [anBottom, anLeft];
    cbTabPos.Hint := 'Tab position';
    cbTabPos.OnChange := @cbTabPosChanged;
  
    CreateLabel(self, 390, 325, 'Height:');
    edtHeight := CreateEditInteger(self, 435, 320, 30, 24, False);
    edtHeight.Value := 0;
    edtHeight.Hint := 'Tab height';
    edtHeight.OnChange := @edtHeightChanged;
  end;
  
  procedure MainProc;
  