iOS Question Join 2 images

[Graeme Mitchell]

I have 2 screen shots that I want to join together (left and right) and then save the new bitmap on my phone

 

[Graeme Mitchell]

The program takes 2 screenshots and I want to stitch them side by side and then email. I have the screenshot bit working and I can send the 2 screenshots as separate attachments but not 1.

 

[BillMeyer]

Try this. Key is "Canvas" - The principle you are looking for are contained in this.

https://www.b4x.com/android/forum/threads/bouncing-smilay-drawing-with-canvas.46154/

 

[Graeme Mitchell]

So I think you are saying that I create 1 canvas and add 2 bmp's to it?

 

[BillMeyer]

So I think you are saying that I create 1 canvas and add 2 bmp's to it?

I think you think correct, Sir

 

[Graeme Mitchell]

Lol, just because I think that doesn’t mean I can figure out how to do it

 

[emexes]

likewise: just because you think you can't figure out how to do it, doesn't mean you can't give it a go

experience is the best teacher

 

[Erel]

Lol, just because I think that doesn’t mean I can figure out how to do it

Post your failed attempt and we will help you fix it.

 

[Graeme Mitchell]

Neither bitmap loads to the panel, just shows the outline of the panel

Sub Process_Globals
 'These global variables will be declared once when the application starts.
 'Public variables can be accessed from all modules.
 Public App As Application
 Public NavControl As NavigationController
 Private Page1 As Page
 Private xui As XUI
 Private canvas As B4XCanvas
 Private pnl1 As B4XView
 Private bmp1rect As B4XRect
 Private bmp2rect As  B4XRect
 Private bmp1 As B4XBitmap
 Private bmp2 As B4XBitmap
End Sub

Private Sub Application_Start (Nav As NavigationController)
 'SetDebugAutoFlushLogs(True) 'Uncomment if program crashes before all logs are printed.
 NavControl = Nav
 Page1.Initialize("Page1")
 Page1.Title = "Page 1"
 Page1.RootPanel.Color = Colors.White
 NavControl.ShowPage(Page1)
 Page1.RootPanel.LoadLayout("Bitmap")
 
 canvas.Initialize(pnl1)
 bmp1= xui.LoadBitmap(File.DirAssets,"Shaelyn-Half-Field.png")
 bmp2=xui.LoadBitmap(File.DirAssets,"Shaelyn-Half.png")
 
 bmp1rect.Initialize(0,0,bmp1.Width,bmp1.Height)
 bmp2rect.Initialize(bmp1.Width,0,bmp2.Width,bmp2.Height)
 
 canvas.DrawBitmap(bmp1,bmp1rect)
 canvas.DrawBitmap(bmp2,bmp2rect)
 
End Sub

 

[Erel]

You must call Canvas.Invalidate and you should also call Canvas.Release.

Note that the page size might not be set yet at that point.

You can add:

Page1.RootPanel.LoadLayout("Bitmap")
If Page1.RootPanel.Width = 0 Then
 Wait For Page1_Resize (Width As Float, Height As Float) '<---
End If
 canvas.Initialize(pnl1)
 bmp1= xui.LoadBitmap(File.DirAssets,"Shaelyn-Half-Field.png")
 bmp2=xui.LoadBitmap(File.DirAssets,"Shaelyn-Half.png")
 
 bmp1rect.Initialize(0,0,bmp1.Width,bmp1.Height)
 bmp2rect.Initialize(bmp1.Width,0,bmp2.Width,bmp2.Height)
 
 canvas.DrawBitmap(bmp1,bmp1rect)
 canvas.DrawBitmap(bmp2,bmp2rect)
Canvas.Invalidate
 Dim bmp As B4XBitmap = Canvas.Bitmap
 Canvas.Release

 

[Graeme Mitchell]

That loaded both bitmaps onto the same canvas. I still have to play around with the page sizing above but I believe this should work very well. Thank you