Позиционировать текущую запись в центре cxGrid

После программного перемещения по записям, например, реализации поиска функцией Locate, cxGrid перемещает видимую область минимально, и если найденная запись была за невидима, она оказывается на краю. Красивее, если в результатет поиска найденное окажется в середине таблицы.

  ...
  cxGridDBTableView.Controller.TopRecordIndex := 
    cxGrid1DBTableView1.Controller.FocusedRecordIndex 
    - Round((cxGrid1DBTableView1.ViewInfo.RecordsViewInfo.VisibleCount+1)/2);
  ...
Метки: