Android Question csbuilder and pictures

[zorino]

Hi Guys,

It is not clear to me how to deal with pictures with CSbuilder and text above the image and below the image.
Pictures are horizontal or vertical of different sizes (without knowing them) and orientations.

    Dim f As Float = 100%x / 100%y
    Dim t As String = "image.jpg"
    Dim cs As CSBuilder

    cs.Initialize
    cs.Append("The picture is crippled".Append(CRLF)
    
   [B] 'cs.Image(LoadBitmapResize(File.DirRootExternal & "/Pictures", t, 80%x, 80%y*f, False), 80%x, 80%y*f, False).Append(CRLF)
    cs.Image(LoadBitmap(File.DirRootExternal & "/Pictures", t), 300dip, 300dip, True).Append(CRLF)
[/B]
    cs.Append("Where do I make a mistake?".Append(CRLF)
    cs.PopAll

 

[Erel]

Code with File.DirRootExternal = broken code.

Adding CRLF before and after the image should allow you to add text before and after.

I recommend using BBCodeView.

 

[zorino]

Thank you for your patience. But my problem is with cs.image and how to properly load the image, please.

 

[TILogistic]

see:

How to add image to button with text ?

Hello everyone how can i add image with text to the button like this ?

www.b4x.com

 

[zorino]

No Guys, my question is how to load image into cs with the aspect ratio maintained?

 

[teddybear]

No Guys, my question is how to load image into cs with the aspect ratio maintained?

cs.Image(LoadBitmap(File.DirAssets, yourpic), width, height True)
It will keep the aspect ratio(width x height) after loaded image into cs. what is the problem with it?

 

[TILogistic]

?

see:

xui.LoadBitmapResize(File.DirAssets, "support.png", w, h, True)

    Label2.SetColorAndBorder(xui.Color_White, 1dip, xui.Color_DarkGray, 10dip)
   
    Dim w As Int = DipToCurrent(Label2.Width * .50)
    Dim h As Int = DipToCurrent(Label2.Height * .50)
   
    Dim cs As CSBuilder
    cs.Initialize
    cs.Alignment("ALIGN_CENTER")
    cs.Append("Call Center")
    cs.Append(CRLF)
    cs.Image(xui.LoadBitmapResize(File.DirAssets, "support.png", w, h, True), w, h, True)
    cs.Append(CRLF)
    cs.Append("Support")
    cs.PopAll
    Label2.Text = cs