anchor.diff:  end;
   
   
  -
   function DoControl_GetPropsAsStringDict(C: TControl): PPyObject;
   begin
     with GetPythonEngine do
  
positive.code:       end;
      end;
  
      Result:= Py_BuildValue('{sssisisisisOsi}',
        'cap', PChar(F.Caption),
        PChar(string('x')), F.Left,
        PChar(string('y')), F.Top,
        PChar(string('w')), F.Width,
        PChar(string('h')), F.Height,
        'res', ResObj,
        'focus', NActive
        );
    end;
  end;
  
negative.code: 
  function DoForm_GetPropsAsStringDict(F: TForm): PPyObject;
  var
    NActive, NClicked, i: integer;
  begin
    with GetPythonEngine do
    begin
      NClicked:= F.ModalResult-Dummy_ResultStart;
      if NClicked<0 then
        NClicked:= -1;
  
      NActive:= -1;
      for i:= 0 to F.ControlCount-1 do
  