You could upload a chunk of your DBF file of the example.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:
When library is compiled with UNICODE selection, everything looks OK:
My BROWSE controls look OK in both cases...
HMG.3.3.0 Patch 3 (32 and 64-bits)
Moderator: Rathinagiri
- srvet_claudio
- Posts: 2193
- Joined: Thu Feb 25, 2010 8:43 pm
- Location: Uruguay
- Contact:
Re: HMG.3.3.0 Patch 3 (32 and 64-bits)
Re: HMG.3.3.0 Patch 3 (32 and 64-bits)
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)
OK, thanks for this solutionsrvet_claudio wrote:Hi Marek,mol wrote:I found another problem.
When I define label with hotkey using & character, it appears in label value.
Previous it generated hotkey.
It's strange, but works OK with checkboxes and buttons
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)
Re: HMG.3.3.0 Patch 3 (32 and 64-bits)
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:
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
CREATE EVENT PROCNAME DetectCommaPressd("MyWindow","TextBox1") HWND MyWindow.TextBox1.HANDLE MSG WM_CHAR
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?
- 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.3.0 Patch 3 (32 and 64-bits)
Is your textbox is defined as numeric?
East or West HMG is the Best.
South or North HMG is worth.
...the possibilities are endless.
South or North HMG is worth.
...the possibilities are endless.
Re: HMG.3.3.0 Patch 3 (32 and 64-bits)
Yes. It doesn't accept any character.Rathinagiri wrote:Is your textbox is defined as numeric?
- 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.3.0 Patch 3 (32 and 64-bits)
We have changed the numeric textbox code to accept decimal point '.' We have to change it further if you want to add ',' also.
East or West HMG is the Best.
South or North HMG is worth.
...the possibilities are endless.
South or North HMG is worth.
...the possibilities are endless.
-
- Posts: 270
- Joined: Wed Aug 13, 2008 2:35 pm
- Location: Córdoba - Argentina
Re: HMG.3.3.0 Patch 3 (32 and 64-bits)
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
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
- Attachments
-
- Hmg.3.30.JPG (55.18 KiB) Viewed 12433 times
-
- Hmg.3.2.JPG (45.94 KiB) Viewed 12433 times
- srvet_claudio
- Posts: 2193
- Joined: Thu Feb 25, 2010 8:43 pm
- Location: Uruguay
- Contact:
Re: HMG.3.3.0 Patch 3 (32 and 64-bits)
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:and function codeCode: Select all
CREATE EVENT PROCNAME DetectCommaPressd("MyWindow","TextBox1") HWND MyWindow.TextBox1.HANDLE MSG WM_CHAR
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.
- srvet_claudio
- Posts: 2193
- Joined: Thu Feb 25, 2010 8:43 pm
- Location: Uruguay
- Contact:
Re: HMG.3.3.0 Patch 3 (32 and 64-bits)
Thank I will check.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;