// Using controls
#include "FiveWeb.ch"
function Main()
local oDlg, lValue := .T.
DEFINE DIALOG oDlg TITLE "Hello FiveWeb" SIZE 600, 400
@ 120, 70 BUTTON "One" SIZE 120, 50 OF oDlg
@ 120, 220 BUTTON "Two" SIZE 120, 50 OF oDlg
@ 120, 370 BUTTON "Three" SIZE 120, 50 OF oDlg
@ 200, 160 CHECKBOX lValue PROMPT "Tested" SIZE 150, 40 OF oDlg
ACTIVATE DIALOG oDlg
return nil
#include "FiveWeb.ch"
function Main()
local oDlg
local oRad
DEFINE DIALOG oDlg TITLE "Hello FiveWeb" SIZE 600, 400
@ 20,16 RADIO oRad ITEMS "uno","dos","tres" OF oDlg SIZE 50,50
ACTIVATE DIALOG oDlg
return nil
Return nil
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: wilsongamboa and 89 guests