====== Программирование в X-Window средствами Free Pascal ======

[[index|Перейти к содержанию]]

===== 1.1.10. Лабораторная работа №1 "Основные понятия Xlib" =====

  - Используя компилятор командной строки, откомпилируйте пример из п. 1.1 и выполните полученную программу.\\ {{ http://www.sources.ru/pascal/graph/xwinfpc/images/image6.gif }}
  - Настройте интегрированную среду Анюта для работы с кириллицей и выполните компиляцию в ней предыдущей программы. 
  - На основе примера напишите программу, которая при нажатии клавиши мыши пишет сообщение ''Pressed'', а при отпускании - ''Released''.\\ {{ http://www.sources.ru/pascal/graph/xwinfpc/images/image7.gif }}
  - Используя функции ''XFlush()/XSync()'' и ''delay()'', напишите программу без цикла обработки сообщений, отображающую черное окно размером 100х100 пикселей в течение 5 секунд.\\ {{ http://www.sources.ru/pascal/graph/xwinfpc/images/image8.gif }}

=== Приложение: ===

Демонстрационные исполняемые файлы: [[http://www.sources.ru/pascal/graph/xwinfpc/lab1.zip|lab1.zip]]

Исходный код модулей (x.pp, x11.pp, xlib.pp, xresource.pp, xutil.pp):
[[http://www.sources.ru/pascal/graph/xwinfpc/units.zip|units.zip]]