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

 (* Загрузим заданное битовое изображение и создадим из него пиксельную карту Х. *)

 icon_pixmap:= XCreateBitmapFromData(display, win, PChar(icon_bitmap_bits), icon_bitmap_width, icon_bitmap_height);

 if (icon_pixmap=nil) then begin
  writeln('XCreateBitmapFromData: ошибка создания пиксмапа');
  halt(1);
 end;

 (* Затем детализируем желаемые изменения. *)

(* в нашем случае - сворачиваем окно, определяем его иконку и устанавливаем позицию иконки в левом верхнем углу экрана. *)

 win_hints^.initial_state:= IconicState;
 win_hints^.icon_pixmap:= icon_pixmap;
 win_hints^.icon_x:= 0;
 win_hints^.icon_y:= 0;

 (* Передаем пожелания оконному менеджеру. *)
 XSetWMHints(display, win, win_hints);

 (* В конце необходимо освободить память из-под структуры. *)
 XFree(win_hints);

Получить данные свойства можно с помощью XGetWMHints().

Атрибут, характеризующий "временное" окно. Идентифицируется атомом XA_WM_TRANSIENT_FOR и имеет тип XA_STRING. Свойство задается для окон, появляющихся на экране для выполнения вспомогательных функций (диалоги, меню). Такие объекты рассматриваются менеджером по особому. Например, он может не добавлять к окну заголовок и рамку. Данные свойства - идентификатор окна родительского по отношению к данному. Задается свойство с помощью процедуры XSetTransientForHint().

Имена программы и ее класса, идентифицируется атомом XA_WM_CLASS и имеет тип XA_STRING. Данные свойства - структура типа TXClassHints. Задается свойство с помощью процедуры XSetClassHint() и может быть получено с помощью XGetClassHint().

Если окно (окна) программы имеют собственную цветовую палитру, то приложение должно соответствующим образом задать для него атрибут colormap. Программа заносит идентификатор окна (идентификаторы окон) в список, ассоциированный со свойством, имя которого WM_COLORMAP_WINDOWS. Делается это процедурой XSetWMColormapWindows(). Получить список, уже находящийся в свойстве, можно, обратившись к XGetWMColormapWindows().

Когда окно открыто, пользователь посредством менеджера совершает над ним разные действия. Программе может быть желательно перехватывать некоторые из них. Так, например, если окно представляет собой редактор текста, и пользователь пытается его закрыть, то разумно спросить у сидящего за компьютером человека, а не желает ли он предварительно сохранить результаты редакции. Начиная с X11R4 системой предусматривается свойство с именем WM_PROTOCOLS. Оно содержит список атомов, и каждый из них идентифицирует свойство, связанное с действиями, о которых надо оповещать программу. Эти свойства следующие:

• WM_TAKE_FOCUS - задается, если программа хочет передавать фокус ввода между своими окнами самостоятельно; в этом случае менеджер не будет управлять фокусом, ввода, а пошлет приложению событие ClientMessage, у которого поле message_type равно атому, соответствующему свойству WM_PROTOCOLS, а поле data.l[0] равно атому, соответствующему свойству WM_TAKE_FOCUS; в ответ на это событие программа должна сама обратиться к XSetInputFocus() для задания окна, имеющего фокус ввода;

• WM_SAVE_YOURSELF amp;mdash задается, если программа хочет перехватить момент своего завершения; менеджер окон посылает приложению событие ClientMessage, у которого поле message_type равно атому, соответствующему свойству WM_PROTOCOLS, а поле data.l[0] равно атому, соответствующему свойству WM_SAVE_YOURSELF; в ответ программа может сохранить свое текущее состояние;

• WM_DELETE_WINDOW - задается, если программа хочет перехватить моменты, когда менеджер окон закрывает принадлежащие ей окна; менеджер окон посылает приложению событие ClientMessage, у которого поле message_type равно атому, соответствующему свойству WM_PROTOCOLS, а поле data.l[0] равно атому, соответствующему свойству WM_DELETE_WINDOW; далее программа сама решает, оставить окно на экране или удалить его с помощью XDestroyWindow().

Свойство WM_PROTOCOLS задается процедурой XSetWMProtocols() и может быть получено с помощью XGetWMProtocols().

Приведем фрагмент программы, задающей свойство WM_PROTOCOLS и производящей соответствующую обработку событий.

…

var
 prDisplay: PDisplay;
 nScreenNum: integer;
 prGC: TGC;
 rEvent: TXEvent;
 nWnd: TWindow;
 pnProtocol: array [0…1] of TAtom;
 nWMProtocols: TAtom;

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

…

 (* Задаем свойство WM_PROTOCOLS *)
 pnProtocol [0]:= XInternAtom (prDisplay, 'WM_TAKE_FOCUS', True);
 pnProtocol [1]:= XInternAtom (prDisplay, 'WM_SAVE_YOURSELF', True);
 nWMProtocols:= XInternAtom (prDisplay, 'WM_PROTOCOLS', True);
 XSetWMProtocols (prDisplay, nWnd, pnProtocol, 2);

 (* Показываем окно *)
 XMapWindow (prDisplay, nWnd);

 (* Цикл получения и обработки событий *)
 while true do
 begin
  XNextEvent (prDisplay, @rEvent);
  case (rEvent.type) of

…

  ClientMessage:
  begin
   if (rEvent.xclient.message_type = nWMProtocols) then
   begin
    if (rEvent.xclient.data.l[0] = pnProtocol[0]) then
     writeln('Receiving the input focus.')
    else
     if (rEvent.xclient.data.l[0] = pnProtocol[1]) then
     begin
      XCloseDisplay (prDisplay);