Code: Select all
Enumeration
#EditArea : #PreviewPane
EndEnumeration
Define.s regkeyName, dwLabel, statusMsg, keyResult.i
Define.l dwValue, dwValueCheck, bufferSize
regkeyName = "Software\Microsoft\Internet Explorer\Main\FeatureControl\Feature_Browser_Emulation\"
dwLabel = GetFilePart(ProgramFilename())
dwValue = 11001
bufferSize = SizeOf(Long)
RegOpenKeyEx_(#HKEY_CURRENT_USER, regkeyName, 0, #KEY_ALL_ACCESS, @keyResult)
RegSetValueEx_(keyResult, @dwLabel, 0, #REG_DWORD, @dwValue, SizeOf(Long))
source$ = "<font color = red>Hello World!</font>"
title$ = "HTML/JS Sandbox"
Window_1 = OpenWindow(#PB_Any, 70, 70, 800, 520, "", #PB_Window_SystemMenu)
AddWindowTimer(Window_1, 1, 500)
Procedure FillList()
Shared source$, title$, Window_1 : source$ = GetGadgetText(#EditArea)
SetWindowTitle(window_1, title$ + " - " + Len(source$) + "ch")
EndProcedure
EditorGadget(#EditArea, 0, 0,WindowWidth(Window_1)/2,WindowHeight(Window_1) + 1)
WebGadget(#PreviewPane, WindowWidth(Window_1)/2, 1,WindowWidth(Window_1)/2,WindowHeight(Window_1),"")
LoadFont(1, "Courier New", 9) : SetGadgetFont(#EditArea, FontID(1))
SetGadgetText(#EditArea, source$ ) : SetActiveGadget(#EditArea)
BindGadgetEvent(#EditArea,@FillList())
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow : End
Case #PB_Event_Timer : If source$ <> GetGadgetItemText(#PreviewPane, #PB_Web_HtmlCode) : SetGadgetItemText(#PreviewPane,#PB_Web_HtmlCode,source$) : EndIf
EndSelect
Forever