IS IT POSSIBLE TO MAKE THIS CONTROL

[Otto]

Tim,
You don't need to be offended now.
It's not my solution. It's state of the art.
You're being derogatory towards me again.

WebView2 is a powerful development by Microsoft and Mod Harbour is Fivetech's solution for easily getting started with web programming.

You could just say, I saw that wrong.

But don't be offended. This is just a normal professional discussion and simply has an answer, that for WEBVIEW2 and also Mod Harbour, the internet is not a prerequisite.

Best regards,
Otto

[Antonio Linares]

Included in next FWH build:

Code: Select all  Expand view  RUN

 REDEFINE SWITCH [<oSwitch> VAR ] <lVariable> [ ID <nId> ] [ OF <oDlg> ] [ <change: ON CLICK, ON CHANGE> <uChange> ] ;
             [ COLOR <nClrFore>, <nClrBack> ] [ WHEN <uWhen> ] [ VALID <uValid> ] [<update: UPDATE>] ;
             [ HELPID <nHelpId> ] [ MESSAGE <cMsg> ] ;
             [ <lRad: RADIOSTYLE> ] [ <lOval: OVALSTYLE> ]

switch.prg

Code: Select all  Expand view  RUN

 #include "FiveWin.ch"

function Main()

    local oDlg, lValue := .T.

    DEFINE DIALOG oDlg RESOURCE "test"

    REDEFINE SWITCH lValue ID 10 OF oDlg OVALSTYLE

    REDEFINE BUTTON ID 1 OF oDlg ACTION oDlg:End()

    ACTIVATE DIALOG oDlg CENTERED

return nil 

switch.rc

Code: Select all  Expand view  RUN

#include <windows.h>

TEST DIALOGEX 0, 0, 200, 100
STYLE DS_MODALFRAME | WS_CAPTION | WS_SYSMENU
CAPTION "Switch demo"
FONT 8, "MS Shell Dlg"
BEGIN
    CONTROL "", 10, "TSwitch", WS_CHILD | WS_VISIBLE, 50, 30, 100, 30
    PUSHBUTTON "OK", 1, 70, 70, 60, 20
END