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