Differenze tra le versioni di "Usare la ScrollArea"
Da Gambas-it.org - Wikipedia.
Riga 1: | Riga 1: | ||
− | Per utilizzare un oggetto | + | 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