B4A Library B4APhotoPager v3.85

B4APhotoPager v3.80 By Giuseppe Salvi


B4APhotoPager
Author: Giuseppe Salvi
Version: 3.8

  • Properties:
    • FromAssets As String [read only]
      Returns a references to the file added to the files tab. These file are read-only.
    • FromExtSdCard As String [read only]
      Returns image is located on the local file system or external SD card.
    • FromHttp As String [read only]
      Returns image is located in the network.
    • FromHttps As String [read only]
      Returns the image is located in the network.
    • FromSdCard As String [read only]
      Returns image is located on the local file system or SD card

  • Fields:
    • Compress_Format_JPG As CompressFormat
      Compression Format JPG
    • Compress_Format_PNG As CompressFormat
      Compression Format PNG

  • Fields:
    • Accordion As Int
    • BgToFg As Int
    • CardSlide As Int
    • Default As Int
    • DeptPage As Int
    • FadeInOut As Int
    • FgToBg As Int
    • FlipHorizontal As Int
    • FlipVertical As Int
    • HorizontalCube As Int
    • HorizontalElastic As Int
    • RotateDown As Int
    • RotateUp As Int
    • Rotation As Int
    • RotationSquare As Int
    • ScaleBgToFg As Int
    • Stack As Int
    • Tablet As Int
    • Transition_01 As Int
    • Transition_02 As Int
    • Transition_03 As Int
    • VerticalCube As Int
    • VerticalElastic As Int
    • ZoomIn As Int
    • ZoomOut As Int
    • ZoomOutSlide As Int

  • Fields:
    • Center As ScaleType
      Center the image in the view, but perform no scaling.
    • Center_Crop As ScaleType
      Scale the image uniformly (maintain the image's aspect ratio) so that both dimensions (width and height) of the image
      will be equal to or larger than the corresponding dimension of the view (minus padding).
    • Center_Inside As ScaleType
      Scale the image uniformly (maintain the image's aspect ratio) so that both dimensions (width and height) of the image
      will be equal to or less than the corresponding dimension of the view (minus padding).
    • Fit_Center As ScaleType
      Scale the image using CENTER.
    • Fit_End As ScaleType
      Scale the image using END.
    • Fit_Start As ScaleType
      Scale the image using START.
    • Fit_XY As ScaleType
      Scale the image using FILL.
  • PhotoPager
    Events:
    • Click
    • LongClick
    • MatrixChanged (Left As Int, Top As Int, Right As Int, Bottom As Int, Width As Int, Height As Int, CenterX As Int, CenterY As Int)
    • PageScrollStateChanged (State As Int)
    • PageScrolled (Position As Int, PositionOffset As Float, PositionOffsetPixels As Int)
    • PageSelected (Position As Int)
    • Ready
    • ScaleChanged (ScaleFactor As Int, FocusX As Int, FocusY As Int)
    Methods:
    • AddImage (dir As String, file As String)
      Add an image from sdcard or AssetsDir at the end of the view pager .
    • AddImageAt (index As Int, dir As String, file As String)
      Add an image from sdcard or AssetsDir to the desired position in the view pager.
    • AddImageFromWeb (address As String)
      Add an image from web and from Dropbox at the end of the view pager.
    • AddImageFromWebAt (index As Int, address As String)
      Add an image from web and from Dropbox to the desired position in the view pager.
    • AddView (view As View)
      Adds a view to the page.
      view: View
    • AddView2 (view As View, left As Int, top As Int, width As Int, height As Int)
      Adds a view to the page.
      view: View
      left: Left
      top: Top
      width: Width
      height: Height
    • AddViewAt (index As Int, view As View)
      Adds a view to the specified index.
      index: Page index
      view: View
    • AddViewAt2 (index As Int, view As View, left As Int, top As Int, width As Int, height As Int)
      Adds a view to the specified index.
      view: View
      left: Left
      top: Top
      width: Width
      height: Height
    • BringToFront
    • ClearDiskCache
      Clears disk cache.
    • ClearMemoryCache
      Clears memory cache.
    • DestroyEngine
      Stops ImageLoader and clears current configuration. Use this option on exit app.
    • GetArrayList As List
      Get array from GridView, Gallery, PhotoFlow.
    • GetImageListFromAssets (path As String, sort As Boolean) As List
      Get entire list of images stored in assets or sub-folder
      Examples:
      <code>
      Dim lv as ListView
      Dim l as list
      l.Initialize
      lv.Initialize("lv")
      Sub Menu_Click
      Activity.AddView(lv,0,0,100%x,100%y)
      l = vp.GetImageListFromAssets("Here the Images folder stored in Assets")
      or
      l = vp.GetImageListFromAssets(File.DirAssets)
      or
      l = vp.GetImageListFromAssets("")
      For n = 0 To l.Size-1
      lv.AddSingleLine(l.Get(n))
      next
      End Sub
      </code>
    • GetItem (position As Int) As String
      Returns Item
      Example:
      i.Bitmap=LoadBitmap("",g.GetItem(Position))
    • GetPageTag (index As Int) As Object
      Get or Sets the tag associated with this views. A tag can be used to mark
      a view in its hierarchy and does not have to be unique within the
      hierarchy. Tags can also be used to store data within a view without
      resorting to another data structure.
      index: the index of the page
      tag: return the Object stored in this view as a tag, or null if not set
    • GoToPage (item As Int, smoothScroll As Boolean)
      Get or Sets the currently selected page.
    • Initialize (EventName As String, initializeView As Boolean)
      Initialize the object
    • IsDoubleTapEnabled As Boolean
      Gets double tap from the page.
    • IsFadeEnabled As Boolean
      Gets fade from the page.
    • IsInitialized As Boolean
    • IsLockEnabled As Boolean
      Gets lock from the page.
    • IsPageEnabled (index As Int) As Boolean
      Returns the enabled status for this view. The interpretation of the
      enabled state varies by subclass.
      index: Page index
      Return type: @return:True if this view is enabled, false otherwise.
    • IsPageVisible (index As Int) As Boolean
      Returns the enabled status for this view. The interpretation of the
      enabled state varies by subclass.
      index: Page index
      Return type: @return:True if the view in this page is visible, false otherwise.
    • IsZoomEnabled As Boolean
      Gets zoom from the page.
    • LoadBitmap (Dir As String, FileName As String) As Bitmap
      Loads and decodes image synchronously.
      FileName: Image
      Example:
      <code>
      File.FromAssets,"image.png"
      or
      "assets://","image.png"
      File.FromSdCard,"image.png"
      or
      "file:///mnt/sdcard/","image.png"
      File.FromExtSdCard,"image.png"
      or
      "file:///mnt/extSdCard/","image.png"

      File.FromHttp,"image.png",width,height
      or
      "http://","site.com/image.png",width,height
      File.FromHttps,"image.png",width,height
      or
      "https://","site.com/image.png",width,heigh
      </code>
      Result image Bitmap. Can be <b>null</b> if image loading/decoding was failed or cancelled.
    • LoadBitmap2 (Dir As String, FileName As String, width As Int, height As Int) As Bitmap
      Loads and decodes image synchronously
      FileName: Image
      width: ImageSize
      height: ImageSize
      Example:
      <code>
      File.FromAssets,"image.png",width,height
      or
      "assets://","image.png",width,height
      File.FromSdCard,"image.png",width,height
      or
      "file:///mnt/sdcard/","image.png",width,height
      File.FromExtSdCard,"image.png",width,height
      or
      "file:///mnt/extSdCard/","image.png",width,height
      File.FromHttp,"image.png",width,height
      or
      "http://","site.com/image.png",width,height
      File.FromHttps,"image.png",width,height
      or
      "https://","site.com/image.png",width,heigh
      </code>
      targetImageSize: Minimal size for bitmap which will be returned. Downloaded image will be decoded
      and scaled to bitmap of the size which is <b>equal or larger</b> (usually a bit
      larger) than incoming targetImageSize.
      Result image Bitmap. Can be <b>null</b> if image loading/decoding was failed or cancelled.
    • LoadLayout (FileName As String)
      Loads a layout file(.bal) to PhotoPager as a view.
      LayoutFile: Load a LayoutFile created with designer
    • LoadLayout2 (index As Int, FileName As String)
      Loads a layout file(.bal) to PhotoPager to the specified index.
      index: Page index
      FileName: Load a LayoutFile created with designer
    • PauseEngine
      Pause ImageLoader. All new load and display tasks won't be executed until ImageLoader is resumed.
      Already running tasks are not paused.
    • RemoveAllViews
      Removes all child views.
    • RemoveViewAt (index As Int)
      Removes the view that is stored in specified index.
      index: Page index
    • ResumeEngine
      Resumes waiting load and display tasks.
    • SetArrayList (array As ArrayList)
      Set an array passed from, gallery, grid view, cover flow.
    • SetPageBackgroundColor (index As Int, color As Int)
      Sets Background Color to the page.
      index: Page index
      color: Page color
    • SetPageBackgroundImage (index As Int, bitmap As Bitmap)
      Sets Background bitmap to the page.
      index: Page index
      bitmap: Page bitmap
    • SetPageEnabled (index As Int, enabled As Boolean)
      Set the enabled state of this view. The interpretation of the enabled
      state varies by subclass.
      index: Page index
      enabled: True if this view is enabled, false otherwise.
    • SetPageTag (index As Int, tag As Object)
      Get or Sets the tag associated with this views. A tag can be used to mark
      a view in its hierarchy and does not have to be unique within the
      hierarchy. Tags can also be used to store data within a view without
      resorting to another data structure.
      index: the index of the page
      tag: set the Object stored in this view as a tag
    • SetPageVisible (index As Int, visible As Boolean)
      Set the enabled state of this view.
      index: Page index
      visibility: True if this view is enabled, false otherwise.
    • SetPanelBackgroundColor (index As Int, color As Int)
      Sets Background Color to the panel.
      index: Panel index
      color: Panel color
    • SetPanelBackgroundImage (index As Int, bitmap As Bitmap)
      Sets Background bitmap to the panel.
      index: Panel index
      bitmap: Panel bitmap
    • SetVisibleAnimated (arg0 As Int, arg1 As Boolean)
    • ShowFromAssets (path As String, sort As Boolean)
      show images from assets or sub-folder not from sdcard.
    • ShowFromBucket (path As String, sort As Boolean)
      Show from media bucket
      path:
      sort:
    • ShowFromMediaStore (sort As Boolean)
      show images from media store.
    • ShowFromSdCard (dir As String, path As String, sort As Boolean)
      show images from sdcard not from assets.
    • ShowFromWeb (webStrings() As String, sort As Boolean)
      show images from web.
    • StopEngine
      Cancels all running and scheduled display image tasks.
      <b>NOTE:</b> This method doesn't shutdown if you set them.
      ImageLoader still can be used after calling this method.
    • SwapView (i As Int, j As Int)
      Swaps the elements at the specified positions in the specified list.
      (If the specified positions are equal, invoking this method leaves
      the list unchanged.)
      i: the index of one element to be swapped.
      j: the index of the other element to be swapped.
    Permissions:
    • android.permission.INTERNET
    • android.permission.MEDIA_CONTENT_CONTROL
    • android.permission.READ_EXTERNAL_STORAGE
    • android.permission.WRITE_EXTERNAL_STORAGE
    Properties:
    • AdjustViewBounds As Boolean
      Get or Sets this to true if you want the ImageView to adjust its bounds to preserve the aspect ratio of its drawable.
    • BackGroundColor As Object [write only]
      Get or Sets the background color for this view.
      Example:
      BackGroundColor = Color.Aqua
      BackGroundColor = "#88666666"
      or
      BackGroundColor = Colors.ARGB(100,20,20,20) or Colors.RGB(20,20,20)
    • Background As Drawable
    • BackgroundColorRandomly As Boolean [write only]
      Set the Background Color Randomly.
    • CacheInMemory As Boolean [write only]
      Sets whether loaded image will be cached in memory - by default false.
    • CacheOnDisk As Boolean [write only]
      Sets whether loaded image will be cached on disk - by default false.
    • Color As Colors
      Returns one of the Color value in the list
    • CompressFormat As PhotoPagerBitmaCompression
      Get or Sets the known formats a bitmap can be compressed into [ JPG or PNG ]
    • CompressQuality As Int
      Get or Sets the quality of a bitmap, that can be compressed. [ 0 = low -> 100 = high ]
    • CurrentItem As Void
      Get or Sets the currently selected page.
    • DoubleTapEnabled As Boolean [write only]
      Sets double tap to the page.
    • FadeEnabled As Boolean [write only]
      Sets fade to the page.
    • FadeInTime As Int [write only]
      Duration of "fade-in" animation (in milliseconds)
      Whether animation should be played if image is loaded from network
      Whether animation should be played if image is loaded from disk cache
      Whether animation should be played if image is loaded from memory cache.
    • File As Files [read only]
      Return File:
      File.FromAssets
      File.FromSdCard
      File.FromExtSdCard
      File.FromHttp
      File.FromHttps
    • Length As Int [read only]
      Returns length.
    • LockEnabled As Boolean [write only]
      Sets lock to the page.
    • MaximumScale As Float [write only]
      Sets the maximum scale
    • MediumScale As Float [write only]
      Sets the medium scale
    • MinimumScale As Float [write only]
      Sets the minimum scale
    • OutlineColor As Int [write only]
      Sets outline color to photo pager.
    • OutlineEnabled As Boolean [write only]
      Enable or disable outline to photo pager.
    • Parent As Object [read only]
    • ProgressBarVisible As Boolean [write only]
      Set the enabled state of this view. - by default is true.
    • ScaleType As PhotoPagerScaleType
      Controls how the image should be resized or moved to match the size of this ImageView.
      by default is Fit_Center.
    • SetImageForEmptyUri As String [write only]
      Sets own icon on loading.
    • SetImageOnFail As String [write only]
      Sets own icon on fail.
    • ShowMessageError As Boolean [write only]
      Set to true if you want to display an error message.
    • Tag As Object
      Get or Sets the tag associated with PhotoPager. A tag can be used to mark
      a view in its hierarchy and does not have to be unique within the
      hierarchy. Tags can also be used to store data within a view without
      resorting to another data structure.
    • Top As Int
    • Transition As PagerTransitionEffects
      Get or Sets transition effect
    • Version As String [read only]
      Return Author and Version of the library
    • ZoomEnabled As Boolean [write only]
      Sets zoom to the page.


 

Attachments

  • B4APhotoPager_lib_v2.20.zip
    388.7 KB · Views: 662
  • B4APhotoPager_v3.80.zip
    396 KB · Views: 424
  • B4APhotoPager_v3.85.zip
    399 KB · Views: 623
Last edited:

bluedude

Well-Known Member
Licensed User
Longtime User
Is there a way to get the exact path to the images downloaded? I'm also missing a way to get the URL of the image by an image index.

Can both be added?
 

lonleystar

Well-Known Member
Licensed User
Longtime User
Hi all, B4APhotoPager is updated v1.70 what's new:

.Mp4 supported just thumb.

Added:

GetItem return the full path.

Changed:

ToggleZoom,ToggleLock,ToggleFade,ToggleDoubleTap


B4X:
Sub p_Click

If (vp.ToggleZoom) Then
   vp.ToggleZoom = False
Else
   vp.ToggleZoom = True
End If

End Sub
 

bluedude

Well-Known Member
Licensed User
Longtime User
It still isn't perfect. I use two sliders, one on one activity and a second one on another activity. If someone clicks on activity one it opens activity two which has a slider that can zoom and tab.

However, because I need to do AddImageFromweb again to show it the same URL also gets loaded again in my first activity. Is there a way to load a cached image from the disk cache in these kind of situations?

AddImageFromWeb actually adds the same images to the cache (same URL's) again.

Cheers.
 

lonleystar

Well-Known Member
Licensed User
Longtime User
It still isn't perfect. I use two sliders, one on one activity and a second one on another activity. If someone clicks on activity one it opens activity two which has a slider that can zoom and tab.

However, because I need to do AddImageFromweb again to show it the same URL also gets loaded again in my first activity. Is there a way to load a cached image from the disk cache in these kind of situations?

AddImageFromWeb actually adds the same images to the cache (same URL's) again.

Cheers.
Hi, I'm back and I'll give a luck thanks to report it.
 

bluedude

Well-Known Member
Licensed User
Longtime User
Is there a way to know where the cache is stored and what the file names are? I cannot always use the slider in an activity.

Would be great to add images from memory (I use imag downloader service) or MYSQL through for example keyvaluestore.
 

Shahid Saeed

Active Member
Licensed User
Longtime User
@lonleystar is there a way to get the cached image path, I'm trying to share the image with Android Stream Intent and it requires the local path for the image, by using GetItem() I am able to get the full URL but it would be great if we can also get the cached image path.
 

Juanmavalero

Member
Licensed User
Longtime User
Hello lonleystar,
I am testing the version 1.70
Using ShowFromSdCard everything works fine but when I use AddImage the application closes without errors
I need to add the images manually.
Thanks for everything
 

lonleystar

Well-Known Member
Licensed User
Longtime User
@lonleystar is there a way to get the cached image path, I'm trying to share the image with Android Stream Intent and it requires the local path for the image, by using GetItem() I am able to get the full URL but it would be great if we can also get the cached image path.


Hi, the local path is the package name U'll find it in Android/data/
 

lonleystar

Well-Known Member
Licensed User
Longtime User
Hello lonleystar,
I am testing the version 1.70
Using ShowFromSdCard everything works fine but when I use AddImage the application closes without errors
I need to add the images manually.
Thanks for everything


Hi, I'll check it thank U to report the issue.
 

Shahid Saeed

Active Member
Licensed User
Longtime User
Hi, the local path is the package name U'll find it in Android/data/
@lonleystar I do understand the local path and can see the cached items in there. but the thing is all cached files has different names and I how do I get this name? also I want to access locally stored image because I want to USE share intent to share the specific image with other apps like Facebook twitter and without a local path it won't work. is there any possible way to do that?
 

lonleystar

Well-Known Member
Licensed User
Longtime User
@lonleystar I do understand the local path and can see the cached items in there. but the thing is all cached files has different names and I how do I get this name? also I want to access locally stored image because I want to USE share intent to share the specific image with other apps like Facebook twitter and without a local path it won't work. is there any possible way to do that?
Hi, I'll implement a command to acces locally stored image.
 

johnB

Active Member
Licensed User
Longtime User
Hi lonelystar

I'm getting the following error

Gallery.SetArrayList(Gallery.GetArrayList) - SetArrayList Unknown Member

I have version 3.55 of GalleryView and V1.70 of PhotoPager

Regards
 

lonleystar

Well-Known Member
Licensed User
Longtime User
Hi lonelystar

I'm getting the following error

Gallery.SetArrayList(Gallery.GetArrayList) - SetArrayList Unknown Member

I have version 3.55 of GalleryView and V1.70 of PhotoPager

Regards

Hi johnB, I'm sorry I forgot to say: ArrayList instead of GetArrayList,SetArrayList.

Code:

Gallery.ArrayList(Gallery.ArrayList) instead of Gallery.SetArrayList(Gallery.GetArrayList)
 

johnB

Active Member
Licensed User
Longtime User
Thanks for the reply but I'm sorry to say that I couldn't get it didn't work.

Also, when you click on a thumbnail in the horizontal list, for me, it doesn't display the full screen

No problem with both, I'm using a different tack at the moment

Regards
 

Shahid Saeed

Active Member
Licensed User
Longtime User
Thanks for the reply but I'm sorry to say that I couldn't get it didn't work.

Also, when you click on a thumbnail in the horizontal list, for me, it doesn't display the full screen

No problem with both, I'm using a different tack at the moment

Regards
@johnB there must be something you are missing. I am using both the GridView 3.50 and Pager 1.7 in my Application and I have no such error. below is what my code looks like. I am loading images from web through JSON code. My application uses full screen mode portrait mode and for PagerView it works full screen portrait and landscape. You can try the application here: https://play.google.com/store/apps/details?id=com.prcamels

This is the example code from Grid View:
B4X:
Sub Process_Globals    
    Dim PictureUrl As String = "http://www.domainname.com/pictures.json"
    Dim PictureJson As String
    Dim fromWeb As List
    Dim AlbumID As Int    
    Dim posSelected As Int
End Sub

Sub Globals        
    Dim GridView As PhotoGridView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("pictures")   
           
    GridView.initialize("GridView")    
    GridView.CacheInMemory = False
    GridView.CacheOnDisk = True   
    
        Activity.AddView(GridView,10dip,50dip,100%x-20dip,100%y-160dip)
        GridView.ItemWidth= GridView.Width / 3
        GridView.ItemHeight= GridView.ItemWidth
        GridView.HorizontalSpacing=4dip   
        GridView.VerticalSpacing=4dip
        GridView.NumColumns= 3       

    GridView.Gravity=Gravity.CENTER
    GridView.ScaleType = GridView.ScaleType.Fit_XY
   
    GridView.SetNoEffect = False
    GridView.FadeInTime = 300
    GridView.RoundedBitmap = False
    GridView.SetBorderColor = Colors.RGB(133,22,30)
    GridView.SetBorderWidth =1

    GridView.ProgressBarIndeterminate = True
    GridView.ProgressBarVisible = True

    GridView.TextColor = Colors.Black
    GridView.TextSize = 12
    GridView.ShowText = False
    GridView.TextGravity = Gravity.CENTER
    GridView.TextPosition = GridView.TextPosition.Text_Bottom_Inside
   
    GridView.TextStyle =  GridView.TextTypeFace.Style_Italic
    GridView.CompressFormat = GridView.CompressFormat.Compress_Format_JPG
    GridView.CompressQuality = 80
   
    GridView.SetImageOnLoading = "empty_photo1.png"
    GridView.SetImageOnFail = "ic_error1.png"
   
    Dim GetPage As HttpJob
    GetPage.Initialize("GetPageJob", Me)
    GetPage.Download(PictureUrl)
    ProgressDialogShow2("please wait loading...", False)
   
End Sub

Sub ParseJSON(json As String)
    Dim parser As JSONParser
    parser.Initialize(json)
   
    Dim root As Map = parser.NextObject
    Dim albums As List = root.Get("albums")
    Dim actAlbum As Int = -1   
    For Each col_albums As Map In albums
        actAlbum = actAlbum +1         
        Dim album_title As String = col_albums.Get("album_title")
        fromWeb.Initialize
        If actAlbum = AlbumID Then       
        Dim pictures As List = col_albums.Get("pictures")
            Dim pic_row As Int = -1
            For Each album_pictures As Map In pictures
            pic_row = pic_row +1
            Dim picture_title As String = album_pictures.Get("picture_title")
            Dim picture_image As String = album_pictures.Get("picture_image")
           
            GridView.AddImageFromWeb(picture_image)
            GridView.SetText2(pic_row, picture_title)   
            fromWeb.Add(picture_image)           
            Next
            GridView.SetArrayList(fromWeb)                   
        Page_title.Text = album_title
        End If       
    Next   
End Sub

Sub JobDone(job As HttpJob)
    If job.Success = True Then
        PictureJson = job.GetString
        ParseJSON(PictureJson)
        ProgressDialogHide
    Else
        Log("Error: " & job.ErrorMessage)
    End If       
End Sub

Sub Activity_Resume
    GridView.ResumeEngine
End Sub
Sub Activity_Pause (UserClosed As Boolean)
    GridView.StopEngine
End Sub

Sub GridView_ItemClick(Position As Int, Value As Object)  
    posSelected = Position
    Picture.a.Initialize
    Picture.a.AddAll(GridView.GetArrayList)   
    StartActivity(Picture)       
End Sub

This will be the code for PagerView:
B4X:
Sub Process_Globals    
    Dim a As List
    Dim NewPos As Int
End Sub

Sub Globals
    Dim vp As PhotoPager    
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("picture")

    vp.Initialize("vp")
    If Activity.Width > Activity.Height Then
    Activity.AddView(vp, 0, 12.5%y, 100%x, 100%y-12.5%y)
    Else
    Activity.AddView(vp, 0, 8.33%y, 100%x, 100%y-8.33%y)   
    End If
    vp.Color = Colors.Black
    vp.ScaleType = vp.ScaleType.Fit_Center   
    vp.ToggleFade = True
    vp.ToggleLock = True
    vp.OutlineEnabled = False
    vp.OutlineColor = Colors.Transparent
    vp.Effect = vp.Effect.FlipHorizontal
    vp.ToggleDoubleTap = True    
    vp.CacheOnDisk = True
    vp.ProgressBarVisible = True

    vp.SetArrayList(a)
    vp.CurrentItem = Pictures.posSelected  
   
End Sub

Sub vp_PageSelected(Position As Int)    
    NewPos = Position   
End Sub

Sub Activity_Resume
    
End Sub

Sub Activity_Pause (UserClosed As Boolean)    
    Pictures.posSelected = NewPos
End Sub

Sub vp_LongClick
    vp.ClearDiskCache
    vp.DestroyEngine
    Activity.Finish
End Sub
 
Top