I think that change the nStyle for logical Data will solve all this troubles...
Code: Select all
Ex.: Redefine ButtonBMP oBtn;
ID 100
Prompt "Can be focused";
Update;
Action CanFocus(oBtn)
Procedure CanFocus(oObj)
oObj:[red]WS_TABSTOP[/red] := !oObj:WS_TABSTOP
if oObj:WS_TABSTOP
oObj:settext( "Can't be focused" )
else
oObj:settext( "Can be focused" )
end
oObj:Refresh()
Return