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

(* перемещаемокновправо *)

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

(* короткаяпередышка *)