anchor.diff:    C: TControl;
   begin
     Result:= 0;
  -  if Id='button' then C:= TButton.Create(nil) else
  +  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
  
positive.code:   end;
  end;
  
  
  procedure DoForm_AddControl(AForm: TForm; ATextItems: string; ADummy: TDummyClass);
  var
  
negative.code:       Ctl.Left:= NX1;
        Ctl.Width:= NX2-NX1;
        Ctl.Top:= NY1;
        if not DoControl_IsAutoHeight(Ctl) then
          Ctl.Height:= NY2-NY1;
        Continue;
      end;
  