[Gambas-user] PictureBox and Containers strange behaviour

[Gianluigi]

This is the correct code (?):

[code]Private Sub Scale(img As Image)

  Dim w, h As Integer

  w = img.W
  h = img.H
  If h > w Then
    $H = PictureBox1.H
    $W = (PictureBox1.H * w) \ h
    If $W > PictureBox1.W Then
      $W = PictureBox1.W
      $H = (PictureBox1.W * $H) \ $W
      $X = PictureBox1.X
      $Y = PictureBox1.Y + ((PictureBox1.H - $H) \ 2)
      Return
    Endif
    $Y = PictureBox1.Y
    $X = PictureBox1.X + ((PictureBox1.W - $W) \ 2)
  Else
    $W = PictureBox1.W
    $H = (PictureBox1.W * h) \ w
    If $H > PictureBox1.H Then
      $H = PictureBox1.H
      $W = (PictureBox1.H * $W) \ $H
      $Y = PictureBox1.Y
      $X = PictureBox1.X + ((PictureBox1.W - $W) \ 2)
      Return
    Endif
    $X = PictureBox1.X
    $Y = PictureBox1.Y + ((PictureBox1.H - $H) \ 2)
  Endif

End [/code]

Although I would love to be able to create a code capable of scaling images
on the Form_Resize event
A task too burdensome for my tired brain.

Regards
Gianluigi

Il giorno ven 30 nov 2018 alle ore 13:10 Gianluigi <bagonergi at gmail.com> ha
scritto:

> I need to paint an image in a new image and then show it in a picturebox.
> The thing seems to work correctly only if the picturebox is the only
> component on the window.
> If the hbox is present, the image is deformed (stretching) and the lower
> part of the image is positioned under the hbox.
> Am I wrong?
> I attach a project and two explanatory images (with magnifying glass).
>
> Regards
> Gianluigi
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.gambas-basic.org/pipermail/user/attachments/20181130/1d95c1b3/attachment.html>