MENU

[CASAOPTICA CIERRES]

Buenas noches. Tengo un cliente que me solicita hacer este tipo de menu en hmg harbour pero he tratado y no he podido segun la experiencia de ustedes esto es posible y como se podria hacer o en qt o minigui necesito una guia a ver lo puedo sacar adelante gracias 

Rodrigo Alfaro

[fdaniele]

use the menu of superlib

[RAY MONTES]

#include "inkey.ch" PROCEDURE Main() LOCAL nOpcion := 1 LOCAL cUsuario := "R" LOCAL cLicencia := "" LOCAL nNit := 0 SET COLOR TO W+/B,N/W,,,W+/B CLEAR SCREEN // Encabezado superior @ 0, 0 SAY PADC("NOMBRE PROGRAMA", 80) COLOR "W+/B" @ 0, 0 SAY "27/05/2026" COLOR "W+/B" @ 0, 70 SAY "23:48" COLOR "W+/B" // Barra de menú horizontal @ 2, 0 TO 2, 79 COLOR "W+/B" @ 3, 0 SAY SPACE(80) COLOR "N/W" @ 3, 2 PROMPT " Menu1 " MESSAGE "" @ 3, 14 PROMPT " Menu2 " MESSAGE "" @ 3, 26 PROMPT " Menu3 " MESSAGE "" @ 3, 38 PROMPT " Menu4 " MESSAGE "" @ 3, 50 PROMPT " Menu5 " MESSAGE "" @ 3, 62 PROMPT " Menu6 " MESSAGE "" @ 3, 74 PROMPT " Salir " MESSAGE "" // Área central con logo @ 10, 20 SAY "S I S O S I S O" COLOR "Y+/B" @ 12, 28 SAY "Software especializado" COLOR "W/B" // Barra inferior @ 23, 0 TO 23, 79 COLOR "W+/B" @ 24, 0 SAY "Usuario: " + cUsuario COLOR "W/B" @ 24, 30 SAY "Licenciado a: " + cLicencia COLOR "W/B" @ 24, 60 SAY "Nit: " + STR(nNit) COLOR "W/B" MENU TO nOpcion DO CASE CASE nOpcion == 1 Menu1() CASE nOpcion == 2 Menu2() CASE nOpcion == 3 Menu3() CASE nOpcion == 4 Menu4() CASE nOpcion == 5 Menu5() CASE nOpcion == 6 Menu6() CASE nOpcion == 7 QUIT ENDCASE RETURN PROCEDURE Menu1() ALERT("Ejecutando Menu1") RETURN PROCEDURE Menu2() ALERT("Ejecutando Menu2") RETURN PROCEDURE Menu3() ALERT("Ejecutando Menu3") RETURN PROCEDURE Menu4() ALERT("Ejecutando Menu4") RETURN PROCEDURE Menu5() ALERT("Ejecutando Menu5") RETURN PROCEDURE Menu6() ALERT("Ejecutando Menu6") RETURN

--
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
Unsubscribe: harbour-user...@googlegroups.com
Web: https://groups.google.com/group/harbour-users
---
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-user...@googlegroups.com.
To view this discussion visit https://groups.google.com/d/msgid/harbour-users/CAFZK5h1Q_FT0wx81J3r7jhO3473pgK_cStA5FMj5NpniL9OmJw%40mail.gmail.com.