
pasar mis fuentes a modo grafico
Publicado por jose (12 intervenciones) el 12/05/2013 01:32:06
Muy Buenas Tardes
Actualmente tengo todos los fuentes funcionando en xharbor, se pudo salvar gran parte de diseño que esta en clipper ver 5.2 la intencion es pasar todo a entorno grafico pero deseo no perder parte de mi diseño tengo el fuente de los menus en modo texto deseo pasarlo a un ambiente grafico esta es la manera que trabajo mis menus,
ejemplo
*>>>>CICLO PRINCIPAL DEL PROGRAMA
DO WHILE nNroOpc # 0
*xxxxxxEJECUCION DEL MENU PRINCIPAL
nFilSup := 02
xColSup := aColOpc(aMenus)
xColSup[nLenArr] := xColSup[nLenArr]-nAncHor //[3] -2
*ÀCalcula las columnas de las opciones del menu
Centrar("USUARIO: "+RTRIM(sNomtUsu),01,20,60,3)
nNroOpc := nMenu(aMenus,aAyuda,nFilSup,xColSup,nNroOpc,,,1,0)
*xxxxxxFIN EJECUCION DEL MENU PRINCIPAL
*xxxxxxANALISIS DE LA OPCION ESGODIDA DEL PRIMER NIVEL
nIncOpc:=1
*Àcontador de Opciones
nConOpc:=1
*ÀEs el apuntador del Vector para iniciar en el sistema e incrementa
*À la secuencia del vector o apuntador
nOpcPal:=0
*ÀVariable donde queda guardada la opcion final
DO WHILE nIncOpc <= nNroOpc .AND. nConOpc < nLenArr+1
IF SUBS(sMentP04,nConOpc,1)=="S"
nOpcPal:=nConOpc
nIncOpc++
nConOpc++
ELSE
nConOpc++
ENDIF
ENDDO
*xxxxxxFIN DEL ANALISIS DE LA OPCION ESGODIDA DEL PRIMER NIVEL
muestra un menu horizontal y asi mismo se puede configurar verticalmente pero todo en modo texto como comente anteriormente, si me pueden colaborar como es el codigo para generar menus en forma grafica o un pequeña aplicacion para tener una idae y seguir en el proceso de mejorar mi proramacion se le agradecere.
mi correo es [email protected]
att ing jose ferreira
Actualmente tengo todos los fuentes funcionando en xharbor, se pudo salvar gran parte de diseño que esta en clipper ver 5.2 la intencion es pasar todo a entorno grafico pero deseo no perder parte de mi diseño tengo el fuente de los menus en modo texto deseo pasarlo a un ambiente grafico esta es la manera que trabajo mis menus,
ejemplo
*>>>>CICLO PRINCIPAL DEL PROGRAMA
DO WHILE nNroOpc # 0
*xxxxxxEJECUCION DEL MENU PRINCIPAL
nFilSup := 02
xColSup := aColOpc(aMenus)
xColSup[nLenArr] := xColSup[nLenArr]-nAncHor //[3] -2
*ÀCalcula las columnas de las opciones del menu
Centrar("USUARIO: "+RTRIM(sNomtUsu),01,20,60,3)
nNroOpc := nMenu(aMenus,aAyuda,nFilSup,xColSup,nNroOpc,,,1,0)
*xxxxxxFIN EJECUCION DEL MENU PRINCIPAL
*xxxxxxANALISIS DE LA OPCION ESGODIDA DEL PRIMER NIVEL
nIncOpc:=1
*Àcontador de Opciones
nConOpc:=1
*ÀEs el apuntador del Vector para iniciar en el sistema e incrementa
*À la secuencia del vector o apuntador
nOpcPal:=0
*ÀVariable donde queda guardada la opcion final
DO WHILE nIncOpc <= nNroOpc .AND. nConOpc < nLenArr+1
IF SUBS(sMentP04,nConOpc,1)=="S"
nOpcPal:=nConOpc
nIncOpc++
nConOpc++
ELSE
nConOpc++
ENDIF
ENDDO
*xxxxxxFIN DEL ANALISIS DE LA OPCION ESGODIDA DEL PRIMER NIVEL
muestra un menu horizontal y asi mismo se puede configurar verticalmente pero todo en modo texto como comente anteriormente, si me pueden colaborar como es el codigo para generar menus en forma grafica o un pequeña aplicacion para tener una idae y seguir en el proceso de mejorar mi proramacion se le agradecere.
mi correo es [email protected]
att ing jose ferreira
Valora esta pregunta


0