#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