Сегодняшний рассказ о MidletPascal. Когда-то, лет пять, назад, когда большинство телефонов понимало только явовские приложения, я уже попробовал писать на нём простенькие программы. Но на тот момент функционал был явно недостаточным даже для написания простенких софтин и к тому же MidletPascal был платным.

Теперь по-порядку. MidletPascal — это инструмент (IDE) для написания программ на языке Pascal для мобильных телефонов. Код транслируется в привычные для владельцев мобильников JAD и JAR файлы.

Для тех, кто решит испытать MidletPascal в действии ниже приведено описание.

1. Качаем отсюда последнюю версию
2. Устанавливаем в произвольную директорию. У меня это будет c:\Program Files\MIDletPascal 3.3 FINAL\
3. Качаем и устанавливаем эмулятор на котором будем проводить испытания. Я выбрал KEmulator. Взять можно отсюда
4. Качаем библиотеки отсюда. Устанавливаются путём копирования в папку с MidletPascal’ем в каталог Lib. У меня это c:\Program Files\MIDletPascal 3.3 FINAL\Libs\
5. Теперь можно запускать MidletPascal и немного его поднастроить. Первым делом я меняю язык интерфейса на русский: меню View->Language. Далее настроим эмулятор для запуска: меню Настройки->Эмуляторы->Управление… Выбираем эмулятор «Default» и жмём Редактировать. В появившемся меню нужно прописать путь к эмулятору.
   

   Настройка эмулятора KEmulator

6. Создаём новый проект. Файл->Новый->Проекты. Вводим местоположение проекта и его название.
   

   Новый проект MidletPascal

7. Теперь можно и программировать. Для примера я взял демонстрацию возможностей библиотеки Lib_turn. Вот код:
   Program TurnTest;

Uses    turn;

Var     im: image;

i: integer;

Begin

im:=LoadImage('/icon.png');

SetColor(255, 255, 255);

for i:=0 to 360 do

begin

FillRect(0, 0, GetWidth, GetHeight);

DrawImage(Rotate(im, i), 10, 10);

Repaint; Delay(10);

end;

End.

Для компиляции и запуска нужно нажать клавишу F9 либо выбрать в меню Проекты->Компилировать и запустить.
ЗЫ:
Примеры проектов на MidletPascal
MidletPascal 3.3 FINAL
KEmulator
Lib_turn — библиотека для повората изображений
Пример использования библиотеки Lib_turn