Italian [SOLVED] Modificare il font in un Animated Counter

[Elric]

Ciao a tutti!

Vorrei fare in modo di pter modificare il font in un Animated Counter.

Secondo Erel (https://www.b4x.com/android/forum/t...r-i-cant-change-text-color.130976/post-824656) non sarebbe difficile... ma sto provando a capire come e non cavo un ragno dal buco...

Avete dei suggerimenti?

Grazie!

 

[Star-Dust]

Prova modificando la sub CreateBitmap credo che da lì disegni la vista.

In ogni caso il font lo prende da lbl e quindi é modificabile da design sulle proprietà label

 

[Elric]

Prova modificando la sub CreateBitmap credo che da lì disegni la vista.

Ottimo, grazie per la dritta!

In ogni caso il font lo prende da lbl e quindi é modificabile da design sulle proprietà label

Vorrei avere un Animated Counter con possibilità di modificare il font anche successivamente da parte dell'utente.

Mi sto inoltrando in qualcosa in cui sono poco pratico e mi pare di esserci riuscito, anche se non so bene come...

Sub Class_Globals
    ...
    Private mTextColor As Int = xui.Color_Black 'nuova variabile aggiunta
    Public mLabel As B4XView 'nuova variabile aggiunta
End Sub

...

Public Sub DesignerCreateView (Base As Object, lbl As Label, Props As Map)
      ...
    mLabel = lblTemplate ' nuova riga
    mTextColor = mLabel.TextColor ' nuova riga
End Sub

' Call Refresh once new property of mLabel is set
'Usage example:
'<code>
'glbAnimatedCounter1.mLabel.TextColor = xui.Color_Green
'glbAnimatedCounter1.mLabel.Font = fx.CreateFont("System", 25, False, False)
'glbAnimatedCounter1.Refresh</code>
Public Sub Refresh ' nuova sub aggiunta da richiamare una volta impostati i valori di mLabel
    Dim bmp As B4XBitmap = CreateBitmap(mLabel)
    For i = 0 To lstImageViews.Size - 1
        Dim iv As B4XView = lstImageViews.Get(i)
        iv.SetBitmap(bmp)
    Next
End Sub

 

[Star-Dust]

Per modificarlo da codice, aggiungi un metodo che passi un nuovo valore su mTextColor e fai un refresh.

Mi sembri a buon punto

 

[Elric]

Per funzionare pare funzioni.

L'esempio per la sub refresh dovrebbe già tenere conto di questo tuo ultimo (e sempre gradito!) suggerimento:

glbAnimatedCounter1.mLabel.TextColor = xui.Color_Green
glbAnimatedCounter1.mLabel.Font = fx.CreateFont("System", 25, False, False)
glbAnimatedCounter1.Refresh

Poi, da qui a farla diventare una libreria... forse è già pronta, forse no, non ne ho idea! Non ne ho mai fatta una!