Android Question B4XImageView and Overlay Mark_Point over planimetry

[mike1967]

Hello i realized this part of app like screen attached. I can move a mark point over a planimetry in order to individuate position of equipments on it. I realize it with two B4XImageView an a trasparent panel for capture the touch point coordinates. Now i need a function that realize this also on a Zoomable Images. Is Possible ? Can provide me suggestions and sample code ? Thanks in advances.

 

[TILogistic]

Test:
Use the source code and do whatever you like in the Touch event.

[B4X] ZoomImageView - Cross platform zoomable + pannable image view

A custom view that shows an image and allows the user to zoom and pan the image. Instructions: - Add with designer. - Call SetBitmap. Updates: v1.05 - Base_Resize is public. Call it after resizing the view in B4A. v1.04 - Fixes an issue in B4i where the image jumps when switching from pinch...

www.b4x.com

see:

B4J Pan ImageView

I would like to pan image loaded into the ImageView. ImageView1 is parent P_map Pane. I have attached my project. My Pan ImageView code is below, but I need to help to amend it. Code is not as to has to be. If someone know solution, please give advice. My code: Sub P_map_MouseDragged...

www.b4x.com

 

[TILogistic]

other:

ScaleImageView - Pan and zoom large images

My main reason to restart using B4A was to implement on a mobile device my mapping program which covers the entire UK at various scales and requires the ability to display large map images at a specified zoom level and centered on a specified coordinate and then allow the user to drag and zoom...

www.b4x.com

 

[mike1967]

other:

ScaleImageView - Pan and zoom large images

My main reason to restart using B4A was to implement on a mobile device my mapping program which covers the entire UK at various scales and requires the ability to display large map images at a specified zoom level and centered on a specified coordinate and then allow the user to drag and zoom...

www.b4x.com

How can i add multiple Mark point as Image programmatically ? Thanks in advances

 

[Erel]

You should use B4XCanvas to draw the bitmap and then the marks. After you draw it, you can show it with ZoomImageView.

 

[mike1967]

You should use B4XCanvas to draw the bitmap and then the marks. After you draw it, you can show it with ZoomImageView.

If i must delete the Mark point then how i do? Thanks in advance.

 

[Erel]

Use two layers. Draw the marks on the top layer. Use B4XCanvas.ClearRect to clear marks.

 

[mike1967]

Use two layers. Draw the marks on the top layer. Use B4XCanvas.ClearRect to clear marks.

Thanks,can provide me samples code ?

 

[mike1967]

Use two layers. Draw the marks on the top layer. Use B4XCanvas.ClearRect to clear marks.

Actually :

Private Sub pnlLayerLoc_Touch (Action As Int, X As Float, Y As Float)
    Log(X)
    Log(Y)
    Dim touchstart, touchduration As Long
 
    If Action=B4XPages.GetNativeParent(Me).ACTION_UP Then
   
                touchduration = DateTime.Now - touchstart
       
        If touchduration < 400 Then ' Short click
       
        Else ' long click/touch
            If move=False And removemarkpoint=False Then
            pnlLayerLoc.LoadLayout("mark_point")
            imgMarkPoint.Left=X-(imgMarkPoint.Width/2)
            imgMarkPoint.Top=Y-(imgMarkPoint.Height)
            End If
        End If
       
    End If
    If Action=B4XPages.GetNativeParent(Me).ACTION_DOWN Then
        touchstart = DateTime.Now
        move=False
        removemarkpoint=False
    End If
    If Action=B4XPages.GetNativeParent(Me).ACTION_MOVE Then
        move=True
        Log(imgViewPlanimetria.mBase.Width)
        Log(imgViewPlanimetria.mBase.Height)
       
        imgMarkPoint.Left=X-(imgMarkPoint.Width/2)
        imgMarkPoint.Top=Y-(imgMarkPoint.Height*4)
        imgMarkPoint.Tag=X & "," & Y
    End If
   
End Sub

Sub imgMarkPoint_LongClick
    Dim currimgMarkPoint As ImageView
    currimgMarkPoint = Sender
    currimgMarkPoint.Visible=False
    currimgMarkPoint.RemoveView
    removemarkpoint=True
End Sub

Panel transparent over image view

 

[mike1967]

Actually :

Private Sub pnlLayerLoc_Touch (Action As Int, X As Float, Y As Float)
    Log(X)
    Log(Y)
    Dim touchstart, touchduration As Long

    If Action=B4XPages.GetNativeParent(Me).ACTION_UP Then
  
                touchduration = DateTime.Now - touchstart
      
        If touchduration < 400 Then ' Short click
      
        Else ' long click/touch
            If move=False And removemarkpoint=False Then
            pnlLayerLoc.LoadLayout("mark_point")
            imgMarkPoint.Left=X-(imgMarkPoint.Width/2)
            imgMarkPoint.Top=Y-(imgMarkPoint.Height)
            End If
        End If
      
    End If
    If Action=B4XPages.GetNativeParent(Me).ACTION_DOWN Then
        touchstart = DateTime.Now
        move=False
        removemarkpoint=False
    End If
    If Action=B4XPages.GetNativeParent(Me).ACTION_MOVE Then
        move=True
        Log(imgViewPlanimetria.mBase.Width)
        Log(imgViewPlanimetria.mBase.Height)
      
        imgMarkPoint.Left=X-(imgMarkPoint.Width/2)
        imgMarkPoint.Top=Y-(imgMarkPoint.Height*4)
        imgMarkPoint.Tag=X & "," & Y
    End If
  
End Sub

Sub imgMarkPoint_LongClick
    Dim currimgMarkPoint As ImageView
    currimgMarkPoint = Sender
    currimgMarkPoint.Visible=False
    currimgMarkPoint.RemoveView
    removemarkpoint=True
End Sub

Panel transparent over image view

How can implementa zoomable view with this code that work?

 

[Erel]

You need to create a bitmap and show it with ZoomImageView. If the two layers are made with a panel that holds another panel then you can take a snapshot of the parent panel.

Another option is to take ZoomImageView code and modify it to work with your two layers. It is not trivial.

 

[mike1967]

You need to create a bitmap and show it with ZoomImageView. If the two layers are made with a panel that holds another panel then you can take a snapshot of the parent panel.

Another option is to take ZoomImageView code and modify it to work with your two layers. It is not trivial.

I have only one panel over a b4ximageview and all events reach the panel. So i must to add another panel ? I dont understand very well ,Is possibile same samples ? Thanks in advances.

 

[TILogistic]

Check this out, it will help you understand how you can do it.

B4J or B4A

B4J offline map app (jpg/jgw)

I can not find the offline map app for B4J, therefore I make a little code for it. The code is not perfect but it is at least the beginning. Thank you "Erel", "oparra" and "emexes" for your advices here...

www.b4x.com

https://www.b4x.com/android/forum/attachments/wj_map-zip.97019/

 

[TILogistic]

Upload a small project to help you

 

[TILogistic]

OTHER B4A:

ScaleImageView - jpg_jgw and vector maps

Fascinated with ScaleImageView I have to made this little code (w_map.zip). ScaleImageView library was created by "agraham" and link is here: https://www.b4x.com/android/forum/threads/scaleimageview-pan-and-zoom-large-images.102190/ The code is not perfect but you can see how to use...

www.b4x.com

ScaleImageView - Pan and zoom large images

My main reason to restart using B4A was to implement on a mobile device my mapping program which covers the entire UK at various scales and requires the ability to display large map images at a specified zoom level and centered on a specified coordinate and then allow the user to drag and zoom...

www.b4x.com

 

[mike1967]

Upload a small project to help you

in attachment my code. Thanks in advances.
Samples