
Lib_sensor -      

---------------------------------------------------------------------------------------------------------------

init -  .        .

integer pointer_state -     , :
    0 -   ; 1 -    

integer pointer_pressed_x -  X   

integer pointer_pressed_y -  Y   

integer pointer_dragged_x -  X    / 

integer pointer_dragged_y -  Y    / 

integer pointer_released_x -  X      /  ( )

integer pointer_released_y -  Y      /  ( )

integer has_pointer_events -  0  1   -   

integer has_pointer_motion_events  -  0  1   -   /

---------------------------------------------------------------------------------------------------------------

 ,     :

Program PointerTest;
Uses	sensor;
Var	ox, oy, px, py, state: integer;
Begin
	sensor.init;
	repeat
		state:=pointer_state;
		if state=1 then
		begin
			if (ox=0) and (oy=0) then
			begin
				ox:=pointer_dragged_x; oy:=pointer_dragged_y;
			end;
			px:=pointer_dragged_x; py:=pointer_dragged_y;
			DrawLine(ox,oy,px,py); ox:=px; oy:=py;
		end;
		else begin ox:=0; oy:=0; end;
		Repaint; Delay(20);
	until false;
End.
