vecino Well-Known Member Licensed User Longtime User Jul 25, 2023 #1 Hi, I have several images and I want to join them all together to get a single image. How can I do it? Thank you very much.
Hi, I have several images and I want to join them all together to get a single image. How can I do it? Thank you very much.
zed Well-Known Member Licensed User Jul 25, 2023 #2 You have to redraw the images on the canvas and then you save the canvas Use asdraw [B4X] [XUI] AS Draw (FabricView and CanvasView) Hello, 2 years ago i already had the idea of this view, but I failed in some places, but now I have taken up the challenge and the result is impressive. Inspired by @Johan Schoeman FabricView and CanvasView. Features cross-platform compatible set a background image draw, erase or draw lines... www.b4x.com To draw the image on the canvas Code: Copy Private cv1 As ASDraw Private bg As Bitmap bg = LoadBitmapResize(File.DirInternal, FileName, Width, Height, True) cv1.BackgroundImage_setImage(bg,True) then you record Code: Copy Dim Out As OutputStream Out = File.OpenOutput(File.DirInternal, "yourfile.jpg", False) cv1.ImageComplete.WriteToStream(Out, 100, "JPEG") File.Copy(File.DirInternal, "yourfile.jpg",File.DirRootExternal&"/download","yourfile.jpg") Out.Close Upvote 0
You have to redraw the images on the canvas and then you save the canvas Use asdraw [B4X] [XUI] AS Draw (FabricView and CanvasView) Hello, 2 years ago i already had the idea of this view, but I failed in some places, but now I have taken up the challenge and the result is impressive. Inspired by @Johan Schoeman FabricView and CanvasView. Features cross-platform compatible set a background image draw, erase or draw lines... www.b4x.com To draw the image on the canvas Code: Copy Private cv1 As ASDraw Private bg As Bitmap bg = LoadBitmapResize(File.DirInternal, FileName, Width, Height, True) cv1.BackgroundImage_setImage(bg,True) then you record Code: Copy Dim Out As OutputStream Out = File.OpenOutput(File.DirInternal, "yourfile.jpg", False) cv1.ImageComplete.WriteToStream(Out, 100, "JPEG") File.Copy(File.DirInternal, "yourfile.jpg",File.DirRootExternal&"/download","yourfile.jpg") Out.Close
vecino Well-Known Member Licensed User Longtime User Jul 25, 2023 #3 Hi, I think I misunderstood, there is only one image included. What I want is to add several images (each one below the previous one) to create a single image. Upvote 0
Hi, I think I misunderstood, there is only one image included. What I want is to add several images (each one below the previous one) to create a single image.
Alexander Stolte Expert Licensed User Longtime User Jul 25, 2023 #4 [Solved] Join images side by side Hi. I captured 2 portions of the screen, now I want to put them together in one image, side by side. After that I want to write that image to HD as a png file. This is what I have so far ... Dim Bitmap1 As B4XBitmap = Capture(x, y, width, height) Dim Bitmap2 As B4XBitmap = Capture(x, y... www.b4x.com Join 2 images I have 2 screen shots that I want to join together (left and right) and then save the new bitmap on my phone www.b4x.com Upvote 0
[Solved] Join images side by side Hi. I captured 2 portions of the screen, now I want to put them together in one image, side by side. After that I want to write that image to HD as a png file. This is what I have so far ... Dim Bitmap1 As B4XBitmap = Capture(x, y, width, height) Dim Bitmap2 As B4XBitmap = Capture(x, y... www.b4x.com Join 2 images I have 2 screen shots that I want to join together (left and right) and then save the new bitmap on my phone www.b4x.com
