Clipper On Line • Ver Tópico - Teste básico fivewin
Página 1 de 2

Teste básico fivewin

MensagemEnviado: 18 Set 2017 22:16
por JoséQuintas
Apenas testando o básico da fivewin, do meu jeito.
Só desprezando a organização que veio, alterando tudo de pasta, criando hbp e hbc que não existe nenhum, essas coisas básicas... rs

Alguém pode me indicar um sample interessante da fivewin pra compilar?

Teste básico fivewin

MensagemEnviado: 18 Set 2017 22:20
por JoséQuintas
Por enquanto compilando, por exemplo este:
fivewin.png


Do meu jeito... rs
hbmk2 bigfold.prg bigfold.rc fivewin.hbc

Teste básico fivewin

MensagemEnviado: 18 Set 2017 22:30
por JoséQuintas
achei um legal.

hbmk2 fivedit.prg fivedit.rc fivewin.hbc

fivewin2.png

Teste básico fivewin

MensagemEnviado: 18 Set 2017 22:38
por JoséQuintas
O que criei pra compilar:

fivewin.hbc

libpaths=lib/win/${hb_comp}
incpaths=include
libs=fiveh fivehc hbct hbmzip xhb hbwin hbziparc minizip
gui=yes
mt=yes


e na pasta harbour\bin

hbmk.hbc

libpaths=../../fivewin


E lógico... movi dentro do harbour os arquivos lib pra harbour\lib\win\bcc, e os relacionados com fivewin bcc pra fivewin\lib\win\bcc

Ah sim... apaguei os arquivos ilink32.cfg e bcc32.cfg porque atrapalham.

e o tradicional, de sempre:
set HB_BUILD_DYN=no
set HB_BUILD_STRIP=all
set HB_COMPILER=bcc
set HB_INSTALL_PREFIX=d:\fivewin\harbour
set PATH=d:\fivewin\harbour\bin;d:\fivewin\harbour\comp\bcc\bin;d:\tools\util


Curioso né... pra xHarbour precisa configurar o bcc com os arquivos xx32.cfg...
Avisem pra eles que não precisa, podia ser indicado no "bat" ou sei lá o que, de compilação/linquedição.... rs

Nota: o correto seria usar os HBC do Harbour... mas cadê eles? não existe no fivewin, pelo menos neste fivewin....

Teste básico fivewin

MensagemEnviado: 18 Set 2017 22:47
por JoséQuintas
sefazclass:

d:\cdrom\FONTES\INTEGRA\sefazclass>HBMK2 *.hbp -m -n -w3 -es2 -workdir=c:\temp -compr -strip -mt -quiet -ge1 -Id:\cdrom\fontes\build\
hbmk2[sefazclass]: Warning: Cannot find hbhpdf.hbc (referenced from
sefazclass.hbc)
hbmk2[sefazclass]: Warning: Cannot find hbzebra.hbc (referenced from
sefazclass.hbc)
hbmk2[sefazclass]: Warning: Cannot find hbwin.hbc (referenced from
sefazclass.hbc)
hbmk2[sefazclass]: Warning: Cannot find hbct.hbc (referenced from
sefazclass.hbc)
Harbour 3.2.0dev (r1703231115)
Copyright (c) 1999-2016, http://harbour-project.org/
Compiling 'source\ze_capicom.prg'...
Lines 52, Functions/Procedures 2
Generating C source output to 'c:\temp\ze_capicom.c'... Done.
Compiling 'source\ze_SpedAssina.prg'...
Lines 1244, Functions/Procedures 9
Generating C source output to 'c:\temp\ze_SpedAssina.c'... Done.
Compiling 'source\ze_spedAssinachk.prg'...
Lines 63, Functions/Procedures 1
Generating C source output to 'c:\temp\ze_spedAssinachk.c'... Done.
Compiling 'source\ze_SpedDaCte.prg'...
600
source\ze_SpedDaCte.prg:9: error F0029 Can't open #include file 'harupdf.ch


Lógico, era esperado, não tem nenhum hbc original do Harbour.

Teste básico fivewin

MensagemEnviado: 18 Set 2017 23:34
por JoséQuintas
pela falta de hbc, acabei criando um tapa-buraco.

incpaths=../harbour/include
incpaths=/cdrom/fontes/integra/josequintas/include
headers=../harbour/include/hbgtwvg.ch
headers=../harbour/include/wvgparts.ch
headers=../harbour/include/wvtwin.ch
headers=../harbour/include/hbwin.ch
headers=../harbour/include/harupdf.ch
libpaths=/cdrom/fontes/integra/sefazclass
libpaths=/cdrom/fontes/integra/josequintas
libpaths=../harbour/addons/lib/win/bcc
libs=hbct hbmzip xhb hbwin hbziparc minizip hbhpdf libhpdf png hbzebra
libs=gtwvg hbwin hbnetio hbmisc hbtip
libs=josequintas sefazclass


Mas tive que retirar arquivo de resource, e código de barras pra boleto bancário.

Error: Unresolved external '_HB_FUN_WAPI_GETWINDOWRECT' referenced from D:\FIVEWIN\HARBOUR\ADDONS\LIB\WIN\BCC\JOSEQUINTAS.LIB|ze_wvgbutton
Error: Unresolved external '_HB_FUN_TIP_MAILSEND' referenced from D:\FIVEWIN\HARBOUR\ADDONS\LIB\WIN\BCC\JOSEQUINTAS.LIB|ze_sendmailclass
Error: Unresolved external '_HB_FUN_WAPI_RGB' referenced from D:\FIVEWIN\HARBOUR\ADDONS\LIB\WIN\BCC\JOSEQUINTAS.LIB|ze_gtsetuppalette
Error: Unable to perform link
hbmk2[jpa]: Error: Running linker. 2


Gerou a lib sefazclass, gerou a lib josequintas, mas no aplicativo deu falta disso acima, do 3.4.

Teste básico fivewin

MensagemEnviado: 18 Set 2017 23:44
por JoséQuintas
Importante: no final desses testes, foi só digitar EXIT <ENTER> e voltou tudo ao normal, que costumo usar.

A título de curiosidade:

Pasta de d:\harbour\addons\lib\win\mingw

18/09/2017 23:39 <DIR> .
18/09/2017 23:39 <DIR> ..
17/09/2017 03:43 2.043.512 libhmg3.a
17/09/2017 03:54 2.664.772 libhmge.a
17/09/2017 03:45 1.350.060 libhwgui.a
18/09/2017 23:39 2.835.314 libjosequintas.a
18/09/2017 23:39 353.234 libsefazclass.a
5 arquivo(s) 9.246.892 bytes


Pasta de d:\fivewin\harbour\addons\lib\win\bcc

18/09/2017 23:33 <DIR> .
18/09/2017 23:33 <DIR> ..
18/09/2017 23:32 2.673.664 josequintas.bak
18/09/2017 23:33 2.673.664 josequintas.lib
18/09/2017 23:33 318.464 sefazclass.lib
3 arquivo(s) 5.665.792 bytes


Como desvio as LIBs pra pasta harbour/add-ons, cada Harbour ficou com sua versão das LIBs.

Teste básico fivewin

MensagemEnviado: 19 Set 2017 10:05
por Kapiaba
Mister Quintas, sinceramente, não entendi o que o senhor quer fazer.

Teste básico fivewin

MensagemEnviado: 19 Set 2017 10:14
por JoséQuintas
Apenas estava procurando um teste mais "pesado" nos exemplos.
Quem está acostumado poderia indicar direto, ao invés de eu testar um por um.

E com certeza, caso eu queira usar fivewin, o ponto de partida será meu aplicativo.

Quanto à configuração, é o padrão do Harbour desde o 3.0, que as LIBs ainda não entenderam, e muitos usuários também não.
Considero importante que funcione, pra não ter surpresas, e nisso o aplicativo "mais pesado" ajuda a confirmar mais rápido.

Teste básico fivewin

MensagemEnviado: 19 Set 2017 10:36
por Kapiaba
Infelizmente, não uso Harbour, mas vou chamar o pessoal do forum que usa o Harbour para ajudá-lo. Wait a moment, please!

Se precisar de exemplo com Fivewin for xHarbour e BCC72 eu posso ver isso para o senhor sem problemas.

Tópico criado, é só aguardar:

http://fivewin.com.br/index.php?/topic/27245-teste-b%C3%A1sico-fivewin/

Pode acompanhar aqui também:

https://www.facebook.com/groups/112382682270253/?ref=bookmarks

Abs

Teste básico fivewin

MensagemEnviado: 19 Set 2017 11:02
por JoséQuintas
No momento, compilação ok, a diferença foi só por ser Harbour 3.2
Quanto aos samples, lembrei do básico DIR /OS
Desse jeito vou direto aos maiores.... rs

fivedit, fivedbu, fivedit0, autolay, etc.

Teste básico fivewin

MensagemEnviado: 19 Set 2017 11:21
por JoséQuintas
Já comecei até a melhorar sample.... rs

O dbcre8, ele abre com as opções Ok e cancelar, depois do ok abre o browse mas continua a janela anterior aberta.
Acrescentei pra fechar a primeira janela e funcionou.

Isto na primeira janela, passando o nome pra função
@ 4.4, 8 BUTTON "&Ok" SIZE 40, 13 ACTION BuildDbf( nRecords, cFileName, oDlg )


Isto na função, pra fechar a janela anterior:
function BuildDbf( nRecords, cFileName, oDlg )
oDlg:End()


Ponto pro fivewin por ter funcionado, isso já se mostrou complicado em outras LIBs.
Mas ponto negativo pro sample, não tem nada no fonte, o tamanho é só por causa de dados pra dbf.

Teste básico fivewin

MensagemEnviado: 19 Set 2017 11:43
por Kapiaba
Teste também um exemplo mais completo que aumentará seu poderio bélico em fivewin:

Pasta de C:\FWH1701\samples

29/08/2017  11:34            33.914 YUNUS.PRG


Mas detalhes, aqui:

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=34525

Abs.

Teste básico fivewin

MensagemEnviado: 19 Set 2017 12:11
por JoséQuintas
Legal, era um desses que estava procurando, mais completo.
Pena que tenho que ir pra cliente agora.

Vai parecer piada, mas é sério: está interessante, está parecendo uma GTWVG melhorada, trabalhando com objetos.
E se não acrescentar o RC, apenas os ícones não aparecem... igual GTWVG.
Tem LIB que dá erro de GPF se isso acontecer.... rs

yunus não fugiu da regra: hbmk2 yunus.prg yunus.rc fivewin.hbc

Na volta do cliente vou olhar com atenção o fonte, se começar a olhar agora, vou atrasar.
Acho que pode ser um ponto de partida pra meus testes.

Meus testes, como sempre são: usar, colocar em prática pra ver o que dá.
Vamos ver depois os fontes e diferenças do Harbour 3.4., e a possibilidade de outro compilador C...

Teste básico fivewin

MensagemEnviado: 19 Set 2017 12:49
por Kapiaba
Very good. Bem vindo ao mundo FiveWin. Ai sim, estais no caminho certo para se tornar umas das maiores super potência em Fivewin for xHarbour.

Se me permite um conselho, não conheço ninguém e nem o Antonio Liñares usa, o Harbour 3.4. Então, mantenha seus testes sempre em Harbour 3.2.

FiveWin, é todo basado em Harbour 3.2, pois, se houver qualquer necessidade, o Antonio Liñares modifica e sempre Adjunta ao Projeto.

Somente uma dica para evitar efeitos colaterais. Mas, gosto é gosto. Eu prefiro xHarbour.

Em tempo, não vou comentar sobre esta ferramenta: GTWVG, pois não a conheço, mas tenho algumas pessoas no meu skype que usava essa GTWVG e ajudei a migrar para Fivewin the best e nem vou repetir os comentários sobre comparação, pois não foram agradáveis para essa GTWVG. Só lembro uma: Isso é uma... Bósnia. kkkkkkkkkkkkkkk

Divirta-se e fique à vontade para perguntar. Verás que é outro mundo. I Love Fivewin.

Abs.

Teste básico fivewin

MensagemEnviado: 19 Set 2017 15:08
por Kapiaba
Colaborando mais um pouco para vosso aprendizado Mister Quintas, simples programa compilado com Fivewin y xHarbour. Fontes e .exe adjuntos.

Teste básico fivewin

MensagemEnviado: 19 Set 2017 21:18
por JoséQuintas
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 156 vezes

Teste básico fivewin

MensagemEnviado: 19 Set 2017 22:07
por Edgard Vaz
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

Teste básico fivewin

MensagemEnviado: 19 Set 2017 22:25
por JoséQuintas
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.

Teste básico fivewin

MensagemEnviado: 20 Set 2017 10:06
por Kapiaba
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 )

Teste básico fivewin

MensagemEnviado: 20 Set 2017 10:12
por Kapiaba
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.

Teste básico fivewin

MensagemEnviado: 20 Set 2017 10:14
por Kapiaba
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.

Teste básico fivewin

MensagemEnviado: 20 Set 2017 10:54
por Kapiaba
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.

Teste básico fivewin

MensagemEnviado: 20 Set 2017 12:30
por Kapiaba
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

Teste básico fivewin

MensagemEnviado: 20 Set 2017 16:19
por Kapiaba
Novo modelo para o senhor testar mister Quintas.

Teste básico fivewin

MensagemEnviado: 20 Set 2017 21:59
por JoséQuintas
Esses exemplos são interessantes, mas mostram recursos do Harbour/xHarbour, não da fivewin.