Tema: Ventanas Flotantes
Ver Mensaje Individual
  #30
Antiguo 9 de enero de 2023, 14:17
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207
Predeterminado
0
Likes

None...

Inactivo Inactivo
@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:
  1.  IDENTIFICATION DIVISION.
  2.  PROGRAM-ID. "MyWndProc". 
  3.  ENVIRONMENT DIVISION.
  4.  DATA DIVISION.
  5.  WORKING-STORAGE SECTION.  
  6.  01  OldWndProc     IS  EXTERNAL PIC S9(9) COMP-5. 
  7.  01  MAIN-HWND      IS  EXTERNAL PIC S9(9) COMP-5.
  8.  
  9.  01  WM-NCACTIVATE  PIC  S9(9) COMP-5 VALUE H"86".  
  10.  
  11.  01  P1                   POINTER.
  12.  01  HWND REDEFINES P1    PIC S9(9) COMP-5.
  13.  01  P2                   POINTER.
  14.  01  MSG  REDEFINES P2    PIC  9(9) COMP-5. 
  15.  01  P3                   POINTER.
  16.  01  WPARAM REDEFINES P3  PIC S9(9) COMP-5.
  17.  01  P4                   POINTER.
  18.  01  LPARAM REDEFINES P4  PIC S9(9) COMP-5. 
  19.   
  20.  LINKAGE SECTION.
  21.  77  PARM1                PIC S9(9) COMP-5.
  22.  77  PARM2                PIC  9(9) COMP-5. 
  23.  77  PARM3                PIC S9(9) COMP-5.
  24.  77  PARM4                PIC S9(9) COMP-5.
  25.  
  26.  PROCEDURE DIVISION WITH STDCALL USING PARM1 PARM2 PARM3 PARM4. 
  27.      
  28.      MOVE FUNCTION ADDR(PARM1) TO P1
  29.      MOVE FUNCTION ADDR(PARM2) TO P2
  30.      MOVE FUNCTION ADDR(PARM3) TO P3
  31.      MOVE FUNCTION ADDR(PARM4) TO P4
  32.      
  33.      IF  MSG = WM-NCACTIVATE
  34.          MOVE 1 TO WPARAM                  
  35.      END-IF
  36.           
  37.      CALL "CallWindowProcA" WITH STDCALL USING BY VALUE OldWndProc
  38.                                                BY VALUE HWND
  39.                                                BY VALUE MSG
  40.                                                BY VALUE WPARAM
  41.                                                BY VALUE LPARAM  
  42.     
  43.      GOBACK 
  44.  


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 is offline   Responder Con Cita