Differenze tra le versioni di "Usare la ScrollArea"

Da Gambas-it.org - Wikipedia.
Riga 23: Riga 23:
 
     .Brush = Paint.Color(Color.Blue)
 
     .Brush = Paint.Color(Color.Blue)
 
     .LineWidth = 3.5
 
     .LineWidth = 3.5
     .Ellipse(50, ScrollArea1.ScrollY, 200, 200)  <FONT Color=gray>' ''oppure se si preferisce: (..., - ScrollArea1.ScrollY, ...)</font>
+
     .Ellipse(50, ScrollArea1.<FONT Color=#B22222>ScrollY</font>, 200, 200)  <FONT Color=gray>' ''oppure se si preferisce con il valore negativo: (...,</font> '''-''' <FONT Color=gray>ScrollArea1.ScrollY, ...)</font>
 
     .Stroke
 
     .Stroke
 
     .End
 
     .End

Versione delle 02:46, 11 ott 2019

Per utilizzare un oggetto "ScrollArea" bisogna tenere presente alcuni accorgimenti:

1) definire con il Metodo ".ResizeContents( )" l'area del contenuto que sarà disegnato nella ScrollArea.

2) considerare i valori delle proprietà ".ScrollX" e ".ScrollY" quando si disegna dentro il gestore dell'evento _Draw( ) (almeno per le cose che devono spostarsi con le barre di spostamento). Quando la ScrollArea disegna, questo Oggetto deve usare le proprietà ".ScrollX" e ".ScrollY" per conoscere quanto si deve spostare ciò che viene disegnato dentro il gestore dell'evento _Draw( ). Insomma, mediante le proprietà ".ScrollX" e ".ScrollY" bisogna decidere in quali coordinate dentro il disegno si inizia a disegnare nella Scroll'Area.


Mostriamo un esempio pratico:

Public Sub Form_Open()
 
 With ScrollArea1
   .ResizeContents(ScrollArea1.W, ScrollArea1.H + 200)
   .ScrollBar = Scroll.Vertical
   .Background = Color.Lighter(Color.Yellow)
 End With
  
End
 
 
Public Sub ScrollArea1_Draw()
 
 With Paint
   .Brush = Paint.Color(Color.Blue)
   .LineWidth = 3.5
   .Ellipse(50, ScrollArea1.ScrollY, 200, 200)   ' oppure se si preferisce con il valore negativo: (..., - ScrollArea1.ScrollY, ...)
   .Stroke
   .End
 End With
 
End