Einzelnen Beitrag anzeigen

mimi

Registriert seit: 1. Dez 2002
Ort: Oldenburg(Oldenburg)
2.008 Beiträge
 
FreePascal / Lazarus
 
#1

zeichen problem beim scrollen

  Alt 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)
  Mit Zitat antworten Zitat