Differenze tra le versioni di "Ottenere una simil-ProgressBar da una LCDLabel"

Da Gambas-it.org - Wikipedia.
(Creata pagina con "Poiché un oggetto ''LCDLabel'' è composto anche da una ''DrawingArea'', questa assume la proprietà di figlia (''.Children'') del predetto oggetto ''LCDLabel''. La ''Drawing...")
 
 
Riga 1: Riga 1:
Poiché un oggetto ''LCDLabel'' è composto anche da una ''DrawingArea'', questa assume la proprietà di figlia (''.Children'') del predetto oggetto ''LCDLabel''. La ''DrawingArea'', in quanto figlia del predetto oggetto ''LCDLabel'', conserva una sua autonomia che può essere utilizzata per modificare le sue proprietà, potendo così inserire al suo interno, ad esempio, un testo e/o un'immagine e/o una figura geometrica.
+
Poiché un oggetto ''LCDLabel'' è composto anche da una ''DrawingArea'', questa assume la Proprietà di figlia (".Children") del predetto Oggetto ''LCDLabel''. La ''DrawingArea'', in quanto figlia del predetto oggetto ''LCDLabel'', conserva una sua autonomia che può essere utilizzata per modificare le sue proprietà, potendo così inserire al suo interno, ad esempio, un testo e/o un'immagine e/o una figura geometrica.
  
Per fare ciò bisognerà individuare tale ''DrawingArea'' richiamandola con la proprietà ''.Children[n]'' del suo oggetto ''LCDLabel'' genitore. L'inserimento della scritta e/o dell'immagine e/o una figura geometrica nella ''DrawingArea'' avverrà mediante la consueta procedura con l'uso della Classe ''Paint'' che si svolgerà all'interno di una sub-routine appartenente all'evento ''_Draw()'' della ''DrawingArea''.
+
Per fare ciò bisognerà individuare tale ''DrawingArea'' richiamandola con la Proprietà ".Children[n]" del suo oggetto ''LCDLabel'' genitore. L'inserimento della scritta e/o dell'immagine e/o una figura geometrica nella ''DrawingArea'' avverrà mediante la consueta procedura con l'uso della Classe ''Paint'' che si svolgerà all'interno di una sub-routine appartenente all'evento "_Draw()" della ''DrawingArea''.
  
Affinché tale evento possa essere sollevato si assegnerà la ''DrawingArea'', figlia del predetto oggetto ''LCDLabel'' ad un Gruppo attraverso la Classe ''Observer()''.
+
Affinché tale evento possa essere sollevato si assegnerà la ''DrawingArea'', figlia del predetto oggetto ''LCDLabel'' ad un Gruppo attraverso la Classe ''Observer''.
  
 
+
In questo modo un Oggetto ''LCDLabel'' potrà essere modificato adeguatamente e assumendo così anche l'aspetto e le funzioni di una ''ProgressBar'':
In questo modo un oggetto ''LCDLabel'' potrà essere modificato adeguatamente e assumendo così anche l'aspetto e le funzioni di una ''ProgressBar'':
 
 
  Private obs As Observer
 
  Private obs As Observer
 
   
 
   

Versione attuale delle 15:46, 22 apr 2023

Poiché un oggetto LCDLabel è composto anche da una DrawingArea, questa assume la Proprietà di figlia (".Children") del predetto Oggetto LCDLabel. La DrawingArea, in quanto figlia del predetto oggetto LCDLabel, conserva una sua autonomia che può essere utilizzata per modificare le sue proprietà, potendo così inserire al suo interno, ad esempio, un testo e/o un'immagine e/o una figura geometrica.

Per fare ciò bisognerà individuare tale DrawingArea richiamandola con la Proprietà ".Children[n]" del suo oggetto LCDLabel genitore. L'inserimento della scritta e/o dell'immagine e/o una figura geometrica nella DrawingArea avverrà mediante la consueta procedura con l'uso della Classe Paint che si svolgerà all'interno di una sub-routine appartenente all'evento "_Draw()" della DrawingArea.

Affinché tale evento possa essere sollevato si assegnerà la DrawingArea, figlia del predetto oggetto LCDLabel ad un Gruppo attraverso la Classe Observer.

In questo modo un Oggetto LCDLabel potrà essere modificato adeguatamente e assumendo così anche l'aspetto e le funzioni di una ProgressBar:

Private obs As Observer


Public Sub Form_Open()

  With LCDLabel1
    Print Object.Type(.Children[0])
    .Border = True
    .Alignment = Align.Center
    .Padding = 12
    .Value = 0.0
    obs = New Observer(.Children[0]) As "obs"
 End With

End


Public Sub obs_Draw()

  With Paint
    .Begin(LCDLabel1.Children[0])
' Disegnamo all'interno della "DrawingArea" della "LCDLabel" un rettangolo pieno:
    .FillRect(0, 4, LCDLabel1.W * (LCDLabel1.Value / 100), LCDLabel1.H - 8, Color.red)
' ...nonché del testo:
    .Font.Size = 6
    .Brush = .Color(Color.Blue)
    .DrawRichText("testo", LCDLabel1.W - 25, 4, 25, 10)
    .End
  End With
  
End


Public Sub LCDLabel1_MouseMove()
 
  Print (Mouse.X / LCDLabel1.W) * 100
  LCDLabel1.Value = Fix((Mouse.X / LCDLabel1.W) * 100)
  If LCDLabel1.Value > 100 Then LCDLabel1.Value = 100
  If LCDLabel1.Value < 0 Then LCDLabel1.Value = 0
 
End

Public Sub LCDLabel1_MouseDown()
 
  LCDLabel1.Value = Fix((Mouse.X / LCDLabel1.W) * 100)
 
End