marcosgambeta / hwgui-r1908 Goto Github PK
View Code? Open in Web Editor NEWHWGUI r1908 para testes com Harbour e xHarbour (32-bit/64-bit)
License: GNU General Public License v2.0
hwgui-r1908's People
Contributors
Watchers
hwgui-r1908's Issues
Tela presta abrindo com sistema
Marcos,
Para fim de teste com Harbour 3.2 + Mingw64, consegui compilar e estava abrindo uma tela presta junto.
Para evitar tive que colocar o código abaixo bem no inicio de: source\hcwindow.prg
#ifndef __XHARBOUR__
#ifndef HB_NO_GTGUI
REQUEST HB_GT_GUI_DEFAULT
#endif
#endif
xHarbour - Bcc 7.70 - 64 bits
Estou conseguindo compilar, mas estou com o erro abaixo em uma tela simples.
Tela:
FUNCTION SELECIONA_SERVIDOR_SQL(cALIpar)
ocal oGroup1, oBrowse_sel_bal, oBUTTONEX1_CONECTA,oDlgSelCon, oTIME_CONECTA, nTEMPO_CONECTA:=31
IF cALIpar<>NIL .AND. !EMPTY(cALIpar)
SELECT SYGECOM
LOCATE FOR LOWER(ALLTRIM(SYGECOM->DATABASE))=LOWER(ALLTRIM(cALIpar))
IF !EOF()
RETURN(.F.)
ENDIF
GO TOP
ENDIF
INIT DIALOG oDlgSelCon TITLE "Selecione o banco de dados" ;
ICON _oICONE_SAGI() ;
AT 0,0 SIZE 230,260 ;
FONT HFont():Add( '',0,-13,400,,,) CLIPPER NOEXIT ;
STYLE WS_POPUP+WS_CAPTION+DS_CENTER +WS_SYSMENU+WS_MINIMIZEBOX
@ 18,26 BROWSE oBrowse_sel_bal DATABASE OF oGroup1 SIZE 195,170 ;
STYLE WS_TABSTOP ;
ON CLICK {|o,key| Enddialog() };
ON POSCHANGE {|| oBrowse_sel_bal:SetFocus() };
FONT HFont():Add( '',0,-11,400,,,)
oBrowse_sel_bal:freeze:= 1
oBrowse_sel_bal:alias := 'SYGECOM'
SELECT (oBrowse_sel_bal:alias)
oBrowse_sel_bal:AddColumn( HColumn():New('Descricao' , FieldBlock( 'obs' ) ,'C',42, 0 ,.F.,0,0,eMascGen,,,,,))
oBrowse_sel_bal:bKeyDown := {|o,key| BRW_SELECIONA_SQL(o, key, oDlgSelCon ) }
@ 5,6 GROUPBOX oGroup1 CAPTION "Selecione o banco de dados" SIZE 220,202 COLOR 16711680
@ 10,210 BUTTONEX oBUTTONEX1_CONECTA CAPTION "Co&nectar" SIZE 100,38 ;
STYLE WS_TABSTOP ;
BITMAP (HBitmap():AddResource(1002)):handle ;
FONT HFont():Add( '',0,-11,400,,,);
TOOLTIP 'Clique aqui para Fechar' ;
ON CLICK {|| oTIME_CONECTA:END(), ENDDIALOG() }
@ 120,210 BUTTONEX "&Cancelar" SIZE 100,38 ;
BITMAP (HBitmap():AddResource(1003)):handle ;
FONT HFont():Add( '',0,-11,400,,,);
TOOLTIP "Sair e Voltar ao Menu";
ON CLICK {|| oTIME_CONECTA:END(),oDlgSelCon:Close(),MyExitProc2(), __Quit() };
STYLE WS_TABSTOP
SET TIMER oTIME_CONECTA OF oDlgSelCon ID 9111 VALUE 1000 ACTION {|| ATUALIZA_BUTTONEX(oDlgSelCon,@nTEMPO_CONECTA) }
ACTIVATE DIALOG oDlgSelCon
RETURN NIL
Error:
----------------------------- xHarbour Error Log ------------------------------
Date...............: 29/04/2024
Time...............: 09:17:56
Application name...: D:\sistemas\sagi\trunk\SAGI_xhb_bcc64.exe
Workstation name...: SYGECOM0293
Available memory...: 6333780
Current disk.......: D
Current directory..: sistemas\sagi\trunk
Free disk space....: 403300536320
Operating system...: Windows 8 6.2.9200
xHarbour version...: xHarbour 1.3.1 Intl. (SimpLex) (Build 20240404)
xHarbour built on..: Apr 8 2024 14:34:37
C/C++ compiler.....: LLVM/Clang C 5.0.2 (64-bit)
Multi Threading....: NO
VM Optimization....: 1
Current Area ......:1
-------------------------- Environmental Information --------------------------
SET ALTERNATE......: OFF
SET ALTFILE........:
SET AUTOPEN........: ON
SET AUTORDER.......: 0
SET AUTOSHARE......: 0
SET BACKGROUNDTASKS: OFF
SET BACKGROUNDTICK.: 1000
SET BELL...........: OFF
SET BLINK..........: .T.
SET CANCEL.........: ON
SET CENTURY........: ON
SET COLOR..........: W/N,N/W,N/N,N/N,N/W
SET CONFIRM........: ON
SET CONSOLE........: ON
SET COUNT..........: 0
SET CURSOR.........: 1
SET DATE FORMAT....: DD/MM/YYYY
SET DBFLOCKSCHEME..: 0
SET DEBUG..........: OFF
SET DECIMALS.......: 2
SET DEFAULT........:
SET DEFEXTENSIONS..: ON
SET DELETED........: ON
SET DELIMCHARS.....: ::
SET DELIMETERS.....: OFF
SET DEVICE.........: SCREEN
SET DIRCASE........: 0
SET DIRSEPARATOR...: \
SET EOL............: 13
SET EPOCH..........: 2000
SET ERRORLOG.......: ERROR.LOG,.F.
SET ERRORLOOP......: 8
SET ESCAPE.........: ON
SET EVENTMASK......: 128
SET EXACT..........: ON
SET EXCLUSIVE......: OFF
SET EXIT...........: OFF
SET EXTRA..........: OFF
SET EXTRAFILE......:
SET FILECASE.......: 0
SET FIXED..........: OFF
SET FORCEOPT.......: OFF
SET HARDCOMMIT.....: ON
SET IDLEREPEAT.....: ON
SET INSERT.........: OFF
SET INTENSITY......: ON
SET LANGUAGE.......: PT
SET MARGIN.........: 0
SET MBLOCKSIZE.....: 0
SET MCENTER........: OFF
SET MESSAGE........: 0
SET MFILEEXT.......:
SET OPTIMIZE.......: ON
SET OUTPUTSAFETY...: ON
SET PATH...........:
SET PRINTER........: OFF
SET PRINTERJOB.....:
SET PRINTFILE......: PRN
SET SCOREBOARD.....: OFF
SET SCROLLBREAK....: ON
SET SOFTSEEK.......: OFF
SET STRICTREAD.....: OFF
SET TRACE..........: ON
SET TRACEFILE......: D:\SISTEMAS\SAGI\TRUNK\TRACE.LOG
SET TRACESTACK.....: 2
SET TRIMFILENAME...: .F.
SET TYPEAHEAD......: 50
SET UNIQUE.........: OFF
SET VIDEOMODE......: 0
SET WRAP...........: OFF
---------------------------Detailed Work Area Items----------------------------
Work Area No ......: 1
Alias .............: SYGECOM
Current Recno .....: 1
Current Filter ....:
Relation Exp. .....:
Index Order .......: 0
Active Key ........:
-------------------- Internal Error Handling Information ---------------------
Subsystem Call ....: GPFHANDLER
System Code .......: 0
Default Status ....: .F.
Description .......: Erro de GPFEXCEPTION_ACCESS_VIOLATION - O thread tentou ler/escrever num endere o virtual ao qual n o tinha acesso.
Operation .........: GPFHANDLER
Arguments .........: [ 1] = Type: C Val: EXCEPTION_ACCESS_VIOLATION - O thread tentou ler/escrever num endere o virtual ao qual n o tinha acesso. [ 2] = Type: O Val: { C Structure EXCEPTION_POINTERS Object } [ 3] = Type: N Val: -1073741819
Involved File .....:
Dos Error Code ....: 0
Trace Through:
----------------
GPFHANDLER : 2,941 in Module: source\sagi.prg
GPFHANDLER : 2,941 in Module: source\sagi.prg
GETDRAWITEMINFO : 0 in Module:
HGROUP:PAINT : 2,149 in Module: source\hcontrol.prg
(b)HGROUP:INIT : 2,120 in Module: source\hcontrol.prg
ONDRAWITEM : 822 in Module: source\hcwindow.prg
(b)(_INITSTATICS00003 : 0 in Module: source\hcwindow.prg
HCUSTOMWINDOW:ONEVENT : 270 in Module: source\hcwindow.prg
HDIALOG:ONEVENT : 442 in Module: source\hdialog.prg
HWG_DLGBOXINDIRECT : 0 in Module:
HDIALOG:ACTIVATE : 196 in Module: source\hdialog.prg
SELECIONA_SERVIDOR_SQ : 2,061 in Module: source\syg_rdd.prg
ABRE_DADOS : 1,047 in Module: source\syg_rdd.prg
MAIN : 450 in Module: source\sagi.prg
############################## Video Screen Dump ##############################
+--------------------------------------------------------------------------------+
|r/escrever num endere o virtual ao qual n o tinha acesso.: GPFHANDLER Arguments:|
| ( [ 1] = Type: C Val: EXCEPTION_ACCESS_VIOLATION - O thread tentou ler/escrever|
| num endere o virtual ao qual n o tinha acesso. [ 2] = Type: O Val: { C Structur|
|e EXCEPTION_POINTERS Object } [ 3] = Type: N Val: -1073741819) (Quit) |
|Warning GPFHANDLER/0 Erro de GPFEXCEPTION_ACCESS_VIOLATION - O thread tentou le|
|r/escrever num endere o virtual ao qual n o tinha acesso.: GPFHANDLER Arguments:|
| ( [ 1] = Type: C Val: EXCEPTION_ACCESS_VIOLATION - O thread tentou ler/escrever|
| num endere o virtual ao qual n o tinha acesso. [ 2] = Type: O Val: { C Structur|
|e EXCEPTION_POINTERS Object } [ 3] = Type: N Val: -1073741819) |
| |
|Error at ...: GPFHANDLER(2941) in Module: source\sagi.prg |
|Called from : GPFHANDLER(2941) in Module: source\sagi.prg |
|Called from : GETDRAWITEMINFO(0) in Module: |
|Called from : HGROUP:PAINT(2149) in Module: source\hcontrol.prg |
|Called from : (b)HGROUP:INIT(2120) in Module: source\hcontrol.prg |
|Called from : ONDRAWITEM(822) in Module: source\hcwindow.prg |
|Called from : (b)(_INITSTATICS00003)(0) in Module: source\hcwindow.prg |
|Called from : HCUSTOMWINDOW:ONEVENT(270) in Module: source\hcwindow.prg |
|Called from : HDIALOG:ONEVENT(442) in Module: source\hdialog.prg |
|Called from : HWG_DLGBOXINDIRECT(0) in Module: |
|Called from : HDIALOG:ACTIVATE(196) in Module: source\hdialog.prg |
|Called from : SELECIONA_SERVIDOR_SQL(2061) in Module: source\syg_rdd.prg |
|Called from : ABRE_DADOS(1047) in Module: source\syg_rdd.prg |
|Called from : MAIN(450) in Module: source\sagi.prg |
+--------------------------------------------------------------------------------+
GET selecionado e PICTURE não funciona no GET
Mestre,
1- O GET com PICTURE não está respeitando a mascara, exemplo abaixo:
@ 20, 40 SAY "CPF:" SIZE 120, 26
@ 160, 40 GET oGetA1 VAR cGetA1 PICTURE "@r 999.999.999-99" SIZE 300, 26
2-Quando abre uma dialog e já vem preenchido a variável com algum conteúdo ele vem com todo o conteúdo selecionado no GET.
Erro ao compilar com bcc 7.70(64bits) e xHarbour(atual git)
Olá Marcos,
Quando vou gerar a lib da Hwgui está dando o erro abaixo, ao compilar com bcc 7.70 - 64bits, tem alguma dica ?
D:\devel\hwgui_teste_harbour\hwgui_gambeta_r1908>hbmk2 hwguiall -xhb -jobs=8
hbmk2: Processing environment options: -comp=bcc64 -cpu=x86_64
hbmk2: Building sub-project (level 2): hbxml.hbp
hbmk2: Processing environment options: -comp=bcc64 -cpu=x86_64
hbmk2: Compiling Harbour sources...
hbmk2: Compiling...
D:\devel\hwgui_hb\lib\win\bcc64\.hbmk\win\bcc64\hxmldoc.c:
source\xml\xmlparse.c:
In file included from source\xml\xmlparse.c:21:
include\guilib.h:71:28: error: typedef redefinition with different types ('ULONG' (aka 'unsigned long') vs 'ULONGLONG'
(aka 'unsigned __int64'))
typedef ULONG HB_SIZE;
^
D:\DEVEL\xHarbour_bcc77_64\include/hbdefs.h:1769:31: note: previous definition is here
typedef ULONGLONG HB_SIZE; /* TODO: Currently 'unsigned', to be changed 'signed' */
^
1 error generated.
hbmk2[hbxml]: Error: Running C/C++ compiler job #2. 1
bcc64.exe -c -q -d -O2 -tWM -w -Q -output-dirD:\devel\hwgui_hb\lib\win\bcc64\.hbmk\win\bcc64 -ID:\DEVEL\xHarbour_bcc77_64\include -Iinclude source\xml\xmlparse.c
Mingw64
Consegui compilar com essa versão com Mingw64, entre tanto as telas ficam tudo bugadas. Como se não carregasse visualmente a tela.
Abaixo um exemplo:
Estou analisando todos os cenários possíveis para minha realidade.
Acho melhor eu continuar tentando na versão abaixo, apesar de precisar de muitos ajustes ainda.
https://github.com/marcosgambeta/HWGUI
Tentei também compilar uma versão do BCC 64 do Harbour mas não tive sucesso, por alguma razão o BCC compila bem mais rápido meu sistema em harbour.
Navegação com TAB ou ENTER entre campos GET
Mestre,
Estou compilando com: HWG_USE_POINTER_ITEM
E a navegação entre os campos GET não está funcionando nem com ENTER(usando CLIPPER no INIT DIALOG) e nem com TAB, tem alguma dica para resolver isso ?
Esse problema só acontece quando estou compilando om HWG_USE_POINTER_ITEM, tanto em 32bits como 64bits.
Usando xharbour(versão git) e BCC 7.2
Recommend Projects
-
React
A declarative, efficient, and flexible JavaScript library for building user interfaces.
-
Vue.js
🖖 Vue.js is a progressive, incrementally-adoptable JavaScript framework for building UI on the web.
-
Typescript
TypeScript is a superset of JavaScript that compiles to clean JavaScript output.
-
TensorFlow
An Open Source Machine Learning Framework for Everyone
-
Django
The Web framework for perfectionists with deadlines.
-
Laravel
A PHP framework for web artisans
-
D3
Bring data to life with SVG, Canvas and HTML. 📊📈🎉
-
Recommend Topics
-
javascript
JavaScript (JS) is a lightweight interpreted programming language with first-class functions.
-
web
Some thing interesting about web. New door for the world.
-
server
A server is a program made to process requests and deliver data to clients.
-
Machine learning
Machine learning is a way of modeling and interpreting data that allows a piece of software to respond intelligently.
-
Visualization
Some thing interesting about visualization, use data art
-
Game
Some thing interesting about game, make everyone happy.
Recommend Org
-
Facebook
We are working to build community through open source technology. NB: members must have two-factor auth.
-
Microsoft
Open source projects and samples from Microsoft.
-
Google
Google ❤️ Open Source for everyone.
-
Alibaba
Alibaba Open Source for everyone
-
D3
Data-Driven Documents codes.
-
Tencent
China tencent open source team.