anchor.diff:      SValue:= StringReplace(SValue, #2, ',', [rfReplaceAll]);
       DoForm_SetPropFromPair(F, SKey, SValue);
     until false;
  -end;
  -
  -procedure _SetDictKey(Obj: PPyObject; const AKey, AValue: string);
  -begin
  -  if AValue<>'' then
  -    with AppPython.Engine do
  -      PyDict_SetItemString(Obj, PChar(AKey), PyUnicodeFromString(AValue));
   end;
   
   function DoControl_GetPropsAsStringDict(C: TControl): PPyObject;
  
positive.code: const
    cControlBorderStyles: array[boolean] of TBorderStyle = (bsNone, bsSingle);
  
  
  function DoControl_Target(C: TControl): TControl; inline;
  begin
  
negative.code:       PChar(string('p')), PyLong_FromLongLong(PtrInt(F.Parent))
        );
    end;
  
    _SetDictKey(Result, 'on_close', F.FEventOnClose);
    _SetDictKey(Result, 'on_close_query', F.FEventOnCloseQuery);
    _SetDictKey(Result, 'on_key_down', F.FEventOnKeyDown);
    _SetDictKey(Result, 'on_key_up', F.FEventOnKeyUp);
    _SetDictKey(Result, 'on_resize', F.FEventOnResize);
    _SetDictKey(Result, 'on_mouse_enter', F.FEventOnMouseEnter);
    _SetDictKey(Result, 'on_mouse_exit', F.FEventOnMouseExit);
    _SetDictKey(Result, 'on_show', F.FEventOnShow);
    _SetDictKey(Result, 'on_hide', F.FEventOnHide);
  end;
  
  
  