Italian Adattabilità dell'interfaccia

sirjo66 · Sep 28, 2015

Scusa Luciano, ma intendi table.text oppure table.textsize ??

Per sapere la misura in pollici dello schermo puoi fare un calcolo, anche se (secondo me) non esce proprio preciso preciso.

Per scalare le Activity ed adattarle a tutti gli schermi la cosa migliore è usare la classe "Scale" di Klaus, io l'ho provata e mi trovo bene, eccovi qui l'ultima versione

Ciao
Sergio

udg · Sep 28, 2015

Se può interessare, il seguente codice (di Erel), mostra i valori fisici del device:

B4X:

Sub Activity_Create(FirstTime As Boolean)
If 100%x > 100%y Then Log("Landscape") Else Log("Portrait")
Dim lv AsLayoutValues = GetDeviceLayoutValues
Log(lv & ", size = " & lv.ApproximateScreenSize)
End Sub

LucaMs · Sep 28, 2015

Usa GetDeviceLayoutValues.XXXX

[Ah, il sito inizia a funzionare maluccio, anzi, continua... subito dopo che ho scritto questa riga, sono comparse le risposte di @sirjo66 e @udg , tanto che ancora non le ho lette]

luciano deri · Sep 28, 2015

Grazie a tutti ecco la soluzione che sintetizza i vostri suggerimenti

B4X:

Sub DeterminaLayout
Dim lv As LayoutValues
lv = GetDeviceLayoutValues
Dim screensize As Double
screensize = lv.ApproximateScreenSize
Select True
    Case screensize <= 4
            table.TextSize = 10
            table.HeaderHeight = 8%Y
            table.RowHeight = 8%Y

    Case screensize > 4 And screensize <= 7
            table.TextSize = 13
            table.HeaderHeight = 6%Y
            table.RowHeight = 6%Y

    Case screensize > 7 And screensize <= 10
            table.TextSize = 16
            table.HeaderHeight = 4%Y
            table.RowHeight = 4%Y

    Case screensize > 10
            table.TextSize = 19
            table.HeaderHeight = 3%Y
            table.RowHeight = 3%Y          
End Select  
End Sub

LucaMs · Sep 28, 2015

Puoi anche usare

B4X:

Select Case ScreenSize
    case <= 4
    case ...

(lo dico perché personalmente quel Select True non mi piace affatto )

luciano deri · Sep 28, 2015

LucaMs said:
Puoi anche usare

B4X:

Select Case ScreenSize case <= 4 case ...

(lo dico perché personalmente quel Select True non mi piace affatto )

non lo compila, mi dice missing parameter

LucaMs · Sep 28, 2015

Non era completo, eh, era solo per dire come andrebbe usato.
Nel tuo caso (modificando il tuo codice):

B4X:

Sub DeterminaLayout

Dim lv As LayoutValues
lv = GetDeviceLayoutValues
Dim screensize As Double
screensize = lv.ApproximateScreenSize

Select Case screensize
    Case < 4
            table.TextSize = 10
            table.HeaderHeight = 8%Y
            table.RowHeight = 8%Y

    Case < 7
            table.TextSize = 13
            table.HeaderHeight = 6%Y
            table.RowHeight = 6%Y

    Case  < 10
            table.TextSize = 16
            table.HeaderHeight = 4%Y
            table.RowHeight = 4%Y

    Case > 10 ' andrebbe bene anche Case Else
            table.TextSize = 19
            table.HeaderHeight = 3%Y
            table.RowHeight = 3%Y          
End Select  
End Sub

LucaMs · Sep 28, 2015

Oh bella, continua a dire "Missing parameter"...

udg · Sep 28, 2015

Mi sa che dipende da quel "Case" che segue il Select

Dovrebbe essere:
Select screensize

udg

LucaMs · Sep 28, 2015

A quanto pare funziona a chez, hehehe

Funziona senza variabile solo se usi:
Select case ScreenSize
Case 1
case 2
...

LucaMs · Sep 28, 2015

udg said:
Mi sa che dipende da quel "Case" che segue il Select

Dovrebbe essere:
Select screensize

udg

Magari! manco così

LucaMs · Sep 28, 2015

Vuoi vedere che se uso variabili anche diverse funziona? Bleah, completamente sbagliato... provo...

LucaMs · Sep 28, 2015

Infatti... ha un funzionamento completamente diverso da VB.Net e totalmente illogico.
Questo, ad esempio, funziona:

B4X:

    Dim Screen_Size, Pippo As Int
   
    Screen_Size = 3
    Pippo = 8

    Select True
        Case Screen_Size < 4 AND Pippo > 10
            Log("<4")
        Case Screen_Size < 4 AND Pippo < 10
            Log("cavolata")
    End Select

LucaMs · Sep 28, 2015

Ma funziona anche così (senza variabile ma solo col valore esatto, non con i simboli <>...)

B4X:

    Dim Screen_Size As Int
   
    Screen_Size = 3

    Select Case Screen_Size
        Case 4
            Log("4")
        Case 3
            Log("ancora una cavolata")
    End Select

LucaMs · Sep 28, 2015

A questo punto c'è ben poca differenza rispetto all'uso di una lunga serie di IF Else

(uhm... ho il sospetto che siamo leggermente usciti fuori tema, colpa mia, hehehe)

luciano deri · Sep 28, 2015

LucaMs said:
A questo punto c'è ben poca differenza rispetto all'uso di una lunga serie di IF Else

(uhm... ho il sospetto che siamo leggermente usciti fuori tema, colpa mia, hehehe)

Si il select case funziona a chez, ma nel caso specifico il codice risulta un po' più leggibile rispetto alla catena di if che verrebbe

B4X:

if SceenSize <= 4
....
else
   if SceenSize > 4 and ScreenSize <= 7
       .....
   else
       if screensize ....
       else
          if 'stella sull'albero di natale
          else
          end if
       end if
   end if
end if

LucaMs · Sep 28, 2015

Se metti
Else IF
sulla stessa riga, però, siamo quasi là

sirjo66 · Sep 29, 2015

Mi sembra che bisogna scriverlo così:

B4X:

Sub DeterminaLayoutDim lv AsLayoutValues
lv = GetDeviceLayoutValuesDim screensize As Double
screensize = lv.ApproximateScreenSize
Select Case screensize
Case Is < 4
    table.TextSize = 10
    table.HeaderHeight = 8%Y
    table.RowHeight = 8%Y
Case Is < 7
    table.TextSize = 13
    table.HeaderHeight = 6%Y
    table.RowHeight = 6%Y
Case Is < 10
    table.TextSize = 16
    table.HeaderHeight = 4%Y
    table.RowHeight = 4%Y
Case Else
    table.TextSize = 19
    table.HeaderHeight = 3%Y
    table.RowHeight = 3%Y
End Select
End Sub

P.S.: il Case Else sarebbe meglio, perchè nel caso in cui il valore di screenSize è 10, il codice originale (scritto da Luca) non funziona dato che ha solo testato per "minore di 10" o per "maggiore di 10"

LucaMs · Sep 29, 2015

ho provato anche Case Is e non mi funzionava, boh. Forse la fretta

Italian Adattabilità dell'interfaccia

Well-Known Member

Attachments

Expert

Expert

Active Member

Expert

Active Member

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Active Member

Expert

Well-Known Member

Expert

Similar Threads

Privacy & Transparency

Privacy & Transparency