[odd]

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.