Teste básico fivewin

Mensagem por **Kapiaba** » 19 Set 2017 15:08

Colaborando mais um pouco para vosso aprendizado Mister Quintas, simples programa compilado com Fivewin y xHarbour. Fontes e .exe adjuntos.

Mensagem por **JoséQuintas** » 19 Set 2017 21:18

Eu prefiro xHarbour.

Usar Harbour 3.2 já estou achando ruim, usar BCC pior ainda, agora usar xHarbour.... aí seria forçar demais....

O que tem no fonte realmente é necessário pra xHarbour? e mesmo assim ainda vai continuar usando?

Fiquei na dúvida sobre a codepage, se é Portugal ou Brasil.

Pequenas modificações no VISUAL.PRG, funcionando em HARBOUR, NENHUMA conversão de texto foi necessária.
Segue com EXE em Harbour.

banco2.zip: (1.31 MiB) Baixado 189 vezes

Edgard Vaz · Mensagem por **Edgard Vaz** » 19 Set 2017 22:07

José Quintas: boa noite.
Me desculpe por entrar neste tópico, mas pelo que vi, era o único que teve acesso hoje.
Estou com problemas na compilação com xHarbour. Adquiri o pacote "fwh1509[x]harbour_build5" no ano passado. E hoje precisei compilar um programa e apresentou erro na biblioteca FIVEHC.LIB - ela não veio no ZIP que me foi enviado. A encontrei numa pasta referente ao FWH801. Mas não funcionou. Uso o BCC7.
Sabe onde posso encontrar tal biblioteca compatível ao FWH1509 / BCC7 ?
Desde já agradeço.
Edgard

Mensagem por **JoséQuintas** » 19 Set 2017 22:25

fivewin é comercial.
Se adquiriu, acredito que seja só verificar com o suporte pra enviarem outra cópia.

Nota:
Gravar CD/DVD de backup ainda não saiu de moda.
Inclusive pode ser interessante de 1.44GB, que é suficiente pra muita coisa, e de vida mais longa que o comum.
Nada comprovado: geralmente o que estraga num disco são as beiradas, e como esse é menor, não tem as beiradas... rs
Deveria sair Blu-Ray nesse formato, provavelmente seria de uns 15GB ou mais.

Mensagem por **Kapiaba** » 20 Set 2017 10:06

Very good Mister Quintas, quem escolhe o que vai usar para compilar é o senhor. Eu uso xHarbour porquê gosto. O senhor é livre para decidir o que melhor lhe convém. Abs.

Código: Selecionar todos

#Include "FiveWin.ch"

REQUEST HB_LANG_PT  // Português do Brasil Mister Quintas
REQUEST HB_CODEPAGE_PTISO

#define TEXT_ARRAY { ;
         "Obs: Caso Algum Link Quebre, Avise o Suporte.", ;
         "Cuidado: Não Entre em Link Inseguro ou Suspeito.", ;
         "Deixe Sempre, Que o Navegador, Decida.", ;
         "Feche o Internet Explorer Antes de Entrar em Outro Navegador(Ex.: Google Chrome)", ;
         "Se os Botões Sumirem, Feche o Programa. Tente de Novo.", ;
         "Mantenha o Windows e o Anti Vírus Atualizado.  melhor.", ;
         "Antes de Entrar na Internet, Feche Programas da C.E.F.", ;
         "Faça Limpeza dos Caches com o CCleaner.exe - Spams.", ;
         "Faça Limpeza dos Malware com o IObit Malware Fighter - Malware." }

STATIC oWnd

FUNCTION Main()

   LOCAL oIco, oBar, oBmp, oHand, cLinkBBra, cLinkCEF, cLinkItal, cLinkBrad
   LOCAL oServices, cLink_CeF_Cobra, cBBCobranca, oFont, oFnt, cIObit, oElement


   SET DATE BRITISH
   SET EPOCH TO Year( Date() ) - 80
   SET SOFTSEEK ON
   SET WRAP ON
   SETCANCEL( .F. )
   SET CONFIRM OFF
   SET DELETED ON
   SET ESCAPE ON
   SET EXCLUSIVE OFF
   SET MULTIPLE OFF

   Set( _SET_CODEPAGE, "PTISO" )

   SetBalloon( .T. )
   SkinButtons()     // Botoes Coloridos nas novas versoes

   /*limpia arreglo y llama al colecor de basura de xharbour*/ //-> Lixeira
   hb_gcAll( .F. )

   DEFINE CURSOR oHand HAND
   DEFINE ICON oIco FILE ".\fax.ico"

   DEFINE FONT oFnt  NAME "Ms Sans Serif" SIZE 00,  14 BOLD
   DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 00, -14 BOLD

   DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75                ;
      TITLE "Escolha uma Opção Para Navegar nos Botões Abaixo: " + ;
            " e Escolher o Seu Banco Preferido - Versão: 3.3 19/09/2017"   ;
      COLORS CLR_BLACK, CLR_WHITE ICON oIco

   FOR EACH oElement IN TEXT_ARRAY
      @ oElement:__EnumIndex * 4 + 4, 50 SAY Padc( oElement, 80 ) ;
             OF oWnd SIZE 600, 16                                             ;
             COLORS CLR_BLACK, CLR_WHITE FONT oFont TRANSPARENT UPDATE
   NEXT

   // BARRA DOS BOTOES DA JANELA
   DEFINE BUTTONBAR OBAR       ; // 49,60 Fica Muito Legal
          BUTTONSIZE 149, 50   ; // 50,60
          _3DLOOK              ; // Imagem na Tela em 3D
          TOP                  ; // TOP
          OF oWnd 2007         ;
          CURSOR oHand

   // Este modelo e melhor esta em: \samples\testbtb.prg e testgrad.prg
   oBar:bClrGrad := { | lInvert | If( lInvert, ;
       { { 1/3, nRGB( 255, 253, 222 ), nRGB( 255, 231, 151 ) }, ;
         { 2/3, nRGB( 255, 215,  84 ), nRGB( 255, 233, 162 ) }  ;
       }, ;
         { { 1/2, nRGB( 219, 230, 244 ), nRGB( 207-50, 221-25, 255 ) }, ;
         { 1/2, nRGB( 201-50, 217-25, 255 ), nRGB( 231, 242, 255 ) }  ;
       } ) }

   // Cor no Prompt dos Botoes
   // oBar:nClrText = CLR_HBLUE

   oBar:Adjust()

   cLinkBBra := ( "www.bb.com.br" )

   DEFINE BUTTON OF oBar FILENAME ".\LOGO_001.BMP" GROUP TOP     ;
      ACTION( ShellExecute(GetActiveWindow(),"open",'"'+cLinkBBra+'"') ) ;
      TOOLTIP "Dispara para o BB"
   cLinkCEF := ( "www.caixa.gov.br/Paginas/home-caixa.aspx" )

   MENU oServices POPUP 2007

      MENUITEM "Site da C.E.F. &Direto. Quebra?"      ;
         FILENAME ".\prop.bmp"                                     ;
         ACTION( ShellExecute(GetActiveWindow(),"open",'"'+cLinkCEF+'"') )

      cLink_CeF_Cobra := ( "C:\caixa\cobranca\SINCOCli.exe" )
      SEPARATOR
      MENUITEM "Cobrança &C.E.F. Aplicativo Local" ;
         FILENAME ".\HelpInd.bmp"                               ;
         ACTION( ( Chama_Aplicativo( cLink_CeF_Cobra ) ),       ;
                         oWnd:UpDate(), oWnd:Refresh() )

      cBBCobranca := ( "C:\BancoBrasil\BBCobranca\bbcbr.jar" )
      SEPARATOR
      MENUITEM "&BBCobran‡a Aplicativo Local"      ;
         FILENAME ".\Help.bmp"                                  ;
         ACTION( ( Chama_Aplicativo( cBBCobranca ) ),           ;
                     oWnd:UpDate(), oWnd:Refresh() )

      cIObit := ( "http://www.iobit.com/pt/malware-fighter.php" )

      SEPARATOR
      MENUITEM "&IObit Malware Fighter"                    ;
         FILENAME ".\Help.bmp"                                          ;
         ACTION( ShellExecute(GetActiveWindow(),"open",'"'+cIobit+'"'), ;
                 oWnd:UpDate(), oWnd:Refresh() )

      SEPARATOR
      MENUITEM "&Sair do Programa - Alt+S"    ;
         FILENAME ".\Saida.bmp"               ;
         ACTION( oWnd:End() )

   ENDMENU

   DEFINE BUTTON OF oBar FILENAME ".\LOGO_104.BMP" GROUP TOP     ;
      MENU oServices                                             ;
      ACTION( ShellExecute(GetActiveWindow(),"open",'"'+cLinkCEF+'"') ) ;
      TOOLTIP "Dispara Para a C.E.F. Veja Menu ao Lado"

   cLinkBrad := ( "www.bradesco.com.br/html/classic/index.shtm" )
   DEFINE BUTTON OF oBar FILENAME ".\LOGO_237.BMP" GROUP TOP             ;
      ACTION( ShellExecute(GetActiveWindow(),"open",'"'+cLinkBrad+'"') ) ;
      TOOLTIP "Dispara Para o Brad."

   cLinkItal := ( "www.itau.com.br/" )
   DEFINE BUTTON OF oBar FILENAME ".\LOGO_341.BMP" GROUP TOP             ;
      ACTION( ShellExecute(GetActiveWindow(),"open",'"'+cLinkItal+'"') ) ;
      TOOLTIP "Dispara para o It..."

   DEFINE BUTTON OF oBar FILENAME ".\Exit.bmp"     GROUP TOP ;
      ACTION( oWnd:End() ) TOOLTIP "Sair do Programa"

   DEFINE MESSAGE OF oWnd                  ;
      PROMPT FWVERSION + " " + FWCOPYRIGHT + " - " + "kapiabafwh@gmail.com.br" + ;
                                           + " - " + "(11) 3106-2832 "           ;
      NOINSET CENTERED KEYBOARD DATE CLOCK

   DEFINE BITMAP oBmp FILENAME ".\CONTATO.bmp"

   oWnd:bPainted = { | hDC | BmpTiled( hDC, oWnd, oBmp ) }

   ACTIVATE WINDOW oWnd MAXIMIZED ;
      VALID MsgYesNo( "Deseja Sair do Programa?", "Saida do Programa." )

   oFont:End()
   oFnt:End()

   FreeResources()

   SysRefresh()

   RELEASE All
   Hb_GCAll( .T. )

   CLEAR MEMORY

   PostQuitMessage( 0 )

   __QUIT()

   RETURN NIL

FUNCTION BmpTiled( hDC, oWnd, oBmp )

   local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight()
   local nRow := 0, nCol := 0, n
   local nBmpWidth  := oBmp:nWidth(),  nBmpHeight := oBmp:nHeight()

   if oBmp:hBitmap == 0
      return nil
   endif

   while nRow < nHeight
      nCol = 0
      while nCol < nWidth
         PalBmpDraw( hDC, nRow, nCol, oBmp:hBitmap )
         nCol += nBmpWidth
      end
      nRow += nBmpHeight
   end

   RETURN NIL

FUNCTION ConsultaLink( cLinkExplorer ) // VIA INTERNET EXPLORER

   LOCAL oChildWnd, oActiveX

   MsgWait( "CONECTANDO AO SITE VIA INTERNET EXPLORER", "AGUARDE UM MOMENTO POR FAVOR...         ", 2.5 )

   MeuWinExec( "Start Iexplore.Exe " + cLinkExplorer, 0 )

   RETURN NIL

FUNCTION Chama_Aplicativo( cLinkAplicativo ) // VIA GOOGLE CRHOME ou Nao.

   LOCAL oChildWnd, oActiveX

   MsgWait( "CONECTANDO A UM APLICATIVO LOCAL", "AGUARDE UM MOMENTO POR FAVOR... ", 2.5 )

   MeuWinExec( cLinkAplicativo, 0 )

   RETURN NIL

FUNCTION MeuWinExec( cParametro )

   LOCAL cExecute := GetPvProfString( "" )

   IF IsWinNT() .OR. IsWin2000()
      cExecute := GetEnv( "COMSPEC" ) + " /C "
   ENDIF

RETURN WinExec( cExecute + cParametro, 0 )

Mensagem por **Kapiaba** » 20 Set 2017 10:12

Bom dia Edgard Vaz, se comprou o Fivewin oficial, veja come é:

Código: Selecionar todos

C:\FWH1701>dir *.exe

Pasta de C:\FWH1701

21/02/2017  13:29        56.152.972 fwh.exe -> INSTALADOR DO FIVEWIN.
22/02/2017  11:52           714.726 unins000.exe
               2 arquivo(s)     56.867.698 bytes
C:\FWH1701>FWH <Enter> Instalar na pasta correspondente.

Abs.

Mensagem por **Kapiaba** » 20 Set 2017 10:14

Como fica após a instalação do FWH.EXE

Código: Selecionar todos

 Pasta de C:\FWH1701

20/09/2017  10:10    <DIR>          .
20/09/2017  10:10    <DIR>          ..
22/02/2017  11:53    <DIR>          avis
22/02/2017  11:53    <DIR>          bitmaps
22/02/2017  11:53    <DIR>          cursors
22/02/2017  11:53    <DIR>          dll
22/02/2017  11:53    <DIR>          gifs
22/02/2017  11:53    <DIR>          icons
29/08/2017  15:16    <DIR>          include
22/02/2017  15:19    <DIR>          lib
22/02/2017  11:53    <DIR>          makes
22/02/2017  11:53    <DIR>          manual
19/09/2017  14:38    <DIR>          samples
22/02/2017  11:53    <DIR>          sounds
22/02/2017  11:53    <DIR>          source
22/02/2017  11:58    <DIR>          Tools
22/02/2017  11:53    <DIR>          uestudio
22/02/2017  11:53    <DIR>          visual
               
              18 pasta(s)   36.857.929.728 bytes disponíveis

C:\FWH1701>

Abs.

Mensagem por **Kapiaba** » 20 Set 2017 10:54

Interessante Mister Quintas, não conhecia. many thanks.

Código: Selecionar todos

#include "FiveWin.ch"

#define LEFTEQUAL( l, r )       ( Left( l, Len( r ) ) == r )

PROCEDURE Main()

   LOCAL A := { "one  ", "two  ", "three" }
   LOCAL AA := { "AA-one  ", "AA-two  ", "AA-three", "AA-four " }
   LOCAL c := "abcdefghij"
   LOCAL enum := "b"
   LOCAL bb, cc
   LOCAL i

#if 0
   test( @a, b )
   test( a, @b )
   test( @a, @b )
#endif

   ? "before loop: ENUM=", ENUM
   ? "before loop: a[1]=", a[ 1 ], "a[2]=", a[ 2 ], "a[3]=", a[ 3 ]

   FOR EACH enum IN A
      ? "start: ENUM=", enum
      IF LEFTEQUAL( enum, "two" )
         enum := Upper( enum )
      ENDIF
      ? "end:   ENUM=", enum, ;
         "| index:", enum:__enumIndex(), ;
         "| value:", enum:__enumValue(), ;
         "| base:", ValType( enum:__enumBase() ), ;
         "| isfirst:", enum:__enumIsFirst(), ;
         "| islast:", enum:__enumIsLast()
   NEXT

   ? "after loop ENUM=", enum
   ? "after loop: a[1]=", a[ 1 ], "a[2]=", a[ 2 ], "a[3]=", a[ 3 ]

   ? "Testing passing by reference"
   ? "before loop: ENUM=", enum
   ? "after loop: a[1]=", a[ 1 ], "a[2]=", a[ 2 ], "a[3]=", a[ 3 ]

   FOR EACH enum IN A
      IF LEFTEQUAL( Upper( enum ), "TWO" )
         enum := Upper( enum )
         ? "before passing by @ | ENUM=", enum, ;
            "| index:", enum:__enumIndex(), ;
            "| value:", enum:__enumValue(), ;
            "| base:", ValType( enum:__enumBase() ), ;
            "| isfirst:", enum:__enumIsFirst(), ;
            "| islast:", enum:__enumIsLast()
         testBYREF( @enum )
         ? " after passing by @ | ENUM=", enum, ;
            "| index:", enum:__enumIndex(), ;
            "| value:", enum:__enumValue(), ;
            "| base:", ValType( enum:__enumBase() ), ;
            "| isfirst:", enum:__enumIsFirst(), ;
            "| islast:", enum:__enumIsLast()
      ENDIF
   NEXT

   ? "after loop ENUM=", enum
   ? "after loop: a[1]=", a[ 1 ], "a[2]=", a[ 2 ], "a[3]=", a[ 3 ]

   ? "Testing BREAK"
   ? "before loop: ENUM=", enum
   ? "after loop: a[1]=", a[ 1 ], "a[2]=", a[ 2 ], "a[3]=", a[ 3 ]

   BEGIN SEQUENCE
      FOR EACH enum IN A DESCEND
         ? "loop:   ENUM=", enum, ;
            "| index:", enum:__enumIndex(), ;
            "| value:", enum:__enumValue(), ;
            "| base:", ValType( enum:__enumBase() ), ;
            "| isfirst:", enum:__enumIsFirst(), ;
            "| islast:", enum:__enumIsLast()
         TESTbreak( enum )
      NEXT

   RECOVER USING i
      ? "after loop ENUM=", enum
      ? "after loop: a[1]=", a[ 1 ], "a[2]=", a[ 2 ], "a[3]=", a[ 3 ]
      ? "recover variable i=", i
   END SEQUENCE

   ? "before loop: ENUM=", enum
   ? "before loop: c=", c

   BEGIN SEQUENCE
      FOR EACH enum IN c
         ? "start: ENUM=", enum
         IF LEFTEQUAL( enum, "d" )
            enum := Upper( enum )
         ENDIF
         Testbreak( enum )
         ? "end:   ENUM=", enum, ;
            "| index:", enum:__enumIndex(), ;
            "| value:", enum:__enumValue(), ;
            "| base:", ValType( enum:__enumBase() ), ;
            "| isfirst:", enum:__enumIsFirst(), ;
            "| islast:", enum:__enumIsLast()
      NEXT

   RECOVER USING i
      ? "after loop ENUM=", enum
      ? "after loop: c=", c
      ? "recover variable i=", i
   END SEQUENCE

   FOR EACH enum, bb, cc IN A, AA, c
      ? enum, enum:__enumIndex(), enum:__enumValue()
      ? bb, bb:__enumIndex(), bb:__enumValue()
      ? cc, cc:__enumIndex(), cc:__enumValue()
   NEXT

   FOR EACH enum, bb, cc IN A, AA, c DESCEND
      ? enum, enum:__enumIndex(), enum:__enumValue()
      ? bb, bb:__enumIndex(), bb:__enumValue()
      ? cc, cc:__enumIndex(), cc:__enumValue()
   NEXT

   FOR EACH enum IN a
      BEGIN SEQUENCE
         IF LEFTEQUAL( enum, "2" )
            BREAK
         ENDIF
      END SEQUENCE
   NEXT

   FOR EACH enum IN a
      BEGIN SEQUENCE
         IF LEFTEQUAL( enum, "2" )
            ? "Breaking... enum=", enum
            BREAK enum
         ENDIF
      RECOVER USING enum
         ? "after recovery: enum=", enum
      END SEQUENCE
   NEXT

RETURN

STATIC PROCEDURE TESTbreak( v )

   IF LEFTEQUAL( v, "2" ) .OR. LEFTEQUAL( v, "d" )
      ? "issuing break"
      Break( v )
   ENDIF

RETURN

STATIC PROCEDURE TESTBYREF( enum )

   ? "start of testBYREF ENUM=", enum
   FOR EACH enum IN { 1, 2, 3 }
      ? "  -testBYREF=", enum
   NEXT
   ? "end of loop: ENUM=", enum
   enum := "22222"

   ? "end of testBYREF ENUM=", enum

RETURN

abs.

Mensagem por **Kapiaba** » 20 Set 2017 12:30

Mister Quintas, compilando com Harbour y xHarbour. Obg. abs.

Código: Selecionar todos

#Include "FiveWin.ch"

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PTISO

#define TEXT_ARRAY { ;
         "Obs: Caso Algum Link Quebre, Avise o Suporte.", ;
         "Cuidado: Não Entre em Link Inseguro ou Suspeito.", ;
         "Deixe Sempre, Que o Navegador, Decida.", ;
         "Feche o Internet Explorer Antes de Entrar em Outro Navegador(Ex.: Google Chrome)", ;
         "Se os Botões Sumirem, Feche o Programa. Tente de Novo.", ;
         "Mantenha o Windows e o Anti Vírus Atualizado.  melhor.", ;
         "Antes de Entrar na Internet, Feche Programas da C.E.F.", ;
         "Faça Limpeza dos Caches com o CCleaner.exe - Spams.", ;
         "Faça Limpeza dos Malware com o IObit Malware Fighter - Malware." }

STATIC oWnd

FUNCTION Main()

   LOCAL oIco, oBar, oBmp, oHand, cLinkBBra, cLinkCEF, cLinkItal, cLinkBrad
   LOCAL oServices, cLink_CeF_Cobra, cBBCobranca, oFont, oFnt, cIObit, oElement
   LOCAL nLinha, nColuna

   SET DATE BRITISH
   SET EPOCH TO Year( Date() ) - 80
   SET SOFTSEEK ON
   SET WRAP ON
   SETCANCEL( .F. )
   SET CONFIRM OFF
   SET DELETED ON
   SET ESCAPE ON
   SET EXCLUSIVE OFF
   SET MULTIPLE OFF

   Set( _SET_CODEPAGE, "PTISO" )

   SetBalloon( .T. )
   SkinButtons()     // Botoes Coloridos nas novas versoes

   /*limpia arreglo y llama al colecor de basura de xharbour*/ //-> Lixeira
   hb_gcAll( .F. )

   DEFINE CURSOR oHand HAND
   DEFINE ICON oIco FILE ".\fax.ico"

   DEFINE FONT oFnt  NAME "Ms Sans Serif" SIZE 00,  14 BOLD
   DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 00, -14 BOLD

   DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75                ;
      TITLE "Escolha uma Opção Para Navegar nos Botões Abaixo: " + ;
            " e Escolher o Seu Banco Preferido - Versão: 3.4 20/09/2017"   ;
      COLORS CLR_BLACK, CLR_WHITE ICON oIco

   #ifdef __XHARBOUR__

      nLinha  := 06
      nColuna := 35

      oElement := HB_EnumIndex() // Equivalencia de __EnumIndex do Harbour

      FOR EACH oElement IN TEXT_ARRAY

         @  nLinha, nColuna SAY Padc( oElement, 80 )                         ;
            OF oWnd SIZE 600, 16                                             ;
            COLORS CLR_BLACK, CLR_WHITE FONT oFont TRANSPARENT UPDATE

         nLinha := nLinha + 4.5

      NEXT

   #else  // Harbour

      FOR EACH oElement IN TEXT_ARRAY

         @ oElement:__EnumIndex * 4 + 4, 50 SAY Padc( oElement, 80 )         ;
            OF oWnd SIZE 600, 16                                             ;
            COLORS CLR_BLACK, CLR_WHITE FONT oFont TRANSPARENT UPDATE

      NEXT

   #endif

   // BARRA DOS BOTOES DA JANELA
   DEFINE BUTTONBAR OBAR       ; // 49,60 Fica Muito Legal
          BUTTONSIZE 149, 50   ; // 50,60
          _3DLOOK              ; // Imagem na Tela em 3D
          TOP                  ; // TOP
          OF oWnd 2007         ;
          CURSOR oHand

   // Este modelo e melhor esta em: \samples\testbtb.prg e testgrad.prg
   oBar:bClrGrad := { | lInvert | If( lInvert, ;
       { { 1/3, nRGB( 255, 253, 222 ), nRGB( 255, 231, 151 ) }, ;
         { 2/3, nRGB( 255, 215,  84 ), nRGB( 255, 233, 162 ) }  ;
       }, ;
         { { 1/2, nRGB( 219, 230, 244 ), nRGB( 207-50, 221-25, 255 ) }, ;
         { 1/2, nRGB( 201-50, 217-25, 255 ), nRGB( 231, 242, 255 ) }  ;
       } ) }

   // Cor no Prompt dos Botoes
   // oBar:nClrText = CLR_HBLUE

   oBar:Adjust()

   cLinkBBra := ( "www.bb.com.br" )

   DEFINE BUTTON OF oBar FILENAME ".\LOGO_001.BMP" GROUP TOP     ;
      ACTION( ShellExecute(GetActiveWindow(),"open",'"'+cLinkBBra+'"') ) ;
      TOOLTIP "Dispara para o BB"
   cLinkCEF := ( "www.caixa.gov.br/Paginas/home-caixa.aspx" )

   MENU oServices POPUP 2007

      MENUITEM "Site da C.E.F. &Direto. Quebra?"      ;
         FILENAME ".\prop.bmp"                                     ;
         ACTION( ShellExecute(GetActiveWindow(),"open",'"'+cLinkCEF+'"') )

      cLink_CeF_Cobra := ( "C:\caixa\cobranca\SINCOCli.exe" )
      SEPARATOR
      MENUITEM "Cobrança &C.E.F. Aplicativo Local" ;
         FILENAME ".\HelpInd.bmp"                               ;
         ACTION( ( Chama_Aplicativo( cLink_CeF_Cobra ) ),       ;
                         oWnd:UpDate(), oWnd:Refresh() )

      cBBCobranca := ( "C:\BancoBrasil\BBCobranca\bbcbr.jar" )
      SEPARATOR
      MENUITEM "&BBCobran‡a Aplicativo Local"      ;
         FILENAME ".\Help.bmp"                                  ;
         ACTION( ( Chama_Aplicativo( cBBCobranca ) ),           ;
                     oWnd:UpDate(), oWnd:Refresh() )

      cIObit := ( "http://www.iobit.com/pt/malware-fighter.php" )

      SEPARATOR
      MENUITEM "&IObit Malware Fighter"                    ;
         FILENAME ".\Help.bmp"                                          ;
         ACTION( ShellExecute(GetActiveWindow(),"open",'"'+cIobit+'"'), ;
                 oWnd:UpDate(), oWnd:Refresh() )

      SEPARATOR
      MENUITEM "&Sair do Programa - Alt+S"    ;
         FILENAME ".\Saida.bmp"               ;
         ACTION( oWnd:End() )

   ENDMENU

   DEFINE BUTTON OF oBar FILENAME ".\LOGO_104.BMP" GROUP TOP     ;
      MENU oServices                                             ;
      ACTION( ShellExecute(GetActiveWindow(),"open",'"'+cLinkCEF+'"') ) ;
      TOOLTIP "Dispara Para a C.E.F. Veja Menu ao Lado"

   cLinkBrad := ( "www.bradesco.com.br/html/classic/index.shtm" )
   DEFINE BUTTON OF oBar FILENAME ".\LOGO_237.BMP" GROUP TOP             ;
      ACTION( ShellExecute(GetActiveWindow(),"open",'"'+cLinkBrad+'"') ) ;
      TOOLTIP "Dispara Para o Brad."

   cLinkItal := ( "www.itau.com.br/" )
   DEFINE BUTTON OF oBar FILENAME ".\LOGO_341.BMP" GROUP TOP             ;
      ACTION( ShellExecute(GetActiveWindow(),"open",'"'+cLinkItal+'"') ) ;
      TOOLTIP "Dispara para o It..."

   DEFINE BUTTON OF oBar FILENAME ".\Exit.bmp"     GROUP TOP ;
      ACTION( oWnd:End() ) TOOLTIP "Sair do Programa"

   DEFINE MESSAGE OF oWnd                  ;
      PROMPT FWVERSION + " " + FWCOPYRIGHT + " - " + "kapiabafwh@gmail.com.br" + ;
                                           + " - " + "(11) 3106-2832 "           ;
      NOINSET CENTERED KEYBOARD DATE CLOCK

   DEFINE BITMAP oBmp FILENAME ".\CONTATO.bmp"

   oWnd:bPainted = { | hDC | BmpTiled( hDC, oWnd, oBmp ) }

   ACTIVATE WINDOW oWnd MAXIMIZED ;
      VALID MsgYesNo( "Deseja Sair do Programa?", "Saida do Programa" )

   oFont:End()
   oFnt:End()

   FreeResources()

   SysRefresh()

   RELEASE All
   Hb_GCAll( .T. )

   CLEAR MEMORY

   PostQuitMessage( 0 )

   __QUIT()

RETURN NIL

FUNCTION BmpTiled( hDC, oWnd, oBmp )

   local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight()
   local nRow := 0, nCol := 0, n
   local nBmpWidth  := oBmp:nWidth(),  nBmpHeight := oBmp:nHeight()

   if oBmp:hBitmap == 0
      return nil
   endif

   while nRow < nHeight
      nCol = 0
      while nCol < nWidth
         PalBmpDraw( hDC, nRow, nCol, oBmp:hBitmap )
         nCol += nBmpWidth
      end
      nRow += nBmpHeight
   end

   RETURN NIL

FUNCTION ConsultaLink( cLinkExplorer ) // VIA INTERNET EXPLORER

   LOCAL oChildWnd, oActiveX

   MsgWait( "CONECTANDO AO SITE VIA INTERNET EXPLORER", "AGUARDE UM MOMENTO POR FAVOR...         ", 2.5 )

   MeuWinExec( "Start Iexplore.Exe " + cLinkExplorer, 0 )

   RETURN NIL

FUNCTION Chama_Aplicativo( cLinkAplicativo ) // VIA GOOGLE CRHOME ou Nao.

   LOCAL oChildWnd, oActiveX

   MsgWait( "CONECTANDO A UM APLICATIVO LOCAL", "AGUARDE UM MOMENTO POR FAVOR... ", 2.5 )

   MeuWinExec( cLinkAplicativo, 0 )

   RETURN NIL

FUNCTION MeuWinExec( cParametro )

   LOCAL cExecute := GetPvProfString( "" )

   IF IsWinNT() .OR. IsWin2000()
      cExecute := GetEnv( "COMSPEC" ) + " /C "
   ENDIF

RETURN WinExec( cExecute + cParametro, 0 )

// FIM DO PROGRAMA - By Joao Santos - kapiabafwh@gmail.com

Mensagem por **Kapiaba** » 20 Set 2017 16:19

Novo modelo para o senhor testar mister Quintas.

Mensagem por **JoséQuintas** » 20 Set 2017 21:59

Esses exemplos são interessantes, mas mostram recursos do Harbour/xHarbour, não da fivewin.