procedure TForm1.DBGrid2DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if ADOTable2.FieldByName('TIME').As?{Что здесь надо какой тип?} then
DBGrid2.Canvas.Font.Color := clRed;
DBGrid2.DefaultDrawDataCell(Rect, Field, State);
Закраска строки в таблице
Здраствуйте!
Мне нужна помошь...У меня есть таблица(DBGrid), таблица выгружается с сервера, мне нужно чтобы в определенное время строка в этой таблице начинала мигать красным светом
Мне нужна помошь...У меня есть таблица(DBGrid), таблица выгружается с сервера, мне нужно чтобы в определенное время строка в этой таблице начинала мигать красным светом
OnDrawDataCell
те в руки
те в руки
вообще мигание можно реализовать при помощи таймера...
Цитата:
в определенное время
непонятно вот в какое-такое "определённое" время.... и скока это всё должно продолжаться.....
в общем слущае кидаешь таймер на форму с интервалом где-то 500... в var (interface) прпописываешь некий флаг, который указывает на то, что строчка гореть должна.... потом по таймеру инвертируешь флаг и перерисовываешь грид....
когда надо, чтоб мигало ставишь timer.enabled = true.... и соответственно наоборот....
в ondrawcell пишешь обработчик, который цвет менять будет в зависимости от флага....
либо 2 вариант (без мигания всего грида).... то же самое, только..... в ondrawcell нифига не пишешь... по таймеру рисуешь прям на гриде (некая замена ondrawcell)...
В таблице есть время например 16:00 и когда это время равно реальному времени на компе, строка должна мигать
Вот код:
Вот код:
Код: