Форум: "Основная";
Текущий архив: 2004.11.28;
Скачать: [xml.tar.bz2];
Вниз
Цветные ячейки в TDataBaseGrid? Найти похожие ветки
← →
Артем К. (2004-11-10 14:03) [0]Здравствуйте, Мастера!
Подскажите пожалуйста, как закрасить ячейки красным цветом по определенному полю, если значения в другом поле удовлетворяют некоторому условию?
Заранее спасибо!
← →
P.N.P. © (2004-11-10 14:58) [1]Так например:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if TDBGrid(Sender).DataSource.DataSet.FieldByName("LAST_NAME").AsString="Jones" then
begin
TDBGrid(Sender).Canvas.Brush.Color:=clRed;
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;
← →
Артем К. (2004-11-10 15:32) [2]>>P.N.P.
В Вашем случае прорисовка пойдет по полю "LAST_NAME", если значение будет "Jones", а как сделать, чтобы если в поле "FIRST_NAME" значение "Jone", то поле "LAST_NAME" отрисовать красным.
← →
Fay © (2004-11-10 15:37) [3]2 Артем К. (10.11.04 15:32) [2]
Сравнить Column.FieldName c "LAST_NAME"
← →
Артем К. (2004-11-11 16:07) [4]Наверное стоит объясниь чего я хочу сделать.
Есть поле - "дата" (11.11.2004 например);
Есть поле - "потребление" (число);
Мне нужно отобразить потребление красным цветом, если это выходной день.
Т.е. определяю по дате, что это за день недели, через функции:
day_date: TDateTime;
...
day_date := EncodeDate(year, month_index,day_index);
day_N := DayOfTheWeek(day_date);
...
Т.е. для субботы day_N = 6, а для воскресенья day_N = 7;
Как теперь отобразить значения по полю "потребление" красным цветом для выходных дней?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.11.28;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.038 c
