If GetDevicePhysicalSize < 6 Then
If cRefHeight <> 480 OR cRefWidth <> 320 OR cRefScale <> 1 Then
If 100%x > 100%y Then
' landscape
cScaleX = 100%x / cRefHeight / cRefScale / DeviceScale
cScaleY = 100%y / (cRefWidth - 50 * cRefScale) / DeviceScale
Else
' portrait
cScaleX = 100%x / cRefWidth / cRefScale / DeviceScale
cScaleY = 100%y / (cRefHeight - 50dip * cRefScale) / DeviceScale
End If
Else
SetRate(1) is exactly the same as %x and %y scaling !A proposito di DeviceScale mi puoi dire che cosa e' il SetRate impostato per default a 0.3?
Sub masklivello(i As Int)
Dim MaxLivello As Int
Select Case i
Case 1
For k=0 To MaxLivello
UpBox(k).Initialize("UpBox")
UpBox(k).Tag=k
'scale
Scale.ScaleView(UpBox(k))
''''''''''
If k<4 Then
UpBox(k).Bitmap=LoadBitmap(File.DirAssets,"LX.png")
Panel1.AddView(UpBox(k),2%x+Panel1.Left+8%x*k,(Panel1.Height/2)+22%y,7%x,12%y)
TipoImg(k)="LX.png"
Else
UpBox(k).Bitmap=LoadBitmap(File.DirAssets,"L0.png")
TipoImg(k)="L0.png"
Panel1.AddView(UpBox(k),2%x+Panel1.Left+8%x*k,(Panel1.Height/2)+22%y,7%x,12%y)
End If
Next
....
....
....
End Select
End Sub
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?