Контрольная работа: Внешняя память компьютера. Работа с таблицами в EXCEL и MS WORD

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,