My code was broken.
I cant understandt. Every thin is normal...
Main code.
never dont run this events
Class code :
I cant understandt. Every thin is normal...
Main code.
never dont run this events
B4X:
Sub CustomView1_Click(ActiveWebPageNo As Int)' selected web page no
Log("ccilik:"&ActiveWebPageNo )
End Sub
Sub CustomView1_LongClick(ActiveWebPageNo As Int)' selected web page no
Log("Long cilik:"&ActiveWebPageNo )
End Sub
Class code :
B4X:
#Region Library Attributes
#Event: Click(ActiveWebPageNo As int)' selected web page no
#Event: LongClick(ActiveWebPageNo As int)' selected web page no
#Event: Change(ActiveWebPageNo As int)
#Event: Loaded ' AddWebPage
#Event: Intelized(Parent As Panel) 'Load(Speed,Parent)
#Event: MoveUp(ActiveWebPageNo As int,Page_Centered as Boolean)
#Event: MoveDown(ActiveWebPageNo As int,Page_Centered as Boolean)
#Event:PageDeleted(ActiveWebPageNo As int)
#End Region
'--------------------------------------in code lines--------------
Case ACTION_UP
'Log ("up :"&Time_Move.X&" y"&Time_Move.Y&"|| x:"&X&"-Y:"&Y&" t.time:"&Time_Move.touchtime )
Time_Up.touchtime=DateTime.Now
If Time_Up.touchtime-Time_Down.touchtime<500 And Time_Move.touchtime=0 Then '--------- nrmal cilik sürei
'Log("cilck")
Time_Move.touchtime=0
Time_Move.X=0
Time_Move.Y=0
If SubExists(vModule,vEventName&"_Click") Then
CallSubDelayed(vEventName&"_Click",ActiveWebPageNo)
End If
'Log("_UP-1")
Return
End If
If Time_Up.touchtime-Time_Down.touchtime>500 And Time_Move.touchtime=0 Then 'long cilick süresi--------------
'Log("longcilick")
Time_Move.touchtime=0
Time_Move.X=0
Time_Move.Y=0
If SubExists(vModule,vEventName&"_LongClick") Then
CallSubDelayed(vEventName&"_LongClick",ActiveWebPageNo)
End If
'Log("_UP-2")
Return
End If
Last edited: