Clipper On Line • Ver Tópico - Teste básico fivewin

Teste básico fivewin

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

Moderador: Moderadores

 

Teste básico fivewin

Mensagempor 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.
Anexos
BANCOS.rar
Bancos
(1.23 MiB) Baixado 69 vezes
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1480
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 284 vezes
Mens.Curtidas: 90 vezes

Teste básico fivewin

Mensagempor 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 64 vezes
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 11323
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 12 vezes
Mens.Curtidas: 727 vezes

Teste básico fivewin

Mensagempor 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
Edgard Vaz
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 3
Data de registro: 19 Set 2017 21:53
Cidade/Estado: São Paulo
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Teste básico fivewin

Mensagempor 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.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 11323
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 12 vezes
Mens.Curtidas: 727 vezes

Teste básico fivewin

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

#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 )
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1480
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 284 vezes
Mens.Curtidas: 90 vezes

Teste básico fivewin

Mensagempor Kapiaba » 20 Set 2017 10:12

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

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.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1480
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 284 vezes
Mens.Curtidas: 90 vezes

Teste básico fivewin

Mensagempor Kapiaba » 20 Set 2017 10:14

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

 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.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1480
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 284 vezes
Mens.Curtidas: 90 vezes

Teste básico fivewin

Mensagempor Kapiaba » 20 Set 2017 10:54

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

#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.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1480
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 284 vezes
Mens.Curtidas: 90 vezes

Teste básico fivewin

Mensagempor Kapiaba » 20 Set 2017 12:30

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

#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
Anexos
BANCOS.rar
(2.68 MiB) Baixado 80 vezes
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1480
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 284 vezes
Mens.Curtidas: 90 vezes

Teste básico fivewin

Mensagempor Kapiaba » 20 Set 2017 16:19

Novo modelo para o senhor testar mister Quintas.
Anexos
NFEBAIXA.rar
(2.57 MiB) Baixado 78 vezes
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1480
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 284 vezes
Mens.Curtidas: 90 vezes

Teste básico fivewin

Mensagempor JoséQuintas » 20 Set 2017 21:59

Esses exemplos são interessantes, mas mostram recursos do Harbour/xHarbour, não da fivewin.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 11323
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 12 vezes
Mens.Curtidas: 727 vezes

Anterior



Retornar para FiveWin

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante


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
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro