[futurebasic] Re: [FB] _markedBtn in BevelButton P.S.

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : May 2008 : Group Archive : Group : All Groups

From: Yoshiyuki Hasegawa <hase44@...>
Date: Sun, 25 May 2008 04:16:09 +0900
Postscript.

_markedBtn has been improved by FBtoC 1.1.

But the change to Unmarked(_activeBtn) is not reflected.

Thanks,
Yoshiyuki

'----------------------
begin enum 1
_cBtn
_c1Btn
_c2Btn
_cBev
end enum

local fn DoDialog
dim as long ev, id
'~'<
ev = dialog(0)
id = dialog(ev)
select ev
case _btnClick
select id
case _c1Btn
appearance button _cBtn, _markedBtn
appearance button _cBev, _markedBtn
beep
case _c2Btn
appearance button _cBtn, _activeBtn
appearance button _cBev, _activeBtn
beep
end select
end select
end fn

dim as Rect r

window 1

SetRect(r, 124, 52, 194, 72)
appearance button _cBtn, _activeBtn,,,,"Button", @r,  
_kControlPushButtonProc

SetRect(r, 166+50, 52, 236+50, 80)
appearance button _cBev, _activeBtn, 0,,,"Bevel", @r,  
_kControlBevelButtonNormalBevelProc

SetRect(r, 124, 116, 194, 136)
appearance button _c1Btn, _activeBtn,,,,"Marked", @r,  
_kControlPushButtonProc

SetRect(r, 124-10, 116+40, 194+10, 136+40)
appearance button _c2Btn, _activeBtn,,,,"Unmarked", @r,  
_kControlPushButtonProc

on dialog fn DoDialog

do
HandleEvents
until gFBQuit