Сенсорный экран в MIDletPascal

[cordi]

Господа! Как прописать сенсорный ввод MIDletPascal? Ежели есть какие уроки, примеры кода - помогите пожалуйста!

[Gector]

Сообщение от cordi

Господа! Как прописать сенсорный ввод MIDletPascal? Ежели есть какие уроки, примеры кода - помогите пожалуйста!

http://forum.boolean.name/showthread.php?t=9692

[cordi]

Gector, огромное спасибо! Рискую нарваться, но если есть ещё более подробная информация - буду очень признателен! Всего-то нужен калькулятор на сенсоре...

[Gector]

Сообщение от cordi

Gector, огромное спасибо! Рискую нарваться, но если есть ещё более подробная информация - буду очень признателен! Всего-то нужен калькулятор на сенсоре...

Код или вообще?

program Angle;
uses sensor;
//============================MAIN===============================
var x, y, xline, yline, pointer_x, pointer_y, first_pointer_x, first_pointer_y, pointer_time, pe: integer; 
    keyCode: integer;

var HeroX, HeroY, Angle: Real;
var HeroXSpeed, HeroYSpeed, HeroFlightSpeed, Gravity:Real;
var MovementReleased, Direction, Timing: integer;



procedure Controls;
var x, y: integer;
var DX, DY: real;
begin
            first_pointer_x:=pointer_pressed_x;
            first_pointer_y:=pointer_pressed_y;
            pointer_x:=pointer_dragged_x;
            pointer_y:=pointer_dragged_y;
            DrawLine(first_pointer_x,first_pointer_y,pointer_x,pointer_y);
            DrawLine(first_pointer_x,first_pointer_y,pointer_x,pointer_y);
end;


begin
    sensor.init;
  repeat
        SetColor(0, 0, 0);
    FillRect(0, 0, GetWidth, GetHeight);
    SetColor(255, 0, 0);
    keyCode:= GetKeyPressed;
        pe:=pointer_state;
        SetColor(255, 0, 0);
        Controls;
    Repaint;
  until false;
 End.

Вот немного по сенсорам.

[cordi]

Спасибо огромное!

[Rock2roll]

http://forum.boolean.name/showthread.php?t=14681

[cordi]

AngeLvKedaX - спасибо! Насколько я понял библиотеку нужно подключать к проекту - как это реализуется? В справке по мидлетпаскалю ничего подобного не нашёл... Прошу прощения за тупость...

[alexprey]

просто пиши в uses название либы, только без lib_
тоесть, чтобы подключить либу lib_sensor пиши uses sensor;

[cordi]

alexpray - это, я понимаю, так прописывается библиотека в коде, а в сам поект как её добавить?

[Dj_Alex]

в проект добавлять не надо, главное, чтобы библиотека лежала в папке MidletPascal/Libs/

[cordi]

Спасибо - теперь разобрался.