TScrollBox + TImage

[bernhard_LA]

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;

[Volker Z.]

Hallo,

versuche es doch mal so:

Delphi-Quellcode:

procedure TFileSelectionForm.SourceImageDblClick(Sender: TObject);
begin
  Zoomed := not Zoomed;

  SourceImage.AutoSize := not Zoomed;
  SourceImage.Stretch  := Zoomed;
  if Zoomed then
    begin
      SourceImage.Width  := ScrollBox1.Width;
      SourceImage.Height := ScrollBox1.Height
    end;

  ScrollBox1.AutoScroll := not Zoomed
end;

Gruß