si lo avevo capito e rincaravo la dose"Beh, questo non creto" (Crozza-Razzi)
[Oh, ma io alludevo a te, ricco e taccagno, eh ]
Last edited:
si lo avevo capito e rincaravo la dose"Beh, questo non creto" (Crozza-Razzi)
[Oh, ma io alludevo a te, ricco e taccagno, eh ]
nessun suggerimento?
Quindi ti basta rilevare, tramite le coordinate, la view che si trova sotto la view trascinata; esisterà già qualcosa tipo: GetViewFromXY? Sarebbe l'ideale.HorizzontalScrollVire, ScrollView, ScrollView2D non funzionano, perché intercettano il Touch e mi interrompono il movimento (Mi da Action=3 interruzione movimento) ma ho risolto con un semplice panel che mi gestisco io lo scroll in orizzontale e verticale. Funziona bene.
Mi rimane adesso di fare l'inserimento della cella (o celle) dopo lo spostamento
Sub MyPanel_Touch (Action As Int, X As Float, Y As Float)
Dim XX,YY As Int
Select Action
Case 0 ' ACTION_DOWN
Sx=X
Sy=y
Case 1 ' ACTION_UP
Case 2 ' ACTION_MOVE
YY=MyPanel.top+y-Sy
XX=MyPanel.Left+x-Sx
If XX>0 Then XX=0
If YY>50dip Then YY=50dip
If YY+MyPanel.Height<100%y Then YY=100%y-MyPanel.Height
If XX+MyPanel.Width<100%x Then XX=100%x-MyPanel.Width
MyPanel.Top=YY
MyPanel.Left=XX
Case 3
'Log("interrupt intercept")
End Select
End Sub
If YY>50dip Then YY=50dip
come non detto, non usa touch né listener.anche la CustomListView DOVREBBE fare qualcosa del genere, penso
riprova ora.Il tuo link mi dice "Invalid URL"
Dovresti aggiungere un listener per la label (o edittext?), dovrebbe funzionare.E non mi intercetta il Touch delle label