- Code: Select all Expand view
- METHOD CreateButton() CLASS TGet
local oThis := Self
if ValType( ::bAction ) == "B" .and. Upper( ::ClassName() ) == "TGET"
if Empty( ::cBmpName )
@ 0, ::nWidth - ::nHeight BUTTONBMP ::oBtn OF Self ;
ACTION ( Eval( oThis:bAction, oThis ) ) ; //, oThis:SetFocus() ) ;
I've modified ACTION line by remove oThis:SetFocus(). Because :
I need to set another function to be effect after first function. Because oThis:SetFocus() will ignore second function after first function such as
- Code: Select all Expand view
@ 1, 10 GET oGet[1] VAR cVar[1] ACTION (Func(), oGet[2]:SetFocus())
@ 2, 10 GET oGet[2] VAR cVar[2]
but when I remove oThis:SetFocus(). If oGet[1] has only one function, the BUTTON at oGet[1] will be focus. I don't need to focus at BUTTON.
- Code: Select all Expand view
@ 1, 10 GET oGet[1] VAR cVar[1] ACTION (Func())
@ 2, 10 GET oGet[2] VAR cVar[2]
How can I cancel TABSTOP at BUTTON in TGET:CreateButton() by without oThis:SetFocus().
PS. It work fine if I :SetFocus() after first function.
Regards,
Dutch
