Clipper On Line • Ver Tópico - Flash na Janela(Window)

Flash na Janela(Window)

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

 

Flash na Janela(Window)

Mensagempor Kapiaba » 18 Set 2015 15:48

// Programa Pisca Minimizado: FLASH3.PRG - 18/09/2015 kmt_karinha@pop.com.br

#include "fivewin.ch"

#Define SH_SHOWNORMAL  1 //  Mostra o Estilo do Gerenciandor do Windows
#Define SW_SHOWMINIMIZED

#Define WM_SYSCOMMAND      274 // &H112
#Define SC_TASKLIST      61744 // &HF130
#Define SC_SCREENSAVE    61760 // &HF140
#Define SW_HIDE              0 // &H0
#Define SW_SHOWNA            8 // &H8
#Define SW_SHOW              5 // &H5
#Define SW_SHOWNORMAL        1
#Define SW_NORMAL            1
#Define SW_MAXIMIZE          3
#Define SW_MINIMIZE          6
#Define SW_RESTORE           9
#Define SC_MONITORPOWER  61808 // &HF170   Gracias a Ramon Ramirez por la info
#Define SM_CLEANBOOT        67

static ownd, omsgbar, oTimer

function main()

   LOCAL oTimer

   DEFINE WINDOW oWnd TITLE "Beto: Minimize Para Entender" ;
      FROM 5, 5 TO 24, 64

   DEFINE MSGBAR OMSGBAR OF OWND NOINSET

   ACTIVATE WINDOW oWnd MAXIMIZED                                            ;
      ON INIT ( oTimer := FlashWndTimer( oWnd,, { | | IsIconic( oWnd:hWnd ) } ) )

   oTimer:DeActivate()

return nil

FUNCTION FlashWndTimer( ohWnd, nDelay, bWhen )

   local oTimer

   DEFAULT  nDelay  := 2000
   DEFAULT  bWhen   := { || .T. }

   DEFINE TIMER oTimer INTERVAL nDelay ACTION (Flashing( ohWnd, bWhen ) )

   ACTIVATE TIMER oTimer

RETURN( oTimer )

STATIC FUNCTION Flashing( ohWnd, bWhen )

   static nStatus := 1

   local hWnd

   hWnd := iif( ValType(ohWnd) != "O", ohWnd, ohWnd:hWnd )

   if Eval( bWhen, hWnd )

      FlashWnd( hWnd, (nStatus := iif( nStatus == 1, 0, 1 )) )

   endif

RETURN .T.

DLL32 STATIC FUNCTION FlashWnd( hWnd AS LONG, nInvert AS LONG ) AS LONG PASCAL FROM "FlashWindow" LIB "User32.dll"

// FIM DO PROGRAMA By Joao Santos
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1765
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 310 vezes
Mens.Curtidas: 119 vezes



Retornar para FiveWin

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 11 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro