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.
FUNCTION DoExit(hWnd, message, nwParam, nlParam) // This proc. is automatically called each time our window receives a Destroy Msg or // when NTK_SendCloseEvent() is invoked... LOCAL Nbutoon // Message, color LOCAL tMess := { { "QUITTER CETTE BELLE APPLICATION ???", NTK_RGB(255,255,255) }, ; { "Vois tu une lampe...", NTK_RGB(255,255,000) }, ; { "...ou bien un citron", NTK_RGB(255,155,000) }, ; { "...ou bien une patate", NTK_RGB(255,55,000) } } // Text, Key, color, width, Normal Skin, Down Skin, Over Skin, Help LOCAL tBtn := { { "YO NO SOY", K_ENTER, NTK_RGB(255,000,000), 0, 1, 2, 3, "Quit this program..." }, ; { "LIGHT", K_F1, NTK_RGB(000,255,255), 0, 1, 2, 3, "Faut que l'on en parle." }, ; { "LEMON", K_F2, NTK_RGB(255,255,255), 0, 1, 2, 3, "Je reste pour voir..." }, ; { "POTATOES", K_F3, NTK_RGB(255,255,255), 0, 1, 2, 3, "Je reste pour voir..." }, ; { "LUCAS'S HEAD", K_F4, NTK_RGB(255,255,255), 0, 1, 2, 3, "Je reste pour voir..." }, ; { "JE SUIS AVEUGLE", K_ESC, NTK_RGB(255,255,255), 0, 1, 2, 3, "Encore un autre bouton" } } // Sample using a background image. // handle, Table message, Font message, Image, Color transparency, Table button, Font button, Skin window or Image Disc Nbutoon := NTK_MsgBoxEX(hWnd, tMess, hObjFONT2, hWarn, NTK_RGB(255,000,255), tBtn, hObjFONT1, ".\Images\BlackDesert.jpg") IF Nbutoon == 1 RETURN( NTK_SendQuitEvent() ) ELSE NTK_MsgBox(,tBtn[Nbutoon,1]) ENDIF RETURN(.F.) // Do not quit, keep on current task
1 to 3 of 3