Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Разноцветный D B G R I D [D7]

dik © (2004-03-31 10:03:00)
Рассматриваю по шагам пример с разноцветным 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 пишу строковую константу, то работает без проблем.
В чем причина?

Соловьев (2004-03-31 11:09:00) [1]
При дебаге - что находится в Column.Field.Text?

Infom (2004-03-31 10:28:00) [2]
Этот вообще что
Column.Field.Text

Johnmen (2004-03-31 10:23:00) [3]
>В чем ошибка?

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

dik (2004-03-31 10:12:00) [4]
В чем ошибка? Исходный код взял из статьи.

Johnmen (2004-03-31 10:06:00) [5]
>В чем причина?

В ошибке.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »