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:   end;
  end;
  
  procedure DoControl_SetState_ScrollBox(C: TScrollbox; const AValue: string);
  var
    S1, S2: string;
    N: integer;
  begin
    SSplitByChar(AValue, ',', S1, S2);
  
    N:= StrToIntDef(S1, -1);
    if N>=0 then
      C.VertScrollBar.Position:= N;
  
    N:= StrToIntDef(S2, -1);
    if N>=0 then
      C.HorzScrollBar.Position:= N;
  end;
  
  function DoControl_GetState_Listview(C: TListView): string;
  // index;check0,check1,
  