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]