Italian Chiacchiericci

Sagenut said:

Intanto non ti lascia usare la versione attuale?

Click to expand...

Del resto, sono obbligato ad usare Chrome per usare la console Google da programmatore, con Firefox non funziona.

Click to expand...

Filippo said:

io uso Firefox 56.0.1(32-Bit) e funziona per bene.

Click to expand...

LucaMs said:

io avevo la 57 e non funzionava.
Adesso ho la nuova, 59... ma non ho ancora provato

Click to expand...

Filippo said:

Il problema è che non tutte le versioni funzionano; alcuni mesi fa ho dovuto installare Chrome, ma poi ho trovato la versione giusta die Firefox e addesso non mi serve più.
Chrome mi è stato sempre antipatico! La prima cosa che faccio quando acquisto un nuovo smartphone è disattivare Chrome.

Click to expand...

Star-Dust said:

Taglio immagine a mano libera
View attachment 67181

Click to expand...

Star-Dust said:

Taglio immagine a mano libera
View attachment 67181

Click to expand...

Filippo said:

Forte!
Ma funziona solo con il cavallo?

Click to expand...

LucaMs said:

Devo aver visto una libreria che lo fa... cerca, Star

Click to expand...

Sub ButtonCut_Click
    Dim Canv As Canvas
    
    Canv.Initialize(PanelMain)
    Canv.DrawColor(Colors.Transparent)
    
    Dim P As Path
    P.Initialize(Point(0).X,Point(0).Y)
    
    For i=1 To Point.Length-1
        P.LineTo(Point(i).X,Point(i).Y)
    Next
    Canv.ClipPath(P)
    
    Dim r As Rect
    r.Initialize(0,0,PanelMain.Width,PanelMain.Height)
    Canv.DrawBitmap(LoadBitmap(File.DirAssets,"cavallo_0.jpg"),Null,r)
End Sub

Star-Dust said:

2 righe di B4A e senza libreria.

Click to expand...

LucaMs said:

Si fa per dire; come minimo manca tutta la parte "touch".

Cmq, mi sto addormentando (a una certa età, sarà il vecchio fegato, ma la digestione... [colazione, eh]) e poi devo completare un'inutile app, per la quale manco trovo un nome decente né un'icona (anche a disegnarla), che non vedo l'ora di pubblicarla per riuscire ad ottenere... 100 download nei prossimi 20 anni



Caffè!

Click to expand...

Sub PanelMain_Touch (Action As Int, X As Float, Y As Float)
    Dim Range As Int = 25dip
    Select Action
        Case 0 ' Down
            xi=X
            yi=y
            
            Dim Canv As Canvas
            Canv.Initialize(PanelMain)
            Canv.DrawCircle(X,Y,5dip,Colors.Black,True,1dip)
            AddPoint(X,Y)
        Case 1 ' Up
        Case 2 ' Move
            Dim L As Int = Sqrt(Power(X-xi,2)+Power(Y-yi,2))
            Dim Canv As Canvas
            Canv.Initialize(PanelMain)
            Canv.DrawCircle(X,Y,5dip,Colors.Black,True,1dip)
            If L>=Range Then
                AddPoint(X,Y)
                xi=X
                yi=Y
            End If
    End Select
End Sub

Sub AddPoint(X As Int, Y As Int)
    Dim PointNew(Point.Length+1) As Type_Point
    
    For i=0 To Point.Length-1
        PointNew(i)=Point(i)
    Next

    Dim P As Type_Point
    P.Initialize
    P.X=x
    P.Y=y
    PointNew(Point.Length)=p
    
    Point=PointNew
End Sub