Nuevas Propiedades : Icon - Titulo - Tiempos (Visible - Delay)
Código COBOL:
*------------------------------------------------------------------------------------------
*new 01-03-2024
*> new titulo + icon
01 TTM_SETTITLE PIC S9(9) COMP-5 VALUE 1056. *>= (WM_USER + 32)
01 StrTitle PIC X(30).
01 ttIconType.
03 TTNoIcon PIC S9(9) COMP-5 VALUE 0.
03 TTIconInfo PIC S9(9) COMP-5 VALUE 1.
03 TTIconWarning PIC S9(9) COMP-5 VALUE 2.
03 TTIconError PIC S9(9) COMP-5 VALUE 3.
*> tiempos visible + delay
01 TTM_SETDELAYTIME PIC S9(9) COMP-5 VALUE 1027. *> = (WM_USER + 3)
01 TTDT_AUTOPOP PIC S9(9) COMP-5 VALUE 2.
01 TTDT_INITIAL PIC S9(9) COMP-5 VALUE 3.
01 VisibleTime PIC S9(9) COMP-5. *>
01 DelayTime PIC S9(9) COMP-5. *>
*------------------------------------------------------------------------------------------
Código COBOL:
*------------------------------------------------------------------------------------------
*new 01-03-2024
*titulo + icon.
MOVE "Titulo del ToolTip" TO StrTitle
CALL "SendMessageA" WITH stdcall LINKAGE
USING BY VALUE HWNDTT
BY VALUE TTM_SETTITLE
BY VALUE TTIconInfo
BY REFERENCE StrTitle.
*------------------------------------------------------------------------------------------
*new 01-03-2024
* tiempos
* VisibleTime
MOVE 1000 TO VisibleTime.
* DelayTime
MOVE 5000 TO DelayTime.
*
CALL "SendMessageA" WITH stdcall LINKAGE
USING BY VALUE HWNDTT
BY VALUE TTM_SETDELAYTIME
BY VALUE TTDT_AUTOPOP
BY VALUE VisibleTime.
*
CALL "SendMessageA" WITH stdcall LINKAGE
USING BY VALUE HWNDTT
BY VALUE TTM_SETDELAYTIME
BY VALUE TTDT_INITIAL
BY VALUE DelayTime.
*------------------------------------------------------------------------------------------
Saludos...