trabaja con esto
Dim Space As Int
Scale.SetRate(0.5)
Scale.ScaleAll(Activity, True)
Space = 1dip * Scale.GetScaleX
Scale.SetBottom(lblDescripcion, 20%y - Space)
Scale.SetRight(lblDescripcion, 70%y - Space)
Scale.SetBottom(lblRequerimiento, 20%y - Space)
Scale.SetRight(lblRequerimiento, 35%y - Space)
Scale.SetBottom(Listview1, 75%y - Space)
y crea un cod module llamado Scale e ingresa esto
'Scale Code module
'Subs in this code module will be accessible from all modules.
Sub Process_Globals
' Designer Scripts AutoScale formula
' Delta = ((100%x + 100%y) / (320dip + 430dip) - 1)
' Rate = 0.5 'value between 0 to 1.
' Scale = 1 + Rate * Delta
Public Rate As Double
Rate = 0.3 'value between 0 to 1.
Private cScaleX, cScaleY, cScaleDS As Double
Private c50dip, c430dip, c270dip As Int
Private DeviceScale As Float
End Sub
'Initializes the Scale factors
Public Sub Initialize
' the height of the top line is 25pixel with density 1
' it's 38 pixels with density 1.5, but 25dip gives 37
Dim lv As LayoutValues
lv = GetDeviceLayoutValues
DeviceScale = lv.Scale
c50dip = Ceil(25 * DeviceScale) * 2
c430dip = 480dip - c50dip
c270dip = 320dip - c50dip
If GetDevicePhysicalSize < 6 Then
If 100%x > 100%y Then
' landscape
cScaleX = 100%x / 480dip
cScaleY = 100%y / c270dip
Else
' portrait
cScaleX = 100%x / 320dip
cScaleY = 100%y / c430dip
End If
Else
If 100%x > 100%y Then
' landscape
cScaleX = 1 + Rate * (100%x / 480dip - 1)
cScaleY = 1 + Rate * (100%y / c270dip - 1)
Else
' portrait
cScaleX = 1 + Rate * (100%x / 320dip - 1)
cScaleY = 1 + Rate * (100%y / c430dip - 1)
End If
End If
cScaleDS = 1 + Rate * ((100%x + 100%y) / (320dip + c430dip) - 1)
End Sub
'Gets the current X scale with the Rate set with SetRate
'or with the default Rate value of 0.3
Public Sub GetScaleX As Double
Return cScaleX
End Sub
'Gets the current Y scale with the Rate set with SetRate
'or with the default Rate value of 0.3
Public Sub GetScaleY As Double
Return cScaleY
End Sub
'Gets the Y scale in landscape orientation
'with the Rate set with SetRate
'or with the default Rate value of 0.3
'independant of the current orientation
Public Sub GetScaleY_L As Double
Dim Scale As Double
Scale = Min(100%y, 100%x - c50dip) / c270dip
If GetDevicePhysicalSize < 6 Then
Return Scale
Else
Return (1 + Rate * (Scale - 1))
End If
End Sub
'Gets the Y scale in portrait orientation
'with the Rate set with SetRate
'or with the default Rate value of 0.3
'independant of the current orientation
Public Sub GetScaleY_P As Double
Dim Scale As Double
Scale = Max(100%y, 100%x - c50dip) / c430dip
If GetDevicePhysicalSize < 6 Then
Return Scale
Else
Return (1 + Rate * (Scale - 1))
End If
End Sub
'Gets the X scale in landscape orientation
'with the Rate set with SetRate
'or with the default Rate value of 0.3
'independant of the current orientation
Public Sub GetScaleX_L As Double
Dim Scale As Double
Scale = Max(100%x, 100%y + c50dip) / 480dip
If GetDevicePhysicalSize < 6 Then
Return Scale
Else
Return (1 + Rate * (Scale - 1))
End If
End Sub
'Gets the X scale in portrait orientation
'with the Rate set with SetRate
'or with the default Rate value of 0.3
'independant of the current orientation
Public Sub GetScaleX_P As Double
Dim Scale As Double
Scale = Min(100%x, 100%y + c50dip) / 320dip
If GetDevicePhysicalSize < 6 Then
Return Scale
Else
Return (1 + Rate * (Scale - 1))
End If
End Sub
'Gets the standard Designer Scripts sacle
'with the Rate set with SetRate
'or with the default Rate value of 0.3
Public Sub GetScaleDS As Double
Return cScaleDS
End Sub
'Sets the scale rate
'Exemple:
'Set the value to 0.5
'<code>Scale.SetRate(0.5)</code>
Public Sub SetRate(cRate As Double)
Rate = cRate
Initialize
End Sub
'Gets the approximate phyiscal screen size in inches
'Exemple:
'<code>DeviceSize = Scale.GetDevicePhysicalSize</code>
Public Sub GetDevicePhysicalSize As Float
Dim lv As LayoutValues
lv = GetDeviceLayoutValues
Return Sqrt(Power(lv.Height / lv.Scale / 160, 2) + Power(lv.Width / lv.Scale / 160, 2))
End Sub
'Scales the view v with the Rate set with SetRate
'or with the default Rate value of 0.3
'v must not be an Activity
Public Sub ScaleView(v As View)
If IsActivity(v) Then
Return
End If
v.Left = v.Left * cScaleX
v.Top = v.Top * cScaleY
If IsPanel(v) Then
Dim pnl As Panel
pnl = v
If pnl.Background Is BitmapDrawable Then
' maintain the width/height ratio
' uses the min value of the scales
v.Width = v.Width * Min(cScaleX, cScaleY)
v.Height = v.Height * Min(cScaleX, cScaleY)
Else
v.Width = v.Width * cScaleX
v.Height = v.Height * cScaleY
End If
ScaleAll(pnl, False)
Else If v Is ImageView Then
' maintain the width/height ratio
' uses the min value of the scales
v.Width = v.Width * Min(cScaleX, cScaleY)
v.Height = v.Height * Min(cScaleX, cScaleY)
Else
v.Width = v.Width * cScaleX
v.Height = v.Height * cScaleY
End If
If v Is Label Then 'this will catch ALL views with text (EditText, Button, ...)
Dim lbl As Label = v
lbl.TextSize = lbl.TextSize * cScaleX
End If
If GetType(v) = "anywheresoftware.b4a.objects.ScrollViewWrapper$MyScrollView" Then
' test if the view is a ScrollView
' if yes calls the ScaleAll routine with ScrollView.Panel
Dim scv As ScrollView
scv = v
ScaleAll(scv.Panel, False)
Else If GetType(v) = "flm.b4a.scrollview2d.ScrollView2DWrapper$MyScrollView" Then
' test if the view is a ScrollView2D
' if yes calls the ScaleAll routine with ScrollView2D.Panel
' Dim scv2d As ScrollView2D
' scv2d = v
' ScaleAll(scv2d.Panel, False)
Else If GetType(v) = "anywheresoftware.b4a.objects.ListViewWrapper$SimpleListView" Then
' test if the view is a ListView
' if yes scales the internal views
Dim ltv As ListView
ltv = v
ScaleView(ltv.SingleLineLayout.Label)
ltv.SingleLineLayout.ItemHeight = ltv.SingleLineLayout.ItemHeight * cScaleY
ScaleView(ltv.TwoLinesLayout.Label)
ScaleView(ltv.TwoLinesLayout.SecondLabel)
ltv.TwoLinesLayout.ItemHeight = ltv.TwoLinesLayout.ItemHeight * cScaleY
ScaleView(ltv.TwoLinesAndBitmap.Label)
ScaleView(ltv.TwoLinesAndBitmap.SecondLabel)
ScaleView(ltv.TwoLinesAndBitmap.ImageView)
ltv.TwoLinesAndBitmap.ItemHeight = ltv.TwoLinesAndBitmap.ItemHeight * cScaleY
' center the image vertically
ltv.TwoLinesAndBitmap.ImageView.Top = (ltv.TwoLinesAndBitmap.ItemHeight - ltv.TwoLinesAndBitmap.ImageView.Height) / 2
Else If GetType(v) = "anywheresoftware.b4a.objects.SpinnerWrapper$B4ASpinner" Then
' test if the view is a Spinner
' if yes scales the internal text size
Dim spn As Spinner
spn = v
spn.TextSize = spn.TextSize * cScaleX
End If
End Sub
'Scales all views in the given Activity or Panel with all its child views
'with the Rate set with SetRate
'or with the default Rate value of 0.3
'FirstTime must be True
'Example:
'<code>Sub ScaleAll(Activity, True)</code>
Public Sub ScaleAll(act As Activity, FirstTime As Boolean)
Dim I As Int
' test if the activity object is a Panel
If IsPanel(act) AND FirstTime = True Then
' if yes scale it
ScaleView(act)
Else
For I = 0 To act.NumberOfViews - 1
Dim v As View
v = act.GetView(I)
ScaleView(v)
Next
End If
End Sub
'Scales the view v with the Rate set with SetRate
'scaling like the Designer Scripts
'or with the default Rate value of 0.3
Public Sub ScaleViewDS(v As View)
If IsActivity(v) Then
Return
End If
v.Left = v.Left * cScaleDS
v.Top = v.Top * cScaleDS
v.Width = v.Width * cScaleDS
v.Height = v.Height * cScaleDS
If IsPanel(v) Then
Dim pnl As Panel
pnl = v
ScaleAllDS(pnl, False)
End If
If v Is Label Then 'this will catch ALL views with text (EditText, Button, ...)
Dim lbl As Label = v
lbl.TextSize = lbl.TextSize * cScaleDS
End If
If GetType(v) = "anywheresoftware.b4a.objects.ScrollViewWrapper$MyScrollView" Then
' test if the view is a ScrollView
' if yes calls the ScaleAll routine with ScrollView.Panel
Dim scv As ScrollView
scv = v
ScaleAllDS(scv.Panel, False)
Else If GetType(v) = "flm.b4a.scrollview2d.ScrollView2DWrapper$MyScrollView" Then
' test if the view is a ScrollView2D
' if yes calls the ScaleAll routine with ScrollView2D.Panel
' Dim scv2d As ScrollView2D
' scv2d = v
' ScaleAllDS(scv2d.Panel, False)
Else If GetType(v) = "anywheresoftware.b4a.objects.ListViewWrapper$SimpleListView" Then
' test if the view is a ListView
' if yes scales the internal views
Dim ltv As ListView
ltv = v
ScaleViewDS(ltv.SingleLineLayout.Label)
ltv.SingleLineLayout.ItemHeight = ltv.SingleLineLayout.ItemHeight * cScaleDS
ScaleViewDS(ltv.TwoLinesLayout.Label)
ScaleViewDS(ltv.TwoLinesLayout.SecondLabel)
ltv.TwoLinesLayout.ItemHeight = ltv.TwoLinesLayout.ItemHeight * cScaleDS
ScaleViewDS(ltv.TwoLinesAndBitmap.Label)
ScaleViewDS(ltv.TwoLinesAndBitmap.SecondLabel)
ScaleViewDS(ltv.TwoLinesAndBitmap.ImageView)
ltv.TwoLinesAndBitmap.ItemHeight = ltv.TwoLinesAndBitmap.ItemHeight * cScaleDS
' center the image vertically
ltv.TwoLinesAndBitmap.ImageView.Top = (ltv.TwoLinesAndBitmap.ItemHeight - ltv.TwoLinesAndBitmap.ImageView.Height) / 2
Else If GetType(v) = "anywheresoftware.b4a.objects.SpinnerWrapper$B4ASpinner" Then
' test if the view is a Spinner
' if yes scales the internal text size
Dim spn As Spinner
spn = v
spn.TextSize = spn.TextSize * cScaleDS
End If
End Sub
'Scales all views in the given Activity or Panel with all its child views
'scaling like the Designer Scripts
'with the Rate set with SetRate
'or with the default Rate value of 0.3
'FirstTime must be True
'Example:
'<code>Sub ScaleAllDS(Activity, True)</code>
Public Sub ScaleAllDS(act As Activity, FirstTime As Boolean)
Dim I As Int
' test if the activity object is a Panel
If IsPanel(act) AND FirstTime = True Then
' if yes scale it
ScaleViewDS(act)
Else
For I = 0 To act.NumberOfViews - 1
Dim v As View
v = act.GetView(I)
ScaleViewDS(v)
Next
End If
End Sub
'Centers horizontally the given view on the screen
Public Sub HorizontalCenter(v As View)
v.Left = (100%x - v.Width) / 2
End Sub
'Centers horizontally the given view on the screen
'between vLeft and vRight
Public Sub HorizontalCenter2(v As View, vLeft As View, vRight As View)
v.Left = vLeft.Left + vLeft.Width + (vRight.Left - (vLeft.Left + vLeft.Width) - v.Width) / 2
If IsActivity(v) Then
ToastMessageShow("The view is an Activity !", False)
Return
Else
If IsActivity(vLeft) Then
If IsActivity(vRight) Then
v.Left = (100%x - v.Width) / 2
Else
v.Left = (vRight.Left - v.Width) / 2
End If
Else
If IsActivity(vRight) Then
v.Left = vLeft.Left + vLeft.Width + (100%x - (vLeft.Left + vLeft.Width) - v.Width) / 2
Else
v.Left = vLeft.Left + vLeft.Width + (vRight.Left - (vLeft.Left + vLeft.Width) - v.Width) / 2
End If
End If
End If
End Sub
'Centers vertically the given view on the screen
Public Sub VerticalCenter(v As View)
v.Top = (100%y - v.Height) / 2
End Sub
'Centers vertically the given view on the screen
'between vTop and vBottom
Public Sub VerticalCenter2(v As View, vTop As View, vBottom As View)
If IsActivity(v) Then
ToastMessageShow("The view is an Activity !", False)
Return
Else
If IsActivity(vTop) Then
If IsActivity(vBottom) Then
v.Top = (100%y - v.Height) / 2
Else
v.Top = (vBottom.Top - v.Height) / 2
End If
Else
If IsActivity(vBottom) Then
v.Top = vTop.Top + vTop.Height + (100%y - (vTop.Top + vTop.Height) - v.Height) / 2
Else
v.Top = vTop.Top + vTop.Height + (vBottom.Top - (vTop.Top + vTop.Height) - v.Height) / 2
End If
End If
End If
End Sub
'Set the Left property of the given view
'according to the given xRight coordinate and the views Width property
Sub SetRight(v As View, xRight As Int)
v.Left = xRight - v.Width
End Sub
'Set the Top property of the given view
'according to the given yBottom coordinate and the views Height property
Sub SetBottom(v As View, yBottom As Int)
v.Top = yBottom - v.Height
End Sub
'Set the view Left and Width properties to fill the space
'between the two coordinates xLeft and xRight
Public Sub SetLeftAndRight(v As View, xLeft As Int, xRight As Int)
' take the correct coordinates event if they are permuted
v.Left = Min(xLeft, xRight)
v.Width = Max(xLeft, xRight) - v.Left
End Sub
'Set the view Left and Width properties to fill the space
'between the two views vLeft and vRight
'if the Left coordinate should be 0 set vLeft to the Activity
'if the Right coordinate should be 100%x set vRight to the Activity
Public Sub SetLeftAndRight2(v As View, vLeft As View, dxL As Int, vRight As View, dxR As Int)
' return if v is an Activity
If IsActivity(v) Then
ToastMessageShow("The view is an Activity !", False)
Return
End If
' if vLeft is on the right of vRight pernutates the two views
If IsActivity(vLeft) = False AND IsActivity(vRight) = False Then
If vLeft.Left > vRight.Left Then
Dim v1 As View
v1 = vLeft
vLeft = vRight
vRight = v1
End If
End If
If IsActivity(vLeft) Then
v.Left = dxL
If IsActivity(vRight) Then
v.Width = 100%x - dxL - dxR
Else
v.Width = vRight.Left - dxL - dxR
End If
Else
v.Left = vLeft.Left + vLeft.Width + dxL
If IsActivity(vRight) Then
v.Width = 100%x - v.Left
Else
v.Width = vRight.Left - v.Left - dxR
End If
End If
End Sub
'Set the view Top and Height properties to fill the space
'between the two coordinates yTop and yBottom
Public Sub SetTopAndBottom(v As View, yTop As Int, yBottom As Int)
' take the correct coordinates event if they are permuted
v.Top = Min(yTop, yBottom)
v.Height = Max(yTop, yBottom) - v.Top
End Sub
'Set the view Top and Height properties to fill the space
'between the two views vTop and vBottom
'if the Top coordinate should be 0 set vTop to the Activity
'if the Bottom coordinate should be 100%y set vBottom to the Activity
Public Sub SetTopAndBottom2(v As View, vTop As View, dyT As Int, vBottom As View, dyB As Int)
' return if v is an Activity
If IsActivity(v) Then
ToastMessageShow("The view is an Activity !", False)
Return
End If
If IsActivity(vTop) = False AND IsActivity(vBottom) = False Then
' if vTop is below vBottom.Top permutes the two views
If vTop.Top > vBottom.Top Then
Dim v1 As View
v1 = vTop
vTop = vBottom
vBottom = v1
End If
End If
If IsActivity(vTop) Then
v.Top = dyT
If IsActivity(vBottom) Then
v.Height = 100%y - dyT - dyB
Else
v.Height = vBottom.Top - dyT - dyB
End If
Else
v.Top = vTop.Top + vTop.Height + dyT
If IsActivity(vBottom) Then
v.Height = 100%y - v.Top - dyB
Else
v.Height = vBottom.Top - v.Top - dyB
End If
End If
End Sub
'Returns the Right coordinate of the given view
Public Sub Right(v As View) As Int
Return v.Left + v.Width
End Sub
'Returns the Bottom coordinate of the given view
Public Sub Bottom(v As View) As Int
Return v.Top + v.Height
End Sub
'Returns True if the view v is a Panel otherwise False
'Needed to check if the view is a Panel or an Activity
Public Sub IsPanel(v As View) As Boolean
If GetType(v) = "anywheresoftware.b4a.BALayout" Then
Try
v.Left = v.Left
Return True
Catch
Return False
End Try
Else
Return False
End If
End Sub
'Returns True If the View v Is an Activity otherwise False
'Needed to check if the view is a Panel or an Activity
Public Sub IsActivity(v As View) As Boolean
Try
v.Left = v.Left
Return False
Catch
Return True
End Try
End Sub
alli tienes tu solucion compa
