« precedente successivo »
Pagine: [1]   Vai giù

Autore Topic: Come caricare un'immagine in una ScrollArea ?  (Letto 354 volte)

Offline vuott

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 11.316
  • Ne mors quidem nos iunget
    • Mostra profilo
Come caricare un'immagine in una ScrollArea ?
« il: 10 Agosto 2019, 16:18:26 »
Registrato
« Chiunque, non ricorrendo lo stato di necessità, nel proprio progetto Gambas fa uso delle istruzioni Shell o Exec, è punito con la sanzione pecuniaria da euro 20,00 a euro 60,00. »

Offline Gianluigi

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 4.158
  • Tonno verde
    • Mostra profilo
Re:Come caricare un'immagine in una ScrollArea ?
« Risposta #1 il: 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
Registrato
nuoto in attesa del bacio di una principessa che mi trasformi in un gambero azzurro
Pagine: [1]   Vai su
« precedente successivo »