Уважаемый alexs, честно говоря я ничего не понял в Вашем примере
Взял за основу пример из поста dunin.
Ставлю в начале процедуры
- Код: Выделить всё
TRxDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol - 1, Column, State);
а потом высталяю свои закраски, так более менее работает.
Но не могу победить следующую проблему, если я использую заливку типа
- Код: Выделить всё
RxDBGrid1.Canvas.FillRect(Rect);
то у указанных ячейках исчезают разделительные линии между другими ячейками, как будто заливка и их "задевает"
- Код: Выделить всё
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol - 1, Column, State);
if SQLQSuperSBt1.FieldByName('lastv').AsString = '05.03.2013' then
begin
RxDBGrid1.Canvas.Brush.Color:=$0079F88D;
RxDBGrid1.Canvas.Font.Color:=clBlack;
RxDBGrid1.Canvas.FillRect(Rect);
RxDBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text);
end;

Такая вот беда идет только в RxDBGrid, до сего момента использовал стандартный DBGrid, там срабатывает штатно