anchor.diff:      PROGRESS := 0;
   end;
   
  -procedure TCustomVisualGrid.SetAllEditsAsReadOny(AReadOnly: boolean);
  +procedure TCustomVisualGrid.ControlsEnable(AEnable: boolean);
   var
     e: TSearchEdit;
  -begin
  -  FSearchEdit.ReadOnly:=AReadOnly;
  -  FPageSizeEdit.ReadOnly:=AReadOnly;
  -  FPageIndexEdit.ReadOnly:=AReadOnly;
  -  FDrawGrid.Enabled:=not AReadOnly;
  +  LReadOnly: boolean;
  +begin
  +  LReadOnly:=not AEnable;
  +  FMultiSearchCheckComboBox.Enabled:=AEnable;
  +  FSearchEdit.ReadOnly:=LReadOnly;
  +  FPageSizeEdit.ReadOnly:=LReadOnly;
  +  FPageIndexEdit.ReadOnly:=LReadOnly;
  +  FDrawGrid.Enabled:=AEnable;
     for e in FMultiSearchEdits do
  -    e.FEdit.ReadOnly:=AReadOnly;
  +    e.FEdit.ReadOnly:=LReadOnly;
   end;
   
   function TCustomVisualGrid.GetCells(ACol, ARow: Integer): Variant;
  
positive.code:   LCellData: Variant;
  begin
    LHandled := False;
    if ARow = 0 then
      ResizeSearchEdit(ACol);
    if (ARow > 0) and Assigned(FDataSource) then
  
negative.code:     function GetRows(ARow: Integer): Variant;
      function GetSelection: TVisualGridSelection;
      function GetCaptionVisible: boolean;
      procedure ControlsEnable(AEnable: boolean);
      function GetCanvas: TCanvas;
      function GetSingleSearch: boolean;
      procedure SetCaption(AValue: TCaption);
  