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

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

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

Подскажиет где торомжу, поему возникает ошибка Object or Class

Rule © (2004-09-28 11:22:00)
Type Requared. Пишу простого наследника дбгрида, в котором отображается графика вот код
unit Unit2;

interface
uses DB, DBGRIDS, Graphics, DBTables, WinTypes, Classes, Grids;
type
TDBMyGRID= class (TDBGrid)
protected
procedure DrawDataCell(const Rect:TRect; Field:TField; State:TGridDrawState);override;
end;

implementation

procedure TDBMyGrid.DrawDataCell(const Rect:TRect; Field:TFIeld;
State:TGRidDrawState);
var
BitMap1 : TBitMap;
begin

with Canvas do
begin
FillRect(Rect);
if Field is TGraphicField then
try
ошибка при компиляции возникает тут:
BitMap1:=TBitMap.Create;

BitMap1.Assign(Field);
Draw(Rect.Left, Rect.Top, BitMap1);
finally
BitMap1.Free;
end
else
TextOut(Rect.Left, Rect.Top, Field.Text);
end;
end;
end;

DiamondShark (2004-09-28 12:24:00) [1]

> TUser © (28.09.04 11:43) [7]
> И все равно Assign от TField'а не получиться

Да правда, что-ли?!

{DB.pas}
procedure TBlobField.AssignTo(Dest: TPersistent);
begin
if Dest is TStrings then
begin
SaveToStrings(TStrings(Dest));
Exit;
end;
if Dest is TBitmap then
begin
SaveToBitmap(TBitmap(Dest));
Exit;
end;
if Dest is TPicture then
begin
SaveToBitmap(TPicture(Dest).Bitmap);
Exit;
end;
inherited AssignTo(Dest);
end;

Rule (2004-09-28 11:44:00) [2]
TUser © (28.09.04 11:35) [3]
Не тута все нормально
Гаврила © (28.09.04 11:40) [4]
Ого спасибо, даже бы и не догадался бы :)
Гаврила © (28.09.04 11:41) [5]
Уже заменил :)

Всем огромное спасибо за помощь

Гаврила (2004-09-28 11:43:00) [3]
BitMap1.Assign(Field);

а это бред

TUser (2004-09-28 11:43:00) [4]
И все равно Assign от TField'а не получиться

Ozone (2004-09-28 11:43:00) [5]
Убери WinTypes

Гаврила (2004-09-28 11:41:00) [6]
А, объявлен.... все равно, Graphics должен быть объявлен после WinTypes
(кстати WinTypes давно пора заменить на Windows)

Гаврила (2004-09-28 11:40:00) [7]
А я знаю в чем дело
У тебя в Uses не обхявлен Graphics
и Delphi цепляет тип TBitmap из модуля Windows - он там есть ,и это record

TUser (2004-09-28 11:35:00) [8]
Я думаю, что Assign от TField - это ему наверное не нравится.

Rule (2004-09-28 11:31:00) [9]
Вопрос, почему делать до, непонятно, по логике вешей я создаю объект внутри конструкции и в финали обеспечиваю освобождение памяти в любом случае, даже если позникла ошибка,
а ошибка такая:
Object or Class type required.

Ozone (2004-09-28 11:28:00) [10]
Ну во-первых TBitMap.Create нужно делать до try..finally, а во-вторых что пишет-то, какую ошибку?

Наверх

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