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

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

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

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

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

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