iOS Question Canvas, no result

[ivanomonti]

Using the canvas as I use it in B4J and B4A, the result is null

Private Sub CreateCustomBottom(Original As Bitmap, Width As Int, Height As Int) As Button
    '
    Dim bt1 As Button
    bt1.Initialize("bt",bt1.STYLE_SYSTEM)
    bt1.Width = Width
    bt1.Height = Height
    '
    Dim rec As Rect
    rec.Initialize(0,0,Width,Height)
    Dim cv As Canvas
    cv.Initialize(bt1)
    cv.DrawBitmap(Original,rec)
    '
   Return bt1
  
End Sub

 

[Erel]

See the canvas tutorial: http://www.b4x.com/android/forum/threads/bouncing-smilay-drawing-with-canvas.46154/

You must call Canvas.Refresh.

 

[ivanomonti]

Perfect

Private Sub CreateCustomBottom(Original As Bitmap, Width As Int, Height As Int) As Button
    '
    Dim bt1 As Button
    bt1.Initialize("bt",bt1.STYLE_SYSTEM)
    bt1.Width = Width
    bt1.Height = Height
    '
    Dim rec As Rect
    rec.Initialize(0,0,Width,Height)
    Dim cv As Canvas
    cv.Initialize(bt1)
    cv.DrawBitmap(Original,rec)
    cv.Refresh
    '
   Return bt1
 
End Sub