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

@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);