Hallo,
ich benutze folgendes um Bilder zu verkleinern.

markieren

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!

Komischerweise ist Bild leer wenn ich es einmal gespeichert habe.

ach gott, heute habe ich mich echt dämlich dran gestellt. Das Bild ist ja in Bild.GRaphic nicht in Bild.Bitmap...


Bitte löschen!