Callback для Формы

@mestnyi33 · Регистрация: 25.05.2012

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

Как в Callback-е применять Purebasic-овские константы, например: #PB_Event_Menu.
Примеру есть дочернее окно, на нем расположен тулбар вот не могу получить событие на тулбаре.
Вот и думал через колбек это сделать, а колбек не подерживает пуриковских констант вот и думаю есть ли замена.

@Pro_grammer · 28.10.2013, 12:52

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

Примеру есть дочернее окно, на нем расположен тулбар вот не могу получить событие на тулбаре.

Код покажи.

@locm · 28.10.2013, 12:55

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

Как в Callback-е применять Purebasic-овские константы, например: #PB_Event_Menu.

Раз залезли в дебри WinAPI, то все необходимо делать по правилам API.

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
Procedure WinCallback(hWnd, uMsg, wParam, lParam) 
  
  If uMsg = #WM_COMMAND
    If lParam=ToolBarID(0)
      Debug wParam & $FFFF
    EndIf
  EndIf 
  
  ProcedureReturn #PB_ProcessPureBasicEvents 
EndProcedure 
 
 
OpenWindow(0, 0, 0, 150, 25, "ToolBar", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
If CreateToolBar(0, WindowID(0))
  ToolBarStandardButton(0, #PB_ToolBarIcon_New)
  ToolBarStandardButton(1, #PB_ToolBarIcon_Open)
  ToolBarStandardButton(2, #PB_ToolBarIcon_Save)
EndIf
 
SetWindowCallback(@WinCallback(), 0)
 
Repeat
  Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow

@mestnyi33 · 28.10.2013, 18:10 **[ТС]**

Код покажи

Да не вопрос вот:

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
;при EnableExplicit перемение должны быть объявлени заранее
EnableExplicit
  
Enumeration #PB_Compiler_EnumerationValue
 ;окно
 #MainWindow
 #top
 #bot
 #cli
 ;перечисление гаджетов
   
EndEnumeration
;подключение дочерных окон шаблон 
;Declare Show_название_окна(IsChild=0,ParentWindow=0,Hide=0) :Show_название_окна(#True,0,#True) :XIncludeFile "название_окна.pb"
;Declare Show_ChildWindow(IsChild=0,ParentWindow=0,Hide=0) :Show_ChildWindow(#True,0,#True) :XIncludeFile "ChildWindow.pb"
 
;дабавляет текст к кнопкам тульбара
Procedure ToolbarTexts(ToolBarID,ButtonID,Text.s)
  Protected tbi.TBBUTTONINFO
   tbi\cbSize = SizeOf(TBBUTTONINFO)
   tbi\dwMask = #TBIF_TEXT | #TBIF_STYLE
   tbi\fsStyle = #BTNS_BUTTON | #BTNS_AUTOSIZE
   tbi\pszText = @Text
  SetWindowLongPtr_(ToolBarID(ToolBarID), #GWL_STYLE, GetWindowLongPtr_(ToolBarID(ToolBarID), #GWL_STYLE) | #TBSTYLE_LIST)
 SendMessage_(ToolBarID(ToolBarID),#TB_SETINDENT,1,0) ;отступ слева
SendMessage_(ToolBarID(ToolBarID),#TB_SETBUTTONINFO,ButtonID,tbi)
EndProcedure
 
;изменение
Procedure ResizeChildWindow(hWnd,x,y,w,h)
 
 Protected ParentSize.RECT
  GetWindowRect_(GetParent_(hWnd), @ParentSize)
 Protected Size.RECT 
 GetWindowRect_(hWnd, @Size)
 
 Protected WR.RECT 
  GetWindowRect_(GetParent_(hWnd), @WR)
 Protected WP.Point   
  ClientToScreen_(hWnd, @WP )
 
  If x=#PB_Ignore
    x=Size\left-ParentSize\left-(WP\x-WR\left)
  EndIf
  If y=#PB_Ignore
    y=(Size\top-ParentSize\top)-(WP\y-WR\top)
  EndIf
  If w=#PB_Ignore
    w=Size\right-Size\left
  EndIf 
  If h=#PB_Ignore
    h=Size\bottom-Size\top
  EndIf 
  
  MoveWindow_(hWnd,x,y,w,h,1)
  InvalidateRect_(hWnd,0,1)
  UpdateWindow_(hWnd)
EndProcedure
 
;событие на форме (Callback)
Procedure MainWindow_Callback(hWnd, msg, wParam, lParam)
  Select msg
    Case #WM_SIZE,799
     RedrawWindow_(hWnd, 0, 0, #RDW_UPDATENOW|#RDW_ALLCHILDREN) ; убирает мерцание #MessageWindow
     ResizeChildWindow(WindowID(#top),#PB_Ignore,#PB_Ignore,WindowWidth(#MainWindow),#PB_Ignore)
     ResizeChildWindow(WindowID(#cli),#PB_Ignore,WindowHeight(#top),WindowWidth(#MainWindow),(WindowHeight(#MainWindow)-WindowHeight(#top))-WindowHeight(#bot))
     ResizeChildWindow(WindowID(#bot),#PB_Ignore,WindowHeight(#top)+WindowHeight(#cli),WindowWidth(#MainWindow),#PB_Ignore)
    Case #WM_LBUTTONDOWN
         Debug "событие на форме - Callback"
    Default
      
  EndSelect
  ProcedureReturn #PB_ProcessPureBasicEvents  ;Result = DefWindowProc_(hWindow,iMessage,wParam,lParam)
EndProcedure
 
 
;событие на форме (Event)
Procedure MainWindow_Event(Event,Window)
Protected WindowID,GadgetID,MenuID,TypeID 
 WindowID = EventWindow()
 GadgetID = EventGadget()
   MenuID = EventMenu()
   TypeID = EventType()
Select Event
  Case #WM_SIZE,799  
    
  Case #PB_Event_Menu
        Debug "ToolBar ID: "+Str(EventMenu())
       
   
  Case #WM_LBUTTONDOWN   
        Debug "событие на форме - Event"
    EndSelect 
 EndProcedure  
 
;главный цикл для формы 
Procedure Event_MainWindow(Window,Event=0)
 Global ChildWindow 
 Repeat :Event = WaitWindowEvent()  
   
;событие главного окона   
;если на самом верху рабочего стола   
If GetForegroundWindow_() = WindowID(Window)  
  MainWindow_Event(Event,Window) 
  
;событие дочерных окон  
Else
 ;ChildWindow_Event(Event,#ChildWindow) 
EndIf  
 
 Select Event
  Case #PB_Event_CloseWindow 
       If EventWindow() = Window 
         ChildWindow=1 :Break 
       EndIf 
   EndSelect 
 ForEver      
EndProcedure   
     
;создание формы
Procedure MainWindow(Child=0,ParentWindow=0,Hide=0)
 Protected hWnd,Window,cWndt,cWndb,cWndc
 If Child=0 :hWnd = OpenWindow(#MainWindow, 0,0,530,300, "MainWindow",#PB_Window_SystemMenu|#PB_Window_Invisible|#PB_Window_ScreenCentered|#PB_Window_SizeGadget) ;:#MainWindow=0
 Else :If ParentWindow=0 :hWnd = OpenWindow(#MainWindow, 0,0,330,200, "ChildWindow",#PB_Window_SystemMenu|#PB_Window_Invisible|#PB_Window_ScreenCentered|#PB_Window_SizeGadget)
 Else :hWnd = OpenWindow(#MainWindow, 0,0,330,200, "ParentWindow",#PB_Window_SystemMenu|#PB_Window_Invisible|#PB_Window_ScreenCentered|#PB_Window_SizeGadget, ParentWindow)
   DeleteMenu_(GetSystemMenu_(Window,#False),1,#MF_BYPOSITION) ;запрешаем таскат за заголовок. 
 EndIf :EndIf :Window = #MainWindow 
 ;здесь процедуры относяшие ко всем: MainWindow, ChildWindow, ParentWindow
 SetWindowIcon(hWnd,ExtractIcon_(0,"shell32.dll",130))
 
 cWndt=OpenWindow(#top, 0,0,0,50, "",#PB_Window_BorderLess,WindowID(Window))
 ;SetWindowColor(#top,$8FBC8F)
 SetParent_(cWndt,hWnd)
 
 cWndc=OpenWindow(#cli, 0,0,0,200, "",#PB_Window_BorderLess,WindowID(Window))
 SetWindowColor(#cli,$71B33C)
 SetParent_(cWndc,hWnd)
 
 cWndb=OpenWindow(#bot, 0,0,0,50, "",#PB_Window_BorderLess,WindowID(Window))
 SetWindowColor(#bot,$DEC4B0)
 SetParent_(cWndb,hWnd)
 
 If CreateToolBar(0,WindowID(#top))
    ToolBarStandardButton(0,#PB_ToolBarIcon_New)
    ToolBarStandardButton(1,#PB_ToolBarIcon_New)
    ToolBarSeparator()
    
    ToolbarTexts(0,0,"Дизайнер")
    ToolbarTexts(0,1,"Исходный код")
    
    ; Добавляем подсказки для кнопок
    ToolBarToolTip(0,1,"Создать новый файл")
  EndIf
 
 ;показ дочерных окон если они есть
 ;Show_ChildWindow(1,Window)
 
;спрятать\показать форму
If Hide=0 :HideWindow(Window,0)
 Else :HideWindow(Window,1) :EndIf
 
 ;Callback для формы
 SetWindowCallback(@MainWindow_Callback(),Window )
 
 
 ;Если запустили как главное окно
 If Child=0 :Event_MainWindow(Window) :EndIf ;главный цикл
EndProcedure 
 
;указываем как показывать форму
Procedure Show_MainWindow(IsChild=0,ParentWindow=0,Hide=0) 
 Global ChildWindow  
 If IsChild=0 :MainWindow(IsChild,ParentWindow,Hide)
  Else :ChildWindow = #True
   If IsWindow(ParentWindow)=0 :MainWindow(#True,ParentWindow,Hide)
    Else :MainWindow(#True,WindowID(ParentWindow),Hide)
   EndIf  
  EndIf
EndProcedure :If  ChildWindow=0 :Show_MainWindow() :Else  :ChildWindow=0 :EndIf  
 
  
;события после закрытия программы (нажатием на крестик)
Procedure Close_MainWindow()

Раз залезли в дебри WinAPI

А что делать по другому никак.

@locm · 28.10.2013, 21:18

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

Да не вопрос вот

Это весь код?

@mestnyi33 · 28.10.2013, 22:04 **[ТС]**

нет, это шаблон.
Просто не сталь лишнее вырезать, вдруг кому нибудь пригодиться.

Новые блоги и статьи Все статьи Все блоги /
Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .

@mestnyi33 2 / 2 / 2 Регистрация: 25.05.2012 Сообщений: 55

	Callback для Формы 28.10.2013, 12:19. Показов 1603. Ответов 5 Метки нет (Все метки) Как в Callback-е применять Purebasic-овские константы, например: #PB_Event_Menu. Примеру есть дочернее окно, на нем расположен тулбар вот не могу получить событие на тулбаре. Вот и думал через колбек это сделать, а колбек не подерживает пуриковских констант вот и думаю есть ли замена. 0

@mestnyi33 2 / 2 / 2 Регистрация: 25.05.2012 Сообщений: 55
	28.10.2013, 22:04 [ТС]
	нет, это шаблон. Просто не сталь лишнее вырезать, вдруг кому нибудь пригодиться. 0