anchor.diff:      C.TabIndex:= N;
   end;
   
  +procedure DoControl_SetState_Image(C: TImage; const SValue: string);
  +begin
  +  try
  +    C.Picture.LoadFromFile(SValue);
  +    C.Transparent:= true;
  +  except
  +  end;
  +end;
  +
   procedure DoControl_SetState_SpinEdit(C: TSpinEdit; const SValue: string);
   var
     N: integer;
  
positive.code:     (Ctl as TPanel).BevelInner:= bvNone;
      (Ctl as TPanel).BevelOuter:= bvNone;
      (Ctl as TPanel).OnClick:= @ADummy.DoOnChange;
      exit;
    end;
  end;
  
negative.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);
        if Ctl is TImage then DoControl_SetState_Image(Ctl as TImage, SValue);
  
        Continue;
      end;
  