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

Разноцветный D B G R I D   Найти похожие ветки 

← →
dik   (2004-03-31 10:03) [0]

Рассматриваю по шагам пример с разноцветным DBGrid-ом:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
 DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 with  DBGrid1.Canvas do
 begin
   Brush.Color:=clGreen;
   Font.Color:=clWhite;
   FillRect(Rect);
   TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text);
   TextOut(Rect.Left+2,Rect.Top+2,"111");
 end;
end;

при выполнении на
TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text);
выдает ошибку!
Если вместо Column.Field.Text пишу строковую константу, то работает без проблем.
В чем причина?

---

← →
Johnmen ©   (2004-03-31 10:06) [1]

>В чем причина?

В ошибке.

---

← →
dik   (2004-03-31 10:12) [2]

В чем ошибка? Исходный код взял из статьи.

---

← →
Johnmen ©   (2004-03-31 10:23) [3]

>В чем ошибка?

Мне отсюда не видно...
:)

---

← →
Infom ©   (2004-03-31 10:28) [4]

Этот вообще что
Column.Field.Text

---

← →
Соловьев ©   (2004-03-31 11:09) [5]

При дебаге - что находится в Column.Field.Text?

---

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

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



Память: 0.45 MB
Время: 0.034 c