Page 4 of 6

Re: HMG.3.3.0 Patch 3 (32 and 64-bits)

Posted: Thu Jun 26, 2014 1:16 am
by srvet_claudio
mol wrote:Hi!
I've added patch and buttons works fine!
I've found such a strange behavior:
My application is built as ANSI. When I compiled hmg330 with ANSI selection, GRID control is unusable:
Image

When library is compiled with UNICODE selection, everything looks OK:
Image


My BROWSE controls look OK in both cases...
You could upload a chunk of your DBF file of the example.

Re: HMG.3.3.0 Patch 3 (32 and 64-bits)

Posted: Thu Jun 26, 2014 5:14 am
by mol
my dbf file language is ansi cp-1250, you can download it from http://www.molsystemy.pl/hmg/towary.zip" onclick="window.open(this.href);return false;

Re: HMG.3.3.0 Patch 3 (32 and 64-bits)

Posted: Thu Jun 26, 2014 5:16 am
by mol
srvet_claudio wrote:
mol wrote:I found another problem.
When I define label with hotkey using & character, it appears in label value.
Previous it generated hotkey.
Image

It's strange, but works OK with checkboxes and buttons
Hi Marek,
this behavior is because the Label control is set by default with SS_NOPREFIX style.
I will change this style as optinal in the new release.
A temporary solución is:

Code: Select all

#define SS_NOPREFIX 128
HMG_ChangeWindowStyle ( Form_1.Label_1.HANDLE, NIL, SS_NOPREFIX, .F. )   // remove style
RedrawWindow(Form_1.Label_1.HANDLE)
OK, thanks for this solution

Re: HMG.3.3.0 Patch 3 (32 and 64-bits)

Posted: Thu Jun 26, 2014 7:03 am
by mol
While working with hmg 3.1.5, I was using event for detect comma characted typed by user to move cursor beside the decimal dot in textbox:

Code: Select all

CREATE EVENT PROCNAME DetectCommaPressd("MyWindow","TextBox1") HWND MyWindow.TextBox1.HANDLE MSG WM_CHAR
and function code
function DetectCommaPressd
param cNazwaOkna, cBiezacaKontrolka
STATIC lFlagaAktywnosci := .F.
LOCAL hWnd, ch
local lFound := .f.
local nRet := 0

if lFlagaAktywnosci == .t.
return NIL // avoid re-entry
endif

lFlagaAktywnosci := .T.

ch := HMG_GetLastCharacter(@hWnd)
IF hWnd == GetControlHandle (cBiezacaKontrolka,cNazwaOkna)
if ch = ","
_PushKey( 190 )
nRet := 1
endif
ENDIF

lFlagaAktywnosci := .F.

RETURN nRet

Code: Select all


It doesn't work with hmg 3.3.0
What's wrong with my code?

Re: HMG.3.3.0 Patch 3 (32 and 64-bits)

Posted: Thu Jun 26, 2014 10:48 am
by Rathinagiri
Is your textbox is defined as numeric?

Re: HMG.3.3.0 Patch 3 (32 and 64-bits)

Posted: Thu Jun 26, 2014 12:43 pm
by mol
Rathinagiri wrote:Is your textbox is defined as numeric?
Yes. It doesn't accept any character.

Re: HMG.3.3.0 Patch 3 (32 and 64-bits)

Posted: Thu Jun 26, 2014 2:41 pm
by Rathinagiri
We have changed the numeric textbox code to accept decimal point '.' We have to change it further if you want to add ',' also.

Re: HMG.3.3.0 Patch 3 (32 and 64-bits)

Posted: Thu Jun 26, 2014 3:04 pm
by Mario Mansilla
Hola :
He probado para testear un sistema realizado con hmg.3.2 con su respectivo IDE con la version Hmg.3.3 patch3 más ultima correcccion de image.c .
Uso imagenes bmp 32x32 en los botones y toolbar , noto una distorsion considerable de las imagenes con la nueva version :? .
Les paso las imagenes para ver la diferencia .

Saludos
Mario Mansilla

Re: HMG.3.3.0 Patch 3 (32 and 64-bits)

Posted: Thu Jun 26, 2014 3:50 pm
by srvet_claudio
mol wrote:While working with hmg 3.1.5, I was using event for detect comma characted typed by user to move cursor beside the decimal dot in textbox:

Code: Select all

CREATE EVENT PROCNAME DetectCommaPressd("MyWindow","TextBox1") HWND MyWindow.TextBox1.HANDLE MSG WM_CHAR
and function code
function DetectCommaPressd
param cNazwaOkna, cBiezacaKontrolka
STATIC lFlagaAktywnosci := .F.
LOCAL hWnd, ch
local lFound := .f.
local nRet := 0

if lFlagaAktywnosci == .t.
return NIL // avoid re-entry
endif

lFlagaAktywnosci := .T.

ch := HMG_GetLastCharacter(@hWnd)
IF hWnd == GetControlHandle (cBiezacaKontrolka,cNazwaOkna)
if ch = ","
_PushKey( 190 )
nRet := 1
endif
ENDIF

lFlagaAktywnosci := .F.

RETURN nRet

Code: Select all


It doesn't work with hmg 3.3.0
What's wrong with my code?[/quote]

Hi Marek,
NIL is the best. :lol: 
[b]Local nRet := NIL[/b]
In HMG.3.3.0, I fixed a bug in CREATE EVENT, always you need continue the normal process of the Event you not return a number.

Re: HMG.3.3.0 Patch 3 (32 and 64-bits)

Posted: Thu Jun 26, 2014 3:54 pm
by srvet_claudio
mol wrote:my dbf file language is ansi cp-1250, you can download it from http://www.molsystemy.pl/hmg/towary.zip" onclick="window.open(this.href);return false;" onclick="window.open(this.href);return false;
Thank I will check.