76 lines
2.4 KiB
Plaintext
76 lines
2.4 KiB
Plaintext
; minibrowser.pb
|
|
; ------------------------------------------------------------
|
|
; This is a minimalistic browser for admin purposes.
|
|
; It was derived from: MiniBrowser, (c) Fantaisie Software
|
|
; LICENSE : GPL
|
|
; AUTHOR : Michael H.G. Schmidt
|
|
; EMAIL : michael@schmidt2.de
|
|
; DATE : 20230213
|
|
; ------------------------------------------------------------
|
|
;
|
|
|
|
Procedure ResizeWebWindow()
|
|
ResizeGadget(10, #PB_Ignore, #PB_Ignore, WindowWidth(0), WindowHeight(0)-52)
|
|
ResizeGadget(4, #PB_Ignore, #PB_Ignore, WindowWidth(0)-185, #PB_Ignore)
|
|
ResizeGadget(5, WindowWidth(0)-25, #PB_Ignore, #PB_Ignore, #PB_Ignore)
|
|
ResizeGadget(6, #PB_Ignore, #PB_Ignore, WindowWidth(0), #PB_Ignore)
|
|
EndProcedure
|
|
|
|
If OpenWindow(0, 100, 200, 800, 600, "MiniBrowser", #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget)
|
|
|
|
CreateStatusBar(0, WindowID(0))
|
|
AddStatusBarField(#PB_Ignore)
|
|
StatusBarText(0, 0, "READY.", 0)
|
|
|
|
ButtonGadget(1, 0, 3, 50, 25, "Back")
|
|
ButtonGadget(2, 50, 3, 50, 25, "Next")
|
|
ButtonGadget(3, 100, 3, 50, 25, "Stop")
|
|
StringGadget(4, 155, 5, 0, 20, "http://")
|
|
ButtonGadget(5, 0, 3, 25, 25, "Go")
|
|
FrameGadget(6, 0, 30, 0, 2, "", 2) ; Nice little separator
|
|
|
|
If WebGadget(10, 0, 31, 0, 0, "http://DuckDuckGo.com") = 0
|
|
|
|
CompilerIf #PB_Compiler_OS <> #PB_OS_Windows
|
|
; Linux and OX uses Webkit
|
|
MessageRequester("Error", "Webkit library not found", 0)
|
|
CompilerEndIf
|
|
End
|
|
|
|
EndIf
|
|
|
|
AddKeyboardShortcut(0, #PB_Shortcut_Return, 0)
|
|
|
|
; Use bindevent() to have a realtime window resize
|
|
BindEvent(#PB_Event_SizeWindow, @ResizeWebWindow())
|
|
ResizeWebWindow() ; Adjust the gadget to the current window size
|
|
|
|
Repeat
|
|
Event = WaitWindowEvent()
|
|
|
|
Select Event
|
|
Case #PB_Event_Gadget
|
|
Select EventGadget()
|
|
Case 1
|
|
SetGadgetState(10, #PB_Web_Back)
|
|
Case 2
|
|
SetGadgetState(10, #PB_Web_Forward)
|
|
Case 3
|
|
SetGadgetState(10, #PB_Web_Stop)
|
|
Case 5
|
|
SetGadgetText(10, GetGadgetText(4))
|
|
EndSelect
|
|
Case #PB_Event_Menu ; We only have one shortcut
|
|
SetGadgetText(10, GetGadgetText(4))
|
|
EndSelect
|
|
|
|
Until Event = #PB_Event_CloseWindow
|
|
|
|
EndIf
|
|
|
|
; IDE Options = PureBasic 5.73 LTS (Windows - x64)
|
|
; CursorPosition = 7
|
|
; Folding = -
|
|
; EnableXP
|
|
; Executable = ..\tools\minibrowser.exe
|
|
; CompileSourceDirectory |