А. Полищук - Программирование в X Window средствами Free Pascal

• 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 сервера, но где-то это приведет к более компактному коду, и может быть легче, чем замена цветов рисования.

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

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

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

В действительности, пиксельная карта X может трактоваться как окно, которое не появляется на экране. Многие графические операции, которые работают в окнах, точно также будут работать в пиксельных картах - достаточно подставить дескриптор пиксельной карты вместо дескриптора окна. В страницах справочного руководства видно, что все эти функции принимают TDrawable, не TWindow, поскольку как окна так и пиксельные карты - рисуемые элементы, и они оба могут использоваться, чтобы рисовать в них такими функциями, как, например, XDrawArc(), XDrawText(), и т.п.

Один из способов загрузки битового изображение из файла в память - включение файла побитового изображения в программу директивой #include препроцессора языка С.

Покажем, как можно получить доступ к файлу непосредственно:

var

(* эта переменная будет содержать дескриптор новой пиксельной карты *)

bitmap: TPixmap;

(* эти переменные будут содержать размер загружаемой битовой карты *)

bitmap_width, bitmap_height: word;

(* эти переменные будут содержать положение горячей точки загружаемой битовой карты *)