Dim cvs As B4XCanvas
Private Pic As B4XImageView
Public PicBitmap As B4XBitmap
Public pnlPic As B4XView
Dim sc As B4XRect
Private Sub B4XPage_Appear
If Var.ProjektPic.IsInitialized Then
Pic.Bitmap = Var.ProjektPic
End If
PicBitmap = Var.ProjektPic
Pic.SetBitmap(PicBitmap)
pnlPic.SetBitmap(PicBitmap)
cvs.Initialize(pnlPic)
sc.Initialize(0%x,0%y,pnlPic.Width,pnlPic.Height)
cvs.DrawBitmap(PicBitmap,sc)