ToolTipText multilinea

[fastpho]

Nuevas Propiedades : Icon - Titulo - Tiempos (Visible - Delay)

*------------------------------------------------------------------------------------------                          
*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. *> 
*------------------------------------------------------------------------------------------

*------------------------------------------------------------------------------------------                          
*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...

[Nitzer]

os mereceis un premio a la perseverancia