Ich möchte eine Preview Funktion für große Bilder relisieren und habe hierzu eine TImage in einer TScrollbox auf meinem Formular.
Die Idee : dbl-click auf Scroll Box sollte zwischen Stretch View des Bildes ohne Scroll Box und 1:1 View dies Bilders in einer Scroll Box mit entsprechenden Scrollbars umschalten ... der Code unten spielt noch nicht, was habe ich übersehen ?
Delphi-Quellcode:
Bild laden
if Fileexists(testimgfile) then
SourceImage.Picture.bitmap.LoadFromFile(testimgfile);
......
/// Zwischen zoom und Stretch view umschalten
procedure TFileSelectionForm.ScrollBox1DblClick(Sender: TObject);
begin
Zoomed := not Zoomed;
if Zoomed then
begin
SourceImage.AutoSize := false;
SourceImage.Stretch := true;
end
else
begin
SourceImage.Stretch := false;
SourceImage.AutoSize := true;
end;
end;