Italian DoEvents..Non capisco...non capisco :D

udg · Jun 26, 2014

Ciao Massimo,

credo che la confusione nasca dal ritardo con cui viene aggiornata la lista, da un punto di vista grafico.
Per questo ti suggerivo di introdurre un'istruzione listview.invalidate dopo il cambio di colore.
Lo scopo è proprio quello di forzare il redraw della lista e verificare che tutte le righe assumono il nuovo colore.
Siccome le note relative a "invalidate" dicono che il redraw avverrà quando possibile, ritengo sia utile far seguire l'istruzione da un DoEvents, gisto per dare un po' di respiro alla coda degli eventi.

Per le double lines, invece, essendo formate da due distinte labels dovresti poter usare due distinti colori, uno per ciascuna label, che poi, come al solito, verrano ripresi in tutti gli elementi di quel tipo (double lines) presenti nella lista.
Ma questo non ti serve per il caso in esame.

Umberto

LucaMs · Jun 26, 2014

Il progettino che ho allegato è in Portrait e non ho impostato la scrollview con le percentuali, per questo non vedi i punteggi. Basta adattare la scrollview. Inoltre, dovresti posizionarla sul riquadro.

Per le trasparenze... ci sto provando, ma qualcosa non va. Non è sufficiente impostare i colori a Colors.Transparent sia nel pannello del CreateItem, sia per le label che per la CheckList stessa! C'è una chiamata tramite reflection, devo guardare meglio. Eventualmente si può interpellare l'autore, Informatix.

Dato che i timer sono nella Activity Gioco, puoi fare più o meno come nel progetto funzionano le animazioni: allo scadere del primo timer (tick) lo disabiliti e abiliti l'altro.

(Main è solo la Activity principale, tutte le altre sono... Activities).

LucaMs · Jun 26, 2014

Ah, no, avevo solo dimenticato di impostare l'Alpha della scrollview a 0.

Quindi, ScrollView del designer: Color = Transparent, Alpha = 0
Color del pannello (CreateItem) e delle label a Transparent
cklPunteggi.BackgroundColor = Colors.Transparent

CyclopDroid · Jun 26, 2014

Ciao udg, ho provato ma non ne trae nessun beneficio.

B4X:

Select Case colore
        Case 0
            SV.SingleLineLayout.Label.TextColor=Colors.White
            SV.Invalidate
            DoEvents
      
        Case 1
            SV.SingleLineLayout.Label.TextColor=Colors.Yellow
            SV.Invalidate
            DoEvents
        Case 2
            SV.SingleLineLayout.Label.TextColor=Colors.Green
            Rix.TextColor=Colors.Green
        Case 3
            SV.SingleLineLayout.Label.TextColor=Colors.Red
            SV.Invalidate
            DoEvents
    End Select

Forse la mossa di Luca è quella più reale anche se, come detto nel suo codice io non vedo i punti ma solo le parole. (quando lo eseguo)

LucaMs · Jun 26, 2014

L'ho modificato e ricaricato. Prova a dargli un'occhiata

udg · Jun 26, 2014

Ciao Massimo,

leggi quest brevissimo post di Erel.
Sembra che cambiare in corsa le property di una LV non sia una buona idea. Le CustomListView o l'idea di Luca dovrebbero aiutarti.

CyclopDroid · Jun 26, 2014

Grazie Luca. Ho visto solo ora e vedrò di impleentarla nel mio game. Grazie anche a te udg. Speriamo che non abbia problemi.

LucaMs · Jun 26, 2014

udg said:
Ciao Massimo,

leggi quest brevissimo post di Erel.
Sembra che cambiare in corsa le property di una LV non sia una buona idea. Le CustomListView o l'idea di Luca dovrebbero aiutarti.

La mia "idea" è una custom listview, la CheckList di Informatix

CyclopDroid · Jun 26, 2014

Vabbè però!
Ho aggiornato lo Scale (il mio era il 1.2) mentre quello di Luca era il 1.4 ed aveva in più il .GetScaleTxt e, appenal ancio senza modifiche alcune, mi appare un errore di campo NULL qui nello Scale in obj

B4X:

Public Sub IsActivity(v As View) As Boolean
    Dim obj As Object
    obj = GetParent(v)
    If GetType(obj) = "android.widget.FrameLayout" Then
        Return True
    Else
        Return False
    End If
End Sub

E' la seconda volta che aggiorno una libreria o un modulo e devo rimettere mano ai programmi perché le nuove non funzionano più!
Ma le nuove feature non dovrebbero migliorare invece di creare problemi?
Viene passata una imageview ma mi risulta null.

B4X:

Dim numLiv As ImageView
'Numero Livelli
numLiv.Initialize("numLiv")
Dim liv As Int
liv=Main.Livello(Main.fndPlayer)+1
numLiv.Bitmap=LoadBitmap(File.DirAssets, liv &".png")
Scale.ScaleView(numLiv)

...alla fine, invece di migliorare, si sta incasinando di più il tutto
Spero di ritrovare quella versione 1.2 dello Scale perché TUTTI i miei passaggi (imagini, panel, etc, restirtuiscono errore NULL... e vedo che cvuole STRING come input).

LucaMs · Jun 26, 2014

Esegui il programma passo passo (F8).

Sto provando a pensare quale sia la differenza tra i due moduli (GetScaleText non c'entra).

LucaMs · Jun 26, 2014

Sicuro di non aver cambiato qualcosa?
Tra la 1.2 e la 1.4, oltre al mio text, che non è detto sia ideale, tra l'altro, ma non influisce sul tuo errore:

' Version 1.4 2013.11.29
' amended error with height and width <0
'
' Version 1.3 2013.11.16
' added ScaleAllX and ScaleViewX
' this scaling uses only the X scale factor
'
' Version 1.2 2013.09.18
' added HorizontalScrollView

e nemmeno queste dovrebbero.

LucaMs · Jun 26, 2014

??? che dico???
Finché non aggiungi la ImageView ad un pannello (o Activity) non "esiste", quindi non puoi scalarla!
Metti lo scale dopo aver aggiunto la ImageView

[anche con la 1.2 non doveva funzionare]

CyclopDroid · Jun 26, 2014

Ho provato. Ma appena arriva alle chiamate Scale.ScaleView(ogetto) mi da errore.
Ho seguito ma appena entra lo mette come NULL e si blocca con questo messaggio:

java.lang.NullPointerException

Ora provo ma, con la 1.2 funzionava eccome!

CyclopDroid · Jun 26, 2014

...Mah! nella versione 1.2 non mi dava nessun errore e nella 1,4 si.
Comunque, Si... ora funziona.

CyclopDroid · Jun 27, 2014

Grazie per l'interessamento e per la soluzione che Luca ha postato ma penso di aver trovatp
o una soluzione che, se riuscissi a capire come posizionarsi all'ultima riga, sarebbe la più semplice e veloce...overo l'uso della ScrollView con una checkbox, postata QUI
Il problema e che non si capisce come visualizzare l'ultimo campo ella lista.

CyclopDroid · Jun 27, 2014

Riguardo lìinserimento è tutto a posto. Klaus mi hadetto come arrivare all'ultimo campo inserito e la cosa funziona a meraviglia... ora, riorniamo alla domanda principale....ma sti DoEvents mica funzionano tanto bene!
Cioè, danno un leggero ritardo e basta. Non è che attendono la fine del processo (quanto mi mancano i, chiisà perché non mai piaciuti, GOTO).
Almeno, con quelli, se non finiva ritornavi. Ora si potrebbe usare il Do While, ma non penso che le altre azioni aspettino.
Ripetetere per più volte i DoEvents non è una cosa buona, perché dipende la macchina come lavora e quindi potrebbe essere più lento o più veloce.
Ora che testo il gioco, mi accorgo che la musica, sul mio Smart, parte e si sovrappone per poi tornare normale... mah!

LucaMs · Jun 27, 2014

Il goto col doevents c'entra come i cavoli a merenda, per questo non li capisci, forse.

Col goto, famigerato, come sai, saltavi di qua e di là; il doevents "concede" alla CPU di eseguire istruzioni mentre, per esempio, "stai" all'interno di un ciclo. Spesso si usa per permettere il refresh dello schermo.

Dato che ho perso il filo, non ho capito dove vorresti usare i goto o i doevents, dove sono necessari secondo te e perché.

LucaMs · Jun 27, 2014

Io, invece, devo mettermi a studiare... ancora la grafica! grrrrrrrrrrrrrrr

Nell'esempio che ho allegato al post #19 (!), l'allineamento del testo delle righe era perfetto su un emulatore, tutt'altro sul mio smartphone.
Il motivo lo so e lo capisco: il background dell'activity va adattato (oppure va adattata la CheckList) ma non ho avuto ancora la pazienza di approfondire, ste cose grafiche sono da mal di testa

CyclopDroid · Jun 28, 2014

HeHeHe, anche tu, Guru , hai problemi chiari vedo... mi rassicuro allora sulla mia pippagine.

Alla fine, come scritto, con questo codice ho risolto:

B4X:

ScrollView1.Initialize(0)   
  pnl = ScrollView1.Panel
  lstChecks.Initialize

chk.TextSize=14 *TextScale
lbl1.TextSize=14*TextScale  
    lstChecks.Add(chk)
  
height=chk.height*0.3
pnl.AddView(chk, 0, height * (IDtxt-1), 50%x, height)
pnl.AddView(lbl1, 37%x, height * (IDtxt-1), 37%x, height)
      
pnl.height = lstChecks.Size * height
pnl.BringToFront
DoEvents
ScrollView1.ScrollPosition = height * IDtxt-1

dove pnl è un panel, chk è un CheckBox a cui passo la parola e lbl1 una Label alla quale passo i punti
...l'unica cosa che c'è di storto è quel height=chk.height*0.3 che ho messo, per adeguare l'altezza in base allo schermo del dispositivo (se uso lo Scale non vedo nulla). Infatti, sul mio dispositivo va bene ma, su un Tablet 7", lo spazio è troppo.

LucaMs · Jun 28, 2014

Aho, Guru lo dici a qualcun altro

Forse ti risolvo il * 0.3.

Se hai utilizzato il modulo Scale, ho appena trovato un piccolo errore nella routine SetReferenceLayout. La riga:

If cRefWidth < cRefHeight Then

dev'essere invece:

If Width < Height Then

Italian DoEvents..Non capisco...non capisco :D

Expert

Expert

Expert

Well-Known Member

Expert

Expert

Well-Known Member

Expert

Well-Known Member

Expert

Expert

Expert

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Expert

Expert

Well-Known Member

Expert

Similar Threads

Privacy & Transparency

Privacy & Transparency