hwgui-developers — Discussing of HwGUI development

Re: [Hwgui-developers] Build Mingw with ActiveX

[Maurizio la C. <m.l...@gm...>]

Again about the warnings related to hb_vmPushState( )/ hb_vmPopState( )...
I'm building HwGUI using Harbour 3.2.0dev and I did find this changelog
entry:
------------------------------------------------------------------------
2010-02-03 19:08 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
  * harbour/include/hbvm.h
  * harbour/src/vm/hvm.c
    * covered hb_vmPushState() and hb_vmPopState() functions by
      HB_LEGACY_LEVEL3 macro. These functions are depreciated,
      hb_vmRequestReenter()/hb_vmRequestRestore() should be used
      instead.
------------------------------------------------------------------------
2011-07-17 16:21 UTC+0200 Viktor Szakats (vszakats.net/harbour)
    ... omitted
    ; hb_vmPushState()/hb_vmPopState() APIs were now permanently deleted.
    ... omitted
------------------------------------------------------------------------

Alexander, what do you think about to substitute this calls with updated
ones?
BR
Maurizio

Il 21/12/2014 13:57, Maurizio la Cecilia ha scritto:
> Hi!
> After last commit I confirm that the library is built.
> Anyway, the warnings above are still present:
>
> ../../../../contrib/activex/c_activex.c: In function
> 'HB_FUN_HWG_CREATEACTIVEX':
> ../../../../contrib/activex/c_activex.c:81:4: warning: implicit
> declaration of function 'ISNIL' [-Wi
> mplicit-function-declaration]
>     hWndCtrl = CreateWindowEx( ( DWORD ) ISNIL( 1 ) ? 0 : hb_parni( 1
> ), // nExStyle
>     ^
> ../../../../contrib/activex/c_activex.c: In function 'Invoke':
> ../../../../contrib/activex/c_activex.c:391:10: warning: implicit
> declaration of function 'hb_vmPush
> State' [-Wimplicit-function-declaration]
>           hb_vmPushState(  );
>           ^
> ../../../../contrib/activex/c_activex.c:509:10: warning: implicit
> declaration of function 'hb_vmPopS
> tate' [-Wimplicit-function-declaration]
>           hb_vmPopState(  );
>           ^
>
> BR
> Maurizio
>
>
> Il 20/12/2014 22:33, Itamar M. Lins Jr. Lins ha scritto:
>> Hi!
>> Please enable compiling activex with Mingw.
>> We mingw users can not use it.
>>
>> The file hbactivex.hbp
>> #
>> # $Id: hbactivex.hbp 1615 2011-02-18 13:53:35Z mlacecilia $
>> #
>>
>> -inc
>>
>> -hblib
>> -o../lib/hbactivex
>>
>> -n -q0 -w -es2
>>
>> -i../include
>>
>> -cflag=-DHWG_USE_POINTER_ITEM
>>
>> activex/*.c
>> activex/*.prg
>>
>> -stop{allmingw}
>>
>> I comment the line #-stop{allmingw}
>> And get many errors.
>>
>> C:\devl\hwgui\contrib>hbmk2 hbactivex.hbp
>> hbmk2: Harbour: Compilando m├│dulos...
>> hbmk2: Compilando...
>> ../../../../contrib/activex/c_activex.c: In function
>> 'HB_FUN_HWG_CREATEACTIVEX':
>>
>> ../../../../contrib/activex/c_activex.c:81:4: warning: implicit
>> declaration of f
>> unction 'ISNIL' [-Wimplicit-function-declaration]
>>     hWndCtrl = CreateWindowEx( ( DWORD ) ISNIL( 1 ) ? 0 : hb_parni( 1
>> ), // nExS
>> tyle
>>     ^
>> ../../../../contrib/activex/c_activex.c: In function 'Invoke':
>> ../../../../contrib/activex/c_activex.c:391:10: warning: implicit
>> declaration of
>>  function 'hb_vmPushState' [-Wimplicit-function-declaration]
>>           hb_vmPushState(  );
>>           ^
>> ../../../../contrib/activex/c_activex.c:509:10: warning: implicit
>> declaration of
>>  function 'hb_vmPopState' [-Wimplicit-function-declaration]
>>           hb_vmPopState(  );
>>           ^
>> ../../../../contrib/activex/htmlcore.c: In function 'Dispatch_AddRef':
>> ../../../../contrib/activex/htmlcore.c:1386:13: warning: pointer
>> targets in pass
>> ing argument 1 of 'InterlockedIncrement' differ in signedness
>> [-Wpointer-sign]
>>     return ( InterlockedIncrement( &( ( _IDispatchEx * ) This
>> )->refCount ) );
>>              ^
>> In file included from
>> C:/QT/Qt5.4.0/Tools/mingw491_32/i686-w64-mingw32/include/w
>> inbase.h:22:0,
>>                  from
>> C:/QT/Qt5.4.0/Tools/mingw491_32/i686-w64-mingw32/include/w
>> indows.h:70,
>>                  from ../../../../contrib/activex/htmlcore.c:38:
>> C:/QT/Qt5.4.0/Tools/mingw491_32/i686-w64-mingw32/include/interlockedapi.h:29:37:
>>  note: expected 'volatile LONG *' but argument is of type 'DWORD *'
>>    __MINGW_INTRIN_INLINE LONG WINAPI InterlockedIncrement(LONG
>> volatile *lpAdden
>> d) {
>>                                      ^
>> ../../../../contrib/activex/htmlcore.c: In function 'Dispatch_Release':
>> ../../../../contrib/activex/htmlcore.c:1391:8: warning: pointer
>> targets in passi
>> ng argument 1 of 'InterlockedDecrement' differ in signedness
>> [-Wpointer-sign]
>>     if( InterlockedDecrement( &( ( _IDispatchEx * ) This )->refCount
>> ) == 0 )
>>         ^
>> In file included from
>> C:/QT/Qt5.4.0/Tools/mingw491_32/i686-w64-mingw32/include/w
>> inbase.h:22:0,
>>                  from
>> C:/QT/Qt5.4.0/Tools/mingw491_32/i686-w64-mingw32/include/w
>> indows.h:70,
>>                  from ../../../../contrib/activex/htmlcore.c:38:
>> C:/QT/Qt5.4.0/Tools/mingw491_32/i686-w64-mingw32/include/interlockedapi.h:32:37:
>>  note: expected 'volatile LONG *' but argument is of type 'DWORD *'
>>    __MINGW_INTRIN_INLINE LONG WINAPI InterlockedDecrement(LONG
>> volatile *lpAdden
>> d) {
>>                                      ^
>> ../../../../contrib/activex/htmlcore.c: In function
>> 'CreateWebEvtHandler':
>> ../../../../contrib/activex/htmlcore.c:1674:18: warning: passing
>> argument 4 of '
>> htmlWindow3->lpVtbl->attachEvent' from incompatible pointer type
>>              if( !htmlWindow3->lpVtbl->attachEvent( htmlWindow3,
>>                   ^
>> ../../../../contrib/activex/htmlcore.c:1674:18: note: expected
>> 'VARIANT_BOOL *'
>> but argument is of type 'struct VARIANT *'
>> ../../../../contrib/activex/htmlcore.c:1712:11: warning: label 'bad'
>> defined but
>>  not used [-Wunused-label]
>>            bad:htmlWindow3->lpVtbl->Release( htmlWindow3 );
>>            ^
>> ../../../../contrib/activex/htmlcore.c: In function 'GetWebPtrs':
>> ../../../../contrib/activex/htmlcore.c:1845:67: error: lvalue
>> required as left o
>> perand of assignment
>>           *htmlDoc2Result = ( struct IHTMLDocument2 * ) lpDispatch = 0;
>>                                                                    ^
>> ../../../../contrib/activex/htmlcore.c: In function 'GetWebElement':
>> ../../../../contrib/activex/htmlcore.c:1991:41: error: lvalue
>> required as left o
>> perand of assignment
>>     lpDispatch = ( LPDISPATCH ) htmlElem = 0;
>>                                          ^
>> hbmk2 [hbactivex]: Erro: Executando o compilador C/C++ - tarefa #2. 1
>> gcc.exe -c -O3  -DHWG_USE_POINTER_ITEM -W -Wall -m32 -pipe
>> -IC:/HB34/include -I.
>> ./../../../include ../../../../contrib/activex/htmlcore.c
>> ../../../../contrib/ac
>> tivex/htmlfunc.c
>>
>> best regards,
>> Itamar M. Lins Jr.
>>
>>
>> ------------------------------------------------------------------------------
>> Download BIRT iHub F-Type - The Free Enterprise-Grade BIRT Server
>> from Actuate! Instantly Supercharge Your Business Reports and Dashboards
>> with Interactivity, Sharing, Native Excel Exports, App Integration & more
>> Get technology previously reserved for billion-dollar corporations, FREE
>> http://pubads.g.doubleclick.net/gampad/clk?id=164703151&iu=/4140/ostg.clktrk
>>
>>
>> _______________________________________________
>> Hwgui-developers mailing list
>> Hwg...@li...
>> https://lists.sourceforge.net/lists/listinfo/hwgui-developers
>

Re: [Hwgui-developers] Build Mingw with ActiveX

[Maurizio la C. <m.l...@ar...>]

Hi!
After last commit I confirm that the library is built.
Anyway, the warnings above are still present:

../../../../contrib/activex/c_activex.c: In function
'HB_FUN_HWG_CREATEACTIVEX':
../../../../contrib/activex/c_activex.c:81:4: warning: implicit
declaration of function 'ISNIL' [-Wi
mplicit-function-declaration]
    hWndCtrl = CreateWindowEx( ( DWORD ) ISNIL( 1 ) ? 0 : hb_parni( 1 ),
// nExStyle
    ^
../../../../contrib/activex/c_activex.c: In function 'Invoke':
../../../../contrib/activex/c_activex.c:391:10: warning: implicit
declaration of function 'hb_vmPush
State' [-Wimplicit-function-declaration]
          hb_vmPushState(  );
          ^
../../../../contrib/activex/c_activex.c:509:10: warning: implicit
declaration of function 'hb_vmPopS
tate' [-Wimplicit-function-declaration]
          hb_vmPopState(  );
          ^

BR
Maurizio


Il 20/12/2014 22:33, Itamar M. Lins Jr. Lins ha scritto:
> Hi!
> Please enable compiling activex with Mingw.
> We mingw users can not use it.
>
> The file hbactivex.hbp
> #
> # $Id: hbactivex.hbp 1615 2011-02-18 13:53:35Z mlacecilia $
> #
>
> -inc
>
> -hblib
> -o../lib/hbactivex
>
> -n -q0 -w -es2
>
> -i../include
>
> -cflag=-DHWG_USE_POINTER_ITEM
>
> activex/*.c
> activex/*.prg
>
> -stop{allmingw}
>
> I comment the line #-stop{allmingw}
> And get many errors.
>
> C:\devl\hwgui\contrib>hbmk2 hbactivex.hbp
> hbmk2: Harbour: Compilando m├│dulos...
> hbmk2: Compilando...
> ../../../../contrib/activex/c_activex.c: In function
> 'HB_FUN_HWG_CREATEACTIVEX':
>
> ../../../../contrib/activex/c_activex.c:81:4: warning: implicit
> declaration of f
> unction 'ISNIL' [-Wimplicit-function-declaration]
>     hWndCtrl = CreateWindowEx( ( DWORD ) ISNIL( 1 ) ? 0 : hb_parni( 1
> ), // nExS
> tyle
>     ^
> ../../../../contrib/activex/c_activex.c: In function 'Invoke':
> ../../../../contrib/activex/c_activex.c:391:10: warning: implicit
> declaration of
>  function 'hb_vmPushState' [-Wimplicit-function-declaration]
>           hb_vmPushState(  );
>           ^
> ../../../../contrib/activex/c_activex.c:509:10: warning: implicit
> declaration of
>  function 'hb_vmPopState' [-Wimplicit-function-declaration]
>           hb_vmPopState(  );
>           ^
> ../../../../contrib/activex/htmlcore.c: In function 'Dispatch_AddRef':
> ../../../../contrib/activex/htmlcore.c:1386:13: warning: pointer
> targets in pass
> ing argument 1 of 'InterlockedIncrement' differ in signedness
> [-Wpointer-sign]
>     return ( InterlockedIncrement( &( ( _IDispatchEx * ) This
> )->refCount ) );
>              ^
> In file included from
> C:/QT/Qt5.4.0/Tools/mingw491_32/i686-w64-mingw32/include/w
> inbase.h:22:0,
>                  from
> C:/QT/Qt5.4.0/Tools/mingw491_32/i686-w64-mingw32/include/w
> indows.h:70,
>                  from ../../../../contrib/activex/htmlcore.c:38:
> C:/QT/Qt5.4.0/Tools/mingw491_32/i686-w64-mingw32/include/interlockedapi.h:29:37:
>  note: expected 'volatile LONG *' but argument is of type 'DWORD *'
>    __MINGW_INTRIN_INLINE LONG WINAPI InterlockedIncrement(LONG
> volatile *lpAdden
> d) {
>                                      ^
> ../../../../contrib/activex/htmlcore.c: In function 'Dispatch_Release':
> ../../../../contrib/activex/htmlcore.c:1391:8: warning: pointer
> targets in passi
> ng argument 1 of 'InterlockedDecrement' differ in signedness
> [-Wpointer-sign]
>     if( InterlockedDecrement( &( ( _IDispatchEx * ) This )->refCount )
> == 0 )
>         ^
> In file included from
> C:/QT/Qt5.4.0/Tools/mingw491_32/i686-w64-mingw32/include/w
> inbase.h:22:0,
>                  from
> C:/QT/Qt5.4.0/Tools/mingw491_32/i686-w64-mingw32/include/w
> indows.h:70,
>                  from ../../../../contrib/activex/htmlcore.c:38:
> C:/QT/Qt5.4.0/Tools/mingw491_32/i686-w64-mingw32/include/interlockedapi.h:32:37:
>  note: expected 'volatile LONG *' but argument is of type 'DWORD *'
>    __MINGW_INTRIN_INLINE LONG WINAPI InterlockedDecrement(LONG
> volatile *lpAdden
> d) {
>                                      ^
> ../../../../contrib/activex/htmlcore.c: In function 'CreateWebEvtHandler':
> ../../../../contrib/activex/htmlcore.c:1674:18: warning: passing
> argument 4 of '
> htmlWindow3->lpVtbl->attachEvent' from incompatible pointer type
>              if( !htmlWindow3->lpVtbl->attachEvent( htmlWindow3,
>                   ^
> ../../../../contrib/activex/htmlcore.c:1674:18: note: expected
> 'VARIANT_BOOL *'
> but argument is of type 'struct VARIANT *'
> ../../../../contrib/activex/htmlcore.c:1712:11: warning: label 'bad'
> defined but
>  not used [-Wunused-label]
>            bad:htmlWindow3->lpVtbl->Release( htmlWindow3 );
>            ^
> ../../../../contrib/activex/htmlcore.c: In function 'GetWebPtrs':
> ../../../../contrib/activex/htmlcore.c:1845:67: error: lvalue required
> as left o
> perand of assignment
>           *htmlDoc2Result = ( struct IHTMLDocument2 * ) lpDispatch = 0;
>                                                                    ^
> ../../../../contrib/activex/htmlcore.c: In function 'GetWebElement':
> ../../../../contrib/activex/htmlcore.c:1991:41: error: lvalue required
> as left o
> perand of assignment
>     lpDispatch = ( LPDISPATCH ) htmlElem = 0;
>                                          ^
> hbmk2 [hbactivex]: Erro: Executando o compilador C/C++ - tarefa #2. 1
> gcc.exe -c -O3  -DHWG_USE_POINTER_ITEM -W -Wall -m32 -pipe
> -IC:/HB34/include -I.
> ./../../../include ../../../../contrib/activex/htmlcore.c
> ../../../../contrib/ac
> tivex/htmlfunc.c
>
> best regards,
> Itamar M. Lins Jr.
>
>
> ------------------------------------------------------------------------------
> Download BIRT iHub F-Type - The Free Enterprise-Grade BIRT Server
> from Actuate! Instantly Supercharge Your Business Reports and Dashboards
> with Interactivity, Sharing, Native Excel Exports, App Integration & more
> Get technology previously reserved for billion-dollar corporations, FREE
> http://pubads.g.doubleclick.net/gampad/clk?id=164703151&iu=/4140/ostg.clktrk
>
>
> _______________________________________________
> Hwgui-developers mailing list
> Hwg...@li...
> https://lists.sourceforge.net/lists/listinfo/hwgui-developers

[Hwgui-developers] 2.19 build 1 has been released

[Alexander K. <alk...@ya...>]

Binary distributions will be available from my site later.

Regards, Alexander.

[Hwgui-developers] Build Mingw with ActiveX

[Itamar M. L. J. L. <ita...@gm...>]

Hi!
Please enable compiling activex with Mingw.
We mingw users can not use it.

The file hbactivex.hbp
#
# $Id: hbactivex.hbp 1615 2011-02-18 13:53:35Z mlacecilia $
#

-inc

-hblib
-o../lib/hbactivex

-n -q0 -w -es2

-i../include

-cflag=-DHWG_USE_POINTER_ITEM

activex/*.c
activex/*.prg

-stop{allmingw}

I comment the line #-stop{allmingw}
And get many errors.

C:\devl\hwgui\contrib>hbmk2 hbactivex.hbp
hbmk2: Harbour: Compilando m├│dulos...
hbmk2: Compilando...
../../../../contrib/activex/c_activex.c: In function
'HB_FUN_HWG_CREATEACTIVEX':

../../../../contrib/activex/c_activex.c:81:4: warning: implicit declaration
of f
unction 'ISNIL' [-Wimplicit-function-declaration]
    hWndCtrl = CreateWindowEx( ( DWORD ) ISNIL( 1 ) ? 0 : hb_parni( 1 ), //
nExS
tyle
    ^
../../../../contrib/activex/c_activex.c: In function 'Invoke':
../../../../contrib/activex/c_activex.c:391:10: warning: implicit
declaration of
 function 'hb_vmPushState' [-Wimplicit-function-declaration]
          hb_vmPushState(  );
          ^
../../../../contrib/activex/c_activex.c:509:10: warning: implicit
declaration of
 function 'hb_vmPopState' [-Wimplicit-function-declaration]
          hb_vmPopState(  );
          ^
../../../../contrib/activex/htmlcore.c: In function 'Dispatch_AddRef':
../../../../contrib/activex/htmlcore.c:1386:13: warning: pointer targets in
pass
ing argument 1 of 'InterlockedIncrement' differ in signedness
[-Wpointer-sign]
    return ( InterlockedIncrement( &( ( _IDispatchEx * ) This )->refCount )
);
             ^
In file included from
C:/QT/Qt5.4.0/Tools/mingw491_32/i686-w64-mingw32/include/w
inbase.h:22:0,
                 from
C:/QT/Qt5.4.0/Tools/mingw491_32/i686-w64-mingw32/include/w
indows.h:70,
                 from ../../../../contrib/activex/htmlcore.c:38:
C:/QT/Qt5.4.0/Tools/mingw491_32/i686-w64-mingw32/include/interlockedapi.h:29:37:
 note: expected 'volatile LONG *' but argument is of type 'DWORD *'
   __MINGW_INTRIN_INLINE LONG WINAPI InterlockedIncrement(LONG volatile
*lpAdden
d) {
                                     ^
../../../../contrib/activex/htmlcore.c: In function 'Dispatch_Release':
../../../../contrib/activex/htmlcore.c:1391:8: warning: pointer targets in
passi
ng argument 1 of 'InterlockedDecrement' differ in signedness
[-Wpointer-sign]
    if( InterlockedDecrement( &( ( _IDispatchEx * ) This )->refCount ) == 0
)
        ^
In file included from
C:/QT/Qt5.4.0/Tools/mingw491_32/i686-w64-mingw32/include/w
inbase.h:22:0,
                 from
C:/QT/Qt5.4.0/Tools/mingw491_32/i686-w64-mingw32/include/w
indows.h:70,
                 from ../../../../contrib/activex/htmlcore.c:38:
C:/QT/Qt5.4.0/Tools/mingw491_32/i686-w64-mingw32/include/interlockedapi.h:32:37:
 note: expected 'volatile LONG *' but argument is of type 'DWORD *'
   __MINGW_INTRIN_INLINE LONG WINAPI InterlockedDecrement(LONG volatile
*lpAdden
d) {
                                     ^
../../../../contrib/activex/htmlcore.c: In function 'CreateWebEvtHandler':
../../../../contrib/activex/htmlcore.c:1674:18: warning: passing argument 4
of '
htmlWindow3->lpVtbl->attachEvent' from incompatible pointer type
             if( !htmlWindow3->lpVtbl->attachEvent( htmlWindow3,
                  ^
../../../../contrib/activex/htmlcore.c:1674:18: note: expected
'VARIANT_BOOL *'
but argument is of type 'struct VARIANT *'
../../../../contrib/activex/htmlcore.c:1712:11: warning: label 'bad'
defined but
 not used [-Wunused-label]
           bad:htmlWindow3->lpVtbl->Release( htmlWindow3 );
           ^
../../../../contrib/activex/htmlcore.c: In function 'GetWebPtrs':
../../../../contrib/activex/htmlcore.c:1845:67: error: lvalue required as
left o
perand of assignment
          *htmlDoc2Result = ( struct IHTMLDocument2 * ) lpDispatch = 0;
                                                                   ^
../../../../contrib/activex/htmlcore.c: In function 'GetWebElement':
../../../../contrib/activex/htmlcore.c:1991:41: error: lvalue required as
left o
perand of assignment
    lpDispatch = ( LPDISPATCH ) htmlElem = 0;
                                         ^
hbmk2 [hbactivex]: Erro: Executando o compilador C/C++ - tarefa #2. 1
gcc.exe -c -O3  -DHWG_USE_POINTER_ITEM -W -Wall -m32 -pipe
-IC:/HB34/include -I.
./../../../include ../../../../contrib/activex/htmlcore.c
../../../../contrib/ac
tivex/htmlfunc.c

best regards,
Itamar M. Lins Jr.

Re: [Hwgui-developers] hctrlex.prg error.

[Alexander K. <alk...@ya...>]

> Line 151 of hctrlex.prg file.
>      IF wParam = VK_DOWN



 Typical error, related to HWG_USE_POINTER_ITEM mode. Fixed now.

Regards, Alexander.

Re: [Hwgui-developers] bActivate not work with DIALOG

[Alexander K. <alk...@ya...>]

Yes, when a dialog is created without a main window.
Anyway, fixed now.

Regards, Alexander.

[Hwgui-developers] Isolate problem hctrlex.prg

[Itamar M. L. J. L. <ita...@gm...>]

See then is only a BUTTON objet.
While type down arrow Button lost focus and get a error
Below example show the problem.

Error BASE/1071  Argument error: =
Called from ->HSTATICEX:ONEVENT(151)
Called from ->HWG_DLGBOXINDIRECT(0)
Called from ->HDIALOG:ACTIVATE(135)
Called from ->MAIN(11)

HWGUI 2.18 Build 2
Date:12/20/14
Time:08:26:52
*-------------8<-----
#include "hwgui.ch"
#include "hwg_extctrl.ch"
Function main
LOCAL oDlg,oBtn

INIT DIALOG oDlg AT 100,100 SIZE 200,120

@ 10,10 button oBtn Caption 'Press DOWN key' Size 130,30
@ 10,50 say "NONE" size 50,20

oDlg:Activate()

//And I do not know why need this function to compile !

FUNCTION hwg_TxtRect( cTxt, oWin, oFont )

   LOCAL hDC
   LOCAL ASize
   LOCAL hFont

   oFont := iif( oFont != Nil, oFont, oWin:oFont )

   hDC       := hwg_Getdc( oWin:handle )
   IF oFont == Nil .AND. oWin:oParent != Nil
      oFont := oWin:oParent:oFont
   ENDIF
   IF oFont != Nil
      hFont := hwg_Selectobject( hDC, oFont:handle )
   ENDIF
   ASize     := hwg_Gettextsize( hDC, cTxt )
   IF oFont != Nil
      hwg_Selectobject( hDC, hFont )
   ENDIF
   hwg_Releasedc( oWin:handle, hDC )

   RETURN ASize

best regards,
Itamar M. Lins Jr.

[Hwgui-developers] hctrlex.prg error.

[Itamar M. L. J. L. <ita...@gm...>]

Error BASE/1071  Erro nos parâmetros: =
Called from ->HSTATICEX:ONEVENT(151)
Called from ->HWG_DLGBOXINDIRECT(0)
Called from ->HDIALOG:ACTIVATE(135)

Line 151 of hctrlex.prg file.

      IF wParam = VK_DOWN

Best regards,
Itamar M. Lins Jr.

[Hwgui-developers] bActivate not work with DIALOG

[Itamar M. L. J. L. <ita...@gm...>]

#include "hwgui.ch"
Function main
local oDlg

  INIT DIALOG oDlg AT 200,100 SIZE 300,300 STYLE DS_CENTER

  oDlg:bActivate := {|| hwg_msginfo('ok') }

  oDlg:Activate()

Best regards,
Itamar M. Lins Jr.

Re: [Hwgui-developers] Last get <ENTER> Disable

[Alexander K. <alk...@ya...>]

> While use NOEXIT flag in DIALOG, the last get DISABLE <ENTER> key.
> Then if I used functio below not capture <ENTER> key.


 Yes, I see. Winapi do not pass the WM_KEYDOWN for the ENTER key to edit item at all.

 But you still may use the SET KEY engine:

hwg_SetDlgKey( oDlg, 0, VK_RETURN, {|o|f1(o)} )
@ 10,10 GET oEditA VAR cEditA PICTURE "!!!!!" SIZE 50,25
...
function f1( oGet )

if oGet != Nil .and. oget:nTop == 10 .and. oget:nLeft == 10
  hwg_msginfo("Urrah!")
endif
return .t.

f1() gets the object of the control, which was in focus when the key was pressed.

Anyway, I think that an additional invisible get item is better solution.


Regards, Alexander.

[Hwgui-developers] Last get <ENTER> Disable

[Itamar M. L. J. L. <ita...@gm...>]

Hi!

>  Using of :bKeyDown ( as in a good Delphi program :) ) or SET KEY also
>may help.

Only for register.
While use NOEXIT flag in DIALOG, the last get DISABLE <ENTER> key.
Then if I used functio below not capture <ENTER> key.

FUNCTION fOnKeyDown( oObj, nKeyPress )

IF nKeyPress == VK_RETURN //without effect
  SaveGetIntoDBF(.F.) //With last get not work "DIALOG NOEXIT"
ELSEIF nKeyPress == VK_ADD
  SaveGetIntoDBF(.F.) //Works
EndIf

Now key "+" is my <ENTER> key :-))

I posted an example here, showing that when it arrives at last get the
<ENTER> key is turned off even when just out to another object one
BUTTON <ENTER>
key remains off.

>Itamar ( may I call you this way ? )

No problem, please feel free to call me with the name you want.

Best regards,
Itamar M. Lins Jr.

[Hwgui-developers] New release ?

[Alexander S.K. <al...@be...>]

Hi,

  I want to make a new release - 2.19, if there are not problems, which 
demands immediate fixes.

Itamar ( may I call you this way ? ), if the methods, which I suggested 
for the problem with get items in a dialog, are not suitable, we may 
consider other solutions after the release.

Regards, Alexander.

Re: [Hwgui-developers] More one example DIALOG closed

[Alexander S.K. <al...@be...>]

Itamar M. Lins Jr. Lins writes:
> Hi!
> If I use "NOEXIT" Valid {||} not work, if use dialog close compulsorily!
> 
> #include "hwgui.ch <http://hwgui.ch>"
> 
> Function main
> local oDlg, oTab, cGetA := cGetB := space(5)
> 
>   INIT DIALOG oDlg CLIPPER AT 100,100 SIZE 640,480 STYLE DS_CENTER
> 
>    @ 10,10 TAB oTab ITEMS {} SIZE 400,200 OF oDlg
> 
>    BEGIN PAGE "TAB A" OF oTAB
> 
>     @  5,30 get oGetA Var cGetA size 100,30 ;
>        Valid {||hwg_msginfo("does not close because it has elsewhere to 
> type"),oGetB:SetFocus(),.t.}
> 
>    END PAGE OF oTAB
>    BEGIN PAGE "TAB B" OF oTAB
> 
>     @  5,30 get oGetB Var cGetB size 100,30
> 
>    END PAGE OF oTAB
> 
>   ACTIVATE Dialog oDlg
> 
> The user has to type more, but the dialog closes. With no command to do so.
> 

  Yes, because the get item on a tab is last get item.
If you don't want to use buttons, you may use additional invisible get 
item, as I suggested in previous message. There is no need to set in in 
every tab page - just one out of tab.
BTW, to set focus on an item in other tab page, it is needed to set this 
page directly, using the oTab:SetTab( n )
So, in your sample, if you want to go automatically to a second page 
after leaving the first get item and to close a dialog after leaving the 
second get, you need to insert out of tab:

@ 5,100 get cGet size 0,0 WHEN 
{||Iif(oTab:GetActivePage()==1,(oTab:Settab(2),oGetB:SetFocus(),.t.),(hwg_enddialog(),.t.))}

Regards, Alexander.

Re: [Hwgui-developers] Dialog with NOEXIT flag not run VALID {||}

[Alexander S.K. <al...@be...>]

Itamar M. Lins Jr. Lins writes:

> Imagine a typist registering a product and then having to open the 
> dialog again, simply because it closes compulsorily?
> We use valid because it simplifies for the user does not need to take 
> the keyboard and grab the mouse have to click buttons.
 > If no other way to do this, I wonder.

  As we say here, in Russia, from every dead-end situation there is at 
least two exits :)

  I see, at least, two ways here.

  The most evident is to open the dialog again automatically, if 
oDlg:lResult is True.

  Other is to use an additional invisible get with a SIZE 0,0.

  Using of :bKeyDown ( as in a good Delphi program :) ) or SET KEY also 
may help.

Regards, Alexander.

[Hwgui-developers] Example demonstrates problems 2.18

[Itamar M. L. J. L. <ita...@gm...>]

Hi!

#include "hwgui.ch"
Function main
LOCAL oDlg, cGet := "", oSayA, oSayB

  INIT DIALOG oDlg CLIPPER NOEXIT AT 100,100 SIZE 500,200

  @ 10,10 get oGet var cGet size 100,30 picture "!!!!!"     Valid
{||hwg_msginfo("Valid run only with TAB key!"),.T.}

  @ 10,60 say oSay CAPTION "Press TAB Skip to Button and ENTER on Button
Not WORK" size 400,30

  @ 10,100 Button oBt Caption 'Confirm' Size 90,30 on click
{||hwg_msginfo("enter key not work only with <SPACE BAR>")}

  @ 10,150 say oSayB CAPTION "<ENTER> key not work only with <SPACE BAR>,
after <ENTER> works" size 450,30

  ACTIVATE Dialog oDlg

Maybe I create a phantom GET for valid penultimate works  :-)) LOL

best regards,
Itamar M. Lins Jr.

[Hwgui-developers] More one example DIALOG closed

[Itamar M. L. J. L. <ita...@gm...>]

Hi!
If I use "NOEXIT" Valid {||} not work, if use dialog close compulsorily!

#include "hwgui.ch"

Function main
local oDlg, oTab, cGetA := cGetB := space(5)

  INIT DIALOG oDlg CLIPPER AT 100,100 SIZE 640,480 STYLE DS_CENTER

   @ 10,10 TAB oTab ITEMS {} SIZE 400,200 OF oDlg

   BEGIN PAGE "TAB A" OF oTAB

    @  5,30 get oGetA Var cGetA size 100,30 ;
       Valid {||hwg_msginfo("does not close because it has elsewhere to
type"),oGetB:SetFocus(),.t.}

   END PAGE OF oTAB
   BEGIN PAGE "TAB B" OF oTAB

    @  5,30 get oGetB Var cGetB size 100,30

   END PAGE OF oTAB

  ACTIVATE Dialog oDlg

The user has to type more, but the dialog closes. With no command to do so.

Best regards,
Itamar M. Lins Jr.

[Hwgui-developers] Dialog with NOEXIT flag not run VALID {||}

[Itamar M. L. J. L. <ita...@gm...>]

>  Valid is executed when the input focus leaves the get item. In your
>sample with the only control and NOEXIT the input focus cannot go out.
>So it is normal behaviour.

>Regards, Alexander.


Works fine in version 2.17, this is clearly a bug!
How to final DIALOG run VALID and not close DIALOG ?
The DIALOG of good programs run VALID or use On KeyDown (Delphi)
for check VALID EDITBOX.

Without this feature we can do absolutely nothing,

We'll have to go back to version 2.17 :-(

Imagine a typist registering a product and then having to open the dialog
again, simply because it closes compulsorily?
We use valid because it simplifies for the user does not need to take the
keyboard and grab the mouse have to click buttons.
If no other way to do this, I wonder.

best regards,
Itamar M. Lins Jr.

Re: [Hwgui-developers] Get On KeyDown = Error

[Alexander S.K. <al...@be...>]

Itamar M. Lins Jr. Lins writes:
> #include "hwgui.ch <http://hwgui.ch>"
> Function main
> LOCAL oDlg,oEditA,cEditA := space(5)
> 
> INIT DIALOG oDlg CLIPPER  AT 100,100 SIZE 200,80
> 
>    @ 10,10 GET oEditA VAR cEditA PICTURE "!!!!!" SIZE 50,25    ;
>       ON KEYDOWN {|oEditA, nKeyPress, nShiftAltCtrl| fOnKeyDown( oEditA, 
> nKeyPress, nShiftAltCtrl ) }
> 
> ACTIVATE Dialog oDlg
> 
> FUNCTION fOnKeyDown( oEditA, nKeyPress, nShiftAltCtrl )
>  
>   if nKeyPress == 6 .AND.  nShiftAltCtrl == 4
>        Hwg_MsgInfo("Key Ctrl +F")
>   endif
> return .t.
> 
> Error BASE/1072  Argument error: <>
>

   In 2.18 the return value of onKeyDown must be numeric.
BTW, the third parameter is not nShiftAltCtrl, it is lParam - the value, 
which winapi set for this event.
You nay determine, does the Ctrl key pressed, using the functioin

hwg_IsCtrlShift( .t.,.f. )

So, if you need to determine the Ctrl+f:

FUNCTION fOnKeyDown( oEditA, nKeyPress )

   if nKeyPress == Asc("F") .AND. hwg_isCtrlShift( .t.,.f. )
        Hwg_MsgInfo("Key Ctrl +F")
   endif
return 1

Regards, Alexander.

Re: [Hwgui-developers] Dialog with NOEXIT flag not run VALID {||}

[Alexander S.K. <al...@be...>]

Itamar M. Lins Jr. Lins writes:
> Dialog with NOEXIT flag not run VALID {||}
> 
> #include "hwgui.ch <http://hwgui.ch>"
> Function main
> LOCAL oDlg,cGet := space(3)
> 
> INIT DIALOG oDlg CLIPPER NOEXIT AT 100,100 SIZE 200,80
> 
>    @ 10,10 get oGet var cGet size 50,30 picture "!!!" valid 
> {||hwg_MsgInfo("Hi"),.T.}
> 
> ACTIVATE Dialog oDlg
> 

  Valid is executed when the input focus leaves the get item. In your 
sample with the only control and NOEXIT the input focus cannot go out. 
So it is normal behaviour.

Regards, Alexander.

[Hwgui-developers] \utils\dbc\dbchw.exe

[Itamar M. L. J. L. <ita...@gm...>]

Hi!
Some problems encountered in dbchw program.
File->Options No change Main CodePage, show only Russina windows-1251
File->Options Date format show only dd.mm.yyyy
...
Maybe a problem with ComboBox show only first option.

If I clicked "About" option menu get a error.

Error BASE/1004  No exported method: NWIDTH
Called from ->NWIDTH(0)
Called from ->HSAYBMP:NEW(126)
Called from ->ABOUT(392)
Called from ->(b)MAIN(250)
Called from ->ONCOMMAND(555)
Called from ->(b)HMAINWINDOW(256)
Called from ->HMAINWINDOW:ONEVENT(346)
Called from ->HWG_ACTIVATEMDIWINDOW(0)
Called from ->HMAINWINDOW:ACTIVATE(328)
Called from ->MAIN(283)

HWGUI 2.18 Build 2
Date:17/12/14
Time:18:18:17

best regards,
Itamar M. Lins Jr.

[Hwgui-developers] Warnings compiling \util\dbc

[Itamar M. L. J. L. <ita...@gm...>]

Hi!
I am using MingW 4.9.1
And I create a simple .hbp file for hbmk2 harbour 3.4 fork Victor Szakats
File dbc.hbp
//Init file
-odbc
dbchw.prg
commands.prg
modistru.prg
move.prg
view.prg
procs_c.c
..\..\hwgui.hbc
-n -w
//End File

\>hbmk2 dbc.hbp

../../../../../../devl/hwgui/utils/dbc/procs_c.c: In function
'HB_FUN_CARR_PUT':

../../../../../../devl/hwgui/utils/dbc/procs_c.c:46:13: warning: comparison
betw
een signed and unsigned integer expressions [-Wsign-compare]
    if( *pul < ulItem )
             ^
../../../../../../devl/hwgui/utils/dbc/procs_c.c: In function
'HB_FUN_CARR_DEL':

../../../../../../devl/hwgui/utils/dbc/procs_c.c:71:4: warning: value
computed i
s not used [-Wunused-value]
    *pul --;
    ^
../../../../../../devl/hwgui/utils/dbc/procs_c.c: In function
'HB_FUN_CLONG_SET'
:
../../../../../../devl/hwgui/utils/dbc/procs_c.c:126:4: warning: pointer
targets
 in passing argument 1 of 'hb_retclen_buffer' differ in signedness
[-Wpointer-si
gn]
    hb_retclen_buffer( cptr, ulLen );
    ^
In file included from ../../../../../../devl/hwgui/utils/dbc/procs_c.c:9:0:
C:/HB34/include/hbapi.h:690:25: note: expected 'char *' but argument is of
type
'unsigned char *'
 extern HB_EXPORT void   hb_retclen_buffer( char * szText, HB_SIZE nLen );
/* sa
mes as above, but accepts an allocated buffer */
                         ^
../../../../../../devl/hwgui/utils/dbc/procs_c.c: In function
'HB_FUN_CLONG_RESE
T':
../../../../../../devl/hwgui/utils/dbc/procs_c.c:143:4: warning: pointer
targets
 in passing argument 1 of 'hb_retclen_buffer' differ in signedness
[-Wpointer-si
gn]
    hb_retclen_buffer( cptr, ulLen );
    ^
In file included from ../../../../../../devl/hwgui/utils/dbc/procs_c.c:9:0:
C:/HB34/include/hbapi.h:690:25: note: expected 'char *' but argument is of
type
'unsigned char *'
 extern HB_EXPORT void   hb_retclen_buffer( char * szText, HB_SIZE nLen );
/* sa
mes as above, but accepts an allocated buffer */

Best regards,
Itamar M. Lins Jr.

[Hwgui-developers] Get On KeyDown = Error

[Itamar M. L. J. L. <ita...@gm...>]

#include "hwgui.ch"
Function main
LOCAL oDlg,oEditA,cEditA := space(5)

INIT DIALOG oDlg CLIPPER  AT 100,100 SIZE 200,80

   @ 10,10 GET oEditA VAR cEditA PICTURE "!!!!!" SIZE 50,25    ;
      ON KEYDOWN {|oEditA, nKeyPress, nShiftAltCtrl| fOnKeyDown( oEditA,
nKeyPress, nShiftAltCtrl ) }

ACTIVATE Dialog oDlg

FUNCTION fOnKeyDown( oEditA, nKeyPress, nShiftAltCtrl )

  if nKeyPress == 6 .AND.  nShiftAltCtrl == 4
       Hwg_MsgInfo("Key Ctrl +F")
  endif
return .t.

Error BASE/1072  Argument error: <>
Called from ->HEDIT:ONEVENT(161)
Called from ->HWG_DLGBOXINDIRECT(0)
Called from ->HDIALOG:ACTIVATE(135)
Called from ->MAIN(10)

HWGUI 2.18 Build 2
Date:12/17/14
Time:16:49:37

Best regards,
Itamar M. Lins Jr.

[Hwgui-developers] Dialog with NOEXIT flag not run VALID {||}

[Itamar M. L. J. L. <ita...@gm...>]

Dialog with NOEXIT flag not run VALID {||}

#include "hwgui.ch"
Function main
LOCAL oDlg,cGet := space(3)

INIT DIALOG oDlg CLIPPER NOEXIT AT 100,100 SIZE 200,80

   @ 10,10 get oGet var cGet size 50,30 picture "!!!" valid
{||hwg_MsgInfo("Hi"),.T.}

ACTIVATE Dialog oDlg

Best regards,
Itamar M. Lins Jr.

[Hwgui-developers] Browse themed

[Itamar M. L. J. L. <ita...@gm...>]

Hi!
> What gives the themes support? I really don't know why it's needed and
>how should look the "themed" window, what is the difference with "no
>themed"...

Really are minor differences.
The mouse pointer changes when it passes over the browse header.
Appears a small hand instead of the arrow.
And the header browse is more rounded.
And a small space between the columns is added

unfortunately here does not accept Annex

Best regards,
Itamar M. Lins Jr.

[Hwgui-developers] Focus on all gets.

[Itamar M. L. J. L. <ita...@gm...>]

   >I didn't understand, what is this @ GET "Focus of Cursor" ? Is there
>a sample ?

Problem solved.

Best regards,
Itamar M. Lins Jr.