forum.boolean.name - Lib_duo - Нереальный режим

forum.boolean.name (http://forum.boolean.name/index.php)

- Библиотеки (http://forum.boolean.name/forumdisplay.php?f=124)

- - Lib_duo - Нереальный режим (http://forum.boolean.name/showthread.php?t=13943)

Lib_duo - Нереальный режим

До сегодняшнего дня телефон мог работать только в двух режимах: в режиме форм и режиме холста. В режиме форм нельзя рисовать, а в режиме холста не работают командные кнопки. Короче, я решил исправить эту несправедливость и ввести третий режим. Назовем его "нереальным режимом". В нем есть и холст, на котором можно рисовать и возможность добавлять и отлавливать нажатия командных клавиш. Вся библиотека состоит из всего одной команды duo.show которая и включает нереальный режим.

Пример использования библиотеки:

PHP код:




program unreal_mode;
uses duo;
var i: integer;
        ok: command;

begin
  
  DrawLine (5, 5, 50, 50); // Рисуем линию до вызова библиотеки
  
  duo.show; // показ формы в спаренном режиме
  
  DrawLine (50, 5, 5, 50); // Рисуем линию после вызова библиотеки
  
  SetColor(255, 0, 0); DrawText('Тест', 5, 5); // Тестовая надпись
 
  ok:=CreateCommand('Выбор', CM_OK, 1); AddCommand(ok); // Добавление кнопки
  
  while (GetClickedCommand <> ok) do Delay(50); // Ожидание нажатия
  
end.