Gambas-it

Gambas dal mondo esterno => Altri Paesi => Topic aperto da: vuott - 10 Agosto 2019, 16:18:26

Titolo: Come caricare un'immagine in una ScrollArea ?
Inserito da: vuott - 10 Agosto 2019, 16:18:26

https://forum.gambas.one/viewtopic.php?f=4&t=742

Titolo: Re:Come caricare un'immagine in una ScrollArea ?
Inserito da: Gianluigi - 10 Agosto 2019, 23:52:28

Il codice di cogier andrebbe riscritto così:

Codice: [Seleziona]

' Gambas class file

Private $pic As Picture

Public Sub Form_Open()

  $pic = Picture.Load("./test.png")
  $pic = $pic.Image.Stretch(3000, 3000).Picture
  ScrollArea1.ResizeContents($pic.W, $pic.H)

End

Public Sub ScrollArea1_Draw()

  Paint.DrawPicture($pic, -ScrollArea1.ScrollX, -ScrollArea1.ScrollY)

End