|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
сосчитать закрашенные строки в DBGrid-е
Уважаемые форумчане.Помогите пожалуйста решить задачку.По определенному условию закрашиваю строки в DBGridEh.Необходимо сосчитать эти строки и вывести в Label.Caption.
Делаю так: Код:
//Окрашивание строк в зелёный цвет procedure TmainForm.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); begin dat:=StrToDate(Edit3.Text); if MainForm.sopTable.FieldByName('data').AsFloat<dat then mainForm.DBGridEh1.Canvas.Brush.Color:=clGreen; mainForm.DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State); Label.Caption:=IntToStr(DBGridEh1.DataSource.DataSet.RecordCount); end; Последний раз редактировалось Admin, 05.12.2011 в 10:38. |