Программирование в X Window средствами Free Pascal, Семериков С. А.

Программирование в X Window средствами Free Pascal

на обложку

Семериков С. А.

Шрифт:

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; (* а эта - их количество *)

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

(* пример изменения размеров окна *)

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