Imagelist bild laden problem

[dahead]

@rocksoft:

so, hier:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  Bmp: TBitmap;
begin

  Bmp := TBitmap.Create;
  Bmp.LoadFromFile(GetCurrentDir + '\open.bmp');

  SplitImage(bmp, 2, 4);

  Bmp.Free;
end;

procedure SplitImage(const aBMP: TBitmap; const Rows, PicsInARow: Integer);
var
  SplitBmp: TBitmap;
  I, F: Integer;
begin

  SplitBMP := TBitmap.Create;
  SplitBMP.Height := (aBMP.Height div Rows);
  SplitBMP.Width  := (aBMP.Width  div PicsInARow);

  for I := 0 to PicsInARow - 1 do
  for F := 0 to Rows - 1 do
   begin

    // ShowMessage(Format('Left: %d, Top: %d, Right: %d, Bottom: %d', [I * SplitBMP.Width, F * SplitBMP.Height, SplitBMP.Width * (I + 1), SplitBMP.Height * (F + 1)]));

    SplitBMP.Canvas.CopyRect
      (
        Rect
          (
            0,
            0,
            SplitBMP.Width,
            SplitBMP.Height
          ),
        aBMP.Canvas,
        Rect
          (
            I * SplitBMP.Width,
            F * SplitBMP.Height,
            SplitBMP.Width * (I + 1),
            SplitBMP.Height * (F + 1)
          )
      );


    SplitBMP.SaveToFile(GetCurrentDir + '\' + IntToStr(I) + IntToStr(F) + '.bmp');
   end;

  SplitBMP.Free;

end;

da ich kein richtiges testbild hatte, hab ich mir selbst eins gemalt, hänge es mal als anhang hier dran, damit du testen kannst ob es bei dir funktioniert. falls nicht könntest du mir mal eines deiner 100x100 px bilder anhängen.