WINDOWS/w10install
0
Fork 0
Code Issues 2 Releases 5 Activity

bugfix

Browse Source
This commit is contained in:
Michael H.G. Schmidt 2023-02-14 10:43:51 +01:00
parent 963642159e
commit bf483549cb
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
source/minibrowser.pb
View File

@ -96,7 +96,7 @@ If OpenWindow(0, 100, 200, 800, 600, "MiniBrowser", #PB_Window_MinimizeGadget |
WebGadget(10, 1, 37, 1278, 732,"") WebGadget(10, 1, 37, 1278, 732,"")
AddKeyboardShortcut(0, #PB_Shortcut_Return, 0) AddKeyboardShortcut(0, #PB_Shortcut_Return, 0)
; Use bindevent() to have a realtime window resize ; Use bindevent() to have a realtime window resize
BindEvent(#PB_Event_SizeWindow, @ResizeWebWindow()) BindEvent(#PB_Event_SizeWindow, @ResizeWebWindow())
ResizeWebWindow() ; Adjust the gadget to the current window size ResizeWebWindow() ; Adjust the gadget to the current window size
@ -110,7 +110,7 @@ If OpenWindow(0, 100, 200, 800, 600, "MiniBrowser", #PB_Window_MinimizeGadget |
Repeat Repeat
Event = WaitWindowEvent() Event = WaitWindowEvent()
Select Event Select Event
Case #PB_Event_Gadget Case #PB_Event_Gadget
Select EventGadget() Select EventGadget()
@ -123,17 +123,19 @@ If OpenWindow(0, 100, 200, 800, 600, "MiniBrowser", #PB_Window_MinimizeGadget |
Case 5 Case 5
SetGadgetText(10, GetGadgetText(4)) SetGadgetText(10, GetGadgetText(4))
EndSelect EndSelect
Case #PB_Event_Menu ; We only have one shortcut Case #PB_Event_Menu ; We only have one shortcut
SetGadgetText(10, GetGadgetText(4)) SetGadgetText(10, GetGadgetText(4))
EndSelect EndSelect
Until Event = #PB_Event_CloseWindow Until Event = #PB_Event_CloseWindow
EndIf EndIf
; IDE Options = PureBasic 5.73 LTS (Windows - x64) ; IDE Options = PureBasic 5.73 LTS (Windows - x64)
; CursorPosition = 105 ; CursorPosition = 98
; FirstLine = 79 ; FirstLine = 77
; Folding = - ; Folding = -
; EnableXP ; EnableXP
; UseIcon = internet_free_icon.ico ; UseIcon = internet_free_icon.ico

BIN
tools/minibrowser.exe
View File

Binary file not shown.