#include "FiveWin.ch"
function Main()
local oDlg
SkinButtons()
DEFINE DIALOG oDlg
@ 2, 2 BUTTON "OK"
ACTIVATE DIALOG oDlg CENTERED
CheckRes()
return nil
#include "FiveWin.ch"
function Main()
local n
SkinButtons()
for n = 1 to 10
Test()
next
CheckRes()
return nil
function Test()
local oDlg
DEFINE DIALOG oDlg
@ 2, 2 BUTTON "OK"
ACTIVATE DIALOG oDlg CENTERED
return nil
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg, oBtn
SKINBUTTONS()
DEFINE DIALOG oDlg
@ 2, 2 BUTTON "&Test";
ACTION ( oBtn:Disable(), TEST(), oBtn:Enable() )
@ 3, 2 BUTTON oBtn PROMPT "&Close";
ACTION oDlg:End()
ACTIVATE DIALOG oDlg;
CENTER
RETURN NIL
STATIC FUNCTION TEST()
LOCAL oDlg
DEFINE DIALOG oDlg
@ 1, 2 BUTTON "&Close";
ACTION oDlg:End()
ACTIVATE DIALOG oDlg;
CENTER
RETURN NIL
fivetech's download does not work from w7 !
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 30 guests