Cambiar icono de screen principal de foxpro 2.6
Publicado por Esteban (1 intervención) el 28/08/2004 15:18:54
Amigos del foro realice una aplicacion en la cual modifico el menu principal de foxpro 2.6 y no me cambia el icono de fox por el que puse , si alquien me pudiera dar una mano le agradeceria de antemano. El codigo es el siguiente:
CLOSE ALL
CLEAR
SET SYSMENU TO
SET DEFA TO C:\SISHOSPI
DO SETEO IN MENU
MODIFY WINDOWS SCREEN TITLE " Seleccion de Usuarios " ICONFILE="C:\SISHOSPI\HOSPITAL.ICO" FONT "COURIER",7
ZOOM WIND SCREEN MAX
DEFINE WIND XX FROM 0,0 TO 18,70 TITLE "Clave de Acceso" FONT "COURIER",12 COLOR W+/B
MOVE WIND XX CENTER
ACTIVATE WIND XX
USE USUPAS NOUPDATE
CLEAR
PUBLIC VERDAD,XERROR
VERDAD="T"
XERROR=0
CENC=""
npos=1
clet=""
DO VALUSU
RELE WIND XX
CLEAR
MODIFY WINDOWS SCREEN
RELEASE POPUP ALL
RELE WIND MENU
SET SYSM TO DEFA
SET HELP ON
ON KEY
CLOSE ALL
QUIT
CLOSE ALL
CLEAR
SET SYSMENU TO
SET DEFA TO C:\SISHOSPI
DO SETEO IN MENU
MODIFY WINDOWS SCREEN TITLE " Seleccion de Usuarios " ICONFILE="C:\SISHOSPI\HOSPITAL.ICO" FONT "COURIER",7
ZOOM WIND SCREEN MAX
DEFINE WIND XX FROM 0,0 TO 18,70 TITLE "Clave de Acceso" FONT "COURIER",12 COLOR W+/B
MOVE WIND XX CENTER
ACTIVATE WIND XX
USE USUPAS NOUPDATE
CLEAR
PUBLIC VERDAD,XERROR
VERDAD="T"
XERROR=0
CENC=""
npos=1
clet=""
DO VALUSU
RELE WIND XX
CLEAR
MODIFY WINDOWS SCREEN
RELEASE POPUP ALL
RELE WIND MENU
SET SYSM TO DEFA
SET HELP ON
ON KEY
CLOSE ALL
QUIT
Valora esta pregunta
0