Hi,
include "FiveWin.ch"
//----------------------------------------------------------------------------//
function Main()
local oDlg, lExit := .f., oBtn
local oFont
local lValue := .f.
local lValue1 := .t.
local lValue2 := .t.
DEFINE FONT oFont NAME "Arial" SIZE 0, -11 BOLD
DEFINE DIALOG oDlg FROM 5, 5 TO 15, 40 TITLE "A Dialog Box"
@ 3, 0.720 CHECKBOX lValue PROMPT "Test 1" of oDlg ;
ON CHANGE { || chkbox19("1") } size 150, 11 UPDATE
@ 3.8, 0.720 CHECKBOX lValue1 PROMPT "Test 2" of oDlg ;
ON CHANGE { || chkbox19("2") } size 130, 8 Font oFont UPDATE
@ 3, 12 BUTTON oBtn PROMPT "&Cancel" OF oDlg SIZE 40, 12 ;
ACTION ( MsgInfo( "Cancel" ), lExit := .t., oDlg:End() )
ACTIVATE DIALOG oDlg VALID lExit
return nil
//----------------------------------------------------------------------------//
function chkbox19()
parameter ckhnum
local abc := "Y"
local pqr := "Y"
local ckhnum
if ckhnum = "1"
if abc = "Y"
abc = "N"
else
abc = "Y"
endif
endif
if ckhnum = "2"
if pqr = "Y"
pqr = "N"
else
pqr = "Y"
endif
endif
return nil
******
When I click on the checkbox, the words disappear. How to make them not disappear.
Thanks
ACWOO
using FWH10.6+Harbour2.1+bcc582
