anchor.diff:      (Ctl as TPanel).BevelInner:= bvNone;
       (Ctl as TPanel).BevelOuter:= bvNone;
       (Ctl as TPanel).OnClick:= @ADummy.DoOnChange;
  +    exit;
  +  end;
  +
  +  if S='image' then
  +  begin
  +    Ctl:= TImage.Create(AForm);
  +    (Ctl as TImage).Proportional:= true;
  +    (Ctl as TImage).AntialiasingMode:= amOn;
       exit;
     end;
   end;
  
positive.code:       if Ctl is TSpinEdit then DoControl_SetState_SpinEdit(Ctl as TSpinEdit, SValue);
        if Ctl is TListView then DoControl_SetState_Listview(Ctl as TListView, SValue);
        if Ctl is TTabControl then DoControl_SetState_TabControl(Ctl as TTabControl, SValue);
  
        Continue;
      end;
  
negative.code:         (Ctl as TATColorPanel).BorderColor:= StrToIntDef(SGetItem(SValue), clBlack);
        end;
  
        if (Ctl is TImage) then
        begin
          (Ctl as TImage).Center:= StrToBool(SGetItem(SValue));
          (Ctl as TImage).Stretch:= StrToBool(SGetItem(SValue));
          (Ctl as TImage).StretchInEnabled:= StrToBool(SGetItem(SValue));
          (Ctl as TImage).StretchOutEnabled:= StrToBool(SGetItem(SValue));
          (Ctl as TImage).KeepOriginXWhenClipped:= StrToBool(SGetItem(SValue));
          (Ctl as TImage).KeepOriginYWhenClipped:= StrToBool(SGetItem(SValue));
        end;
  
        Continue;
      end;
  
  