Cobol Foro - [Sintaxis] Ventanas Flotantes

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Sintaxis] Ventanas Flotantes (https://www.cobolforo.es/showthread.php?t=973)

@kuk, soy un ......., sin palabras, pero no lo he probado, es una pena que no haya manera mejor de compartir todo lo que desarrollamos.
Hace un tiempo pensé en cambiar el front de la aplicación, me puse a buscar ideas hasta que sonó la flauta y estoy de lleno cambiando todos los diseños.

Me he hecho unas rutinas que llamo con #INCLUDE en los Opened y se encargan de todo.

Como he dicho, dadme ideas para ver como puedo compartir todo lo que hago o hacemos, que no sea youtube, que no sea tan "público"

@Nitzer, podríamos alojar algún que otro vídeo aquí en el foro, lo que pasa es que muchos no van a poder ser, por el espacio que suelen ocupar.

@Kuk, los videos se pueden subir a youtube de forma privada y aquí en el foro se pone el enlace.

@JCantero, la verdad es que nunca he profundizado en el tema: un vídeo privado qué es exactamente? Que no aparece en la búsqueda y sólo accede gente que tenga el enlace?

@Kuk, exacto.

Al publicarlo privado solo pueden verlo los que tengan el enlace.

@Nitzer, agárrate que vas a flipar en colores!!! Acabo de conseguir la recepción de valores BY VALUE en Fujitsu PowerCOBOL. Esto quiere decir que podemos hacer subclassing de cualquier función WinAPI, incluídas las que reciben valores BY VALUE. Porque como sabemos, el compilador de Fujitsu sólo trabaja BY REFERENCE...

:bat::macar:

@Kuk, yo flipo con todo lo que pones y dices, pero ..... que podemos conseguir con eso jajajajajajajja

@Kuk, me dejas anonadado jajajajaja, si que voy a ehcarle un vistazo, por todas estas cosas tenemos que hacer la quedada. Voy a intentar hacerla para un dia de estos.

@Nitzer, lo más importante, fíjate lo que hago con lo que me llega en la LINKAGE y lo vas a pillar enseguida.

Código COBOL:

 IDENTIFICATION DIVISION.
 PROGRAM-ID. "MyWndProc". 
 ENVIRONMENT DIVISION.
 DATA DIVISION.
 WORKING-STORAGE SECTION.  
 01  OldWndProc     IS  EXTERNAL PIC S9(9) COMP-5. 
 01  MAIN-HWND      IS  EXTERNAL PIC S9(9) COMP-5.
 
 01  WM-NCACTIVATE  PIC  S9(9) COMP-5 VALUE H"86".  
 
 01  P1                   POINTER.
 01  HWND REDEFINES P1    PIC S9(9) COMP-5.
 01  P2                   POINTER.
 01  MSG  REDEFINES P2    PIC  9(9) COMP-5. 
 01  P3                   POINTER.
 01  WPARAM REDEFINES P3  PIC S9(9) COMP-5.
 01  P4                   POINTER.
 01  LPARAM REDEFINES P4  PIC S9(9) COMP-5. 
  
 LINKAGE SECTION.
 77  PARM1                PIC S9(9) COMP-5.
 77  PARM2                PIC  9(9) COMP-5. 
 77  PARM3                PIC S9(9) COMP-5.
 77  PARM4                PIC S9(9) COMP-5.
 
 PROCEDURE DIVISION WITH STDCALL USING PARM1 PARM2 PARM3 PARM4. 
     
     MOVE FUNCTION ADDR(PARM1) TO P1
     MOVE FUNCTION ADDR(PARM2) TO P2
     MOVE FUNCTION ADDR(PARM3) TO P3
     MOVE FUNCTION ADDR(PARM4) TO P4
     
     IF  MSG = WM-NCACTIVATE
         MOVE 1 TO WPARAM                  
     END-IF
          
     CALL "CallWindowProcA" WITH STDCALL USING BY VALUE OldWndProc
                                               BY VALUE HWND
                                               BY VALUE MSG
                                               BY VALUE WPARAM
                                               BY VALUE LPARAM  
    
     GOBACK