Resize programmatically added views

[XverhelstX]

Hello,

I want to resize views that were added with code so they can fit any screen.
Normally, i use the layout designer and then use the Excel document somebody provided here on the B4A forums so it will resize automatically.

Now I want to resize the views, but i'm stuck with the "%X" and "%Y".

scrollDraw.Panel.AddView(imvImage,10,i*(imgHeight+imgSpace),imgWidth,imgHeight)
      scrollDraw.Panel.AddView(lblTitle,45,i*(imgHeight+imgSpace)+10,imgWidth,imgHeight)
      scrollDraw.Panel.AddView(lblDate,45,i*(imgHeight+imgSpace)+35,imgWidth,imgHeight)
      
      Dim leftImage, topImage, widthImage, heightImage As Double
      Dim xImage, yImage, xImage2, yImage2 As Double
      leftImage= 10
      topImage = i*(imgHeight+imgSpace)
      widthImage = imgWidth
      heightImage = imgHeight
      
      Dim strXImage, strYImage, strXImage2, strYImage2 As String
      Dim dlbx As Double
      xImage = (100*leftImage)/xPortrait
      'strXImage = xImage &"%X"
      yImage = (100*topImage)/yPortrait
      xImage2 = (100*widthImage)/xPortrait
      yImage2 = (100-heightImage)/yPortrait
      
      
      imvImage.SetLayout(xImage*1%X,yImage*1%Y,xImage2*1%X,yImage2*1%Y)

I know the "*1%X" or "*1%Y" is wrong, but I cannot add something like this:

xImage%X, yImage%Y, etc

Any help?

Tomas

 

[thedesolatesoul]

%X,%Y give percent relative to activity width/height.
i.e. a%X = (a/100)*Activity.Width
I dont completely understand your case but for xImage%X
I think it means:
xImage%X = (xImage/100)*Activity.Width

btw...you have a typo
yImage2 = (100-heightImage)/yPortrait

 

[XverhelstX]

%X,%Y give percent relative to activity width/height.

Thanks alot tds!
Didn't know that.

Also thanks for finding the typo

Tomas

 

[Erel]

You can also use the two functions: PerXToCurrent and PerYToCurrent.
%x, %y are shorthands to these methods.

'dip' is a shorthand for DipToCurrent.