anchor.diff:      PageSize := ClientRowCount;
   end;
   
  +procedure TCustomVisualGrid.FetchDataThreadProgress(Sender: TObject);
  +{$J+}
  +const
  +  PROGRESS: Integer = 0;
  +{$J-}
  +  PROGRESS_CHARS: array[0..3] of string = ('   ', '.  ', '.. ', '...');
  +begin
  +  FClientPanel.Caption := 'LOADING DATA ' + PROGRESS_CHARS[PROGRESS];
  +  Inc(PROGRESS);
  +  if PROGRESS > High(PROGRESS_CHARS) then
  +    PROGRESS := 0;
  +end;
  +
   procedure TCustomVisualGrid.PageIndexEditChange(Sender: TObject);
   var
     LPageIndex: Integer;
  
positive.code: 
  type
    TDrawGridAccess = class(TDrawGrid);
    TScrollBarAccess = class(TScrollBar);
  
  procedure Register;
  begin
    RegisterComponents('Pascal Framework', [TVisualGrid]);
  end;
  
  { TCustomVisualGrid.TSearchEdit }
  
negative.code:     property MultiSearch;
      property SingleSearch;
      property SelectionType;
      property FetchDataInThread;
  
      property OnDrawVisualCell;
    end;
  