Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL V3L10 (Win32)
PowerCOBOL V3L10 (Win32) IDE Freeware compatible con Windows 7/8/10
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Crear un Menu Tommy2018% GnuCOBOL (OpenCOBOL) 3 25 de octubre de 2018 16:33
[Componente] Control ctList no esta la solapa font... Fito PowerCOBOL (ActiveX, v4 - v11) 2 29 de junio de 2018 02:15
[Componente] ctList de Dbi Tech - Problema con el Font... Fito PowerCOBOL (ActiveX, v4 - v11) 5 10 de mayo de 2017 22:23
[Componente] Menu de cascada Gatomalo PowerCOBOL (ActiveX, v4 - v11) 3 29 de enero de 2016 13:24
[Sintaxis] Modificar Propiedades de un FORM Recato53 PowerCOBOL (ActiveX, v4 - v11) 11 5 de junio de 2015 09:20
Respuesta
 
Herramientas

  #1
Antiguo 18 de octubre de 2021, 15:30
IDENTIFICATION DIVISION
Fabio
 Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de Fabio
DATA DIVISION
abril 2020
La Habana, Cuba
21 años
05.11.2021 02:45
PROCEDURE DIVISION
Posts: 10
Enviado: 4
Recibido: 3
Soluciones: 0
Reputación: 0
Fabio is an unknown quantity at this point
Predeterminado Modificar El Font en un Menu

Estimados Companeros de forum es possible modificar el tamaño del font de un menu he buscado como hacerlo y no se.
Gracias.
Fabio no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 18 de octubre de 2021, 16:07
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
enero 2015
Madrid
36 años
30.11.2021 16:56
PROCEDURE DIVISION
Posts: 1.895
Enviado: 613
Recibido: 801
Soluciones: 99
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

@Fabio, tienes que pasar por WinAPI.

Tienes que obtener el Handle del Menú: GetMenu function (winuser.h) - Win32 apps | Microsoft Docs

Luego recuperar las propiedades del menú: GetMenuInfo function (winuser.h) - Win32 apps | Microsoft Docs
Lo tienes que hacer en la siguiente estructura de datos: MENUINFO (winuser.h) - Win32 apps | Microsoft Docs

Luego cambias el valor de cbSize y vuelves a setear el menú: SetMenuInfo function (winuser.h) - Win32 apps | Microsoft Docs



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 19 de octubre de 2021, 18:45
IDENTIFICATION DIVISION
Fabio
 Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de Fabio
DATA DIVISION
abril 2020
La Habana, Cuba
21 años
05.11.2021 02:45
PROCEDURE DIVISION
Posts: 10
Enviado: 4
Recibido: 3
Soluciones: 0
Reputación: 0
Fabio is an unknown quantity at this point
Predeterminado

Muchas Gracias Kuk pero tengo un problema y es que no se utilizar las api donde me pierdo es en definer los parametros de entrada de la function.
Fabio no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 21 de octubre de 2021, 12:05
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
enero 2015
Madrid
36 años
30.11.2021 16:56
PROCEDURE DIVISION
Posts: 1.895
Enviado: 613
Recibido: 801
Soluciones: 99
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

@Fabio,

Código COBOL:
  1.  ENVIRONMENT DIVISION.
  2.  DATA        DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  
  5.  01  HWND-SHEET            PIC S9(9) COMP-5.
  6.  01  HWND-MENU             PIC S9(9) COMP-5.
  7.  
  8.  01  MENUINFO.
  9.      05  cbSize            PIC S9(9) COMP-5.
  10.      05  fMask             PIC S9(9) COMP-5.
  11.      05  dwStyle           PIC S9(9) COMP-5.
  12.      05  cyMax             PIC  9(9) COMP-5.
  13.      05  hbrBack           PIC S9(9) COMP-5.
  14.      05  dwContextHelpID   PIC S9(9) COMP-5.
  15.      05  dwMenuData        PIC  9(9) COMP-5.
  16.      
  17.  PROCEDURE   DIVISION.
  18.  
  19.      CALL "GetActiveWindow" WITH STDCALL *> User32.lib
  20.      
  21.      MOVE PROGRAM-STATUS TO HWND-SHEET
  22.      
  23.      CALL "GetMenu" WITH STDCALL USING BY VALUE HWND-SHEET *> User32.lib
  24.  
  25.      MOVE PROGRAM-STATUS TO HWND-MENU
  26.      
  27.      CALL "GetMenuInfo" WITH STDCALL USING BY VALUE HWND-MENU
  28.                                            BY REFERENCE MENUINFO *> User32.lib
  29.                                            
  30.      ADD 5 TO cbSize *> <----- aqui es donde modificamos el tamaño
  31.      
  32.      CALL "SetMenuInfo" WITH STDCALL USING BY VALUE HWND-MENU
  33.                                            BY REFERENCE MENUINFO *> User32.lib

No olvides de añadir al proyecto la User32.lib

---------- Post añadido el 21 de octubre de 2021 a las 11:08 ----------

@Fabio, ya nos dirás si ha funcionado



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Fabio (20 de octubre de 2021)
  #5
Antiguo 23 de octubre de 2021, 15:14
IDENTIFICATION DIVISION
Fabio
 Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de Fabio
DATA DIVISION
abril 2020
La Habana, Cuba
21 años
05.11.2021 02:45
PROCEDURE DIVISION
Posts: 10
Enviado: 4
Recibido: 3
Soluciones: 0
Reputación: 0
Fabio is an unknown quantity at this point
Predeterminado

Kuk disculpa la demora pero tenia problemas con mi internet y si lo probe y me devuelve un valor handle del menu pero la function getmenuinfo no me retorna ningun valor en los parametron.
Fabio no ha iniciado sesión   Responder Con Cita
  #6
Antiguo 24 de octubre de 2021, 01:47
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
enero 2015
Madrid
36 años
30.11.2021 16:56
PROCEDURE DIVISION
Posts: 1.895
Enviado: 613
Recibido: 801
Soluciones: 99
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

@Fabio, pues me he equivocado macho. Es lo que pasa siempre que andamos con prisas, mea culpa amigo.

Por lo pronto las funciones GetMenuInfo y SetMenuInfo sólo aparecen en Windows 10. Con lo cual, no existen en la User32.lib que trae PowerCOBO:


Minimum supported clientWindows 2000 Professional [desktop apps only]
Minimum supported serverWindows 2000 Server [desktop apps only]
Target PlatformWindows
Headerwinuser.h (include Windows.h)
LibraryUser32.lib
DLLUser32.dll
API setext-ms-win-ntuser-menu-l1-1-3 (introduced in Windows 10, version 10.0.14393)


Además, según me he documentado, podemos jugar con varias cosas, pero no con el tamaño del texto, porque este viene de los parámetros generales de Windows...

La única opción es cambiarlo a nivel de parámetros de Windows o pasar por OwerDraw (dibujarlo en "custom"): Change System Menu Text Size



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Fabio (24 de octubre de 2021)
  #7
Antiguo 24 de octubre de 2021, 17:04
IDENTIFICATION DIVISION
Fabio
 Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de Fabio
DATA DIVISION
abril 2020
La Habana, Cuba
21 años
05.11.2021 02:45
PROCEDURE DIVISION
Posts: 10
Enviado: 4
Recibido: 3
Soluciones: 0
Reputación: 0
Fabio is an unknown quantity at this point
Predeterminado

Kuk una ultima pregunta y perdoname la insistencia he leido un post tuyo titulado call a cualquier DLL sin lib ni loadlibrary en powercobol podria ser esta una possible solucion?.
saludos,
Fabio no ha iniciado sesión   Responder Con Cita
  #8
Antiguo 24 de octubre de 2021, 22:00
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
enero 2015
Madrid
36 años
30.11.2021 16:56
PROCEDURE DIVISION
Posts: 1.895
Enviado: 613
Recibido: 801
Soluciones: 99
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

@Fabio, efectivamente se puede hacer esto añadiendo las líneas correspondientes en el fichero COBOL85.CBR de la manera siguiente:

Código:
[SHEET1.Entry]
GetMenuInfo=User32.dll
SetMenuInfo=User32.dll
Lo que pasa es que en cuanto al asunto de cambiar el tamaño de la fuente del menú, no se puede hacer.
O lo cambias en los parámetros de Windows, o nos vamos a las historias "OwerDraw" que es dibujarlo tu mismo mediante la API de Windows.



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 2
Fabio (25 de octubre de 2021), Hrmcobol (26 de octubre de 2021)
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 18:35.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.