Aos poucos migrando tela caracter para GUI

por **cjp** » 26 Mai 2020 00:37

Peço, por favor, que não esqueçam deste tópico. Estou precisando dar continuidade nisto.
Obrigado.

por **JoséQuintas** » 26 Mai 2020 10:03

ERRO AO EXECUTAR O COMPILADOR DE RECURSOS

Desde quando inventaram o disco e o DOS 2.1, uns 40 anos atrás, continua tudo igual.
Se o EXE não está na pasta, no path, ou não existe, não dá pra executar.

Acrescenta -trace pra ver qual o nome do EXE que está sendo chamado, e procura se tem na máquina, e se está no path.

por **cjp** » 26 Mai 2020 11:19

Compilando com o -trace dá como no print anexo.
Percebi um possível erro: o set path tem as pastas c:\hwgui\bin e c:\hwgui\comp\mingw32\bin. Mas não tem pastas bin e comp dentro da pasta hwgui.
Será este o problema?

por **JoséQuintas** » 26 Mai 2020 11:29

dir \windres.exe /s/b

ou

por **Itamar M. Lins Jr.** » 26 Mai 2020 13:19

Ola!
Se não estou enganado, acredito que está isolado ai com essa sua configuração.
Eu não uso assim, não posso ajudar. Nem uso a Hwgui 2.17 nem compilador cLang, acredito que Alexandre Simões, está usando GCC agora.
Na mensagem dele:

set path=\HB32GCC64\bin;\HB32GCC64\comp\mingw64\bin;
hbmk2 BROWSECOLOR.hbp -jobs=1 -rebuild -run

Dai eu não respondi pq tem muitos arquivos .bat o compilador está dentro da pasta do Harbour e eu não uso assim.
Aqui o GCC está na pasta msys2 o harbour na pasta \hb32 e a hwgui na pasta \hwgui
Eu só tenho uma configuração simples de PATH mais nada não seto nada aqui o hbmk2 faz tudo sozinho.

Saudações,
Itamar M. Lins Jr.

por **cjp** » 26 Mai 2020 22:55

Achei o windres e consegui resolver esta parte.
Mas agora está dando outro erro na compilação.

por **asimoes** » 27 Mai 2020 10:28

Vamos aos acertos:

getDeskTopRealWidth    => hwg_GetDesktopWidth() 
getDeskTopRealHHeight  => hwg_GetDesktopHeight() 
hb_KEYB_EVENT          => hwg_KEYB_EVENT

A função _CONTROLPOS_C_SETSTYLE_ está no fonte ControleJanela.C, incluir no hbp

ControleJanela.C: (3.49 KiB) Baixado 30 vezes

por **cjp** » 27 Mai 2020 11:28

Ainda está dando erro na compilação. Veja o print anexo, por favor.
Fiz as seguintes alterações no demo.prg:

* -----------------------------------------------------------------
* Programa...: ASAPREV.PRG
* Finalidade.: Controlar o Menu de Opções do Sistema da ASAPREV
* Autor......: Alexandre Simões
* Data.......: 09/2010 até presente data
* -----------------------------------------------------------------
* Manutenção atual por: Alexandre Simões (SET/2010 A PRESENTE DATA)
* Código migrado para Harbour 32Bit
* -----------------------------------------------------------------
* Harbour    : 3.4 FORK 
* Compilador : LLVM/CLANG 9.0 (32-bit)
* Lib Gráfica: HwGui 2.17 (FORK)
* -----------------------------------------------------------------
THREAD STATIC ThisFormMain

#include "hwgui.ch"
#include "inkey.ch"
#include "dbinfo.ch"
#include "fileio.ch"
#include "hbclass.ch"
#include "hbver.ch"
#include "hbdyn.ch"
#include "hbthread.ch"

//#define WM_QUERYENDSESSION          0x0011
//#define WM_ENDSESSION               0x0016
//#define WM_ENDSESSION                   22

#define NIIF_INFO               0x00000001
#define NIIF_WARNING            0x00000002
#define NIIF_ERROR              0x00000003
#define NIIF_USER               0x00000004

#define HB_SYMBOL_UNUSED( symbol )  ( symbol := ( symbol ) )

FUNCTION MAIN()
PUBLIC oDEMO

   WITH OBJECT oDEMO := ClDEMO():New()
      :DEMO()
   END
   
RETURN Nil

CREATE CLASS ClDEMO

   PROTECTED :
   
   EXPORTED :   
   
   VAR nWidth           AS INTEGER INIT Nil PROPERTY
   VAR nHeight          AS INTEGER INIT Nil PROPERTY
   VAR nOpcao           AS INTEGER INIT 1   PROPERTY
   VAR nTmpSistema      AS INTEGER INIT 60  PROPERTY
   VAR nLoop            AS INTEGER INIT 1   PROPERTY
   VAR nTimeOut         AS INTEGER INIT -1  PROPERTY
   VAR aOpcao           AS ARRAY   INIT {}  PROPERTY
   VAR aCompDateTime    AS ARRAY   INIT {}  PROPERTY
   VAR aEstacaoFoto     AS ARRAY   INIT {"PC2"} PROPERTY
                        
   VAR oIcon001         AS OBJECT  INIT Nil PROPERTY
   VAR oIcon002         AS OBJECT  INIT Nil PROPERTY
   VAR oIcon003         AS OBJECT  INIT Nil PROPERTY
   VAR oIcon004         AS OBJECT  INIT Nil PROPERTY
   VAR oIcon005         AS OBJECT  INIT Nil PROPERTY
   VAR oIcon006         AS OBJECT  INIT Nil PROPERTY
   VAR oIconCEP         AS OBJECT  INIT Nil PROPERTY
   VAR oIconOpe         AS OBJECT  INIT Nil PROPERTY
   VAR oOpcoes          AS OBJECT  INIT Nil PROPERTY
   VAR ThisFormInit     AS OBJECT  INIT Nil PROPERTY
   
   METHOD DEMO()
   METHOD AppSetup()
   METHOD SaidaSistema()
   METHOD ChamaRotina( cRotina, lGui )
      
ENDCLASS

METHOD DEMO()
LOCAL  oStatus1, oMenu1, oToolbar1, oToolbutton1, oToolbutton2, oToolbutton3, oToolbutton4 ;
       , oToolbutton5
LOCAL oIcon, oFont1, oFont2, oFont3, oFont4
LOCAL nIconIndex
LOCAL nHandleFile, nWidthW, nHeightH, nWidth, nHeight, aListBox:={}, oElemento

PUBLIC oWin
PUBLIC cDirSis          := Hb_DirBase() + [NETIO\SERVER5\DB\], ;
       cDirTMP          := Hb_GetEnv("TEMP") + Hb_Ps()
PUBLIC cVersao
PUBLIC Tecla
PUBLIC cUsuSis
PUBLIC cSenSis
PUBLIC cCor_0101
PUBLIC cCor_2424
PUBLIC iGiro            := 1
PUBLIC cArqPrint        
PUBLIC aTexto           := {}, oEdit
PUBLIC nRed             := Round(212 / 255, 2), ;
       nGreen           := Round(255 / 255, 2), ;
       nBlue            := Round(255 / 255, 2)
PUBLIC lPaint           := .F.
PUBLIC aAzul            := {0, 0, Round(255/255, 2)}
PUBLIC aVermelho        := {Round(255/255, 2), 0, 0}
PUBLIC aVerde           := {0, Round(255/255, 2), 0}
PUBLIC aPreto           := {0, 0, 0}
PUBLIC AzulHTML         := '<span style="color:#0000FF">'
PUBLIC VermelhoHTML     := '<span style="color:#FF0000">'
PUBLIC QuebraHTML       := "<br>"
PUBLIC cAlineL          := '<td align="left">'
PUBLIC cAlineC          := '<td align="center">'
PUBLIC cAlineR          := '<td align="right">'
PUBLIC oThisForm
PUBLIC cEstacaoCobranca := Hb_GetEnv( "COMPUTERNAME" )
PUBLIC cMens_, ;
       cCor__, ;
       nLin__, ;
       nCol__   
PUBLIC xMedia
PUBLIC oAchoice, ;
       oEditor, ;
       oMemo, ;
       oBrowse, ;
       oGuiProc, ;
       oClRede, ;
       oClShow, ;
       oClJustificaTexto       
PUBLIC pWindowGTI
PUBLIC N_BLUE           := 16711680
PUBLIC N_DARKBLUE       := 10027008
PUBLIC N_WHITE          := 16777215
PUBLIC N_CYAN           := 16776960
PUBLIC N_BLACK          :=        0
PUBLIC N_RED            :=      255
PUBLIC N_GREEN          :=    32768
PUBLIC N_GRAY           :=  8421504
PUBLIC N_YELLOW         :=    65535
PUBLIC N_CLEANBLUE      := 16771276
PUBLIC N_CLEANGRAY      := 12632256
PUBLIC N_BLUE001        := 16777172
*
PRIVATE cUserName       := Hb_GetEnv("USERNAME")
PRIVATE aPrn            := Win_PrinterList()
PRIVATE oSayMsg0
PRIVATE oSayMsg1
PRIVATE oSayMsg2
PRIVATE oSayMsg3
PRIVATE oBar
PRIVATE nTempoInicio
   
   ::AppSetup()
     
   nIconIndex := NIIF_USER
   
   hwg_SetColorInFocus( .T., 16711680, 8388607 ) 
   
   hwg_SetTooltipBalloon( .T. )
   
   oFont1     := HFont():Add( "Georgia", 15, -30, , 0 )
              
   oFont2     := HFont():Add( "Tahoma", 8, -20, , 0 )
              
   oFont3     := HFont():Add( "Tahoma", 6, -20, , 0 )
              
   oFont4     := HFont():Add( "Tahoma", 6 )

   oIcon      := HIcon():AddResource("ICON_A", 24, 24)
   
   nWidth      := hwg_GetDesktopRealWidth() 
   
   nHeight     := hwb_GetDesktopRealHeight() 
   
   ::nWidth    := hwg_GetDesktopRealWidth() 
   
   ::nHeight   := hgw_GetDesktopRealHeight()
     
   lErro := .F.
   
   cCor_0101 := "B/W*"
   cCor_0202 := "W+/B*" 
   cCor_0322 := "W+/B,B/GR*,,,N/W"
   cCor_2424 := "W+/B*"
   
   ::aOpcao := {}
 
   INIT WINDOW oWin ;
               MAIN ;
               TITLE       "DEMO - Versão 32 bits" ;
               AT          0, 0 ;
               SIZE        hwg_GetDesktopRealWidth() , hwg_GetDesktopRealHeight() ;
               FONT        HFont():Add( 'Tahoma', 0 , -13, 400 ) ;
               ICON        oIcon ;
               STYLE       WS_CAPTION + WS_SYSMENU + WS_MAXIMIZEBOX ;
               ON INIT     {|this| hwg_Keyb_Event( VK_UP ), ;
                                   _CONTROLPOS_C_SETSTYLE_( oWin:handle, WS_SIZEBOX, .T. ) ;
                           } ;
               ON EXIT     {|this| ::SaidaSistema() }

   ThisFormMain           := oWin

   @ 0,0  BITMAP        Bitmap1 ;
          SHOW          "AVI\WALLPAPER.JPG" ; 
          OF            ThisFormMain ;
          STRETCH       0 ;
          SIZE          nWidth, nHeight - 65
          
   MENU OF ThisFormMain  
      MENU TITLE 'Chama Programa' ID 32000 
         MENU TITLE 'Demo' ID 32001 
            MENUITEM 'Demo Console' ID 32002                                            ACTION {|| ::ChamaRotina( "TESTECONSOLE()", .F. ) } BITMAP "AVI\CADASTRAR.BMP"  
         ENDMENU  
      ENDMENU  
      MENUITEM 'Sair do Sistema' ID 32129  ACTION {|| ::SaidaSistema() } 
   ENDMENU 
      
   ACTIVATE WINDOW oWin MAXIMIZED CENTER ON ACTIVATE {|| .T. }
    
RETURN Nil 

METHOD SaidaSistema()
LOCAL lSair := .F.
   
   hwg_ExitProcess()
    
RETURN lSair

METHOD ChamaRotina( cRotina, lGui ) 
THREAD STATIC lInicio := .F., lContinua := .T., oErro

   Hb_Default(@lGui, .F.)
   
         If ! lGui
            If ! lInicio
               lInicio := .T.
               nThread  :=  Hb_ThreadStart( Hb_BitOr( HB_THREAD_INHERIT_PUBLIC, HB_THREAD_INHERIT_PRIVATE, HB_THREAD_INHERIT_MEMVARS ), {|| &cRotina.} )
               
//               DO WHILE .T.
//                  IF Hb_ThreadWait( nThread, 0.1, .T. ) == 1 
//                     Exit
//                  ENDIF
//                  hwg_DoEvents()
//               ENDDO
               //Eval( {|| &cRotina. } ) 
               If pWindowGTI != Nil
                  wapi_DestroyWindow( pWindowGTI ) 
               Endif
               lInicio := .F.
            Endif
         Endif
                               
RETURN Nil

METHOD AppSetup()

PUBLIC cEstacaoCobranca := Hb_GetEnv( "COMPUTERNAME" )

PUBLIC cTaskMens1 := Hb_Eol() + ;
                     Hb_Eol() + ;
                     Hb_Eol() + ;
                     Hb_Eol() + ;
                     Hb_Eol() + ;
                     Hb_Version() + ;
                     Hb_Eol() + ;
                     Hb_Eol() + ;
                     Hb_Compiler()
                     
PUBLIC cTaskMens2 := "Construído por: Alexandre Simões" + ;
                     Hb_Eol() + ;
                     Hb_Eol() + ;
                     "Email: asimoesluz@gmail.com"
                    
  * Verificar portas no windows 7: netstat -an

PUBLIC hWnd, ;
       oSayMsg, ;
       oDlgHabla, ;
       cTituloJanela, ;
       oTimer, ;
       cPrinter, ;
       nJanelaAsaPrev, ;
       cBuild, ;
       OldHandler     

   //ANNOUNCE hwg_ErrSys
   
   //ErrorSistema()
    
   *
   
   cPrinter := Win_PrinterGetDefault()
   
   REQUEST DBFCDX
   
   REQUEST SIXCDX
   
   REQUEST HB_MEMIO
    
   RddSetDefault('DBFCDX')
   
   REQUEST HB_LANG_PT
  
   REQUEST HB_CODEPAGE_PT850
  
   REQUEST HB_CODEPAGE_PTISO
   
   Hb_LangSelect("PT")
  
   Hb_SetCodePage( "PTISO" )
  
   Hb_CdpSelect("PTISO")
  
   Set( _SET_EVENTMASK, INKEY_ALL - INKEY_MOVE )
    
   SET TYPEAHEAD TO 0
   SET INTENSITY ON
   SET DELETED ON
   SET DATE ANSI
   SET DATE FORMAT "DD/MM/YY"
   SET DELIMITERS TO
   SET EXCLUSIVE OFF
   SET EPOCH TO 1965
   SET CENTURY ON
   SET OPTIMIZE ON
   SET AUTOPEN OFF
   SET DBFLOCKSCHEME TO DB_DBFLOCK_CLIPPER 
   
   Set( _SET_FORCEOPT, .T. )
     
RETURN Self 
  
#pragma BEGINDUMP

#include <windows.h>

#include "hbapi.h"

HB_FUNC( HB_GTI_DESTROY_WINDOW )
{
   DestroyWindow( (HWND) hb_parnl( 1 ) );
}

#pragma ENDDUMP

#pragma BEGINDUMP

#if defined ( __MINGW32__ )
   #define _WIN32_WINNT 0x0500
#endif

#include <windows.h> 
#include "hbapi.h"

HB_FUNC( SETTRANSPARENT )
{

   typedef BOOL (__stdcall *PFN_SETLAYEREDWINDOWATTRIBUTES) (HWND, COLORREF, BYTE, DWORD);

   PFN_SETLAYEREDWINDOWATTRIBUTES pfnSetLayeredWindowAttributes = NULL;

   HINSTANCE hLib = LoadLibrary("user32.dll");

   if (hLib != NULL)
   {
      pfnSetLayeredWindowAttributes = (PFN_SETLAYEREDWINDOWATTRIBUTES) GetProcAddress(hLib, "SetLayeredWindowAttributes");
   }

   if (pfnSetLayeredWindowAttributes)
   {
      SetWindowLong((HWND) hb_parnl (1), GWL_EXSTYLE, GetWindowLong((HWND) hb_parnl (1), GWL_EXSTYLE) | WS_EX_LAYERED);
      pfnSetLayeredWindowAttributes((HWND) hb_parnl (1), 0, hb_parni (2), LWA_ALPHA);
   }

   if (!hLib)
   {
      FreeLibrary(hLib);
   }

}

#pragma ENDDUMP

Não sei se fiz algo errado.

O demo.hbp está assim:

# ---------------------------
# Construção do AsaPrev
# Autor : Alexandre Simões
# Data  : 02/02/2018
# Versão: GCC/CORE
# ---------------------------
# Executável
# ---------------------------
-oDEMO
# ---------------------------
# Prg(s) e Rc(s)
# ---------------------------
DEMO.PRG
CHAMACONSOLE.PRG
TESTECONSOLE.PRG
#----------------------------
# HBC / LIBS
# ---------------------------
-L.\lib;
-I\hwgui\include;.;

-lhwgui
-lhwbos
-lpng
-lVfw32
-lversion

hbct.hbc
hbnf.hbc
hbmemio.hbc
gtwvg.hbc
hbgt.hbc
hbhpdf.hbc
hbzebra.hbc
hbwin.hbc
hbtip.hbc
hbssl.hbc
hbfimage.hbc
xhb.hbc
hbxpp.hbc
camera.cpp
controlejanela.c

# ---------------------------
# Outros parâmetros
# ---------------------------
-dHARBOUR
-gtgui
-head=full
-n
-warn=no
-inc
-mt
-strip
-u+hbcompat.ch
-u+i_color.ch
-u+pscript.ch
-optim
-m
-ge1
-quiet
-es1
DEMO.RC

por **asimoes** » 27 Mai 2020 11:42

Co m certeza fez errado:

getDeskTopRealWidth substituir por hwg_GetDesktopWidth()
getDeskTopRealHHeight substituir por hwg_GetDesktopHeight()
hb_KEYB_EVENT substituir por hwg_KEYB_EVENT

CJP, você misturou os nomes das funções, olha ai

por **cjp** » 27 Mai 2020 12:43

Sim, fiz confusão. Desculpe.
Agora compilou. Muito obrigado.

por **asimoes** » 27 Mai 2020 13:22

cjp escreveu:Sim, fiz confusão. Desculpe.
Agora compilou. Muito obrigado.

Sugestão grava em um pendrive, pra não correr o risco!

por **cjp** » 27 Mai 2020 15:17

Sim. Agora está gravado. Não perderei mais.
Muito obrigado mais uma vez.

por **cjp** » 27 Mai 2020 22:40

Por favor, preciso da ajuda de vocês de novo.
Estou tentando agora compilar o meu sistema principal desta forma. Não sei porquê, está dando o erro do anexo.
Mas a lib libmysql está na pasta. Veja o anexo.
Alguém me ajuda?

por **asimoes** » 28 Mai 2020 10:04

CJP,

Verique no hbp ou hbc

Se estiver usando somente hbp
-L\harbour32_clang\hwgui\lib;.\;

Se estiver usando hbc
{win}libpaths=\harbour32_clang\hwgui\lib;.\;

Note o .\;

Tem que adequar o caminho do harbour e depois para as libs que você quer incluir no caminho das libs

O .\; significa que vai ser procurado a lib que você precisa na pasta de compilação do seu sistema.

Você acha essas informações no help do hbmk2

por **cjp** » 28 Mai 2020 11:25

Parece que deu certo agora. Obrigado.
Mas agora está dando outro erro na compilação, conforme imagem anexa.
Será que é porque eu peguei esta lib do Harbour 3.2?

Quem está online