Quitar iconos de vfp
Señores expertos, cuando corro la aplicación, aparece unos iconos de vfp
:La hojita en blanco, la lupa de buscar etc., debajo de mi menu.
Me gustaría que estos no aparezcan.
Les agradezco mucho si me pueden colaborar
:La hojita en blanco, la lupa de buscar etc., debajo de mi menu.
Me gustaría que estos no aparezcan.
Les agradezco mucho si me pueden colaborar
1 respuesta
Respuesta de jcasaln
1
Esto puede servir, tiene que adicionar el siguiente código en el programa principal (el INICIAL), antes de llamar a cualquier MENU o FORMULARIO:
dimension r_asystemtoolbars [22, 1]
r_asystemtoolbars [1, 1] = "Print Preview"
r_asystemtoolbars [2, 1] = "Report Designer"
r_asystemtoolbars [3, 1] = "Form Controls"
r_asystemtoolbars [4, 1] = "Standard"
r_asystemtoolbars [5, 1] = "Form Designer"
r_asystemtoolbars [6, 1] = "Layout"
r_asystemtoolbars [7, 1] = "Database Designer"
r_asystemtoolbars [8, 1] = "View Designer"
r_asystemtoolbars [9, 1] = "Report Controls"
r_asystemtoolbars [10, 1]= "Color Palette"
r_asystemtoolbars [11, 1]= "Query Designer"
r_asystemtoolbars [12, 1]= "Controles de formularios"
r_asystemtoolbars [13, 1]= "Controles de informes"
r_asystemtoolbars [14, 1]= "Diseñador de bases de datos"
r_asystemtoolbars [15, 1]= "Diseñador de consultas"
r_asystemtoolbars [16, 1]= "Diseñador de formularios"
r_asystemtoolbars [17, 1]= "Diseñador de informes"
r_asystemtoolbars [18, 1]= "Diseñador de vistas"
r_asystemtoolbars [19, 1]= "Distribución"
r_asystemtoolbars [20, 1] ="Estándar"
r_asystemtoolbars [21, 1]= "Paleta de colores"
r_asystemtoolbars [22, 1]= "Vista preliminar"
for l_n = 1 to 22
if wvisible (r_asystemtoolbars[l_n,1])
Hide window (r_asystemtoolbars[l_n, 1])
Endif
Endfor
dimension r_asystemtoolbars [22, 1]
r_asystemtoolbars [1, 1] = "Print Preview"
r_asystemtoolbars [2, 1] = "Report Designer"
r_asystemtoolbars [3, 1] = "Form Controls"
r_asystemtoolbars [4, 1] = "Standard"
r_asystemtoolbars [5, 1] = "Form Designer"
r_asystemtoolbars [6, 1] = "Layout"
r_asystemtoolbars [7, 1] = "Database Designer"
r_asystemtoolbars [8, 1] = "View Designer"
r_asystemtoolbars [9, 1] = "Report Controls"
r_asystemtoolbars [10, 1]= "Color Palette"
r_asystemtoolbars [11, 1]= "Query Designer"
r_asystemtoolbars [12, 1]= "Controles de formularios"
r_asystemtoolbars [13, 1]= "Controles de informes"
r_asystemtoolbars [14, 1]= "Diseñador de bases de datos"
r_asystemtoolbars [15, 1]= "Diseñador de consultas"
r_asystemtoolbars [16, 1]= "Diseñador de formularios"
r_asystemtoolbars [17, 1]= "Diseñador de informes"
r_asystemtoolbars [18, 1]= "Diseñador de vistas"
r_asystemtoolbars [19, 1]= "Distribución"
r_asystemtoolbars [20, 1] ="Estándar"
r_asystemtoolbars [21, 1]= "Paleta de colores"
r_asystemtoolbars [22, 1]= "Vista preliminar"
for l_n = 1 to 22
if wvisible (r_asystemtoolbars[l_n,1])
Hide window (r_asystemtoolbars[l_n, 1])
Endif
Endfor
