Como insertar iconos en los menus de foxpro

Como lo puedo hacer para insertar iconos en los menus de visual foxpro 6.0
Agradeciendo desde ya
Mangar
[email protected]

1 Respuesta

Respuesta
1
Deseas usar barras de menú o que exactamente
Para las barras existe un VCX con esta función
Usa este código
Crea un form con un boton un menu que sea archivo con sus opciones nuevo, guardar, modificar, cerrar, buscar, buscar siguiente, eliminar, ayuda y cerrar
EN EL INIT DEL FORM PONLE
DO menú1.mpr WITH THIS,.T.
En el click o valid del boton en el form ponle
DECLARE INTEGER FindWindow IN win32api STRING, STRING
DECLARE INTEGER GetMenu IN win32api INTEGER
DECLARE INTEGER GetSubMenu IN win32api INTEGER, INTEGER
DECLARE INTEGER LoadImage IN win32api INTEGER, STRING, INTEGER, INTEGER, INTEGER, INTEGER
DECLARE INTEGER SetMenuItemBitmaps IN win32api INTEGER, INTEGER, INTEGER, INTEGER, INTEGER
DECLARE INTEGER GetMenuItemID IN win32api INTEGER, INTEGER
DECLARE INTEGER ModifyMenu IN win32api INTEGER, INTEGER, INTEGER, INTEGER, string
DECLARE INTEGER DrawMenuBar IN win32api INTEGER
LOCAL ctitle,;
HWND,;
mhandle,;
shandle,;
lcname1,;
lcname2,;
nretval1,;
nretval2,;
menuid1,;
menuid2,;
lcUbica
ctitle = "Dofo"
lcUbica = CURDIR()
HWnd = findwindow(0,m.ctitle)
mhandle = getmenu(m.HWND)
shandle = getsubmenu(m.mhandle,0)
lcnameX = ""
lcname1 = lcUbica+"Nuevo01.Bmp"
lcname2 = lcUbica+"Guard01.Bmp"
lcname3 = lcUbica+"Modif01.Bmp"
lcname5 = lcUbica+"Busca01.Bmp"
lcname9 = lcUbica+"Ayuda01.Bmp"
nretvalX = loadimage(0,m.lcnameX,0,13,13,32768+16+2)
nretval1 = loadimage(0,m.lcname1,0,13,13,32768+16+2)
nretval2 = loadimage(0,m.lcname2,0,13,13,32768+16+2)
nretval3 = loadimage(0,m.lcname3,0,13,13,32768+16+2)
nretval5 = loadimage(0,m.lcname5,0,13,13,32768+16+2)
nretval9 = loadimage(0,m.lcname9,0,13,13,32768+16+2)
*!* nretval1 = loadimage(0,m.lcname1,0,10,13,16)
*!* nretval2 = loadimage(0,m.lcname2,0,13,13,16)
*!* nretval3 = loadimage(0,m.lcname3,0,13,13,16)
menuid1 =getmenuitemid(m.shandle, 0)
menuid2 =getmenuitemid(m.shandle, 1)
menuid3 =getmenuitemid(m.shandle, 2)
menuid5 =getmenuitemid(m.shandle, 4)
menuid6 =getmenuitemid(m.shandle, 5)
menuid7 =getmenuitemid(m.shandle, 6)
menuid9 =getmenuitemid(m.shandle, 8)
menuid11=getmenuitemid(m.shandle,10)
Setmenuitembitmaps(m. Shandle, m.menuid1, 0, m.nretval1, m.nretval1)
Setmenuitembitmaps(m. Shandle, m.menuid2, 0, m.nretval2, m.nretval2)
Setmenuitembitmaps(m. Shandle, m.menuid3, 0, m.nretval3, m.nretval3)
Setmenuitembitmaps(m. Shandle, m.menuid5, 0, m.nretval5, m.nretval5)
Setmenuitembitmaps(m. Shandle, m.menuid6, 0, m.nretvalX, m.nretvalX)
Setmenuitembitmaps(m. Shandle, m.menuid7, 0, m.nretvalX, m.nretvalX)
Setmenuitembitmaps(m. Shandle, m.menuid9, 0, m.nretval9, m.nretval9)
Setmenuitembitmaps(m. Shandle, m.menuid11,0,m.nretvalX, m.nretvalX)
Modifymenu(m. Mhandle, m.menuid1, 0, m.menuid1,"&Nuevo F2")
Modifymenu(m. Mhandle, m.menuid2, 0, m.menuid2,"&Guardar F6")
Modifymenu(m. Mhandle, m.menuid3, 0, m.menuid3,"&Modificar F3")
Modifymenu(m. Mhandle, m.menuid5, 0, m.menuid5,"&Buscar F4")
Modifymenu(m. Mhandle, m.menuid6, 0, m.menuid6,"B&uscar siguiente... F5")
Modifymenu(m. Mhandle, m.menuid7, 0, m.menuid7,"&Eliminar DEL")
Modifymenu(m. Mhandle, m.menuid9, 0, m.menuid9,"&Ayuda F1")
Modifymenu(m. Mhandle, m.menuid11,0,m.menuid11,"&Cerrar ESC")
Clear DLLS

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Fondo de Visual FoxPro

Quisiera me ayudara a crear un fondo personalizado y permanente a mi aplicación creada en Visual Foxpro; como ejemplo el logotipo o nombre de mi compañía. Esto para darle un toque personalizado a mi aplicación.
1 respuesta

Grid transparente

Disculpa me gustaría saber como quitarle el color de fondo a un grid Ejemplo deseo agregar a mi formulario un grid, en el grid que aparezca en contenido de las tablas y en el fondo del grid en lugar de ver el color blanco de los cuadros de texto,...
1 respuesta

VFP - .bat

Como puedo ejecutar un .bat desde un formulario de fox dándole parámetros al .bat o sea el ejecutar ya me sale: run/N1 archivo.bat y listo. Pero para darle parámetros como una fecha.
1 respuesta

Cambiar resolución de pantalla en VFP

¿Alguien sabe como cambiar la resolución de pantalla en visual foxpro? Encontré un ejemplo en el cual me cambia la resolución de 1024x768 a 800x600, pero al intentar restaurar mi resolución inicial no lo hace. El ejemplo es el "00000008.zip", no se...
1 respuesta

Moverme en mis registros dentro de un formulario

Me podrías decir como puedo ir al anterior, siguiente, primero y último registro que despliego en un formulario y así mismo como puedo imprimir esta salida.
1 respuesta

Programa lector de huella digital

Y buen día nuevamente En esta oportunidad, tengo la siguiente inquietud: he desarrollado una aplicación que me registra el personal de una empresa con su respectiva clave de acceso; pero esto iba bien con un número reducido de empleados; a hora que...
1 respuesta

Capturar imagenes desde una webcam a VFP

Se que se ha formulado muchas veces, pero después de mucho google, solo encuentro referencias a un ocx de Kodak que no está disponible y una enorme lista de enlaces que vienen a parar a esta web, donde la respuesta se envía por correo al solicitante....
1 respuesta

Código de error OLE 0x80020006: Código de estado COM

He estado intentado crear un formulario para la captura de huellas digitales con los SDK's de DigitalPersona para un escáner U.are.U 4500, y al intentar llamar uno de los métodos de la DLL me manda el mensaje anterior. Este es mi código del...
1 respuesta

Bloqueo de Teclado

Una vez más he vuelto a molestarlo y espero que pueda ayudarme. Le recuerdo que programo en Visual Foxpro 6.0 y necesito hacer por medio de códigos que se bloquee el teclado de la maquina donde ejecuto el programa o al menos las teclas Control-Alt -...
1 respuesta

Utilizar Xcopy en Visual Foxpro

Para hacer los respaldo encontré información sobre el comando Xcopy del MS-Dos, es fácil de usar, sin embargo quería hacerlo un poco mas especifico, ya que lo ejecuto con el comando Run pero quiero que me permita seleccionar la ubicación donde la...
1 respuesta