Добрый день.
Пытаюсь получить из DBGridEh что-то типа чата. Для этого хочу отрисовать RoundRect в качестве фона для текста в событии AdvDrawDataCell DBGridEh (или Column, неважно, результат тот же).
В результате,
При запуске приложения:
1. В первой ячейке первой колонки нижний правый угол не округляется
2. В первой ячейке первой колонки текст смещается вправо и вниз на какой-то непонятный отступ
3. Во всех остальных ячейках первой колонки текст не отображается
4. Во всех ячейках второй колонки текст также не отображается
После прокрутки вниз и обратно вверх:
1. Текст в ячейках первой колонки отображается, но со смещением вправо
2. Во всех ячейках второй колонки текст не отображается
После повторной прокрутки вниз:
1. Текст в ячейках первой колонки либо не отображается, либо отображается со смещением вправо и большим смещением вниз
2. Во всех ячейках второй колонки текст по-прежнему не отображается
Пробовал и с группировкой и без - результат тот же.
Вот весь текст события AdvDrawDataCell
Код:
if not Column.Field.IsNull then
begin
Sender.Canvas.Brush.Color := clWhite;
Sender.Canvas.FillRect(ARect);
if Column.Index = 0 then
Sender.Canvas.Pen.Color := clSkyBlue
else
Sender.Canvas.Pen.Color := clWebTan;
Sender.Canvas.Brush.Color := Sender.Canvas.Pen.Color;
Sender.Canvas.RoundRect(ARect, 30, 30);
Sender.DrawColumnDataCellMainContent(Cell, AreaCell, Column, ARect, Params, ARect);
Processed := True;
end;
Проект во вложении (к нему нужно приложить Biolife.mdb из папки Demos\Data).
Тестировался на версии 10.2.034 в RS 11.2 под Win 11.
Подскажите, пожалуйста, что или где я делаю не так, или это всё-таки баги?
И ещё, если не трудно, подскажите как можно убрать кнопку для сворачивания и разворачивания группы?
Заранее, спасибо!