Re: HMG 3.4.3
Posted: Thu May 12, 2016 6:15 pm
A todos los que estan mejorando HMG les doy mi agradecimiento por esto,
Muchas gracias de corazon
Muchas gracias de corazon
Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://hmgforum.com/
Thank you, Andrés, for reporting this bug. It was caused by a minor miscopy from my previous proposal (http://hmgforum.com/viewtopic.php?f=43&t=4711) to 3.4.3. The fix is to insert the following line after line 4 in hfcl\RichEditBoxEx_H.prg:andyglezl wrote:Hello
Proving another example .... Runtime error.
Code: Select all
#include "hfcl.ch"
Code: Select all
if .Not. Empty (_HMG_SYSDATA [ 25 ] [i] ) ;
.Or. ;
.Not. Empty (_HMG_SYSDATA [ 33 ] [i] ) ;
.Or.;
(_HMG_SYSDATA [ 22 ] [i] == 'I' .And. IsAppThemed())
Code: Select all
#include <hmg.ch>
Function Main()
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 240 HEIGHT 200 ;
MAIN
@10,10 BUTTON Button_1 CAPTION "Test 1 (No Img)" PICTURE "" left ACTION ButtonClick() width 100 height 60
END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return Nil
Function ButtonClick
STATIC i := 1
i++
IF i > 3
i := 1
ENDIF
DO CASE
CASE i == 1
Form_1.Button_1.Caption := "Test 1 (No Img)"
Form_1.Button_1.Picture := ""
CASE i == 2
Form_1.Button_1.Caption := "Test 2"
Form_1.Button_1.Picture := "button5.bmp"
CASE i == 3
Form_1.Button_1.Caption := "Test 3"
Form_1.Button_1.Picture := "button6.bmp"
ENDCASE
Return Nil
Code: Select all
Error: HMG 3.4.2 Stable Patch 4 (32 bits)
Non Modal WIndows can't be activated when a modal window is active. _HMG_FormDebugger Program Terminated
Called from _ACTIVATEWINDOW(5686)
Called from PROCINITGUIDEBUGGER(462)
Called from (b)HMGDEBUGGER(245)
Called from (b)HMGDEBUGGER(253)
Called from HMGDEBUGGER:GUICREATEFORMDEBUGGER(0)
Called from HMGDEBUGGER:ACTIVATE(276)
Called from __DBGENTRY(114)
Called from DRUKUJFAKTUREWGWZORCA(27)
Called from DRUKUJFAKTURE(3255)
Called from DRUKUJPONOWNIEFAKTURE(1578)
Called from (b)REJESTRFAKTUR(373)
Called from _DOCONTROLEVENTPROCEDURE(6044)
Called from EVENTS(1717)
Called from DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(5707)
Called from REJESTRFAKTUR(447)
Called from AKCJATESTPRZYCISKOW(1647)
Called from (b)ZDEFINIUJOKNOGLOWNE(1590)
Called from _DOCONTROLEVENTPROCEDURE(6044)
Called from EVENTS(1762)
Called from DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(5707)
Called from MAIN(595)
Hi Marek,mol wrote:I want to report that HMG Debugger crashes when your application is built from few modules, incremental compilation and ane main module is compiled without debugger, depending module compiled with debugger.
When calling debugger, error occurs:Code: Select all
Error: HMG 3.4.2 Stable Patch 4 (32 bits) Non Modal WIndows can't be activated when a modal window is active. _HMG_FormDebugger Program Terminated Called from _ACTIVATEWINDOW(5686) Called from PROCINITGUIDEBUGGER(462) Called from (b)HMGDEBUGGER(245) Called from (b)HMGDEBUGGER(253) Called from HMGDEBUGGER:GUICREATEFORMDEBUGGER(0) Called from HMGDEBUGGER:ACTIVATE(276) Called from __DBGENTRY(114) Called from DRUKUJFAKTUREWGWZORCA(27) Called from DRUKUJFAKTURE(3255) Called from DRUKUJPONOWNIEFAKTURE(1578) Called from (b)REJESTRFAKTUR(373) Called from _DOCONTROLEVENTPROCEDURE(6044) Called from EVENTS(1717) Called from DOMESSAGELOOP(0) Called from _ACTIVATEWINDOW(5707) Called from REJESTRFAKTUR(447) Called from AKCJATESTPRZYCISKOW(1647) Called from (b)ZDEFINIUJOKNOGLOWNE(1590) Called from _DOCONTROLEVENTPROCEDURE(6044) Called from EVENTS(1762) Called from DOMESSAGELOOP(0) Called from _ACTIVATEWINDOW(5707) Called from MAIN(595)
Code: Select all
If _HMG_SYSDATA [ 271 ]
MsgHMGError("Non Modal WIndows can't be activated when a modal window is active. " + Formname +" Program Terminated" )
endif
Code: Select all
If _HMG_SYSDATA [ 271 ] .AND. lActivateMsgLoop == .T.
MsgHMGError("Non Modal Windows can't be activated when a modal window is active. " + Formname +" Program Terminated" )
endif