Cobol Foro
Página 3 de 3 12 3
Mostrar 40 mensajes desde este tema en una página

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL y WinAPI (https://www.cobolforo.es/forumdisplay.php?f=33)
-   -   [Duda] ToolTipText multilinea (https://www.cobolforo.es/showthread.php?t=1580)

fastpho 1 de marzo de 2024 19:07
ToolTipText multilinea winapi
 
1 Archivos Adjunto(s)
Nuevas Propiedades : Icon - Titulo - Tiempos (Visible - Delay)

Código COBOL:
  1. *------------------------------------------------------------------------------------------                          
  2. *new 01-03-2024
  3.  *> new titulo + icon 
  4.  01 TTM_SETTITLE                  PIC S9(9) COMP-5 VALUE  1056. *>= (WM_USER + 32)
  5.  01 StrTitle                      PIC X(30).
  6.  01 ttIconType.
  7.     03 TTNoIcon                   PIC S9(9) COMP-5 VALUE 0.
  8.     03 TTIconInfo                 PIC S9(9) COMP-5 VALUE 1.
  9.     03 TTIconWarning              PIC S9(9) COMP-5 VALUE 2.
  10.     03 TTIconError                PIC S9(9) COMP-5 VALUE 3.
  11.  
  12.  
  13.  *> tiempos visible  + delay 
  14.  01 TTM_SETDELAYTIME             PIC S9(9) COMP-5 VALUE 1027. *> = (WM_USER + 3)
  15.  01 TTDT_AUTOPOP                 PIC S9(9) COMP-5 VALUE 2.
  16.  01 TTDT_INITIAL                 PIC S9(9) COMP-5 VALUE 3.
  17.  01 VisibleTime                  PIC S9(9) COMP-5. *>
  18.  01 DelayTime                    PIC S9(9) COMP-5. *> 
  19. *------------------------------------------------------------------------------------------

Código COBOL:
  1. *------------------------------------------------------------------------------------------                          
  2. *new 01-03-2024                          
  3. *titulo + icon.
  4.  
  5.           MOVE "Titulo del ToolTip" TO StrTitle
  6.         CALL "SendMessageA" WITH stdcall LINKAGE 
  7.           USING         BY VALUE HWNDTT
  8.                           BY VALUE TTM_SETTITLE
  9.                           BY VALUE TTIconInfo
  10.                           BY REFERENCE StrTitle.
  11.  
  12. *------------------------------------------------------------------------------------------
  13. *new 01-03-2024
  14. * tiempos 
  15. *  VisibleTime            
  16.           MOVE 1000 TO VisibleTime.
  17. *  DelayTime            
  18.           MOVE 5000  TO DelayTime.
  19. *          
  20.         CALL "SendMessageA" WITH stdcall LINKAGE 
  21.           USING         BY VALUE HWNDTT
  22.                           BY VALUE TTM_SETDELAYTIME
  23.                           BY VALUE TTDT_AUTOPOP
  24.                           BY VALUE VisibleTime.
  25. *                          
  26.         CALL "SendMessageA" WITH stdcall LINKAGE 
  27.           USING         BY VALUE HWNDTT
  28.                           BY VALUE TTM_SETDELAYTIME
  29.                           BY VALUE TTDT_INITIAL
  30.                           BY VALUE DelayTime.                          
  31. *------------------------------------------------------------------------------------------

Saludos...

Nitzer 15 de marzo de 2024 17:06
os mereceis un premio a la perseverancia :)


La franja horaria es GMT +2. Ahora son las 15:44.
Página 3 de 3 12 3
Mostrar 40 mensajes desde este tema en una página

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.