Forum: Multimedia
Delphi
by Ricane,
1. Apr 2005
Kann man oben sehen, aber awrte ich poste es noch mal...
Procedure TfrmMain.FormCreate(Sender: TObject);
Begin
TilesErst;
End;
Forum: Multimedia
Delphi
by Ricane,
27. Mär 2005
Aber wenn ich das so progge
Procedure TTiles.DoDraw();
Begin
Image.DrawAlpha(Engine.Surface, Bounds(Round(
Hendrik.X), Round(Hendrik.Y), Hendrik.Width, Hendrik.Height), 0,
Alpha);
End;
Forum: Multimedia
Delphi
by Ricane,
24. Mär 2005
Ich habe eben ne interessante Entdeckung gemacht... Wenn ich die SpriteEngine kommplett aus dem Programm entferne, klappt das ganze... Versteh ich aber gerade mal überhupt nicht!!
Wieso sollte die SpriteEngine den Effekt verhindern?! Bin total verwirrt! :gruebel:
Forum: Multimedia
Delphi
by Ricane,
24. Mär 2005
Ja, klar... das ist sie auch... denn in einer anderen Prozedur...
If Hendrik.X < 10 Then
Begin
Alpha := Alpha + 2;
(*
DXImageList1.Items.Find('Hendrik').DrawAlpha(DXDraw.Surface, Bounds(Round(
Hendrik.X), Round(Hendrik.Y), Hendrik.Width, Hendrik.Height), 0,
Alpha);
*)
Forum: Multimedia
Delphi
by Ricane,
24. Mär 2005
Mmhhhhhh.......
also ich hab das mal so gemacht, wie du das da gepostedt hast, aber das klappt auch nicht... muss es eigentlich so sein, das man die DoDraw Prozedur "von Hand" aufruft?
Ich hab das jetzt mal so gemacht
Bewegen;
Hendrik.DoDraw;
DXDraw.Surface.Fill(0);
DXSpriteEngine1.Move(1);