So..Dieser Code funktioniert nur teils. Es wird zwar ein Bild abgespeichert das dem Format entspricht, aber leider ist es leer und mein "Image1" welches auf der Form liegt verschwindet aufeinmal.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
BmpNeu : TBitmap;
dpi : Integer;
NeuWidth,NeuHeight:Extended;
begin
NeuWidth := (StrToInt(EditBreite.Text) * StrToInt(EditDpi.Text)) / 2.54;
NeuWidth := 1270 / 2.54;
BmpNeu := TBitmap.Create;
BmpNeu.PixelFormat := Image1.Picture.Bitmap.PixelFormat;
BmpNeu.Width := StrToInt(EditBreite.Text);
BmpNeu.Height := StrToInt(EditHoehe.Text);
BmpNeu.Canvas.StretchDraw(BmpNeu.Canvas.ClipRect,Image1.Picture.Bitmap);
BmpNeu.SaveToFile(LabeledEdit2.Text);
end;
Woran könnte das liegen?