HMG 3.1.4

HMG Unicode versions 3.1.x related

Moderator: Rathinagiri

User avatar
Rathinagiri
Posts: 5471
Joined: Tue Jul 29, 2008 6:30 pm
DBs Used: MariaDB, SQLite, SQLCipher and MySQL
Location: Sivakasi, India
Contact:

Re: HMG 3.1.4 (Test)

Post by Rathinagiri »

Can you please give a small sample?
East or West HMG is the Best.
South or North HMG is worth.
...the possibilities are endless.
radohabjan
Posts: 99
Joined: Mon Nov 30, 2009 7:17 am
Location: Slovenia
Contact:

Re: HMG 3.1.4 (Test)

Post by radohabjan »

Hello Rathi,

sorry , I coudln't sent a whole project, it's to big.
Here is picture of EDIT EXTEND. I use SI language:

SET LANGUAGE TO SLOVENIAN
REQUEST HB_CODEPAGE_SLWIN
HB_CDPSELECT("SLWIN")

I marked two buttons Delte and Find
Delete Button must be Briši (delete) and Find must be Poišči (find). In the attached file are some strange charachters.
Program is h_edit_ex.prg and lib libeditex.a

br Rado
Attachments
Capture.PNG
Capture.PNG (59.04 KiB) Viewed 10546 times
User avatar
srvet_claudio
Posts: 2193
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Contact:

Re: HMG 3.1.4 (Test)

Post by srvet_claudio »

radohabjan wrote:Hello Rathi,

sorry , I coudln't sent a whole project, it's to big.
Here is picture of EDIT EXTEND. I use SI language:

SET LANGUAGE TO SLOVENIAN
REQUEST HB_CODEPAGE_SLWIN
HB_CDPSELECT("SLWIN")

I marked two buttons Delte and Find
Delete Button must be Briši (delete) and Find must be Poišči (find). In the attached file are some strange charachters.
Program is h_edit_ex.prg and lib libeditex.a

br Rado
Hi Rado.
The problem is that when compiling HMG for Unicode all internal messages are in Unicode. When you put a SET CODEPAGE TO, you force HMG to working in ANSI.
Therefore, we must translate the internal messages of HMG from Unicode to ANSI.

Code: Select all

SET LANGUAGE TO SLOVENIAN
REQUEST HB_CODEPAGE_SLWIN
HB_CDPSELECT("SLWIN")

HMG_MESSAGES_UTF8_TO_ANSI("SLWIN")

Code: Select all

FUNCTION HMG_MESSAGES_UTF8_TO_ANSI (cCPID)
LOCAL k, i, nIndex, cUTF8Str, cANSIStr
LOCAL aPos := {128, 129, 130, 131, 132, 133, 134, 136, 137, 331, 371}
   FOR k = 1 TO HMG_LEN (aPos)
      nIndex := aPos [k]
      IF ValType (_HMG_SYSDATA [nIndex]) == "A"
         FOR i = 1 TO HMG_LEN (_HMG_SYSDATA [nIndex])
            cUTF8Str := _HMG_SYSDATA [nIndex] [i]
            cANSIStr := HB_UTF8TOSTR (cUTF8Str, cCPID)
            _HMG_SYSDATA [nIndex] [i] := cANSIStr 
         NEXT
      ELSE
         cUTF8Str := _HMG_SYSDATA [nIndex]
         cANSIStr := HB_UTF8TOSTR (cUTF8Str, cCPID)
         _HMG_SYSDATA [nIndex] := cANSIStr 
      ENDIF
   NEXT
RETURN NIL
Best Regards,
Claudio.
Best regards.
Dr. Claudio Soto
(from Uruguay)
http://srvet.blogspot.com
radohabjan
Posts: 99
Joined: Mon Nov 30, 2009 7:17 am
Location: Slovenia
Contact:

Re: HMG 3.1.4 (Test)

Post by radohabjan »

Hello Claudio,

I made simple demo in attached file and still doesn't work.

br Rado
Attachments
DEMOEE.ZIP
(1.94 KiB) Downloaded 452 times
User avatar
srvet_claudio
Posts: 2193
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Contact:

Re: HMG 3.1.4 (Test)

Post by srvet_claudio »

radohabjan wrote:Hello Claudio,

I made simple demo in attached file and still doesn't work.

br Rado
Hi Rado,
I fixed the bug, the problem is the HB_UTF8TOSTR() Harbour function that not translate correctly the Slovenian.
Please change the original file C:\hmg.3.1.4\SOURCE\h_init.prg, by the new h_init.prg attachment file and re-build the library.
Best Regards,
Claudio.
Attachments
h_init.rar
(38.08 KiB) Downloaded 518 times
Best regards.
Dr. Claudio Soto
(from Uruguay)
http://srvet.blogspot.com
radohabjan
Posts: 99
Joined: Mon Nov 30, 2009 7:17 am
Location: Slovenia
Contact:

Re: HMG 3.1.4 (Test)

Post by radohabjan »

Hello Claudio,

now it works. Perfect.
Thanks.

Rado
radohabjan
Posts: 99
Joined: Mon Nov 30, 2009 7:17 am
Location: Slovenia
Contact:

Re: HMG 3.1.4 (Test)

Post by radohabjan »

Hello friends,

is it possible to put in hmgdoc.htm again CA-Clipper 5.3 documentation. From time to time I'm still use old fashion clipper commands.

br Rado
Attachments
Capture.PNG
Capture.PNG (31.59 KiB) Viewed 10411 times
User avatar
danielmaximiliano
Posts: 2607
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: HMG 3.1.4 (Test)

Post by danielmaximiliano »

radohabjan wrote:Hello friends,

is it possible to put in hmgdoc.htm again CA-Clipper 5.3 documentation. From time to time I'm still use old fashion clipper commands.

br Rado
reference.png
reference.png (43.04 KiB) Viewed 10409 times
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
radohabjan
Posts: 99
Joined: Mon Nov 30, 2009 7:17 am
Location: Slovenia
Contact:

Re: HMG 3.1.4 (Test)

Post by radohabjan »

Thanks Daniel,

I didn't check all subfolders.

br Rado
User avatar
quartz565
Posts: 667
Joined: Mon Oct 01, 2012 12:37 pm
Location: Thessaloniki, Greece
Contact:

Re: HMG 3.1.4 (Test)

Post by quartz565 »

Hi,
If i edit forms in IDE (Unicode version) the Greek characters are not displayed (ide_edit). But there is no problem with Greek characters in exe Program (exe_prog)
What should I do to fix the problem.

Nikos
ide_edit.png
ide_edit.png (35.89 KiB) Viewed 10369 times
Attachments
exe_prog.png
exe_prog.png (48.13 KiB) Viewed 10369 times
Best Regards,
Nikos.

os: Windows Server 2019 - 64
Post Reply