NTK and The NTK Project
are properties of Jn Dechereux
Home | Documentation | FAQ.
Vanilla 1.1.8 is a product of Lussumo. More Information: Documentation, Community Support.
. . . @ 50,354 GET vVar1 ID GET_V1 . . . // #1 @ 80,354 GET vVar2 ID GET_V2 . . . // #2 @ 100,354 GET vDiam1 ID GET_D1 ; // #3 SIZE 22,50 ; STYLE GS_3DSUNKEN ; VALID NotBlank(vDiam1) ; PICTURE "99999" ; MESSAGE "Enter a value for vDIAM1" // <==Don't forget this if U want MSG AT to show something! ... etc. hStatBar := CreateStatusWindow( WS_CHILD+WS_VISIBLE, "Your status bar message.", hWnd, WM_USER+100 ) // Work well ACTIVATE WINDOW hWnd NORMAL // -- .T. Allows or not Up/Dn/Enter Key to exit after last get // -- .F. means not allowed. So, we will loop to first get... lOldReadState := NTK_ReadExit( .T. ) nGetFirst := 1 do while NTK_IsWindow(hWnd) READ INTO hWnd ; START FROM nGetFirst ; BUTTON LIST aBtnList ; MSG FONT hObjfont2 ; MSG AT 430,1,630 ; // Pas compris / Place the help message X,Y,Width MSG COLOR NTK_RGB(000,000,000) // Pas compris / Help Text foreground will be black do case //case NTK_LastKey()==K_F10 // will not displayed CASE NTK_LastKey()==NTK_GET_GVK // Global Validation Key inihibits and superseds K_F10 or K_* AffCalc() case NTK_LastKey()==K_ESC .OR. NTK_LastKey()==K_ALT_F4 if DoExit() exit end case NTK_LastKey()==K_RETURN // will not displayed SetStatusBarMsg(hStatBar,"RETURN!") // Just for test end // example: Check-out vDiam1 after exiting READ if vDiam1 <= 10 NTK_MessageBox(hWnd, "Enter a value greater than 10", "vDiam1:", MB_OK ) nGetFirst := 3 // re-enter READ with focus on 3rd GET. endif enddo NTK_ReadExit( lOldReadState ) . . .
1 to 3 of 3