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

 XFlush(display);
 delay(20);
 end;
 end;

 delay(1000);

 (* пример перемещения окна *)
 begin

 (* вначале получаем текущие атрибуты окна *)
 XGetWindowAttributes(display, win, @win_attr);

 xx:= win_attr.x;
 y:= win_attr.y;

(* затем находим окно родителя *)
 begin

 (* выполним запрос необходимых значений *)

XQueryTree(display, win, @root_win, @parent_win,@child_windows, @num_child_windows);

 (* мы должны освободить список дочерних дескрипторов, так как он был динамически выделен XQueryTree *)
 XFree(child_windows);
 end;

(* Транслируем локальные координаты в экранные, используя корневое окно как окно, относительно которого выполняется трансляция. Это работает потому, что корневое окно всегда занимает весь экран, и его левый верхний угол совпадает с левым верхним углом экрана *)

 XTranslateCoordinates(display, parent_win, win_attr.root, xx, y, @scr_x, @scr_y, @child_win);

 (* перемещаем окно влево *)
 for i:=0 to 39 do begin
 dec(scr_x,3);
 XMoveWindow(display, win, scr_x, scr_y);
 XFlush(display);
 delay(20);
 end;

 (* перемещаем окно вниз *)
 for i:=0 to 39 do begin
 inc(scr_y,3);
 XMoveWindow(display, win, scr_x, scr_y);
 XFlush(display);
 delay(20);
 end;

 (* перемещаем окно вправо *)
 for i:=0 to 39 do begin
 inc(scr_x,3);
 XMoveWindow(display, win, scr_x, scr_y);
 XFlush(display);
 delay(20);
 end;
 (* перемещаем окно вверх *)
 for i:=0 to 39 do begin
 dec(scr_y,3);
 XMoveWindow(display, win, scr_x, scr_y);
 XFlush(display);
 delay(20);
 end;
 end;

 delay(1000);

(* пример сворачивания и восстановления окна *)
 begin
 (* сворачиваем окно *)
 XIconifyWindow(display, win, XDefaultScreen(display));
 XFlush(display);
 delay(2000);
 (* восстанавливаем окно *)
 XMapWindow(display, win);
 XFlush(display);
 delay(2000);
 end;

 XFlush(display);

 (* короткая передышка *)
 delay(2000);

 (* закрываем соединение с Х сервером *)
 XCloseDisplay(display);
end.

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

1. Используя компилятор командной строки, выполните компиляцию примера из п. 1.1 и выполните полученную программу.

2. Настройте интегрированную среду Анюта для работы с кириллицей и выполните компиляцию в ней предыдущей программы.

3. На основе примера напишите программу, которая при нажатии клавиши мыши пишет сообщение Pressed, а при отпускании - Released.

4. Используя функции XFlush / XSync и delay, напишите программу без цикла обработки сообщений, отображающую черное окно размером 100х100 пикселей в течение 5 секунд.

1.2 Текст и графика

В данном разделе описываются возможности, которые имеет программист для вывода текста и произвольных графических изображений. Особенностью X является то, что рисовать можно не только в окне, но и в специально подготовленной области памяти. Данная область называется картой пикселей и идентифицируется целым числом, имеющим тип TPixmap. Карта толщиной в один бит имеет специальное название - битовая.

1.2.1 Графический контекст

Прежде чем начать работу с графикой, программа должна выделить себе специальную структуру данных и получить указатель на нее. Эта структура называется графическим контекстом (Graphic Context (GC)). Указатель на GC используется в качестве одного из параметров при вызове "рисующих" функций X. Графический контекст содержит ряд атрибутов, влияющих на отображение объектов: текста, линий, фигур и др. Выделенный GC должен быть освобожден до завершения работы программы.