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.
PROC MAIN() hWnd := NtkWinSetup( nil, "Maintenance CLIENT", 0,0,640,480 ) NTK_CenterWindow( hWnd ) SET PIXEL OFF SET ROW RATIO TO 20 SET COL RATIO TO 8 WAIT "Lancer la purge des soldes? (O/N)" cKey := CHR(NTK_LastKey()-500) IF !(cKey $ "oO" .OR. NTK_LastKey()==K_ENTER) CLOSE WINDOW hWnd RETURN(Nil) ENDIF CLEAR ? "Traitement en cours..." NTK_HourGlass(.T.) USE CLIENT NEW DO WHILE !EOF() REPLACE CREDIT WITH 0, CREDSEUIL WITH 0, CREDDISP WITH 0, TOTALDU WITH 0 @ 3,5 SAY "RAZ soldes de l'enregistrement N°"+Str(RecNo(),6) SKIP ENDDO CLOSE DATA NTK_HourGlass(.F.) ? ? "Traitement terminé." ? "Presser sur une touche pour fermer..." NtkInkey(0) CLOSE WINDOW hWnd RETURN
FUNCTION DoAboutW(hwnd, cDispMsg) Local hWndAbout,pictAbout pictAbout := NTK_ReadPictureToBmp( "images/AboutOtto.jpg" ) CREATE WINDOW hWndAbout ; TITLE "About" ; AT 0,0 SIZE 600,400 ; INTO PARENT hWnd; // évite de créer des fenetres concurentes/séparées ON PAINT DoAboutwPaint(); ON EXIT NTK_SendQuitEvent() ACTIVATE WINDOW hWndAbout CENTER // Display Main window and its controls NtkInkey(3) NTK_DeleteObject(pictAbout) CLOSE WINDOW hWndAbout Return(Nil) function DoAboutwPaint(hWnd, nMsg, nwParam, nlParam, hDC) @ 010,010 SAY BITMAP pictAbout SIZE 220,280 INTO CONTEXT hDC // Image About @ 350,350 SAY "Test About.." INTO CONTEXT hDC return(0)
1 to 7 of 7