Sub pkgbtn_Click
Dim sb As StringBuilder
Dim bmp As BitmapDrawable
Dim tst, tst1 As String
Dim mgr As PackageManager 'phone library
Dim i As Int
sb.Initialize
pack.Initialize 'list
If Not(pkgpan.IsInitialized) Then 'loads a layout file containing the listview pkglist
Activity.LoadLayout("pkg")
End If
pkglst.Clear 'listview
pkgpan.Visible = True 'the main panel of the loaded layout
pkgpan.BringToFront
ProgressDialogShow("Gathering package information")
DoEvents
pack = mgr.GetInstalledPackages
pack.SortCaseInsensitive(True)
For i = 0 To pack.Size - 1
sb.Remove(0, sb.Length)
Try
bmp = mgr.GetApplicationIcon(pack.get(i))
Catch
Log(LastException.Message)
End Try
sb.Append(pack.get(i))
tst = sb.ToString.Trim
gi = pkglst.width / 12dip
Do While tst.Length > gi
tst = tst.SubString2(0,tst.Length - 2)
Loop
Try
tst1 = mgr.GetVersionName(sb.ToString).Trim
Catch
Log(LastException.Message)
End Try
If bmp <> Null Then
pkglst.AddTwoLinesAndBitmap(tst, tst1, bmp.Bitmap)
Else
pkglst.AddTwoLines(tst, tst1)
End If
Next
ProgressDialogHide
End Sub