Registriert seit: 1. Dez 2002
Ort: Oldenburg(Oldenburg)
2.008 Beiträge
FreePascal / Lazarus
|
zeichen problem beim scrollen
14. Dez 2003, 14:03
Hallo,
habe da ein kleines problem:
Delphi-Quellcode:
var
x,y,i,p,m:Integer;
begin
GLXDraw.Clear;
// sx:=0; sy:=0;
if Player.Players[Player.index].x-Player.DX >= 0 then
p:=(Player.Players[Player.index].x-Player.DX)
else
p:=0;
for x:=0 to MapX do begin
for y:=0 to MapY do begin
if Karte[x,y].typ > -1 then begin
for i:=0 to High(Karte[x,y].Tex) do begin
if x-p >0 then
m:=x-p
else
m:=p-x;
if p > 0 then
GLXImageList.Items[Karte[x,y].typ].Draw(m * MapS,Y*MapS,Karte[x,y].Tex[i] )
else
GLXImageList.Items[Karte[x,y].typ].Draw( X*MapS,Y*MapS,Karte[x,y].Tex[i] )
end;
end;
end;
end;
warum geht das nicht?
er zeichnet nicht richtig !!!
Michael Springwald MFG
Michael Springwald,
Bitte nur Deutsche Links angeben Danke (benutzte überwiegend Lazarus)
|
|
Zitat
|