Tgraphic und Timage: Inkompatible Typen?

[pepe2502]

Delphi-Quellcode:

{**************************DrawGrid + Gegenstände zeichnen**********************}
PROCEDURE TScene.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
               Rect: TRect; State: TGridDrawState);

VAR     Objekt : TGegenstand;
    Listenende : Boolean;
             i : Integer;
BEGIN
REPEAT
 Inventar_aus_liste_laden(Objekt,i,Listenende);
 IF (Acol=i) AND (Arow <> 0) THEN
 WITH scene.DrawGrid1.Canvas DO
            Draw(Rect.Left, Rect.Top, [b]Bildspeicher[Objekt.Bildadresse])[/b]
 UNTIL listenende=true;
end;
{**************************DrawGrid + Gegenstände zeichnen**********************}

Hallo,
Ich möchte gern die Bilder aus dem Array[1..100] of timage in mein DrawGrid laden
aber ich kriege immer die Fehlermeldung Inkompatible Typen: Tgraphic und Timage;

Was mach ich falsch Ist Tgraphic nicht die Klasse von Der Timage erbt???

Bitte um Hilfe!!!

[edit=sakura] [delphi] Mfg, sakura[/edit]

[Jens Schumann]

Hallo,
versuch es mal mit
Draw(Rect.Left, Rect.Top, Bildspeicher[Objekt.Bildadresse].Graphic)

[Jens Schumann]

Zitat von Jens Schumann:

Hallo,
versuch es mal mit
Draw(Rect.Left, Rect.Top, Bildspeicher[Objekt.Bildadresse].Graphic)

es muss
Draw(Rect.Left, Rect.Top, Bildspeicher[Objekt.Bildadresse].Picture.Graphic) lauten

[pepe2502]

Danke, jetzt funktionierts!!!