Android Question [Solved] Image was reset while using SetLayoutAnimated

[rraswisak]

Hi All,

I have following code to add and place image to activity

Sub Activity_Touch (Action As Int, X As Float, Y As Float)
    Dim xui As XUI
    Dim bmp As B4XBitmap = xui.LoadBitmapResize(File.DirAssets,"kiwi.png",100dip,100dip,True)
    
    Dim p As B4XView = xui.CreatePanel("")
    Activity.AddView(p,X-50dip, Y-50dip,100dip,100dip)
    p.SetBitmap(bmp)
    Sleep(2000)
    p.SetLayoutAnimated(1000,X-5dip,Y-5dip,10dip,10dip)
End Sub

How to keep the image reduce in size and keep the ratio while using SetLayoutAnimated ?

Thank you

 

[TILogistic]

check this if it helps you.

[Solved] [B4X] How to create a smooth in/out zoom for an image?

For an app that should run on Android and iOS an animation effect is needed. A fullscreen image shall get an alternating zoom in/out animation. It is expected that after a continuous zoom-in the image stands for a short time and then zooms out again continuously. This is solved in principle by...

www.b4x.com

 

[rraswisak]

I think i can manage this with different approach, for this purpose using ImageView is the solution.

Here is my working code:

Sub Activity_Touch (Action As Int, X As Float, Y As Float)
    If Action = Activity.ACTION_DOWN Then
        Dim xui As XUI
        Dim bmp As B4XBitmap = xui.LoadBitmapResize(File.DirAssets,"kiwi.png",100dip,100dip,False)
      
        Dim c As ImageView
        c.Initialize("")
        c.SetBackgroundImage(bmp)
        c.Gravity = Gravity.FILL

        Activity.AddView(c,X-50dip, Y-50dip,100dip,100dip)
        Sleep(2000)
        c.SetLayoutAnimated(1000,X-5dip,Y-5dip,10dip,10dip)
    End If
End Sub