Hi
I have a load of 256x256 bitmap images that I would like to tile. The coloured bitmaps are all good but when I use the following code I end up with a final image that has some coloured tiles but a lot just in black and white (see attached image). I use the following code to do the tiling can anyone spot what I'm doing wrong?
procedure TfmMain.TileMap;
var
col : integer;
row : integer;
xpos : integer;
ypos : integer;
iebmp : TIEBitMap;
begin
Application.ProcessMessages;
Screen.Cursor:=crHourGlass;
try
iebmp:=TIEBitMap.Create;
try
Image.Clear;
Image.RemoveAllObjects;
Image.Proc.ImageResize(5120,7680);
ypos:=0;
for row:=65 to 100 do
begin
xpos:=0;
for col:=120 to 140 do
begin
iebmp:=GrabTile(8,col,row);
iebmp.RenderToTIEBitmapEx(Image.IEBitmap,xpos,ypos,256,256,0,0,256,256,255,rfNone);
inc(xpos,256);
end;
inc(ypos,256);
end;
Image.Fit;
finally
iebmp.free;
end;
finally
Screen.Cursor:=crDefault;
end;
end;
Search
