anchor.diff:      btn2, btn3: TfpgButton;
       chkSort: TfpgCheckBox;
       cbTabPos: TfpgComboBox;
  +    edtHeight: TfpgEditInteger;
  +    procedure   edtHeightChanged(Sender: TObject);
       procedure   btnQuitClick(Sender: TObject);
       procedure   btn2Click(Sender: TObject);
       procedure   btn3Click(Sender: TObject);
  
positive.code:   end;
  
  { TMainForm }
  
  procedure TMainForm.btnQuitClick(Sender: TObject);
  begin
  
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;
  