Как нарисовать стрелки, чтобы показать связанные данные между записями в двух TcxGrid?

Question

У меня есть две сетки (TcxGrid) в моем приложении, каждая из которых находится в стороне от формы. Обе сетки показывают связанные данные, хотя их можно прокручивать вертикально отдельно. Я хочу рисовать стрелки в средней панели, показывающей линию другой сетки, что запись связана с, как в этом примере:

GridA GridB 
+---+ +---+ 
| a |---| a | 
| b | | i | 
| c |\ | h | 
| d | \ | g | 
| e | \| h | 
| f | | b | 
+---+ +---+ 

Жеребьевка proccess прост. Моя проблема заключается в определении позиций записи. Как узнать, какова вертикальная позиция каждой строки/записи сетки, учитывая, что она может группироваться в обе сетки?

Заранее спасибо.

Answer 1

Я обнаружил, что вертикальное положение записи сетке может быть получен следующим образом:

Вид сетки имеет свойство ViewData.Rows. Rows - массив, и каждый его элемент имеет свойство RecordIndex. Таким образом, вы можете перебирать массив Rows и тестировать, если его RecordIndex - это тот, который вы находите, и если это правда, получите свойство ViewInfo.ClientBounds.Top.

Пример:

for i := 0 to gdMovimentoTV.ViewData.RowCount - 1 do 
    if gdMovimentoTV.ViewData.Rows[i].RecordIndex = iSomeRecordIndex then begin 
    if Assigned(gdMovimentoTV.ViewData.Rows[i].ViewInfo) then begin 
     Result := gdMovimentoTV.ViewData.Rows[i].ViewInfo.ClientBounds.Top; 
     Break; 
    end;