hab das auch psobiert, geht aber nicht =((
Delphi-Quellcode:
begin
bit := TBitmap.Create;
for i := 0 to lballe.Items.Count -1 do
begin
bit.LoadFromFile(pfad);
bild.Height := bit.Height;
bild.Width := bit.Width;
if bild.Width >= bild.Height then
begin
bild.Canvas.Draw(400, 533, bit);
bild.Assign(bit);
bild.Picture.SaveToFile(ziel);
bit.Free;
end;
end;