PC Toledo

Código: Selecionar todos

FUNCTION SplashWindow(cImagem, nTime)
LOCAL   oDlg, nHandle, nWidth, nHeight

   HB_Default(@nTime,2000)
   
   IF !hwg_Fi_init()
      RETURN Nil
   ENDIF
   
   nHandle:=hwg_Fi_load( cImagem )
   
   nWidth:=hwg_Fi_getwidth( nHandle )
   
   nHeight:=hwg_Fi_getheight( nHandle )
   
   INIT DIALOG oDlg                 ;
        TITLE ""                    ;
        AT     0,0                  ;
        SIZE   nWidth,nHeight       ;
        CLIPPER                     ;
        STYLE WS_POPUP + DS_CENTER + WS_VISIBLE + WS_DLGFRAME;
        ON INIT { || CountSeconds( nTime, oDlg ) }
   
   @ 0,0 IMAGE oSayMain SHOW cImagem SIZE nWidth, nHeight         

   oDlg:center()
   
   hwg_UpdateWindow( oDlg:handle )

   oDlg:Activate()

RETURN Nil

STATIC FUNCTION CountSeconds( nTime, oDlg )

   SET TIMER oTimer OF oDlg VALUE nTime  ACTION { || hwg_EndDialog( hwg_GetModalHandle() ) }

RETURN Nil