Ich habe das ganze jetzt mal folgender maßen gemacht und es scheint auch zu funktionieren.
Delphi-Quellcode:
procedure TfrmMain.Button4Click(Sender: TObject);
var
Jpeg : TJPEGImage;
begin
Jpeg := TJPEGImage.Create;
try
Jpeg.LoadFromFile('test.jpg');
Image1.Picture.Bitmap.Assign(Jpeg);
finally
Jpeg.Free;
end;
end;
Ich habe jetzt nur das Problem der Text den ich auf die Grafik zeichne wird mit Verzerrt,
d.h. das Bild ist eigentlich zu groß für die Auflösung des Monitors und wird mit der option
"Proportional" im richtigen Verhältnis verkleinert, jedoch wird auch der Text verkleinert.
Wie bekomme ich den Text in "originalgröße" auf das Bild?