Code: Select all
;Search For
; direct use of google :)
;by Siegfried Rings (Codeguru)
;
;simple type in search for and Return-key
;Search For
; direct use of google :)
;by Siegfried Rings (Codeguru)
;
;simple type in search for and Return-key
#Window_0=1
#Search_Text=1 ;
#Search_Result=2 ;about:blank
#GO_Search=3 ;Search
Procedure Open_Window_0()
If OpenWindow(#Window_0,318,80,640,480,"Search For",$CC0000)
StringGadget(#Search_Text,3,3,550,20,"Purebasic")
WebGadget(#Search_Result,3,26,635,450,"about:blank")
ButtonGadget(#GO_Search,560,3,78,20,"Search")
AddKeyboardShortcut(#Window_0, #PB_Shortcut_Return, #GO_Search)
EndIf
EndProcedure
Open_Window_0() ;Generate the Window and gadgets
;-Main Eventhandler
ExitCounter=2
Repeat
WhichEvent = WaitWindowEvent() ;Wait for an Event
WhichWindow = EventWindow();Number of Window which fires the event
WhichGadget = EventGadget();Is an Gadget used ?
WhichEventType = EventType() ;
If WhichWindow = #Window_0
Select WhichEvent
Case #PB_Event_CloseWindow
CloseWindow(#Window_0)
ExitHandler-1
Case #PB_Event_Gadget
Select WhichGadget
Case #Search_Text
Case #Search_Result
Case #GO_Search
If WhichEventType= #PB_EventType_LeftClick
search.s="http://www.google.com/search?hl=en&ie=ISO-8859-1&q=" + GetGadgetText(#Search_Text)
SetGadgetText(#Search_Result,Search.s)
EndIf
EndSelect ;WhichGadget
Case #PB_Event_Menu
If EventMenu() =#GO_Search
search.s="http://www.google.com/search?hl=en&ie=ISO-8859-1&q=" + GetGadgetText(#Search_Text)
SetGadgetText(#Search_Result,Search.s)
EndIf
Default
EndSelect
EndIf
Until Exithandler<0