[Ashkana]

Про нестандартное выделение строк много написано, но того что нужно мне не нашел.
Итак.
Дана таблица ( DBF ), связываем ее с DBGrid'ом.
В таблице есть записи для которых существуют логические пары. ( не для всех записей существуют пары )
Необходимо при выборе записи ( DBGrid1CellClick ) для которой существует пара, подсвечивать эту самую пару другим цветом.
Собственно, вся программа состоит из двух функций DBGrid1DrawColumnCell и DBGrid1CellClick. И она работает. Но не совсем так как хотелось бы.
Проблема в том, что при клике левой клавиши на записи ( DBGrid1CellClick ) сначала выполняется DBGrid1DrawColumnCell , а только потом тело DBGrid1CellClick.

Т.е. в теле DBGrid1CellClick осуществляем с помощью Query выбор парной записи ( если она существует ), и при выполнении DBGrid1DrawColumnCell подсвечиваем ее другим цветом.

Т.о. если два раза подряд кликнуть на строку DBGrid то подсвечивается корректная пара, а если только один раз то нет - ведь сперва отрабатывает DBGrid1DrawColumnCell и только потом мы выбираем парную запись в DBGrid1CellClick.

Попытался подробно сформулировать.
Спасибо.
Вот код.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;   DataCol: Integer; Column: TColumn; State: TGridDrawState); var   holdColor: TColor;   Str_invoice: string; begin   holdColor := DBGrid1.Canvas.Brush.Color;            if Form1.Query1.Active = true then  Str_invoice:=Form1.Query1.FieldByName('Invoice').AsString                                   else  Str_invoice:='';     if Form1.Table1.FieldByName('Invoice').AsString = Str_invoice then      begin       DBGrid1.Canvas.Brush.Color := clSkyBlue;       DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);       DBGrid1.Canvas.Brush.Color := holdColor;          end     else     begin     DBGrid1.Canvas.Brush.Color := holdColor;     DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);         end end;

и

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.DBGrid1CellClick(Column: TColumn); begin if { проверка индекса записи на предмет существования пары } then begin Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('{ select отбирающий пару по некоторому условию '); Query1.Active:=True; end else begin Query1.Close; Query1.SQL.Clear; end;   end;

СПАСИБО.

[NumLock]

в конце DBGrid1DrawColumnCell DBGrid1.Repaint;

[Ashkana]

Сообщение от NumLock

в конце DBGrid1DrawColumnCell DBGrid1.Repaint;

Я даже не знаю как благодарить.
Только поставил Repaint в конце OnCellClick ( после отработки Query ).
А так - все работает.
Спасибо.