anchor.diff:      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));
  
positive.code:     (Ctl as TTrackBar).Min:= -100000;
      (Ctl as TTrackBar).Max:= 100000;
      (Ctl as TTrackBar).OnChange:= @AForm.DoOnChange;
      exit;
    end;
  
  
negative.code: 
    if C is TTrackBar then
      exit(IntToStr((C as TTrackBar).Position));
  
    if C is TProgressBar then
      exit(IntToStr((C as TProgressBar).Position));
  
    if C is TListFilterEdit then
      exit((C as TListFilterEdit).Text);
  