HMG 3.4.4

[mol]

It's my screenshot

[mol]

After many years of using IDE, I've found that TabStop property of GRID control is absent in this tool.

Roberto Lopez wrote many years ago, that the code of IDE is closed and is too dirty, to show it to us.

Roberto! Maybe you can change your decision?
It's hard to rewritten this tool, maybe we could use your code?

[serge_girard]

Much easier than start from zero!
Please re-consider!

Serge

[Red2]

For whatever it is worth I too would respectfully request a re-consideration.

[nilton.medeiros]

Amigos, tentei compilar em 64 bits, porem obtive o erro, creio que algumas funções não estão em 64 bits. Ocorre o seguinte erro:
---------------------------------------------
hbmk2: Linkando... eMailCTe.exe
.hbmk/win/mingw64/funcoes.o:funcoes.c:(.data+0x930): undefined reference to `HB_FUN_MYSQL_ESCAPE_STRING'
.hbmk/win/mingw64/MySQL_Conect.o:MySQL_Conect.c:(.data+0xf0): undefined reference to `HB_FUN_TMYSQLSERVER'
collect2.exe: error: ld returned 1 exit status
hbmk2[eMailCTe]: Erro: Executando linkeditor. 1
gcc.exe .hbmk/win/mingw64/Main.o .hbmk/win/mingw64/class_tms.o .hbmk/win/mingw64/envia_email.o .hbmk/win/mingw64/funcoes.o .hbmk/win/mingw64/monitoraerros.o .hbmk/win/mingw64/monitoramail.o .hbmk/win/mingw64/MySQL_Conect.o .hbmk/win/mingw64/MySQL_Desconect.o .hbmk/win/mingw64/MySQL_ExecQuery.o .hbmk/win/mingw64/Opcoes.o .hbmk/win/mingw64/RegistraBD.o .hbmk/win/mingw64/UpLoadEvents.o .hbmk/win/mingw64/Util_MySendMail.o .hbmk/win/mingw64/_hbmkaut_Main.o P:/Harbours/apoio_tms/CTeMail/_temp.o -pthread -static-libgcc -static-libstdc++ -static -lpthread -mwindows -Wl,--start-group -l"hmg-64" -l"crypt-64" -l"edit-64" -l"editex-64" -l"graph-64" -l"ini-64" -l"report-64" -l"hfcl-64" -lmsvfw32 -lvfw32 -l"hbvpdf-64" -lhbct -lhbwin -lhbmzip -lminizip -lhbmemio -lhbmisc -lhbtip -lsqlite3 -lhbsqlit3 -lsddodbc -lrddsql -lhbodbc -lodbc32 -lhbhpdf -lhbnetio -lxhb -lpng -llibhpdf -lhbzebra -lsistrom_aux -lhbextern -lhbdebug -lhbvmmt -lhbrtl -lhblang -lhbcpage -lgtcgi -lgtpca -lgtstd -lgtwin -lgtwvt -lgtgui -lhbrdd -lhbuddall -lhbusrrdd -lrddntx -lrddcdx -lrddnsx -lrddfpt -lhbrdd -lhbhsx -lhbsix -lhbmacro -lhbcplr -lhbpp -lhbcommon -lhbmainwin -lkernel32 -luser32 -lgdi32 -ladvapi32 -lws2_32 -liphlpapi -lwinspool -lcomctl32 -lcomdlg32 -lshell32 -luuid -lole32 -loleaut32 -lmpr -lwinmm -lmapi32 -limm32 -lmsimg32 -lwininet -lhbpcre -lhbzlib -Wl,--end-group -oeMailCTe.exe -L"C:/hmg.3.4.4/harbour-64/lib/win/mingw64" -L"C:/hmg.3.4.4/lib-64"

hbmk2: Dica: Instale o pacote hbmysql e adicione as op��es 'hbmysql.hbc'
faltando nas fun��es: TMySQLServer(), mysql_escape_string()
---------------------------------------

A dica pede para que eu instale o pacote hbmysql e adicione as opções 'hbmysql.hbc'.... Não sei como instalar esse pacote. Ao compilar em 32 bits não dá esse erro, pois tudo que tenho que fazer é apenas colocar o arquivo dll 'libmysql.dll' na pasta raiz do sistema que está sendo compilado.

Grato.

Friends, I tried to compile in 64 bits, but I got the error, I believe that some functions are not in 64 bits. The following error occurs:

The tip asks me to install the hbmysql package and add the 'hbmysql.hbc' options .... I don't know how to install this package. When compiling in 32 bits it does not give this error, because all I have to do is just put the dll file 'libmysql.dll' in the root folder of the system being compiled.

Thankful.

[mustafa]

Hola Nilton
Mira esta solución haber si te puede servir ?
==>> http://hmgforum.com/viewtopic.php?f=46& ... afa#p53574

Saludos
Mustafa

[mol]

Hi guys!
I'm building new application for touch screen.
Almost all controls are based on LABEL's.

It would be great to have CARGO property for every control, which can hold any type of data.
At now, only TREE control has it. It's easy to realize.
I've simpliefied to minimum two functions, which you can use for every control:

Code: Select all

Function GetCargo ( ControlName , ParentForm )
	LOCAL i := 0
	local xData := NIL

    i := GetControlIndex ( ControlName , ParentForm )

	xData := _HMG_SYSDATA [ 32 ] [ i ]  // cargo
Return xData

*--------------------
procedure SetCargo
	param ParentForm, ControlName, xData
	
	Local i, hWnd
	Local cMacro
	Local k
 
	i := GetControlIndex ( ControlName , ParentForm )
	_HMG_SYSDATA [ 32 ] [ i ] := xData
return NIL

[Rathinagiri]

Super! It is like a magic box attached to every control. Right?

[mol]

Super! It is like a magic box attached to every control. Right?

Exactly

[franco]

Mol, I use labels and buttons at this time they work for me. I find when making the controls they have to be big enough so there are
no errors when moving around quickly.