Differenze tra le versioni di "Usare la ScrollArea"

Da Gambas-it.org - Wikipedia.
Riga 1: Riga 1:
Per utilizzare un oggetto "''ScrollArea''" bisogna tenere presente alcuni accorgimenti:
+
Per utilizzare un oggetto '''''ScrollArea''''' bisogna tenere presente alcuni accorgimenti:
  
 
1) definire con il Metodo "''.ResizeContents( )''" l'area del contenuto che sarà disegnato nella ''ScrollArea''.
 
1) definire con il Metodo "''.ResizeContents( )''" l'area del contenuto che sarà disegnato nella ''ScrollArea''.

Versione delle 11:10, 11 ott 2021

Per utilizzare un oggetto ScrollArea bisogna tenere presente alcuni accorgimenti:

1) definire con il Metodo ".ResizeContents( )" l'area del contenuto che 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" si definiscono le coordinate in cui si inizia a disegnare nella ScrollArea.


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 con il valore negativo: (..., - ScrollArea1.ScrollY, ...)
   .Stroke
   .End
 End With
 
End