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

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;