Saludos
Si me funciona de esta manera ,
Hay un DO donde lo ejecuta en forma infinita, la unica manera que lo controla es el
nKey := Inkey(0)
::cOption := Chr( nKey )
pero si coloco el Key := Inkey(0)
cuando lo ejecuto solamente se hace ejecto cuando muevo el puntero de maus.
si lo quito Key := Inkey(0) funciona, el problema es que ejecuta el siglo de DO.
nCol := cpos+1 //nCol := 1
FOR nCont = 1 TO Len( ::acButtons )
//msginfo(::acButtons[ nCont ])
oThisButton := wvgPushButton():New()
oThisButton:PointerFocus := .f.
oThisButton:Caption := ::IconFromCapt( ::acButtons[ nCont ], @cComExec, @cToolTip) //oThisButton:Caption := IconFromCaption( ::acButtons[ nCont ], @cToolTip )
//oThisButton:Create( , , { -1, iif( nCol == 0, -0.1, -nCol ) }, { -3, -5 } ) // { -1, iif( nCol == 0, -0.1, -nCol ) }, { -3, -5 } )
oThisButton:Create( , , { -(pos-0.8), iif( nCol == 0, -0.1, -nCol ) }, { -2, -4 } )
oThisButton:ToolTipText := cToolTip
cComExec := { || iif(::aContl[1]=0,::reg_nav0001("S0")," ") }
oThisButton:Activate := cComExec
Aadd( ::aGuiButtons, oThisButton )
nCol += 5
NEXT
::GuiShow()
RETURN NIL
METHOD GUISelect()
LOCAL nKey
nKey := Inkey(0)
::cOption := Chr( nKey )
.......
RETURN NIL