Sub Globals
Dim Bitmap1 As Bitmap
end sub
'set photopager
If marketMenu.Trim.Length > 4 Then
Dim menuMain() As String = Regex.Split(",",marketMenu)
vp.Initialize("vp",True)
vp.Color = Colors.ARGB(100,0,0,0)
vp.Effect= vp.Effect.Accordion
vp.FadeEnabled = True
pnlMarketGallery.AddView(vp, 0, 0, 100%x, 100%y)
Dim pnlLeft As Int
pnlLeft = 10dip
DoEvents
showProgress(True)
For intA = 0 To menuMain.Length - 1
If menuMain(intA).Trim.Length > 4 Then
Dim strPrefix As String = menuMain(intA).Trim.SubString2(menuMain(intA).Length - 4,menuMain(intA).Length)
If strPrefix = ".jpg" Or strPrefix = ".png" Then
Dim p As Panel
p.Initialize("")
p.Color = Colors.ARGB(100,0,0,0)
Dim TouchImageView1 As TouchImageView
TouchImageView1.Initialize("TouchImageView1")
Bitmap1 = iu.ReduceColors( iu.CreateScaledBitmap(il.loadimgSync(menuMain(intA)), Activity.Width, Activity.Height,True) )
p.AddView(TouchImageView1, (lblPage.Left + (lblPage.Width/2) ) - (Bitmap1.Width/4) , 30dip, 100%x, 100%y)
TouchImageView1.MinScale=0.25 ' default is 0.5
TouchImageView1.MaxScale=2 ' default is 1.5
TouchImageView1.TranslatePadding=128dip ' default is 64dip
TouchImageView1.SetBitmap(Bitmap1)
If (SourceImageRect.IsInitialized = False) Then SourceImageRect.Initialize(0, 0, Bitmap1.Width, Bitmap1.Height)
If (TouchImageViewRect.IsInitialized = False) Then TouchImageViewRect.Initialize(10dip, 20dip, TouchImageView1.Width, TouchImageView1.Height)
' if the scaling process scales the image to less than the current MinScale or more than the current MaxScale then MinScale or MaxScale will be adjusted
TouchImageView1.ScaleSrcRectToDestRect(SourceImageRect, TouchImageViewRect, "CENTER") ' make string a static constant in library
vp.AddView(p)
Dim pnl As Panel
pnl.Initialize("")
Dim img As ImageView
img.Initialize("imgMenu")
img.Gravity = Gravity.FILL
img.Tag = intCnt
img.Bitmap = iu.CreateScaledBitmap(Bitmap1,80dip,100dip,True)
intCnt = intCnt + 1
pnl.AddView(img, 0dip, 0dip, 80dip, 100dip)
hsvMenu.Panel.AddView(pnl,pnlLeft,2dip,110dip,110dip)
pnlLeft = pnlLeft + 90dip
End If
End If
Next
hsvMenu.Panel.Width = 20dip + (menuMain.Length * 110dip)
End If
