Usare la ScrollArea

Da Gambas-it.org - Wikipedia.

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