Подскажите пожалуйста решение проблемы.
В ячейках грида по определённым условиям "рисую" TComboBox или TDateEdit
Для того, чтобы они передвигались при прокрутке написал вот такой код:
- Код: Выделить всё
procedure TFMain.sgDopAgidDrawCell(Sender: TObject; aCol, aRow: Integer;
aRect: TRect; aState: TGridDrawState);
begin
if sgDopAgid.Objects[2, aRow] is TComboBox then
TComboBox(sgDopAgid.Objects[2, aRow]).BoundsRect := sgDopAgid.CellRect(2, aRow);
end;
Проблема заключается в том, что компонент находящийся на первой строке никуда не передвигается.
Т.е. допустим, что на первой строке (Row=1) находится ComboBox, а на второй нет ничего, то при скролле он не "исчезает"
Добавлено спустя 3 минуты 41 секунду:
Собственно говоря подобное происходит когда компоненты находятся на границах Грида, вверху или внизу