Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.19;
Скачать: CL | DM;

Вниз

Как изменить цвет строки в DBgrid?   Найти похожие ветки 

 
Levsha   (2002-12-09 22:44) [0]

и вообще возможно ли это?
если невозможно то хотябы подскажите другой вариант спасибо


 
Shrek ©   (2002-12-10 04:38) [1]

сер почаще нажимайте F1.
прямо из хелпа

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);

begin
if Table1.FieldByName("Size").AsFloat > 10 then
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;


 
Levsha   (2002-12-10 06:48) [2]

А ты сам хоть раз пробовал это реализовать?
чтото у меня не пашет :(

procedure TMainAppForm.dbgActiveOrdersDrawDataCell(Sender: TObject;
const Rect: TRect; Field: TField; State: TGridDrawState);
begin
if DM.IBDataSet.FieldByName("DEADLINE_DATE").AsDateTime <= Now then
dbgActiveOrders.Canvas.Font.Color := clRed;
dbgActiveOrders.DefaultDrawDataCell(Rect, Field, State);
end;


 
Наталия ©   (2002-12-10 06:58) [3]

Этот код опробован многократно :), так что проблема только в тебе. Может, у тебя условие не выполняется.



Страницы: 1 вся ветка

Текущий архив: 2002.12.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-61622
Checist [root]
2002-12-07 06:06
2002.12.19
ВАЖНЫЙ ВОПРОС !


3-61478
lscomp
2002-11-28 19:02
2002.12.19
Подскажите! Сумма чисел в колонке DBGrida


3-61481
Alice
2002-12-02 12:38
2002.12.19
ALTER TABLE (InterBase)


1-61532
moorcat
2002-12-09 12:52
2002.12.19
Округление


14-61753
Its'me
2002-11-26 18:02
2002.12.19
Как определить пересекаются ли прямоугольник и круг ?