Entwickler-Ecke

Multimedia / Grafik - DelphiX -> DXDraw


DeltaEx - Do 03.10.02 23:21
Titel: DelphiX -> DXDraw
procedure TForm1.DXDraw1Click(Sender: TObject);
begin
DXImageList1.Items[0].Draw(DXDraw1.Surface, 1, 1,0);
DXDraw1.Flip;
end;

Was ist daran falsch??´wenn ich darauf klicke wird das bild nicht angezeigt:-(


Maxman - So 06.10.02 10:40

Hallo DeltaEx!

Kann es denn sein, dass du einen kleinen Teil im Quelltext ausgelassen hast? Ich hätte den so geschrieben:

Quelltext
1:
2:
3:
4:
5:
6:
7:
procedure TForm1.DXDraw1Click(Sender: TObject);
begin
if not DXDraw.CanDraw then
    Exit;
    DXImageList1.Items[0].draw(DXDraw1.Surface, 0, 0, 0);
    DXDraw1.Flip;
end;

Vielleicht hast du aber der DXImageList auch den Namen der DXDraw-Komponente nicht angegeben!

Maxman


MathiasH - So 06.10.02 11:41

Hi
Es liegt mit ziemlicher Sicherheit daran, dass du der DXImageList.DXDraw nicht deine DXDraw-Kompo nicht zugewiesen hast, der QT von Maxman ist optional, er dient halt der Fehlerbehandlung, aber an deinem Problem ändert das nichts

MathiasH