Re: [Hwgui-developers] How to press VK_RETURN to next control ?

[<ss...@ma...>]

> 
> My problem is RETURN can't jump from 'HEDIT' to 'HBUTTON',
> 
> I found solution:
> modify HDIALOG.PRG
>          \FUNCTION onDlgCommand( oDlg, wParam, lParam )
> //----- old-code------------
>          IF i != 0 .AND. oDlg:GetList[i]:handle == hCtrl
>             IF __ObjHasMsg( oDlg:GetList[i], "BVALID" )
>                IF oDlg:lExitOnEnter .AND. ;
>                      Eval( oDlg:GetList[i]:bValid, oDlg:GetList[i] )
>                   oDlg:GetList[i]:bLostFocus := Nil
>                   oDlg:lResult := .T.
>                   hwg_EndDialog( oDlg:handle )
>                ENDIF
>                RETURN 1
>             ENDIF
>          ENDIF
> //--------------------------
> 
> fix to:
> //----- new-code------------
>          IF i != 0 .AND. oDlg:GetList[i]:handle == hCtrl
>             IF __ObjHasMsg( oDlg:GetList[i], "BVALID" )
>                IF oDlg:lExitOnEnter .AND. ;
>                      Eval( oDlg:GetList[i]:bValid, oDlg:GetList[i] )
>                   oDlg:GetList[i]:bLostFocus := Nil
>                   oDlg:lResult := .T.
>                   hwg_EndDialog( oDlg:handle )
>                ELSE
>                   IF oDlg:lClipper
>                      IF !hwg_GetSkip( oDlg, hCtrl, 1 ) // Last Get
>                         nextHandle := hwg_Getnextdlgtabitem ( hwg_Getactivewindow() , hwg_Getfocus() , .F. )
>                         hwg_Postmessage( oDlg:handle, WM_NEXTDLGCTL, nextHandle , 1 )
>                      ENDIF
>                      RETURN 0

Sorry!! is 'RETURN 1'


>                   ENDIF
>                ENDIF
>                RETURN 1
>             ENDIF
>          ENDIF
> //--------------------------
> 
> 
> 
> > 
> > Yes, I had add it to my prg, but no use.
> > 
> > INIT DIALOG oDlg FROM RESOURCE "PRD_APP" FONT oFnt[3] CLIPPER NOEXIT NOEXITESC
> > 
> > 
> > > Hi,
> > > add CLIPPER to the DIALOG command as in hwgui\samples\testget2.prg.
> > > Best regards.
> > > --
> > > Maurizio
> > >