Разноцветный 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]

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

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

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

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

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