Цветовая индикация
bers © (2003-02-17 21:26:00)
Уважаемые МАСТЕРА!
Подскажите как решить проблему:
Есть SQL запрос к БД через ADO компонент. Результатом запроса
может быть большое кол-во записей. Нужно, в зависимости от значения
одного из полей отображать строку этой записи тем или иным цветов
(2-3 цвета).
Заранее благодарен за все варианты решения проблемы...!
Отдельное СПАСИБО за фрагменты кода!!!
KIR (2003-02-17 22:18:00) [1]
Оброботчик события OnDrawColumnCell стандартного DBGrid"a:
procedure TMyForm.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
If MyQuery["MyField"] < 0 then
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
принцип, я думаю, ясен...
Наверх 
ЧАТ |
Орешник |
|
