Timage - opening jpg full size = 1:1 image / scroll
lazarus / 39-Graphics

----------------------------------------------------------------------
BubikolRamios · 2012-01-07 09:36

Only way that I see it, for opening jpg 1:1, is to:
1. Place Tpanel on form
2.Place Timage into Tpanel and set alignment alClient
3. Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
4. and jpg is opened in size1:1

Great, if jpg bigger than screen, trying to scroll it. Can't be done,
as I see, as Timage is aligned alClient.

Any idea welcome.

----------------------------------------------------------------------
joseme · 2012-01-07 13:14

TImage has only basic features. If you want to scroll an image bigger
than his canvas, you can use TImgView32, from Graphics32 library.

----------------------------------------------------------------------
wp · 2012-01-07 16:26

Put the Image (alNone) in a Scrollbox (alClient); the image should be
at the top-left corner of the scrollbox. After loading the picture set
the size of the TImage to that of the TImage.Picture. Like this:

Code: [Select]  with Image1 do begin
    Picture.LoadFromFile(AFile);
    Width := Picture.Width;
    Height := Picture.Height;
  end;

----------------------------------------------------------------------
BubikolRamios · 2012-01-07 19:47

Thanks.

That works.