anchor.diff:      //-------hint
       if SName='hint' then
       begin
  -      //replace #13: QT cannot handle it in hint
  -      Ctl.Hint:= StringReplace(SValue, #13, #10, [rfReplaceAll]);
  +      DoControl_SetHintFromString(Ctl, SValue);
         Continue;
       end;
   
       //-------act
       if SName='act' then
       begin
  -      if SValue='1' then
  +      if StrToBool(SValue) then
           Ctl.Tag:= Dummy_TagActive;
         Continue;
       end;
  
positive.code:   until false;
  end;
  
  procedure DoForm_Scale(F: TForm);
  var
    PrevPPI, NewPPI: integer;
  
negative.code:     //-------pos
      if SName='pos' then
      begin
        DoControl_SetPosFromString(Ctl, SValue);
        Continue;
      end;
  
  