anchor.diff:        Ctl.Left:= NX1;
         Ctl.Width:= NX2-NX1;
         Ctl.Top:= NY1;
  -      if not DoControl_IsAutosizeY(Ctl) then
  +      if not DoControl_IsAutoHeight(Ctl) then
           Ctl.Height:= NY2-NY1;
         Continue;
       end;
  
positive.code:   C: TControl;
  begin
    Result:= 0;
    if Id='button' then C:= TButton.Create(nil) 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
  
negative.code:     (C is TSpinEdit);
  end;
  
  procedure DoControl_FixButtonHeight(C: TControl);
  begin
    {$ifdef windows}
    C.Height:= 23; //smaller
    {$endif}
  
    {$ifdef linux}
    C.Height:= 25;
    {$endif}
  
    {$ifdef darwin}
    C.Height:= 21; //smaller
    {$endif}
  end;
  
  function DoControl_GetState_Listview(C: TListView): string; forward;
  
  function DoControl_GetState(C: TControl): string;
  var
    i: integer;
  