anchor.diff:    end;
   end;
   
  +function DoControl_GetState_ScrollBox(C: TScrollBox): string;
  +begin
  +  Result:= Format('%d,%d,%d,%d,%d,%d', [
  +    C.VertScrollBar.Position,
  +    C.HorzScrollBar.Position,
  +    C.VertScrollBar.Range,
  +    C.HorzScrollBar.Range,
  +    C.VertScrollBar.Page,
  +    C.HorzScrollBar.Page
  +    ]);
  +end;
  +
  +
   function DoControl_GetState(C: TControl): string;
   begin
     Result:= '';
  
positive.code:       Result:= Result+IntToStr(Ord(C.Items[i].Checked))+',';
    end;
  end;
  
  
  procedure DoControl_ApplyEditorProps(Ed: TATSynEdit; AForm: TFormDummy;
    AApplyUnprintedAndWrap, AApplyTabSize, AApplyCentering, AOneLiner: boolean);
  
negative.code:   if C is TListViewFilterEdit then
    begin
      TListViewFilterEdit(C).Text:= S;
      exit
    end;
    if C is TScrollBox then
    begin
      DoControl_SetState_ScrollBox(TScrollBox(C), S);
      exit
    end;
  end;
  