anchor.diff:      case AIndex of
         0: //Read-only
           begin
  -          (C as TCustomEdit).ReadOnly:= AppStrToBool(S);
  +          TCustomEdit(C).ReadOnly:= AppStrToBool(S);
             TCustomEditHack(C).ParentColor:= AppStrToBool(S);
           end;
         1: //Monospaced
  
positive.code:       0:
          begin
            if AppStrToBool(S) then
              (C as TTabControl).TabPosition:= tpBottom;
          end;
      end;
      exit
  
negative.code: begin
    if C.Enabled and C.Visible then
      if C is TWinControl then
        F.ActiveControl:= TWinControl(C);
  end;
  
  procedure DoForm_ScaleAuto(F: TForm);
  