Code: Select all
;{ Windows
Enumeration
#Window_0
EndEnumeration
;}
;{ Gadgets
Enumeration
#Frame3D_1
#Text_2
#Text_3
#Text_4
#Text_5
#String_6
#String_7
#String_8
#String_9
#Container_10
#Option_11
#Option_12
#Option_13
#Option_14
#Button_15
#HyperLink_16
EndEnumeration
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}
Procedure OpenWindow_Window_0()
If OpenWindow(#Window_0, 156, 142, 626, 346, "Search the forums for PureBasic (Google)", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
FrameGadget(#Frame3D_1, 5, 15, 605, 155, "Setting")
TextGadget(#Text_2, 10, 40, 140, 20, "with all of the words:")
TextGadget(#Text_3, 10, 65, 135, 20, "with the exact phrase")
TextGadget(#Text_4, 10, 91, 135, 20, "with any words")
TextGadget(#Text_5, 10, 115, 135, 20, "NOT containing the words")
StringGadget(#String_6, 160, 40, 420, 20, "")
StringGadget(#String_7, 160, 65, 420, 20, "")
StringGadget(#String_8, 160, 90, 420, 20, "")
StringGadget(#String_9, 160, 115, 420, 20, "")
ButtonGadget(#Button_15, 165, 270, 235, 25, "Start search")
HyperLinkGadget(#HyperLink_16, 5, 320, 280, 20, "The most accurate search", #Blue, #PB_HyperLink_Underline)
GadgetToolTip(#HyperLink_16, "The clipboard is selected forum")
ContainerGadget(#Container_10, 10, 190, 600, 70)
OptionGadget(#Option_11, 5, 5, 285, 15, "Russian Forum"):
OptionGadget(#Option_12, 5, 25, 285, 15, "English Forum"):SetGadgetState(#Option_12,1)
OptionGadget(#Option_13, 295, 5, 285, 15, "German Forum")
OptionGadget(#Option_14, 295, 25, 285, 15, "French Forum")
CloseGadgetList()
EndIf
EndProcedure
OpenWindow_Window_0()
;{- Event loop
Repeat
Event = WaitWindowEvent()
Select Event
; ///////////////////
Case #PB_Event_Gadget
EventGadget = EventGadget()
EventType = EventType()
If EventGadget = #Frame3D_1
ElseIf EventGadget = #Button_15
Inquiry$=""
If GetGadgetState(#Option_11)
Forum$="http://www.google.com/search?q=site%3Ahttp%3A%2F%2Fpurebasic.info%2FphpBB3ex";http://purebasic.info/phpBB3ex/
ElseIf GetGadgetState(#Option_12)
Forum$="http://www.google.com/search?q=site%3Ahttp%3A%2F%2Fwww.purebasic.fr%2Fenglish"
ElseIf GetGadgetState(#Option_13)
Forum$="http://www.google.com/search?q=site%3Ahttp%3A%2F%2Fwww.purebasic.fr%2Fgerman"
ElseIf GetGadgetState(#Option_14)
Forum$="http://www.google.com/search?q=site%3Ahttp%3A%2F%2Fwww.purebasic.fr%2Ffrench"
EndIf
If Len(GetGadgetText(#String_6))>2
Inquiry1$="+"+URLEncoder(GetGadgetText(#String_6))
Else
Inquiry1$=""
EndIf
If Len(GetGadgetText(#String_7))>2
Inquiry2$="+"+Chr(34)+URLEncoder(GetGadgetText(#String_7))+Chr(34)
Else
Inquiry2$=""
EndIf
If Len(GetGadgetText(#String_8))>2
For i=1 To Len(GetGadgetText(#String_8))
word$=StringField(GetGadgetText(#String_8), i, " ")
If Len(word$)
Inquiry3$=Inquiry3$+" | "+word$
EndIf
Next i
Inquiry3$=URLEncoder(Inquiry3$)
Else
Inquiry3$=""
EndIf
If Len(GetGadgetText(#String_9))>2
For i=1 To Len(GetGadgetText(#String_9))
word$=StringField(GetGadgetText(#String_9), i, " ")
If Len(word$)
Inquiry4$=Inquiry4$+"+-"+word$
EndIf
Next i
Inquiry4$=URLEncoder(Inquiry4$)
Else
Inquiry4$=""
EndIf
Inquiry$= Forum$+Inquiry1$+Inquiry2$+Inquiry3$+Inquiry4$
RunProgram(Inquiry$)
ElseIf EventGadget = #HyperLink_16
If GetGadgetState(#Option_11)
SetClipboardText("http://purebasic.info/phpBB3ex/")
ElseIf GetGadgetState(#Option_12)
SetClipboardText("http://www.purebasic.fr/english")
ElseIf GetGadgetState(#Option_13)
SetClipboardText("http://www.purebasic.fr/german")
ElseIf GetGadgetState(#Option_14)
SetClipboardText("http://www.purebasic.fr/french")
EndIf
RunProgram("http://www.google.com/advanced_search")
EndIf
; ////////////////////////
Case #PB_Event_CloseWindow
EventWindow = EventWindow()
If EventWindow = #Window_0
CloseWindow(#Window_0)
Break
EndIf
EndSelect
ForEver
;
;}