![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как прорисовать Column.Field.DataType=ftBoolean
Dimon777 © (2005-09-14 11:40:00)Чтобы выделить цветом некоторые записи в DBGrid по условию пишу:
if (QueryPlProcent.Value=100) and not (gdSelected in State)
then
with DBGridPlan.Canvas do
begin
Brush.Color := clGreen;
FillRect(Rect);
Font.Color := clWhite;
if Column.Field.DataType=ftString then
// В строковых полях текст прижимается влево
TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text)
else begin
// В остальных полях (кроме ftBoolean) -вправо
if Column.Field.DataType<>ftBoolean then TextOut(Rect.Right-TextWidth(Column.Field.Text)-2, Rect.Top+2,Column.Field.Text) ;
end;
end;
А как прорисовать ftBoolean -поля, чтобы правильно отображались в виде "квдратика с галочкой" ?
Dimon777 (2005-09-14 12:47:00) [1]
> Sergey13 © (14.09.05 12:21) [4]
> 2[3] Dimon777 © (14.09.05 12:12)
> Там нет проблем с "квдратика с галочкой".
Да ладно! Если отрисовывать, как делал я - возникали проблемы
"квдратика с галочкой"
Но если записать
TDBGrid(Sender).DefaultDrawColumnCel(Rect,DataCol,Column,State);
вместо TextOut то все нормально- нашел по ссылке
> Плохиш © (14.09.05 12:00) [2]
> http://lib.profi.net.ua/doc/info_sites/visprog/books/Delphi%20Kindom/dbgridcolor.
> htm
- полезная ссылка, спасибо.
Sergey13 (2005-09-14 12:21:00) [2]2[3] Dimon777 © (14.09.05 12:12)
Там нет проблем с "квдратика с галочкой".
Dimon777 (2005-09-14 12:12:00) [3]
> Sergey13 © (14.09.05 11:59) [1]
> Скачай ЕхЛиб
> http://www.ehlib.com/RUS/default.htm
Я, кстати, с ним и работаю. А что, там можно это как-то по-другому делать выделение?
Плохиш (2005-09-14 12:00:00) [4]http://lib.profi.net.ua/doc/info_sites/visprog/books/Delphi%20Kindom/dbgridcolor.htm
Sergey13 (2005-09-14 11:59:00) [5]Скачай ЕхЛиб
http://www.ehlib.com/RUS/default.htm