PureBasic Forum

; German forum:
; Author: Danilo
; Date: 02. April 2003

; Zeigt wie man Links-, Rechts-, DoppelLinks- und DoppelRechts-Klicks für das ButtonGadget() abfragt.
; Nützlich z.B. wenn man ein Popup-Menu nach RechtsClick auf einen Button anzeigen will.
; Diese Events wurden in 3.62 im Zusammenhang mit AdvancedGadgetEvents() geändert.
OpenWindow(0,0,0,170,106,"Button Events",#PB_Window_ScreenCentered|#PB_Window_SystemMenu)
  CreateGadgetList(WindowID(0))
  ButtonGadget(1,10,10,150,20,"Links-Klick")
  ButtonGadget(2,10,32,150,20,"Rechts-Klick")
  ButtonGadget(3,10,54,150,20,"Doppel-Links-Klick")
  ButtonGadget(4,10,76,150,20,"Doppel-Rechts-Klick")

Procedure Message()
  MessageRequester("Button "+Str(EventGadget()),GetGadgetText(EventGadget()),0)
EndProcedure

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow: End
    Case #PB_Event_Gadget
        Select EventGadget()
          Case 1
            Select EventType()
              Case #PB_EventType_LeftClick        : Message()
            EndSelect
          Case 2
            Select EventType()
              Case #PB_EventType_RightClick       : Message()
            EndSelect
          Case 3
            Select EventType()
              Case #PB_EventType_LeftDoubleClick  : Message()
            EndSelect
          Case 4
            Select EventType()
              Case #PB_EventType_RightDoubleClick : Message()
            EndSelect
        EndSelect
  EndSelect
ForEver

; German forum:
; Author: CyberRun8
; Date: 03. April 2003

;Beispiel von CyberRun8
;für PureBasic 3.62
;März 2003

;-Konstanten setzen
#Window = 0

#Gadget1 = 0
#Gadget2 = 1
#Gadget3 = 2

;-Fenster mit Gadgets darstellen
If OpenWindow(#Window, 100, 150, 240, 90, "AdvancedGadgetEvents", #PB_Window_MinimizeGadget)
  If CreateGadgetList(WindowID(#Window))
    ButtonGadget(#Gadget1, 5, 5, 230, 20, "Doppelklick-Button")
    ButtonGadget(#Gadget2, 5, 35, 230, 20, "Einfachklick-Button")
    ButtonGadget(#Gadget3, 5, 65, 230, 20, "Gadget ohne Advanced-Funktion")
  EndIf
EndIf

Debug "Focusangabe:"
;-Schleife
Repeat
  EventID.l = WaitWindowEvent()
 
  If EventID = #PB_Event_Gadget   
    Select EventGadget()
      Case #Gadget1
        If EventType() = #PB_EventType_Focus
          Debug "Focus auf Doppelklick-Button gesetzt"               
        ElseIf EventType() = #PB_EventType_LeftDoubleClick
          MessageRequester("Info", "Linksdoppelklick", 0)
        ElseIf EventType() = #PB_EventType_RightDoubleClick
          MessageRequester("Info", "Rechtsdoppelklick", 0)             
        EndIf
      Case #Gadget2
        If EventType() = #PB_EventType_LeftClick         
          MessageRequester("Info", "Linksklick auf Einfachklick-Button", 0)
        ElseIf EventType() = #PB_EventType_RightClick         
          MessageRequester("Info", "Rechtsklick auf Einfachklick-Button", 0)
        ElseIf EventType() = #PB_EventType_Focus
          Debug "Focus auf Einfachklick-Button gesetzt"
        EndIf
      Case #Gadget3
        ;Folgende Abfrage ist ohne Funkton weil für Gadget3 die fortgeschrittene Ereignisangabe
        ;abgeschaltet wurde.
        If EventType() = #PB_EventType_Focus
          Debug "Focus auf Doppelklick-Button gesetzt"               
        ElseIf EventType() = #PB_EventType_LeftDoubleClick
          MessageRequester("Info", "Linksdoppelklick", 0)
        ElseIf EventType() = #PB_EventType_RightDoubleClick
          MessageRequester("Info", "Rechtsdoppelklick", 0)             
        EndIf         
    EndSelect
  EndIf       
Until EventID = #PB_Event_CloseWindow
End

; German forum; http://robsite.de/php/pureboard/viewtopic.php?t=1135&highlight=
; Author: CS2001
; Date: 25. May 2003

#Window_0 = 0

;- Gadget Constants
;
#Gadget_0 = 0
#Gadget_1 = 1


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 600, 300, "New window ( 0 )",  #PB_Window_TitleBar)
    If CreateGadgetList(WindowID(#Window_0))
      TreeGadget(#Gadget_0, 10, 10, 270, 190)
      StringGadget(#Gadget_1, 300, 10, 280, 40, "")
      AddGadgetItem(#Gadget_0, 0, "Anmelden")
      AddGadgetItem(#Gadget_0, 1, "Abmelden")
      AddGadgetItem(#Gadget_0, 2, "Ende")
    EndIf
  EndIf
EndProcedure

Open_Window_0()
Repeat
Event = WaitWindowEvent()
  If Event=#PB_Event_Gadget
    Select EventGadget()
      Case #Gadget_0
        Eintrag=GetGadgetState(#Gadget_0)
        If Eintrag=0
          SetGadgetText(#Gadget_1, "Anmelden")
        ElseIf Eintrag=1
          SetGadgetText(#Gadget_1, "Abmelden")
        EndIf
    EndSelect
  EndIf
;  While WindowEvent() : Wend
Until Eintrag=2

; English forum: http://purebasic.myforums.net/viewtopic.php?t=7337
; Author: Freak
; Date: 26. August 2003

; modified for PB3.80 by Freak on 07th September 2003

Enumeration 1
  #OLECMDID_OPEN         
  #OLECMDID_NEW       
  #OLECMDID_SAVE         
  #OLECMDID_SAVEAS           
  #OLECMDID_SAVECOPYAS   
  #OLECMDID_PRINT       
  #OLECMDID_PRINTPREVIEW       
  #OLECMDID_PAGESETUP       
  #OLECMDID_SPELL           
  #OLECMDID_PROPERTIES 
  #OLECMDID_CUT         
  #OLECMDID_COPY       
  #OLECMDID_PASTE           
  #OLECMDID_PASTESPECIAL   
  #OLECMDID_UNDO           
  #OLECMDID_REDO         
  #OLECMDID_SELECTALL       
  #OLECMDID_CLEARSELECTION
  #OLECMDID_ZOOM           
  #OLECMDID_GETZOOMRANGE     
  #OLECMDID_UPDATECOMMANDS 
  #OLECMDID_REFRESH           
  #OLECMDID_STOP             
  #OLECMDID_HIDETOOLBARS     
  #OLECMDID_SETPROGRESSMAX   
  #OLECMDID_SETPROGRESSPOS 
  #OLECMDID_SETPROGRESSTEXT   
  #OLECMDID_SETTITLE         
  #OLECMDID_SETDOWNLOADSTATE 
  #OLECMDID_STOPDOWNLOAD     
EndEnumeration

Enumeration 0
  #OLECMDEXECOPT_DODEFAULT     
  #OLECMDEXECOPT_PROMPTUSER       
  #OLECMDEXECOPT_DONTPROMPTUSER   
  #OLECMDEXECOPT_SHOWHELP       
EndEnumeration

; -----------------------------------------------------

; Now the code

#WebGadget = 1
#Button = 2

OpenWindow(0, 0, 0, 800, 600, "WebBrowser", #PB_Window_ScreenCentered|#PB_Window_SystemMenu)
CreateGadgetList(WindowID(0))

WebGadget(#WebGadget, 10, 40, 780, 550, "www.purebasic.com")
ButtonGadget(#Button, 10, 10, 60, 20, "Copy")

; Fred the genius stored the Interface pointer to IWebBrowser2 in the DATA
; member of the windowstructure of the WebGadget containerwindow, so we can get
; that easily:
WebObject.IWebBrowser2 = GetWindowLong_(GadgetID(#WebGadget), #GWL_USERDATA)

Repeat
  Event = WaitWindowEvent()
  If Event = #PB_Event_Gadget And EventGadget() = #Button
   
    ; Now here's the actual copy thing, not that complicated...

    WebObject\ExecWB(#OLECMDID_COPY, #OLECMDEXECOPT_DONTPROMPTUSER, 0, 0)
   
    ; little test:
    MessageRequester("", GetClipboardText(), 0)
   
  EndIf
Until Event = #PB_Event_CloseWindow

End