anchor.diff:    if C is TTrackBar then
     begin
       (C as TTrackBar).Position:= StrToIntDef(S, 0);
  +    exit
  +  end;
  +  if C is TProgressBar then
  +  begin
  +    (C as TProgressBar).Position:= StrToIntDef(S, 0);
       exit
     end;
     if C is TListFilterEdit then
  
positive.code:     (Ctl as TTrackBar).Min:= -100000;
      (Ctl as TTrackBar).Max:= 100000;
      (Ctl as TTrackBar).OnChange:= @AForm.DoOnChange;
      exit;
    end;
  
  
negative.code:     exit;
    end;
  
    if (C is TProgressBar) then
    begin
      (C as TProgressBar).Orientation:= TProgressBarOrientation(StrToIntDef(SGetItem(S), 0));
      (C as TProgressBar).Min:= StrToIntDef(SGetItem(S), 0);
      (C as TProgressBar).Max:= StrToIntDef(SGetItem(S), 100);
      (C as TProgressBar).Smooth:= StrToBool(SGetItem(S));
      (C as TProgressBar).Step:= StrToIntDef(SGetItem(S), 1);
      (C as TProgressBar).Style:= TProgressBarStyle(StrToIntDef(SGetItem(S), 0));
      (C as TProgressBar).BarShowText:= StrToBool(SGetItem(S));
      exit;
    end;
  
    if (C is TListViewFilterEdit) then
    begin
      (C as TListViewFilterEdit).ByAllFields:= StrToBool(SGetItem(S));
  