Hallo Chakotay1308,
also eine recht flüssige Bewegung erreichst Du unter DelphiX wenn Du
die SpriteEngine benutzt. Am Besten mit den Hintergrundsprites.
Hier ein paar Zeilen:
Code:
...
TBack = class(TBackgroundsprite)
public
procedure DoMove(MoveCount: Integer);override;
end;
var
MainForm: TMainForm;
hg:tback;
implementation
{$R *.dfm}
procedure tback.DoMove(MoveCount: Integer);
begin
inherited;
x:=x-3;//die sterne werden pro frame um 3 pixel bewegt
end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
//Hintergrund wird geladen
hg:=tback.Create(dxspriteengine1.Engine);
hg.SetMapSize(1,1); //spielt bei hg.tile=true keine Rolle
hg.Image:=DXImageList1.Items.Find('kachel'); //Die einzelne Grafik
hg.Tile:=true; //Kacheleffekt
hg.Z:=0;
end;
//Der Timer
procedure TMainForm.time(Sender: TObject; LagCount: Integer);
begin
if not DXDraw1.CanDraw then Exit;
dxspriteengine1.Move(0); // Sprites werden bewegt
dxspriteengine1.Draw; // und gezeichnet
DXDraw1.Flip; // Grafik wird ausgegeben
end;
end.
Fertig, dass war es schon. Die Grafik liegt in der Imagelist und
wird automatisch 'gekachelt'.
Gruss, arnoldo
P.S. Code auch im Anhang