ich habe mir 10 einfache Grafiken erstellt mit einem Grafik Programm.
Ich habe jetzt ein 2D Array:
Code: Alles auswählen
// Hier wird der 2D array einmal installisiert
procedure TForm1.ClearMap;
var
x,y,r:Integer;
begin
Randomize;
r:=-1;
for y:=0 to GameH do begin
for x:=0 to GameW do begin
Map[x,y]:=TGameItem.Create;
Map[x,y].bmp:=TBitmap.Create;
Map[x,y].bmp.Transparent:=False;
Map[x,y].bmp.TransparentColor:=clWhite;
Map[x,y].bmp.Width:=40;
Map[x,y].bmp.Height:=40;
Map[x,y].bmp.Canvas.FillRect(0,0,40,40);
r:=RandomZahl([1,2,3,4,5,6,7,8,9,10]);
Map[x,y].bmp.LoadFromFile('/home/pluto/daten/eigene/lazarus/r2/bild'+intTostr(r)+'.bmp');
map[x,y].Moved:=True;
end;
end;
end;
// Und Hier gezeichnet
procedure TForm1.DrawMap;
var
x,y,mx,my:Integer;
begin
// Buffer.Canvas.Pen.Mode:=pmWhite;
for y:=0 to GameH do begin
for x:=0 to GameW do begin
mx:=x*GameS; my:=y*GameS;
BitBlt(buffer.canvas.Handle,mx,my,GameS,GameS,map[x,y].bmp.Canvas.Handle,0,0,SRCCOPY);
// Buffer.Canvas.Draw((x*GameS),(y*(GameS)),map[x,y].bmp);
end;
end;
PaintBox1Paint(self);
end;Z.b. diese Diecken Linen stören... und ich weiß nicht wie sie entstehen
in ClearMap erstelle ich eine Zufaulst Karte. In allen Bilder verwende ich den gleichen Linen Typ
im zweiten Bild ist das gut zu sehen.
Ich vermute die Bilder überlagern sich... aber warum ? es dürfte doch nicht so ein "Falsches" Bild entstehen. oder ?
Jedes Bild ist 40X40 Pixel groß !
Verein
Links
Suche