Скачать: CL | DM;

Как прорисовать Column.Field.DataType=ftBoolean   Найти похожие ветки 

← →
Dimon777 ©   (2005-09-14 11:40) [0]

Чтобы выделить цветом некоторые записи в 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 -поля, чтобы правильно отображались в виде "квдратика с галочкой" ?

---

← →
Sergey13 ©   (2005-09-14 11:59) [1]

Скачай ЕхЛиб
http://www.ehlib.com/RUS/default.htm

---

← →
Плохиш ©   (2005-09-14 12:00) [2]

http://lib.profi.net.ua/doc/info_sites/visprog/books/Delphi%20Kindom/dbgridcolor.htm

---

← →
Dimon777 ©   (2005-09-14 12:12) [3]

> Sergey13 ©   (14.09.05 11:59) [1]
> Скачай ЕхЛиб
> http://www.ehlib.com/RUS/default.htm

Я, кстати, с ним и работаю. А что, там можно это как-то по-другому делать выделение?

---

← →
Sergey13 ©   (2005-09-14 12:21) [4]

2[3] Dimon777 ©   (14.09.05 12:12)
Там нет проблем с "квдратика с галочкой".

---

← →
Dimon777 ©   (2005-09-14 12:47) [5]

> 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

- полезная ссылка, спасибо.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c