#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
End Sub
Sub Globals
Private Button1 As Button
Private Panel1 As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
Button1.Initialize("Button1")
Panel1.Initialize("")
Activity.AddView(Panel1,100dip,150dip,150dip,150dip)
Panel1.AddView(Button1,10dip,10dip,130dip,100DIP)
Panel1.Color=Colors.White
Button1.Color=Colors.Blue
Button1.Text="should not scaled"
Button1.TextColor=Colors.White
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_click
Dim NBA1 As noaObjectAnimator
'i want to scale panel withot scale button which is a child view of panel
NBA1.InitializeFloat(Panel1, NBA1.PROPERTY_SCALE_Y, 0,2, "")
NBA1.setDuration(3000)
NBA1.Start
End Sub