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

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