I think that change the nStyle for logical Data will solve all this troubles...
- Code: Select all Expand view RUN
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
The only trouble I see is a lot of classes to be changed (or not I don't know how it can be done)