// Using controls
#include "FiveWeb.ch"
function Main()
local oDlg
DEFINE DIALOG oDlg TITLE "Hello FiveWeb" SIZE 600, 400
@ 100, 50 BUTTON "One" SIZE 80, 20 OF oDlg
@ 100, 150 BUTTON "Two" SIZE 80, 20 OF oDlg
@ 100, 250 BUTTON "Three" SIZE 80, 20 OF oDlg
ACTIVATE DIALOG oDlg
return nil
// 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, oFld
DEFINE DIALOG oDlg TITLE "Using folders"
@ 10, 10 FOLDER oFld PROMPTS "One", "Two", "Three" OF oDlg SIZE 400, 300
ACTIVATE DIALOG oDlg
return nil
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 23 guests