Манипулировать окнами можно не только с помощью атрибутов:
Xlib предоставляет набор функций для изменения их размеров,
перемещения на экране и в стеке окон, сворачивания и т.п.
Первая пара операций, которые можно применить к окну -
отображение или скрытие. Отображение окна заставляют окно появиться на
экране, скрытие приводит к удалению с экрана (хотя логическое окно в памяти
все еще существует). Например, если в вашей программе есть диалоговое окно,
вместо создания его каждый раз по запросу пользователя, мы можем создать окно
один раз в скрытом режиме и, когда пользователь запросит открыть диалог,
просто отобразить окно на экране. Когда пользователь нажимает
"OK" или
"Cancel", окно скрывается. Это значительно быстрее создания и
уничтожения окна, однако стоит ресурсов, как на стороне клиента, так и на
стороне X сервера.
Отображение окна может быть выполнено с помощью
XMapWindow(), скрытие - с
помощью XUnmapWindow(). Функция
отображения заставит событие
Expose послаться программе, если только окно полностью не
закрыто другими окнами.
Другое действие, которое можно выполнить над окнами -
переместить их в другую позиции. Это может быть выполнено функцией
XMoveWindow(), которая
принимает новые координаты окна. Имейте в виду, что после перемещения окно
может быть частично скрытым другими окнами (или наоборот, открыто ими), и
таким образом, может быть сгенерировано сообщение
Expose.
Изменить размер окна можно с помощью функции
XResizeWindow(). Мы можем также
объединить перемещение и изменение размеров, используя одну функцию
XMoveResizeWindow().
Все приведенные выше функции изменяли свойства одного
окна. Существует ряд свойств, связанных с данным окном и другими окнами. Одно
из них - порядок засылки в стек: порядок, в котором окна располагаются
друг над другом. Говорят, что окно переднего плана находится на верхе стека,
а окно заднего плана - на дне стека. Перемещение окна на вершину стека
осуществляет функция
XRaiseWindow(), перемещение окна на дно стека - функция
XLowerWindow().
С помощью функции
XIconifyWindow() окно может быть свернуто, а с помощью
XMapWindow() -
восстановлено. Для того, чтобы понять, почему для
XIconifyWindow() нет обратной функции,
необходимо заметить, что, когда окно сворачивается, на самом деле оно
скрывается, а вместо него отображается окно иконки. Таким образом, чтобы
восстановить исходное окно, нужно просто отобразить его снова. Иконка
является на самом деле другим окном, которое просто тесно связано сильно с
нашим нормальным окном - это не другое состояние нашего окна.
Следующий пример демонстрирует использование операций над
окнами:
uses x,xlib,xutil,crt,dos;
(*
create_simple_window - создает окно с белым фоном заданного размера.
Принимает в качестве параметров дисплей, размер окна (в пикселях)
и положение окна (также в пикселях). Возвращает дескриптор окна.
Окно создается с черной рамкой шириной в 2 пикселя и автоматичсеки
отображается после создания.
*)
function create_simple_window(display : PDisplay;
width, height, x, y : integer): TWindow;
var
screen_num, win_border_width: integer;
win: TWindow;
begin
screen_num := XDefaultScreen(display);
win_border_width := 2;
(*
создаем простое окно как прямой потомок корневого окна экрана,
используя черный и белый цвета в качестве основного и фонового, и
размещая новое окно в верхнем левом углу по заданным координатам
*)
win := XCreateSimpleWindow(display, XRootWindow(display, screen_num),
x, y, width, height, win_border_width,
XBlackPixel(display, screen_num),
XWhitePixel(display, screen_num));
(* Отображаем окно на экране. *)
XMapWindow(display, win);
(* Заставляем выполниться все запросы к Х серверу. *)
XFlush(display);
create_simple_window:=win;
end;
//void main(int argc, char* argv[])
var
display: PDisplay; (* указатель на структуру дисплея Х *)
screen_num: integer; (* количество экранов для размещения окон *)
win: TWindow; (* дескриптор создаваемого окна *)
display_width, display_height: word; (* высота и ширина Х дисплея *)
win_width, win_height: word; (* высота и ширина нового окна *)
display_name: array [0..30] of Char;
name: string;
i: integer;
win_attr: TXWindowAttributes;
xx, y, scr_x, scr_y: integer;
child_win: TWindow;
(* переменная для хранения дескриптора родительского окна *)
parent_win: TWindow;
(* эта переменная будет хранить дескриптор корневого окна *)
(* экрана, на котором отображено наше окно *)
root_win: TWindow;
(* эта переменная будет хранить массив дескрипторов *)
(* дочерних окон нашего окна, *)
child_windows: PWindow;
(* а эта - их количество *)
num_child_windows: integer;
begin
name := getenv('DISPLAY'); (* имя Х дисплея *)
for i:=1 to byte(name[0]) do
display_name[i-1]:=name[i];
display_name[byte(name[0])]:=#0;
(* устанавливаем соединение с Х сервером *)
display := XOpenDisplay(display_name);
if (display = NIL) then begin
writeln(paramstr(0),': не могу соединиться с Х сервером ',
display_name);
halt(1);
end;
(* получаем геометрию экрана по умолчанию для нашего дисплея *)
screen_num := XDefaultScreen(display);
display_width := XDisplayWidth(display, screen_num);
display_height := XDisplayHeight(display, screen_num);
(* создаем новое окно в 1/9 площади экрана *)
win_width := (display_width div 3);
win_height := (display_height div 3);
(* отладочная печать в стандартный вывод *)
writeln('ширина окна - ', win_width, '; высота - ', win_height);
(* создаем простое окно как прямой потомок корневого окна экрана, *)
(* используя черный и белый цвета в качестве основного и фонового, и*)
(* размещая новое окно в верхнем левом углу по заданным координатам *)
win := create_simple_window(display, win_width, win_height, 0, 0);
XFlush(display);
(* отдохнем после трудов праведных *)
delay(3000);
(* пример изменения размеров окна *)
begin
(* в цикле уменьшаем окно *)
for i:=0 to 39 do begin
dec(win_width,3);
dec(win_height,3);
XResizeWindow(display, win, win_width, win_height);
XFlush(display);
delay(20);
end;
(* в цикле увеличиваем окно *)
for i:=0 to 39 do begin
inc(win_width,3);
inc(win_height,3);
XResizeWindow(display, win, win_width, win_height);
XFlush(display);
delay(20);
end;
end;
delay(1000);
(* пример перемещения окна *)
begin
(* вначале получаем текущие атрибуты окна *)
XGetWindowAttributes(display, win, @win_attr);
xx := win_attr.x;
y := win_attr.y;
(* затем находим окно родителя *)
begin
(* выполним запрос необходимых значений *)
XQueryTree(display, win,
@root_win,
@parent_win,
@child_windows, @num_child_windows);
(* мы должны освободить список дочерних дескрипторов, *)
(* так как он был динамически выделен XQueryTree() *)
XFree(child_windows);
end;
(* Транслируем локальные координаты в экранные, используя *)
(* корневое окно как окно, относительно которого выполняется *)
(* трансляция. Это работает потому, что корневое окно всегда *)
(*занимает весь экран, и его левый верхний угол совпадает *)
(* с левым верхним углом экрана *)
XTranslateCoordinates(display,
parent_win, win_attr.root,
xx, y,
@scr_x, @scr_y,
@child_win);
(* перемещаем окно влево *)
for i:=0 to 39 do begin
dec(scr_x,3);
XMoveWindow(display, win, scr_x, scr_y);
XFlush(display);
delay(20);
end;
(* перемещаем окно вниз *)
for i:=0 to 39 do begin
inc(scr_y,3);
XMoveWindow(display, win, scr_x, scr_y);
XFlush(display);
delay(20);
end;
(* перемещаем окно вправо *)
for i:=0 to 39 do begin
inc(scr_x,3);
XMoveWindow(display, win, scr_x, scr_y);
XFlush(display);
delay(20);
end;
(* перемещаем окно вверх *)
for i:=0 to 39 do begin
dec(scr_y,3);
XMoveWindow(display, win, scr_x, scr_y);
XFlush(display);
delay(20);
end;
end;
delay(1000);
(* пример сворачивания и восстановления окна *)
begin
(* сворачиваем окно *)
XIconifyWindow(display, win, XDefaultScreen(display));
XFlush(display);
delay(2000);
(* восстанавливаем окно *)
XMapWindow(display, win);
XFlush(display);
delay(2000);
end;
XFlush(display);
(* короткая передышка *)
delay(2000);
(* закрываем соединение с Х сервером *)
XCloseDisplay(display);
end.
