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

Семериков С. А.
Шрифт:

 screen_colormap:= XDefaultColormap(display, XDefaultScreen(display));

 (* выделяем черный и белый цвета *)

 rc:= XAllocNamedColor(display,
screen_colormap,
'black',
@cursor_fg,
@cursor_fg);

 if (rc = 0) then begin

writeln('XAllocNamedColor - невозможно распределить цвет "black"');

halt(1);

 end;

 rc:= XAllocNamedColor(display,
screen_colormap,
'white',
@cursor_bg,
@cursor_bg);

 if (rc = 0) then begin

writeln('XAllocNamedColor - невозможно распределить цвет "white"');

halt(1);

 end;

 (* Наконец, создаем курсор. Горячую точку устанавливаем ближе к 
верхнему левому углу курсора - позиции (x=5, y=4). *)

 icon_cursor:= XCreatePixmapCursor(display, bitmap, bitmap,
@cursor_fg, @cursor_bg,
5, 4);

Когда мы определяем курсор, необходимо определить, какой пиксель курсора является указателем, доставляемым пользователю в различные события от мыши. Обычно, мы выберем позицию курсора, которая визуально выглядит похожей на "горячую точку". Например, на курсоре в виде стрелки конец стрелки будет определен как горячая точка.

Когда курсор больше не нужен, его необходимо освободить, используя функцию XFreeCursor:

XFreeCursor(display, icon_cursor);

После того, как курсор создан, необходимо сообщить X серверу об окне, к которому он должен быть подключен. Это делается с помощью XDefineCursor, и заставляет сервер X менять указатель мыши на форму этого курсора всякий раз, когда указатель мыши перемещается внутри этого окно. Мы можем отключить этот курсор от нашего окна с помощью функции Xlib XUndefineCursor, которая заставит отображаться встроенный курсор.

(* прикрепить курсор к окну *)

XDefineCursor(display, win, icon_cursor);

(* отключить курсор от окна *)

XUndefineCursor(display, win);

1.2.7 Лабораторная работа #2 "Текст и графика"

1. Напишите программу, выводящую текстовое сообщение в произвольную позицию (в пределах окна) произвольным цветом. Цвет и координаты должны меняться при изменении размеров окна.

2. Составьте программу, принимающую со стандартного ввода маску шрифта, выводимую строку, координаты х, у и отображающую окно с текстом согласно введенной информации.

3. Нарисуйте в окне график функции sin(x) на отрезке [-?;?]. Оси подпишите курсивом, метки по осям - обычным шрифтом, начало координат (0) выделите жирным шрифтом.

4. Нарисуйте в окне 100 окружностей. Цвет, координаты центра и радиус выбирать случайным образом.

5. Используя StructureNotifyMask и русский шрифт, модифицируйте программу из первого задания лабораторной работы #1 таким образом, чтобы сообщение всегда отображалось в центре окна.

6. Составьте программу, выводящую в окно все символы стандартного курсорного шрифта.

1.3 Работа с внешними устройствами

1.3.1 Клавиатура

Как и большинство интерактивных программ, задачи, выполняющиеся в X Window, активно используют для ввода информации клавиатуру компьютера. Когда пользователь нажимает или отпускает клавишу, сервер получает соответствующий сигнал, который преобразуется в событие и отправляется в очередь программы, имеющей фокус ввода (input focus).

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