bild zerschneiden

[Aphton]

Ich bin dann mal so böse und verdirb dir den Spaß:

Delphi-Quellcode:

procedure BmpSplitup16( bmp: TBitmap; Filename: String );
var
  x, y    : Integer;
  tile    : TBitmap;
  dX, dY  : Integer;
begin
  tile := TBitmap.Create;
  dX := bmp.Width div 4;
  dY := bmp.Height div 4;
  tile.Width := dX;
  tile.Height := dY;
  try
    for y := 0 to 3 do
      for x := 0 to 3 do
      begin
        BitBlt( tile.Canvas.Handle, 0, 0, dX, dY,
          bmp.Canvas.Handle, x*dX, y*dY,
          SRCCOPY );
        tile.SaveToFile( Filename + IntToStr(y*4+x+1) + '.bmp' );
      end;
  finally
    tile.Free;
  end;
end;

//Anwendung:
var
  bmp: Tbitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.LoadFromFile(  '-DEINE_QUELLE-' );
    BmpSplitup16( bmp, 'Test' );
  finally
    bmp.Free;
  end;