anchor.diff:  
   procedure DoForm_AddControl(AForm: TForm; ATextItems: string; ADummy: TDummyClass);
   var
  -  SNameValue, SName, SValue, SListItem: string;
  -  NX1, NX2, NY1, NY2: integer;
  +  SNameValue, SName, SValue: string;
     Ctl, CtlPrev: TControl;
   begin
     Ctl:= nil;
  
positive.code:     //-------pos
      if SName='pos' then
      begin
        NX1:= StrToIntDef(SGetItem(SValue, ','), -1);
        NY1:= StrToIntDef(SGetItem(SValue, ','), -1);
        NX2:= StrToIntDef(SGetItem(SValue, ','), -1);
        NY2:= StrToIntDef(SGetItem(SValue, ','), -1);
        if NX1<0 then Continue;
        if NX2<0 then Continue;
        if NY1<0 then Continue;
        if NY2<0 then Continue;
        Ctl.Left:= NX1;
        Ctl.Width:= NX2-NX1;
        Ctl.Top:= NY1;
        if not DoControl_IsAutoHeight(Ctl) then
          Ctl.Height:= NY2-NY1;
        Continue;
      end;
  
  
negative.code:     //-------hint
      if SName='hint' then
      begin
        DoControl_SetHintFromString(Ctl, SValue);
        Continue;
      end;
  
      //-------act
      if SName='act' then
      begin
        if StrToBool(SValue) then
          Ctl.Tag:= Dummy_TagActive;
        Continue;
      end;
  