LayoutVal = GetDeviceLayoutValues
Dim Dens As Float
Dens = Density
'Log("Density = " & Dens) ' debug
If Activity.Width > Activity.Height Then
If LayoutVal.Width = 1280 AND Dens = 1 Then
svHeight = 90%y
Else If LayoutVal.Width = 1280 AND Dens = 1.5 Then
svHeight = 85%y
Else If LayoutVal.Width = 800 AND Dens = 1 Then
svHeight = 81%y
Else If LayoutVal.Width = 800 AND Dens = 1.5 Then
svHeight = 70%y
Else If LayoutVal.Width = 480 AND Dens = 1 Then
svHeight = 70%y
Else
Msgbox("MailPurge is not compatible with this device ...", "Sorry")
ExitApplication
End If
Else If Activity.Width < Activity.Height Then
If LayoutVal.Width = 800 AND Dens = 1 Then
svHeight = 95%y
Else If LayoutVal.Width = 800 AND Dens = 1.5 Then
svHeight = 90%y
Else If LayoutVal.Width = 480 AND Dens = 1 Then
svHeight = 89%y
Else If LayoutVal.Width = 480 AND Dens = 1.5 Then
svHeight = 88%y
Else If LayoutVal.Width = 320 AND Dens = 1 Then
svHeight = 86%y
Else
Msgbox("MailPurge is not compatible with this device ...", "Sorry")
ExitApplication
End If
End If