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

На сегодняшних современных экранах, где работают сервера X с поддержкой миллионов цветов, эти ограничения кажутся устаревшими, но помните, что есть и старые компьютеры со старыми графическими картами внутри, равно как и 256-цветные Х-терминалы. С использованием палитры, поддержка этих экранов становится прозрачной. На дисплее, поддерживающем миллионы цветов, любой запрос распределения цветового элемента будет удовлетворен. На дисплее, поддерживающем ограниченное количество цветов, некоторые цветовые запросы распределения должно возвращать подобные цвета. Они не выглядит столь хорошо, как требуемые, но ваше приложение все еще будет работать.

При рисовании с использованием Xlib можно выбрать стандартную палитру экрана, на котором отображается ваше окно, или создать новую палитру и применить ее для окна. В последнем случае, всякий раз, когда мышь "наезжает" на ваше окно, экранная палитра заменится палитрой вашего окна, и вы увидите, что все другие окна на экране изменят свои цвета на нечто весьма экзотическое.

Для доступа к стандартной экранной палитре, определена функция XDefaultColormap, возвращающая дескриптор палитры, используемой по умолчанию на первом экране (напоминаем, что сервер X может поддерживать несколько различных экранов, каждый из которых может иметь свои собственные ресурсы).

var
 screen_colormap: TColormap;

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

Другой макрос, связанный с распределением новой палитры, работает так:

var
 default_visual: PVisual;
 my_colormap: TColormap;

 default_visual:= XDefaultVisual(display, XDefaultScreen(display));
 (* Создаем новую палитру, количество цветов в которой определяется количеством цветов, поддерживаемых данным экраном. *)

 my_colormap:= XCreateColormap(display, win, default_visual, AllocNone);

Имейте в виду, что дескриптор окна используется только для того, чтобы позволить серверу X создать палитру для данного экрана. Мы можем затем использовать эту палитру для любого окна, нарисованного на том же экране.

Как только мы получили доступ к некоторой палитре, мы можем начать распределять цвета. Это делается с помощью функций XAllocNamedColor и XAllocColor. Первая из них - XAllocNamedColor - принимает имя цвета (например, "red", "blue", "brown" и т.д.) и распределяет ближайший цвет, который может в действительности рисоваться на экране. XAllocColor принимает цвет RGB, и распределяет ближайший цвет, который может отображаться на экране. Обе функции используют структуру TXColor, содержащую следующие поля:

• pixel: cardinal - индекс палитры, используемый для рисования данным цветом.

• red: word - красная составляющая RGB-значения цвета.

• green: word - зеленая составляющая RGB-значения цвета.

• blue: word - синяя составляющая RGB-значения цвета.

Пример использования этих функций:

var
 (* Эта структура будет содержать выделенные цветовые данные *)
 system_color_1, system_color_2: TXColor;
(* Эта структура будет содержать точные RGB-значения именованных цветов, которые могут отличаться от выделенных *)
 exact_color: TXColor;
 rc: TStatus;

(* Выделяем "красный" элемент палитры *)
 rc:= XAllocNamedColor(display, screen_colormap, 'red', @system_color_1, @exact_color);
 (* проверяем успешность выделения *)
 if (rc = 0) then begin
 writeln('XAllocNamedColor - выделить "красный" цвет не удалось.');
end
 else begin
 writeln('Элемент палитры "красный" выделен как (', system_color_1.red, ', ', system_color_1.green, ', ', system_color_1.blue, ') в RGB-значениях.');
 end;

(* выделяем цвет со значениями (30000, 10000, 0) в RGB. *)
 system_color_2.red:= 30000;
 system_color_2.green:= 10000;
 system_color_2.blue:= 0;
 rc:= XAllocColor(display, screen_colormap, @system_color_2);
 (* проверяем успешность выделения *)
 if (rc = 0) then begin
 writeln('XAllocColor - цвет (30000,10000,0) выделить не удалось.');
end
 else begin
 (* что-то делаем с выделенным цветом… *)
 .
 .
 end;

После того, как мы распределили желаемые цвета, мы можем использовать их, рисуя текст или графику. Для этого нам нужно установить эти цвета как передний план и цвет фона для некоторого GC (графического контекста), и затем используйте этот GC для рисования. Это делается с помощью функций XSetForeground и XSetBackground:

XSetForeground(display, my_gc, screen_color_1.pixel);
XSetForeground(display, my_gc, screen_color_2.pixel);

Само же рисование осуществляется с помощью тех же функций, что и ранее. Для использования нескольких цветов, можно сделать одно из двух: мы можем либо изменить передний план и/или цвет фона GC перед любой функцией рисования, либо использовать несколько различных GC. Решение, какой из способов лучше, принимать вам: распределение многих GC будет использовать больше ресурсов X сервера, но где-то это приведет к более компактному коду, и может быть легче, чем замена цветов рисования.

1.2.5 Битовые и пиксельные карты

Xlib не имеет никаких средств для работы с популярными графическими форматами, такими как gif, jpeg или tiff. На программиста (или высокоуровневые графические библиотеки) оставлен перевод эти форматы изображений в форматы, с которыми знаком X сервер - битовыми и пиксельными картами.

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