PureBasic

EventType()

Синтаксис

EventType = EventType()

Описание


После вызова функции WindowEvent() или WaitWindowEvent() используйте эту функцию, чтобы определить тип события.

Следующие Гаджеты поддерживают EventType():

- CanvasGadget() - CanvasGadget имеет специальный набор типов событий.
- ComboBoxGadget()
- DateGadget()
- EditorGadget()
- ExplorerListGadget()
- ExplorerTreeGadget()
- ImageGadget()
- ListViewGadget()
- ListIconGadget()
- MDIGadget()
- OpenGLGadget()
- SpinGadget()
- StringGadget()
- WebGadget() - WebGadget имеет специальный набор типов событий.

(См. Описание соответствующего Гаджета, чтобы узнать, какие события поддерживаются.)

Параметры

Ничего.

Возвращаемое значение

В случае события с типом #PB_Event_Gadget (библиотека Gadget) или #PB_Event_SysTray (библиотека Systray) возможны следующие значения: 
  #PB_EventType_LeftClick       : Щелчок левой кнопкой мыши
  #PB_EventType_RightClick      : Щелчок правой кнопкой мыши
  #PB_EventType_LeftDoubleClick : Двойной щелчок левой кнопкой мыши
  #PB_EventType_RightDoubleClick: Двойной щелчок правой кнопкой мыши
  #PB_EventType_Focus           : Получен фокус.
  #PB_EventType_LostFocus       : Потерян фокус.
  #PB_EventType_Change          : Изменилось содержимое.
  #PB_EventType_DragStart       : Пользователь попытался начать перетаскивание мышью Drag & Drop.

Пример

If OpenWindow(0, 0, 0, 230, 120, "Пример на типы событий...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ListIconGadget(1, 10, 10, 150, 100, "ListIcon", 140, #PB_ListIcon_GridLines)
    For a = 1 To 4
        AddGadgetItem(1, -1, "Line "+Str(a))
    Next

    Repeat
        Event = WaitWindowEvent()

        Select Event

            Case #PB_Event_Gadget
                Select EventGadget()
                    Case 1
                        Select EventType()
                            Case #PB_EventType_LeftClick        : Debug "Щелчок левой кнопкой мыши"
                            Case #PB_EventType_RightClick      : Debug "Щелчок правой кнопкой мыши"
                            Case #PB_EventType_LeftDoubleClick  : Debug "Двойной щелчок левой кнопкой мыши"
                            Case #PB_EventType_RightDoubleClick : Debug "Двойной щелчок правой кнопкой мыши"
                        EndSelect
                EndSelect

        EndSelect
    Until Event = #PB_Event_CloseWindow
EndIf

См. также

WaitWindowEvent(), WindowEvent()

Поддерживаемые OS

Все

<- EventTimer() - Оглавление Window - EventWindow()->