Не обрабатываются события PopupMenu

@mcleshiy · Регистрация: 05.05.2013

Студворк — интернет-сервис помощи студентам

Здрасьте, проблема ясна по названию темы
в чём проблема, кто может мне ответить?

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
;{- Enumerations / DataSections
;{ Windows
Enumeration
  #Window_0
  #Window_1
EndEnumeration
;}
;{ Status bars
Enumeration
  #StatusBar_Window_0
EndEnumeration
;}
;{ Gadgets
Enumeration
  #ListView_0
  #Frame3D_1
  #CheckBox_2
  #CheckBox_3
  #Button_4
  #String_5
  #Text_6
  #Button_7
  #Button_8
  #CheckBox_10
  #CheckBox_11
  #CheckBox_12
  #CheckBox_13
  #CheckBox_14
  #CheckBox_15
  #CheckBox_16
  #CheckBox_17
  #CheckBox_18
EndEnumeration
;}
;}
Structure info
  file.s
  path.s
  filename.s
EndStructure
Global cb1,cb2,cb3,cb4,cb5,cb6,cb7,cb8,cb9,a1,a2,a3,a4,a5,a6,a7,a8,a9,stop,a
Procedure OpenWindow_Window_0()
  If OpenWindow(#Window_0, 665, 29, 655, 613, "", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_ScreenCentered)
    If CreateStatusBar(#StatusBar_Window_0, WindowID(#Window_0))
      AddStatusBarField(300)
      AddStatusBarField(355)
      StatusBarProgress(#StatusBar_Window_0, 1,0)
    EndIf
    ListIconGadget(#ListView_0, 5, 5, 335, 580,"Files",330, #PB_ListView_ClickSelect)
    Frame3DGadget(#Frame3D_1, 345, 100, 305, 100, "Параметры поиска")
    CheckBoxGadget(#CheckBox_2, 355, 120, 280, 20, "Искать в подпапках")
    CheckBoxGadget(#CheckBox_3, 355, 145, 280, 20, "Спрашивать вас о добавлении")
    ButtonGadget(#Button_4, 345, 5, 305, 25, "Выберите папку для поиска")
    StringGadget(#String_5, 345, 60, 305, 25, "")
    DisableGadget(#String_5, #True)
    TextGadget(#Text_6, 345, 35, 300, 20, "Выбранная папка", #PB_Text_Center|#SS_CENTERIMAGE)
    ButtonGadget(#Button_7, 345, 560, 305, 25, "Начать поиск")
    ButtonGadget(#Button_8, 355, 170, 281, 20, "Форматы файлов")
  EndIf
  cb1=1
  If CreatePopupMenu(0)
    MenuItem(1, "Удалить из списка")
    MenuItem(2, "Удалить файл")
    MenuItem(3, "Информация")
  Else
    MessageRequester("", "Не удалось создать PopupMenu",16)
  EndIf
  Global files.info
EndProcedure
Procedure OpenWindow_Window_1()
  If OpenWindow(#Window_1, 501, 41, 140, 80, "Форматы", #PB_Window_SystemMenu|#PB_Window_TitleBar|#PB_Window_ScreenCentered)
    CheckBoxGadget(#CheckBox_10, 5, 5, 40, 20, "mp3")
    CheckBoxGadget(#CheckBox_11, 5, 30, 40, 20, "wav")
    CheckBoxGadget(#CheckBox_12, 5, 55, 40, 20, "ogg")
    CheckBoxGadget(#CheckBox_13, 50, 5, 40, 20, "midi")
    CheckBoxGadget(#CheckBox_14, 95, 30, 40, 20, "wma")
    CheckBoxGadget(#CheckBox_15, 95, 5, 40, 20, "aac")
    CheckBoxGadget(#CheckBox_16, 50, 30, 40, 20, "xm")
    CheckBoxGadget(#CheckBox_17, 50, 55, 40, 20, "vw")
    CheckBoxGadget(#CheckBox_18, 95, 55, 40, 20, "oga")
  EndIf
EndProcedure
Procedure add(file$)
  If GetGadgetState(#CheckBox_3)=1
    Select MessageRequester("","Добавить файл? "+Chr(10)+"Имя файла: "+GetFilePart(file$)+Chr(10)+"Где лежит файл: "+GetPathPart(file$),#PB_MessageRequester_YesNoCancel|64)
      Case #IDYES
        files\file=file$
        files\path=GetPathPart(file$)
        files\filename=GetFilePart(file$)
        AddGadgetItem(#ListView_0, -1, files\filename)
      Case #IDNO
      Default
        stop=1
    EndSelect
  Else
    files\file=file$
    files\path=GetPathPart(file$)
    files\filename=GetFilePart(file$)
    AddGadgetItem(#ListView_0, -1, files\filename)
  EndIf
EndProcedure
Procedure$ SelectFormat()
  If cb1
    If a1=1
      Goto c2
    Else
      format$="mp3"
      a1=1
    EndIf
  ElseIf cb2
    c2:
    If cb2
      If a2=1
        Goto c3
      Else
        format$="wav"
        a2=1
      EndIf
    Else
      Goto c3
    EndIf
  ElseIf cb3
    c3:
    If cb3
      If a3=1
        Goto c4
      Else
        format$="ogg"
        a3=1
      EndIf
    Else
      Goto c4
    EndIf
  ElseIf cb4
    c4:
    If cb4
      If a4=1
        Goto c5
      Else
        format$="midi"
        a4=1
      EndIf
    Else
      Goto c5
    EndIf
  ElseIf cb5
    c5:
    If cb5
      If a5=1
        Goto c6
      Else
        format$="wma"
        a5=1
      EndIf
    Else
      Goto c6
    EndIf
  ElseIf cb6
    c6:
    If cb6
      If a6=1
        Goto c7
      Else
        format$="aac"
        a6=1
      EndIf
    Else 
      Goto c7
    EndIf
  ElseIf cb7
    c7:
    If cb7
      If a7=1
        Goto c8
      Else
        format$="xm"
        a7=1
      EndIf
    Else
      Goto c8
    EndIf
  ElseIf cb8
    c8:
    If cb8
      If a8=1
        Goto c9
      Else
        format$="vw"
        a8=1
      EndIf
    Else 
      Goto c9
    EndIf
  ElseIf cb9
    c9:
    If cb9
      format$="oga"
    EndIf
  EndIf
  ProcedureReturn format$
EndProcedure
Procedure Search(path)
  path$=GetGadgetText(#String_5)
  If path$<>""
    ClearGadgetItems(#ListView_0)
    d=cb1+cb2+cb3+cb4+cb5+cb6+cb7+cb8+cb9
    If d<>0
      For b=0 To d
        f$=SelectFormat()
        If f$<>""
          StatusBarText(#StatusBar_Window_0, 0, "Подсчитываю файлы...")
          nbfiles=nbfiles+SearchFilesInit(path$, "*."+f$, GetGadgetState(#CheckBox_2))
          StatusBarText(#StatusBar_Window_0, 0, "Добавляю "+Str(a)+" файл...")
          For a=0 To nbfiles
            StatusBarText(#StatusBar_Window_0, 0, "Добавляю "+Str(a)+" файл...")
            file$=SearchFilesGet()
            If file$=""
              Break
              StatusBarProgress(#StatusBar_Window_0, 1, a,0, 0, nbfiles)
            ElseIf stop=1
              Break
            Else
              Add(file$)
              StatusBarProgress(#StatusBar_Window_0, 1, a,0, 0, nbfiles)
            EndIf
          Next
          SearchFileStop()
          StatusBarProgress(#StatusBar_Window_0, 1,0)
        EndIf
      Next
      StatusBarText(#StatusBar_Window_0, 0, "Найдено: "+Str(nbfiles)+"    |Добавлено: "+CountGadgetItems(#ListView_0))
    Else
      MessageRequester("", "Не указан формат файлов для поиска",64)
    EndIf
  Else
    MessageRequester("", "Не указана папка для поиска",64)
  EndIf
  stop=0
  a1=0:a2=0:a3=0:a4=0:a5=0:a6=0:a7=0:a8=0
EndProcedure
Procedure ManageFormats(param)
  If param=1 ;save
    cb1=GetGadgetState(#CheckBox_10)
    cb2=GetGadgetState(#CheckBox_11)
    cb3=GetGadgetState(#CheckBox_12)
    cb4=GetGadgetState(#CheckBox_13)
    cb5=GetGadgetState(#CheckBox_14)
    cb6=GetGadgetState(#CheckBox_15)
    cb7=GetGadgetState(#CheckBox_16)
    cb8=GetGadgetState(#CheckBox_17)
    cb9=GetGadgetState(#CheckBox_18)
  ElseIf param=2 ;load
    SetGadgetState(#CheckBox_10, cb1)
    SetGadgetState(#CheckBox_11, cb2)
    SetGadgetState(#CheckBox_12, cb3)
    SetGadgetState(#CheckBox_13, cb4)
    SetGadgetState(#CheckBox_14, cb5)
    SetGadgetState(#CheckBox_15, cb6)
    SetGadgetState(#CheckBox_16, cb7)
    SetGadgetState(#CheckBox_17, cb8)
    SetGadgetState(#CheckBox_18, cb9)
  EndIf
EndProcedure
 
OpenWindow_Window_0()
 
;{- Event loop
Repeat
  Select WaitWindowEvent()
      ; ///////////////////
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #ListView_0
          Select EventType()
            Case #PB_EventType_RightClick
              DisplayPopupMenu(0, GadgetID(#ListView_0))
          EndSelect
        Case #Frame3D_1
        Case #CheckBox_2
        Case #CheckBox_3
        Case #Button_4
          path$=PathRequester("", "C:\")
          If path$<>""
            SetGadgetText(#String_5, path$)
          EndIf
        Case #String_5
        Case #Text_6
        Case #Button_7
          CreateThread(@Search(), path)
        Case #Button_8
          OpenWindow_Window_1()
          ManageFormats(2)
        Case #CheckBox_10
        Case #CheckBox_11
        Case #CheckBox_12
        Case #CheckBox_13
        Case #CheckBox_14
        Case #CheckBox_15
        Case #CheckBox_16
        Case #CheckBox_17
        Case #CheckBox_18
      EndSelect
    Case #PB_Event_Menu
      Select EventMenu()
        Case 3
          MessageRequester("Информация", "Имя файла: "+files\filename+Chr(10)+"Размер файла: "+FileSize(files\file))
      EndSelect
      ; ////////////////////////
    Case #PB_Event_CloseWindow
      Select EventWindow()
        Case #Window_0
          CloseWindow(#Window_0)
          Break
        Case #Window_1
          ManageFormats(1)
          CloseWindow(#Window_1) 
      EndSelect
  EndSelect
ForEver
;
;}

@Никита Однороб · 28.04.2014, 21:15

Измени строчку с показом контекстного меню

PureBasic
1
DisplayPopupMenu(0, WindowID(#Window_0))

Ты в качестве хендла указал листикон, а в главном цикле ловятся события только основого(ых) окна(он)

@mcleshiy · 29.04.2014, 06:11 **[ТС]**

В принципе, изменил GadgetID() на WindowID(), а #ListIcon так и сотавил. Странно, но работает. Спасибо!!!

@Антихакер32 · 30.04.2014, 21:12

Сообщение от mcleshiy

Странно, но работает.

Странно то, что это вызывает странности у Вас

@Никита Однороб · 30.04.2014, 21:23

mcleshiy

В принципе, изменил GadgetID() на WindowID(), а #ListIcon так и сотавил. Странно, но работает

Ничего странного. Константа #Window_0 имеет такое же значение как и #ListView_0. Поэтому ошибки нет. Но вообще это неправильно, если значение константы #ListView_0 было бы другим, ничего бы не работало. Нужно указывать окно а не гаджет!!!

@Антихакер32 · 30.04.2014, 21:28

Сообщение от Никита Однороб

Нужно указывать окно а не гаджет!!!

я не раз замечал ваши разумные предложения, а вы в VB6 шарите ?

@mcleshiy · 10.05.2014, 17:44 **[ТС]**

Но тогда PopupMenu будет отображаться на всём окне, а не только на ListView

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@mcleshiy 3 / 3 / 1 Регистрация: 05.05.2013 Сообщений: 143
	29.04.2014, 06:11 [ТС]
	В принципе, изменил GadgetID() на WindowID(), а #ListIcon так и сотавил. Странно, но работает. Спасибо!!! 0

@mcleshiy 3 / 3 / 1 Регистрация: 05.05.2013 Сообщений: 143
	10.05.2014, 17:44 [ТС]
	Но тогда PopupMenu будет отображаться на всём окне, а не только на ListView 0

Не обрабатываются события PopupMenu

Решение