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

 (* проверяем успешность выделения *)
 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(), и т.п.

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

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

var
 (* эта переменная будет содержать дескриптор новой пиксельной карты *)
 bitmap: TPixmap;
 (* эти переменные будут содержать размер загружаемой битовой карты *)
 bitmap_width, bitmap_height: word;
 (* эти переменные будут содержать положение горячей точки загружаемой битовой карты *)
 hotspot_x, hotspot_y: integer;
 (* эта переменная будет содержать дескриптор корневого окна экрана, для которого мы хотим создать пиксельную карту *)
 root_win: TWindow;
 rc: longint;

 root_win:= XDefaultRootWindow(display);

(* загружаем битовую карту из файла "icon.bmp", создаем пиксельную карту, содержащую свои данные в сервере, и сохраняем ее дескриптор в переменной bitmap *)
 rc:= XReadBitmapFile(display, root_win, 'icon.bmp', @bitmap_width, @bitmap_height, @bitmap, @hotspot_x, @hotspot_y);
 (* проверяем, удалось ли создать пиксельную карту *)
 case (rc) of
 BitmapOpenFailed:
  writeln('XReadBitmapFile - не могу открыть файл "icon.bmp"');
 BitmapFileInvalid:
  writeln('XReadBitmapFile - файл "icon.bmp" не содержит корректного битового изображения.');
 BitmapNoMemory:
  writeln('XReadBitmapFile - не хватает памяти.');
 BitmapSuccess:
  (* битовая карта успешно загружена - что-то делаем с ней… *)
  .
  .
end;

Имейте в виду, что параметр root_win не имеет ничего общего с данным битовым изображением - битовая карта не связывается с этим окном. Этот дескриптор окна использован только для определения экрана, для которого мы хотим создать пиксельную карту. Это существенно, так как для того, чтобы быть полезной, пиксельная карта должна поддерживать то же количество цветов, что и экран.