Einzelnen Beitrag anzeigen

franktron

Registriert seit: 11. Nov 2003
Ort: Oldenburg
1.446 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#24

Re: Brauche ein "Map-System" oder sowas für ein sp

  Alt 16. Feb 2005, 17:04
So mal was ganz einfaches

Delphi-Quellcode:
Var
  Felder : Array[1..100,1..100] of TFeld;
  x,y : Integer;
Begin
  xstart:=1; //StartWert wenn nach Rechts dann +1
  xende:=xstart+10; //10=Breite Bild/TileBreite;
  ystart:=1; //StartWert wenn nach Unten dann +1
  yende:=ystart+10; //10=Hoch Bild/TileHöhe
  For x:=xstart to xende do
  Begin
    For y:=ystart to yende do
    Begin
      ImageList1.Draw(Canvas,x,y,Felder[x,y].ImgIndex);
    End;
  End;
End;
Frank
Tux sein Lieblingsquellcode
While anzfische<TuxSatt do begin
Fisch:=TFisch.Create; Tux.EssenFisch(Fisch); Fisch.Free;inc(anzfische); end;
  Mit Zitat antworten Zitat