Private Sub B4XPage_Created (Root1 As B4XView)
#If B4J
File.MakeDir(File.DirData("BBCODE"),"DATA")
xui.SetDataFolder("BBCODE")
#End If
Root = Root1
Root.LoadLayout("showbbticketlayout")
TextEngine.Initialize(PanelBBCodeView)
BBCodeViewTicket.Padding.Initialize(5dip, 5dip, 5dip, 5dip)
BBCodeViewTicket.TextEngine = TextEngine
BBCodeViewTicket.LazyLoading = False
BBCodeViewTicket.Text = ComposeTicket
BBCodeViewTicket.Base_Resize(BBCodeViewTicket.mBase.Width,BBCodeViewTicket.mBase.Height)
End Sub
Sub btnPrintTicketOrder_Click
Dim iv As B4XView = BBCodeViewTicket.ForegroundImageView.Parent
Dim bmp As B4XBitmap = iv.Snapshot
Dim Out As OutputStream
Dim rp As RuntimePermissions
Out = File.OpenOutput(rp.GetSafeDirDefaultExternal("test"), "TicketPage.png", False)
bmp.WriteToStream(Out, 100, "PNG")
Out.Close
End Sub