TScrollBox + TImage

[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ß