PureBasic Forums - English

Posted: **Fri Mar 28, 2014 7:20 am**

Procedure.s EventTypeToString(eventType)
    Select eventType
        Case #PB_EventType_LeftClick        : ProcedureReturn "#PB_EventType_LeftClick"
        Case #PB_EventType_RightClick       : ProcedureReturn "#PB_EventType_RightClick"
        Case #PB_EventType_LeftDoubleClick  : ProcedureReturn "#PB_EventType_LeftDoubleClick"
        Case #PB_EventType_RightDoubleClick : ProcedureReturn "#PB_EventType_RightDoubleClick"
        Case #PB_EventType_Focus            : ProcedureReturn "#PB_EventType_Focus"
        Case #PB_EventType_LostFocus        : ProcedureReturn "#PB_EventType_LostFocus"
        Case #PB_EventType_Change           : ProcedureReturn "#PB_EventType_Change"
        Case #PB_EventType_DragStart        : ProcedureReturn "#PB_EventType_DragStart"
        
        Case #PB_EventType_MouseEnter       : ProcedureReturn "#PB_EventType_MouseEnter (CanvasGadget only)"
        Case #PB_EventType_MouseLeave       : ProcedureReturn "#PB_EventType_MouseLeave (CanvasGadget only)"
        Case #PB_EventType_MouseMove        : ProcedureReturn "#PB_EventType_MouseMove (CanvasGadget only)"
        Case #PB_EventType_MouseWheel       : ProcedureReturn "#PB_EventType_MouseWheel (CanvasGadget only)"
        Case #PB_EventType_LeftButtonDown   : ProcedureReturn "#PB_EventType_LeftButtonDown (CanvasGadget only)"
        Case #PB_EventType_LeftButtonUp     : ProcedureReturn "#PB_EventType_LeftButtonUp (CanvasGadget only)"
        Case #PB_EventType_LeftClick        : ProcedureReturn "#PB_EventType_LeftClick (CanvasGadget only)"
        Case #PB_EventType_LeftDoubleClick  : ProcedureReturn "#PB_EventType_LeftDoubleClick (CanvasGadget only)"
        Case #PB_EventType_RightButtonDown  : ProcedureReturn "#PB_EventType_RightButtonDown (CanvasGadget only)"
        Case #PB_EventType_RightButtonUp    : ProcedureReturn "#PB_EventType_RightButtonUp (CanvasGadget only)"
        Case #PB_EventType_RightClick       : ProcedureReturn "#PB_EventType_RightClick (CanvasGadget only)"
        Case #PB_EventType_RightDoubleClick : ProcedureReturn "#PB_EventType_RightDoubleClick (CanvasGadget only)"
        Case #PB_EventType_MiddleButtonDown : ProcedureReturn "#PB_EventType_MiddleButtonDown (CanvasGadget only)"
        Case #PB_EventType_MiddleButtonUp   : ProcedureReturn "#PB_EventType_MiddleButtonUp (CanvasGadget only)"
        Case #PB_EventType_Focus            : ProcedureReturn "#PB_EventType_Focus (CanvasGadget only)"
        Case #PB_EventType_LostFocus        : ProcedureReturn "#PB_EventType_LostFocus (CanvasGadget only)"
        Case #PB_EventType_KeyDown          : ProcedureReturn "#PB_EventType_KeyDown (CanvasGadget only)"
        Case #PB_EventType_KeyUp            : ProcedureReturn "#PB_EventType_KeyUp (CanvasGadget only)"
        Case #PB_EventType_Input            : ProcedureReturn "#PB_EventType_Input (CanvasGadget only)"
        
        Case #PB_EventType_TitleChange      : ProcedureReturn "#PB_EventType_TitleChange (WebGadget only)"
        Case #PB_EventType_StatusChange     : ProcedureReturn "#PB_EventType_StatusChange (WebGadget only)"
        Case #PB_EventType_DownloadStart    : ProcedureReturn "#PB_EventType_DownloadStart (WebGadget only)"
        Case #PB_EventType_DownloadProgress : ProcedureReturn "#PB_EventType_DownloadProgress (WebGadget only)"
        Case #PB_EventType_DownloadEnd      : ProcedureReturn "#PB_EventType_DownloadEnd (WebGadget only)"
        Case #PB_EventType_PopupWindow      : ProcedureReturn "#PB_EventType_PopupWindow (WebGadget only)"
        Case #PB_EventType_PopupMenu        : ProcedureReturn "#PB_EventType_PopupMenu (WebGadget only)"
            
        Default                             : ProcedureReturn "no PB event"
    EndSelect
EndProcedure

OpenWindow(1, 358, 178, 300, 275, " Test ResizeWindow (Module)",  #PB_Window_SizeGadget | #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)

EditorGadget(37, 5, 35, 45, 85)      
Repeat
    event = WaitWindowEvent()
    If event=#PB_Event_Gadget
        Debug EventGadget()
        Debug EventType()
        Debug EventTypeToString( EventType() )
    EndIf
Until Event = #PB_Event_CloseWindow

Posted: **Fri Mar 28, 2014 9:17 am**

Danilo That's the answer? Or do you just not happy with this?

Posted: **Fri Mar 28, 2014 9:48 am**

mestnyi wrote:Danilo That's the answer?

Yes. I already said:

Danilo wrote:There are always many more events coming, and you just have to ignore them.

What's the part you don't understand?

Posted: **Fri Mar 28, 2014 11:34 am**

You say that I do, but here is another question. It will always be like this? Or until it has not yet reached Fred?

PureBasic Forums - English

why an event occurs gadget

Re: why an event occurs gadget

Re: why an event occurs gadget

Re: why an event occurs gadget

Re: why an event occurs gadget