Различия

Показаны различия между двумя версиями страницы.

--- pro_pol:исправление_в_коде_статьи_программирование_в_x_window_средствами_free_pascal._полищук_а._п._семериков_с._а [2021/07/10 22:10] – dwadmin
+++ pro_pol:исправление_в_коде_статьи_программирование_в_x_window_средствами_free_pascal._полищук_а._п._семериков_с._а [2022/02/16 20:40] (текущий) – dwadmin
@@ Строка 23: / Строка 23: @@
 https://specifications.freedesktop.org/shared-mime-info-spec/latest/
+https://www.linux.org.ru/forum/development/578330?cid=578951
 ====== Исправление в коде статьи Программирование в X Window средствами Free Pascal. Полищук А. П., Семериков С. А. ======
@@ Строка 102: / Строка 104: @@
  rEvent: TXEvent;
  nWnd: TWindow;
+atom1, atom2 : TAtom;
 begin
@@ Строка 121: / Строка 124: @@
  SetWindowManagerHints(prDisplay, PRG_CLASS, argv, argc, nWnd, WND_X, WND_Y, WND_WDT, WND_HGH, WND_MIN_WDT, WND_MIN_HGH, WND_TITLE, WND_ICON_TITLE, 0);
  (* Выбираем события, обрабатываемые программой *)
- XSelectInput(prDisplay, nWnd, ExposureMask OR KeyPressMask);
+ XSelectInput(prDisplay, nWnd, ExposureMask OR KeyPressMask OR StructureNotifyMask OR ButtonPressMask);
  (* Показываем окно *)
  XMapWindow(prDisplay, nWnd);
+(* Добавляем возможность корректного закрытия окна *)
+atom1 := XInternAtom(prdisplay, 'WM_PROTOCOLS', 0);
+atom2 := XInternAtom(prdisplay, 'WM_DELETE_WINDOW', 0);
+XSetWMProtocols(prdisplay, nwnd, @atom2, 1);
  (* Цикл получения и обработки событий *)
@@ Строка 139: / Строка 147: @@
    XFreeGC (prDisplay, prGC);
 end;
+DestroyNotify,
  KeyPress:
    begin
@@ Строка 145: / Строка 154: @@
     halt(0);
    end;
+ ClientMessage: begin
+ if((revent.xclient.message_type = atom1) and (revent.xclient.data.l[0] = atom2))
+      then begin
+          XDestroyWindow(prdisplay, nwnd);
+      end;
+break;
+ end;
 end;
  end;