Hallo,
ich benutze folgendes um Bilder zu verkleinern.
Delphi-Quellcode:
Bild.SaveToFile('Test4.bmp');
if (CB_Art.ItemIndex = 0) and (Bild.Width > Bild.Height) then GraphicEX.Stretch(StrToInt(Edit_Breite.Text), StrToInt(Edit_Height.Text), sfLanczos3, 1, Bild.Bitmap, BMP2);
if (CB_Art.ItemIndex = 0) and (Bild.Width < Bild.Height) then GraphicEX.Stretch(StrToInt(Edit_Height.Text), StrToInt(Edit_Breite.Text), sfLanczos3, 1, Bild.Bitmap, BMP2);
BMP2.SaveToFile('Test.bmp');
Bild.Bitmap.SaveToFile('Test2.bmp');
Bild.SaveToFile('Test3.bmp');
Test4 enthält das Bild, Test ist einfach nur weiß, und Test2 & Test3 sind leer.
Was mache ich falsch?
Bitte helft mir!