Подсветка только что вставленной записи в БД

[artemavd]

Добрый вечер! Захотелось чо-то как-то разукрасить немного программку свою. Есть идея: после вставки записи в БД, подсветить ячейку с только что вставленною записью и закрасить ее (сохранив текст в ячейке) в какой-нибдуь цвет. Подскажите как это можно сделать? Чтобы визуально было видно, какие данные добавились. Именно записи, которые были вставлены последними в запросе.

[Stilet]

Смотря как у тебя записи характеризуются.
Например после вставки с учетом что ключ - автоинкрементное поле, можно просто сделать выборку этого ключа по максимуму: Select max(id) from...
После переоткрыть уже измененный набор данных, и в обработчике открисовки прописать заливку другим цветом если поле такое-то равно тому что max(id) вернет
Идею понял?

[artemavd]

Та не, автоинкрементного ключа нету. ПРосто идет вставка.

[Stilet]

Ну даже не знаю...
Если не к чему привязываться, то наверное ничего не получится.

[artemavd]

Ну а если как-то сравнить целую колонку с каким-то значение и потом красить? Был бы обычный стринггрид, было бы проще. Может как-то запросом можно сравнить колонку из датасета со значением?

[Аватар]

Если последние вставленные записи имеют какой-то набор полей, однозначно идентифицирующие записи, то значения этих полей можно сохранить в динамическом массиве. А потом использовать его для окраски фона колонок грида. При следующей операции вставки очищать массив и заполнять новыми значениями и т.д.

[artemavd]

Вот, нашел код покраски всей строки:

procedure TForm2.DBGridEh3DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
 if TDBGridEh(Sender).DataSource.DataSet.FieldByName('DATAOBR').AsString = DateToStr(Form12.sDateEdit1.Date) then
    TDBGridEh(Sender).Canvas.Font.Color:=clBlue;
    TDBGridEh(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

Однако компилятор ругается и говорит, что

[Error] Unit2.pas(1889): Incompatible types

и показывает строчку:

    TDBGridEh(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);

Уже который раз сталкиваюсь с этой проблемкой и никак не могу найти решение. Кто знает, подскажите что не так?

[Прик]

По моему более надежное и простое решение это событие гриды OnGetCellParams.
В нем можно по условию менять как цвет шрифта, так и цвет закраски.
Пользуюсь для целей выделения строк в DBGridEh только им и проблем никогда не возникает. К примеру:

procedure TFrameB.DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh; 
      AFont: TFont; var Background: TColor; State: TGridDrawState);
begin
  if DM.qrSelectB.FieldValues['D1'] < Date then
    AFont.Color := clMedGray;

  if (DateToStr(DM.qrSelectB.FieldValues['D1']) = DateToStr(Date)) and
     (DM.qrSelectB.FieldValues['B_R'] = 0) and (Column.FieldName = 'D1')
  then begin
    AFont.Color := clBlue;
    AFont.Style := [fsBold];
    Background := $EFD3C6;
  end;
end;

Можно еще проверить значение параметра State и в зависимости от того отмечена строка или нет менять подсветку.
Иначе синий маркер (цвет по умолчанию), который показывает текущую строку затирает сделанные изменения в цвете этой строки.

[artemavd]

Хы, а у меня не хочет работать

procedure TForm2.DBGridEh3GetCellParams(Sender: TObject; Column: TColumnEh;
  AFont: TFont; var Background: TColor; State: TGridDrawState);
begin
 if Form2.qry1.FieldValues['DATAOBR'] = '02.05.2011' then
   AFont.Color:=clRed;
 if Form2.qry1.FieldValues['DATAOBR'] = DateToStr(Form12.sDateEdit1.Date) then
 begin
   AFont.Color:=clBlue;
   AFont.Style:=[fsBold];
   Background:=$EFD3C6;
 end;
end;

[Прик]

В каком смысле?
Не меняет цвета? Или событие не приходит? Или ошибка какая?