Вход
Регистрация
|
![[Цитировать]](./styles/templates/default/images/lang/ru/icon_quote.gif "Ответить с цитатой"){kind=icon}
Отправлено:
|
ChkDskGui (PureBasic)
 Исходник + EXE, v4.2 (x86, x64)Скачать yadi.sk upload.eeвременная версия
Последний раз редактировалось: AZJIO (2024-11-07 09:05), всего редактировалось 44 раз(а) |
|
AZJIO писал(а):  53660на счёт WS_POPUP ждём Дополнительная информация Дополнительная информацияКод: Declare WinHelp() #WS_POPUP = $80000000 Global hGUI = OpenWindow(99, 100, 200, 440, 130, "Родительское", #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered) If hGUI ButtonGadget(5, 300, 77, 27, 32, "?") Repeat Event = WaitWindowEvent() If Event = #PB_Event_Gadget Select EventGadget() Case 5 ; ? WinHelp() EndSelect EndIf Until Event = #PB_Event_CloseWindow EndIf End Procedure WinHelp() DisableWindow(99, #True) Protected Event hGUI2 = OpenWindow(98, 100, 200, 620, 420, "Справка", #PB_Window_SystemMenu | #WS_POPUP) EditorGadget(0, 5, 5, 610, 410) SetGadgetText(0, "текст справки") SetGadgetState(0, 0) Repeat Event = WaitWindowEvent() Until Event = #PB_Event_CloseWindow CloseWindow(98) DisableWindow(99, #False) SetActiveWindow(99) EndProcedure |
|
Joker-2013,
Joker-2013 писал(а): 53688Что даёт константа #WS_POPUP , по моему ничего.. Joker-2013 писал(а): 53688 в пьюрике есть уже функция для создания дочернего окна... Нужно просто указать его, WindowID(99) Joker-2013 писал(а): 53688Зачем создавать два цикла обработки событий? Вообще-то это пример от AZJIO, я всего лишь сделал "дочернее" окно из его кода. |
|
nikzzzz писал(а): 53689Не знаю, я просто взял пример от AZJIO. nikzzzz писал(а): 53689Приведи пример, я просто написал аналог дочернего окна на Autoit, возможно не правильно понял задачу. Дополнительная информация Дополнительная информацияКод: Declare WinHelp() ;#WS_POPUP = $80000000 Global hGUI = OpenWindow(99, 100, 200, 440, 130, "Родительское", #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered) If hGUI ButtonGadget(5, 300, 77, 27, 32, "?") Repeat Event = WaitWindowEvent() If Event = #PB_Event_Gadget Select EventGadget() Case 5 ; ? WinHelp() EndSelect EndIf Until Event = #PB_Event_CloseWindow EndIf End Procedure WinHelp() DisableWindow(99, #True) Protected Event hGUI2 = OpenWindow(98, 100, 200, 620, 420, "Справка", #PB_Window_SystemMenu, WindowID(99)); | #WS_POPUP EditorGadget(0, 5, 5, 610, 410) SetGadgetText(0, "текст справки") SetGadgetState(0, 0) Repeat Event = WaitWindowEvent() Until Event = #PB_Event_CloseWindow CloseWindow(98) DisableWindow(99, #False) SetActiveWindow(99) EndProcedure При использовании константы, она сдвоенная (и без константы тоже), если использовать предложенный мною вариант (стандартный), она одна (как и должно быть у дочернего окна) nikzzzz писал(а): 53689Для удобства, каждое окно на свою задачу. У цикла нет привязки к конкретному окну, но есть приоритет... По мне, так это костыль. Разблокируй родительское окно и нажми на крестик в нем. При первом нажатии, закроется дочернее окно, при втором родительское... То есть выходим в начале из второго цикла, оказываемся в первом... Если родительское окно заблокировано, то нормально, если нет, то вариант не катит... Что происходит с первым циклом, мне не понятно... То ли он останавливается, то ли перезаписывается, но при выходе из второго, он возобновляет свою работу... |
|
Joker-2013 писал(а): 53690 У цикла нет привязки к конкретному окну, но есть приоритет... По мне, так это костыль. Разблокируй родительское окно и нажми на крестик в нем. При первом нажатии, закроется дочернее окно, при втором родительское... |
|
Joker-2013 писал(а): 53690При использовании константы, она сдвоенная (и без константы тоже), если использовать предложенный мною вариант (стандартный), она одна (как и должно быть у дочернего окна) |
|
nikzzzz писал(а): 53691Так событие-то одно, щелчок по крестику, а проанализировать, по какому окну щелкнули лень? Один цикл из примера, что я выложил на том сайте, прекрасно справляется и всё отлавливает. Все равно нумерацию гаджетов нельзя вести раздельную (номер не должен переписывать из другого окна) nikzzzz писал(а): 53692Вот, я не правильно понял задачу, я считал, что дочернее окно должно блокировать материнское, а на иконки мне было как-то наплевать. |
|
Joker-2013 писал(а): 53693Так блокируешь его же вручную, а не константой, которая ничего в данном случае не делает... Возможно, есть другое решение, но я его не знаю, задача решена, пусть даже через костыль. |
|
Joker-2013 писал(а): 53688Нужно просто указать его, WindowID(99) Например элемент "Вкладки" нельзя создать 2 шт в одном окне (не знаю является ли правило для винды, но для AutoIt3 точно), и чтобы сделать 2 и более нужно делать дочерние окна как часть родительского, тогда в каждом дочернем можно создать свой элемент "Вкладки", а выглядеть будет как в одном окне. nikzzzz не указал его родителем поэтому видимо получается что они как два самостоятельных окна одного процесса. При блокировке окно не получает сообщения в очередь, поэтому при разблокировании он не будет обрабатывать никакие клики, вызванные во время блокировки. Последний раз редактировалось: AZJIO (2018-05-11 12:04), всего редактировалось 2 раз(а) |
|
AZJIO писал(а): 53697Например элемент "Вкладки" нельзя создать 2 шт в одном окне (не знаю является ли правило для винды, но для AutoIt3 точно), и чтобы сделать 2 и более нужно делать дочерние окна как часть родительского, тогда в каждом дочернем можно создать свой элемент "Вкладки", а выглядеть будет как в одном окне. Видел пример... Нужно создать, гаджет-контейнер, а в нем объекты... Так хоть два статус бара, меню бара или разные вкладки, не проблема, да хоть три... |
|
Joker-2013 писал(а): 53699Нужно создать, гаджет-контейнер Грубо говоря мы оперируем теми же ресурсами винды но в видении/терминологии другого автора. А при тесте пытаемся разгадать как автор интерпретатра кода создал механизмы работы. Например в AutoIt3 при создании окон есть стили по умолчанию и принудительные стили. Принудительные не убираются совсем, умолчальные заменяются в момент указания своих стилей и чтобы они не убирались их нужно доавить как +DefaultStyle (грубо говоря, название конечно другое). Если смотреть гипотетически, то добавляя ID родителя, ты делаешь дочерним окно, а добавляя #PB_Window_SystemMenu ты делаешь его явно отдельно от родительского окна, вот он сам и добавляет остальные стили угадывая намерения. |
|
Joker-2013,
If WaitWindowEvent() = Joker-2013 писал(а): 53736А почему программа не закрывается, во время сканирования? Код: If WaitWindowEvent(100) = #PB_Event_CloseWindow:End:EndIf Joker-2013 писал(а): 53736Не появится ли проблем, если завершить работу во время сканирования? |
|
AZJIO, Дочки, матери...
Может это нужно:  Дополнительная информация Дополнительная информацияКод: hwnd = OpenWindow(0, 0, 0, 400, 300, "MDIGadget", #PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_SizeGadget|#PB_Window_MaximizeGadget) CreateMenu(0, WindowID(0)) MenuTitle("Menu index 0") MenuTitle("MDI windows menu") MenuItem(0, "self created item") MenuItem(1, "self created item") MDIGadget(0, 0, 0, 0, 0, 1, 2, #PB_MDI_AutoSize) mhwnd = AddGadgetItem(0,1, "child window") mhwnd2 = AddGadgetItem(0,2, "child window 2") ; add gadgets here... UseGadgetList(WindowID(0)) ; go back to the main window gadgetlist SendMessage_(hwnd,#WM_SETICON,0,ExtractIcon_(0,"Shell32.dll",13)) SendMessage_(mhwnd,#WM_SETICON,0,ExtractIcon_(0,"Shell32.dll",23)) SendMessage_(mhwnd2,#WM_SETICON,0,ExtractIcon_(0,"Shell32.dll",188)) Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow |
Страница 3 из 34
Текущее время: 09-Апр 11:09
Часовой пояс: UTC + 3
|
Вы не можете начинать темы
Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах Вы не можете прикреплять файлы к сообщениям Вы можете скачивать файлы |