anchor.diff:    if Id='button' then begin C:= TButton.Create(nil); DoControl_FixButtonHeight(C); end else
     if Id='label' then C:= TLabel.Create(nil) else
     if Id='combo' then C:= TComboBox.Create(nil) else
  -  if Id='combo_ro' then begin C:= TComboBox.Create(nil); TCombobox(C).ReadOnly:= true; end else
  +  if Id='combo_ro' then begin C:= TComboBox.Create(nil); TCombobox(C).Style:= csDropDownList; end else
     if (Id='edit') or (Id='filter_listview') or (Id='filter_listbox') then C:= TEdit.Create(nil) else
     if Id='spinedit' then C:= TSpinEdit.Create(nil) else
     if Id='check' then C:= TCheckbox.Create(nil) else
  
positive.code:   begin
      Ctl:= TComboBox.Create(AForm);
      (Ctl as TComboBox).DropDownCount:= 20;
      (Ctl as TComboBox).ReadOnly:= true;
      (Ctl as TComboBox).OnChange:= @AForm.DoOnChange;
      exit;
    end;
  
negative.code: 
    if C is TComboBox then
    begin
      if (C as TComboBox).Style=csDropDownList then
        exit(IntToStr((C as TComboBox).ItemIndex))
      else
        exit((C as TComboBox).Text);
  