pro_pol:исправление_в_коде_статьи_программирование_в_x_window_средствами_free_pascal._полищук_а._п._семериков_с._а
Различия
Показаны различия между двумя версиями страницы.
Предыдущая версия справа и слеваПредыдущая версияСледующая версия | Предыдущая версия | ||
pro_pol:исправление_в_коде_статьи_программирование_в_x_window_средствами_free_pascal._полищук_а._п._семериков_с._а [2021/06/16 12:56] – dwadmin | pro_pol:исправление_в_коде_статьи_программирование_в_x_window_средствами_free_pascal._полищук_а._п._семериков_с._а [2022/02/16 20:40] (текущий) – dwadmin | ||
---|---|---|---|
Строка 7: | Строка 7: | ||
https:// | https:// | ||
Можно скопировать приложение из / | Можно скопировать приложение из / | ||
+ | |||
+ | https:// | ||
+ | |||
+ | https:// | ||
+ | https:// | ||
+ | |||
+ | https:// | ||
{{ : | {{ : | ||
Строка 12: | Строка 19: | ||
https:// | https:// | ||
+ | |||
+ | http:// | ||
+ | |||
+ | https:// | ||
+ | |||
+ | https:// | ||
====== Исправление в коде статьи Программирование в X Window средствами Free Pascal. Полищук А. П., Семериков С. А. ====== | ====== Исправление в коде статьи Программирование в X Window средствами Free Pascal. Полищук А. П., Семериков С. А. ====== | ||
Строка 91: | Строка 104: | ||
| | ||
nWnd: TWindow; | nWnd: TWindow; | ||
+ | atom1, atom2 : TAtom; | ||
begin | begin | ||
Строка 110: | Строка 124: | ||
| | ||
(* Выбираем события, | (* Выбираем события, | ||
- | | + | |
(* Показываем окно *) | (* Показываем окно *) | ||
| | ||
+ | |||
+ | (* Добавляем возможность корректного закрытия окна *) | ||
+ | atom1 := XInternAtom(prdisplay, | ||
+ | atom2 := XInternAtom(prdisplay, | ||
+ | XSetWMProtocols(prdisplay, | ||
(* Цикл получения и обработки событий *) | (* Цикл получения и обработки событий *) | ||
Строка 128: | Строка 147: | ||
| | ||
end; | end; | ||
+ | DestroyNotify, | ||
| | ||
begin | begin | ||
Строка 134: | Строка 154: | ||
halt(0); | halt(0); | ||
end; | end; | ||
+ | | ||
+ | | ||
+ | then begin | ||
+ | XDestroyWindow(prdisplay, | ||
+ | end; | ||
+ | break; | ||
+ | end; | ||
end; | end; | ||
end; | end; |
pro_pol/исправление_в_коде_статьи_программирование_в_x_window_средствами_free_pascal._полищук_а._п._семериков_с._а.txt · Последнее изменение: 2022/02/16 20:40 — dwadmin