anchor.diff:          (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;
   
  
positive.code:     C.TabIndex:= N;
  end;
  
  procedure DoControl_SetState_SpinEdit(C: TSpinEdit; const SValue: string);
  var
    N: integer;
  
negative.code:     (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;
  