createthumbnail

SavePictureToFile(XUIImageToJPEGByteArray(CreateThumbnail(xui.LoadBitmapResize(File.DirAssets,"Snapchat-248558753.jpg",150dip,150dip,True)),150dip,150dip,50),File.DirRootExternal,"test.jpg") "quality" on "XUIImageToJPEGByteArray" results on a: 910kb image quality = 50 = 17,69KB quality = 100 =...

Sub CreateSquareThumbnail(Input As B4XBitmap) As B4XBitmap If Input.Width <> Input.Height Then 'if the image is not square then we crop it to be a square. Dim l As Int = Min(Input.Width, Input.Height) Return Input.Crop(Input.Width / 2 - l / 2, Input.Height / 2 - l /...

Ola This is a wrap of a caroulse called SliceBox. The nice thing is that it adjusts itself to fit your image. If the image is small it will shrink and if large it will enlarge itself. There is a problem with that though, consisency. Whilst i did a gallery before, posted here, something like...