ich versuche momentan, ein JPG-Bild zu skalieren und in einem Form anzeigen zu lassen. Das funktioniert auch problemlos, wenn ich die Skalierung per Button anstoße:
Code: Alles auswählen
procedure TForm1.Button1Click(Sender: TObject);
var
Pic : TPicture;
begin
Pic:= TPicture.Create;
try
Pic.LoadFromFile(ParamStr (1));
Self.Canvas.StretchDraw(Rect(0,
0,
Pic.Width div 4,
Pic.Height div 4),
Pic.Bitmap);
finally
Pic.Free;
end;
end;
Wenn ich stattdessen aber ein neues Form öffne und das Bild dort anzeigen möchte, klappt es nicht:
Code: Alles auswählen
procedure TForm1.Button1Click(Sender: TObject);
var
Pic : TPicture;
begin
Pic:= TPicture.Create;
try
Pic.LoadFromFile(ParamStr (1));
Form2.Canvas.StretchDraw(Rect(0,
0,
Pic.Width div 4,
Pic.Height div 4),
Pic.Bitmap);
Form2.ShowModal;
finally
Pic.Free;
end;
end;
Könnt ihr mir sagen, woran das liegt?