Delphi-PRAXiS - Delphi Probeleme mit GraphicEx stretch()

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Multimedia (https://www.delphipraxis.net/16-multimedia/)

- - Delphi Probeleme mit GraphicEx stretch() (https://www.delphipraxis.net/130502-probeleme-mit-graphicex-stretch.html)

Probeleme mit GraphicEx stretch()

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!

Re: Probeleme mit GraphicEx stretch()

Komischerweise ist Bild leer wenn ich es einmal gespeichert habe.

Re: Probeleme mit GraphicEx stretch()

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

Bitte löschen! :roll: