anchor.diff:      C.Font.Color:= StrToIntDef(AValue, C.Font.Color);
       exit;
     end;
  +
  +  if AName='tab_stop' then
  +  begin
  +    if C is TWinControl then
  +      (C as TWinControl).TabStop:= StrToBool(AValue);
  +    exit;
  +  end;
  +
  +  if AName='tab_order' then
  +  begin
  +    if C is TWinControl then
  +      (C as TWinControl).TabOrder:= StrToIntDef(AValue, -1);
  +    exit;
  +  end;
   end;
   
   
  
positive.code: 
  
  function DoControl_GetPropsAsStringDict(C: TControl): PPyObject;
  begin
    with GetPythonEngine do
    begin
      Result:= Py_BuildValue('{sssssssssssssisisisisssOsOsO}',
        'name', PChar(C.Name),
        'cap', PChar(C.Caption),
        'hint', PChar(C.Hint),
  
negative.code:       'val', PChar(DoControl_GetState(C)),
        'act', PyBool_FromLong(Ord(TAppControlProps(C.Tag).FActive)),
        'en', PyBool_FromLong(Ord(C.Enabled)),
        'vis', PyBool_FromLong(Ord(C.Visible)),
        'tab_stop', PyBool_FromLong(Ord(bTabStop)),
        'tab_order', nTabOrder
        );
    end;
  end;
  