213 procedure onTouchUp(x,y: Longword; pointerId: TSDL_FingerId);

   213 procedure onTouchUp(x,y: Longword; pointerId: TSDL_FingerId);

   214 var

   214 var

   215     finger: PTouch_Data;

   215     finger: PTouch_Data;

   216     widget: POnScreenWidget;

   216     widget: POnScreenWidget;

   217 begin

   217 begin

   218 x := x;

   219 x := x;

   219 y := y;

   220 y := y;

   220 finger:= updateFinger(x,y,0,0,pointerId);

   221 finger:= updateFinger(x,y,0,0,pointerId);

   221 //Check for onTouchClick event

   222 //Check for onTouchClick event

   222 if ((RealTicks - finger^.timeSinceDown) < clickTime) AND not(fingerHasMoved(finger^)) then

   223 if ((RealTicks - finger^.timeSinceDown) < clickTime) AND not(fingerHasMoved(finger^)) then

   257     if widget = @forwardjump then

   258     if widget = @forwardjump then

   258         backspaceKey:= false;

   259         backspaceKey:= false;

   259     end;

   260     end;

   260  

   261  

   261 deleteFinger(pointerId);

   262 deleteFinger(pointerId);

   262 end;

   264 end;

   263 

   265 

   264 procedure onTouchDoubleClick(finger: TTouch_Data);

   266 procedure onTouchDoubleClick(finger: TTouch_Data);

   265 begin

   267 begin

   266 finger := finger;//avoid compiler hint

   268 finger := finger;//avoid compiler hint