Gracias Luis,
luisvasquezcl wrote:Es posible que se incluya en el fuente de inputwindow la función SetMethodCode?
Puedo preguntarte por qué razón ? Qué beneficio encuentras en eso ? Cual es tu idea ?
Porque recordando bien, esta función:
Code: Select all
Static Function SetMethodCode( cForm, cControl, cMethod, bCode )
Local nIndex:=GetControlIndex( cControl, cForm )
Local cControlType:=GetControlTypeByIndex (nIndex)
Do Case
Case nIndex=0
Case cControlType = "COMBO"
Do Case
Case cMethod='DISPLAYCHANGE'
_HMG_SYSDATA [ 6 ][nIndex] := bCode
Case cMethod='LISTDISPLAY'
// _HMG_aControlInputMask [nIndex] := bCode
Case cMethod='LOSTFOCUS'
_HMG_SYSDATA [ 10 ][nIndex] := bCode
Case cMethod='GOTFOCUS'
_HMG_SYSDATA [ 11 ][nIndex] := bCode
Case cMethod='CHANGE'
_HMG_SYSDATA [ 12 ][nIndex] := bCode
Case cMethod='ENTER'
_HMG_SYSDATA [ 16 ][nIndex] := bCode
Case cMethod='LISTCLOSE'
// _HMG_aControlPicture[nIndex] := bCode
EndCase
Case cControlType = "TEXT" .or. cControlType = "NUMTEXT" .or. cControlType = "MASKEDTEXT"
Do Case
Case cMethod='LOSTFOCUS'
_HMG_SYSDATA [ 10 ][nIndex] := bCode
SetProperty(cForm, cControl, cMethod, bCode)
Case cMethod='GOTFOCUS'
_HMG_SYSDATA [ 11 ][nIndex] := bCode
Case cMethod='CHANGE'
_HMG_SYSDATA [ 12 ][nIndex] := bCode
Case cMethod='ENTER'
_HMG_SYSDATA [ 16 ][nIndex] := bCode
Endcase
Case cControlType = "EDIT"
Do Case
Case cMethod='LOSTFOCUS'
_HMG_SYSDATA [ 10 ][nIndex] := bCode
Case cMethod='GOTFOCUS'
_HMG_SYSDATA [ 11 ][nIndex] := bCode
Case cMethod='CHANGE'
_HMG_SYSDATA [ 12 ][nIndex] := bCode
EndCase
Case cControlType = "DATEPICK"
Do Case
Case cMethod='LOSTFOCUS'
_HMG_SYSDATA [ 10 ][nIndex] := bCode
Case cMethod='GOTFOCUS'
_HMG_SYSDATA [ 11 ][nIndex] := bCode
Case cMethod='CHANGE'
_HMG_SYSDATA [ 12 ][nIndex] := bCode
Case cMethod='ENTER'
_HMG_SYSDATA [ 6 ][nIndex] := bCode
EndCase
Case cControlType = "CHECKBOX"
Do Case
Case cMethod='LOSTFOCUS'
_HMG_SYSDATA [ 10 ][nIndex] := bCode
Case cMethod='GOTFOCUS'
_HMG_SYSDATA [ 11 ][nIndex] := bCode
Case cMethod='CHANGE'
_HMG_SYSDATA [ 12 ][nIndex] := bCode
Case cMethod='ENTER'
_HMG_SYSDATA [ 6 ][nIndex] := bCode
EndCase
Case cControlType = "GRID"
Do Case
Case cMethod='LOSTFOCUS'
_HMG_SYSDATA [ 10 ][nIndex] := bCode
Case cMethod='GOTFOCUS'
_HMG_SYSDATA [ 11 ][nIndex] := bCode
Case cMethod='CHANGE'
_HMG_SYSDATA [ 12 ][nIndex] := bCode
Case cMethod='ENTER'
_HMG_SYSDATA [ 16 ][nIndex] := .T.
EndCase
EndCase
DO Events
Return Nil
Fué mostrada en un DEMO pero se puede incorparar por el própio usuário a através de una UDF y definirla en bCode (decimo primer parámetro). Digo esto, porque no todos utilizan su própio UDF en InputWindow.
Explicame mejor, precisamos de argumentos evaluar si seria conveniente.
Me alegra saber que usas el InputWindow, de forma avanzada.
Felicitaciones.
Movi tu tópico porque estaba en otro tópico que no habla del InputWindow.
Un abrazo,