SetKey with ALT key doesn't work

[Antonio Linares]

Frank,

Have you recently changed your xHarbour version ?

[frose]

Antonio,

I'm using the version 'xHarbour.com Okt. 2011 (9382)' as you can see in my signature

[Antonio Linares]

Frank,

FWH 11.06 was released in June and your xHarbour is October dated.

So you used different xHarbour versions with 11.06 and 11.12

[frose]

Antonio,

ok, working with FWH 11.12 and the Alt+C/Ctrl+Break function is broken, that's all

[Antonio Linares]

Frank,

Was it working fine with FWH 11.11 ?

Could you provide a small PRG to test ? Thanks

[frose]

Antonio,

there was three versions:
fwh_1111_2011-11-26.exe
fwh_1111_2011-11-28.exe
fwh_1111_2011-12-13.exe

Which one shall I use for a test?

here my PRG for testing:

Code: Select all  Expand view

FUNCTION Main()

       LOCAL oDlg
       LOCAL oCheck1
       LOCAL oCheck2
       LOCAL lValue := .T.
       
       SetCancel( .T. )
       
       DEFINE DIALOG oDlg size 400, 400 TITLE "A Dialog Box"

       @  2,  2 CHECKBOX oCheck1 VAR lValue PROMPT "This is the first CHECKBOX" OF oDlg ;
          ON CHANGE SAA_Change_dCheck( oCheck1 )

       @  3,  2 CHECKBOX oCheck2 PROMPT "This is  a second CHECKBOX" OF oDlg

       @  5,  4 BUTTON "&Confirm" OF oDlg SIZE 40, 12 ACTION oDlg:End()

       ACTIVATE DIALOG oDlg

    RETURN NIL

    FUNCTION SAA_Change_dCheck( oTCheckBox )
       oTCheckBox:SetCheck( .F. )
       oTCheckBox:SetText( "New Text" )
    RETURN NIL

[Antonio Linares]

Frank,

Here it is working fine with the most recent FWH libs.

We are emailing them to you. We appreciate your feedback, thanks

[frose]

Antonio,

the app crashes:

[Antonio Linares]

Frank,

Please test it with Harbour and FWH, thanks

[frose]

Antonio,

getting 1222 link errors with Harbour 3.1 and MSVC 2010:

Code: Select all  Expand view

...
FiveH32.lib(TIMAGLST.obj) : error LNK2001: Nicht aufgelöstes externes Symbol "_HB_FUN_ILCREATE".
FiveH32.lib(TIMAGLST.obj) : error LNK2001: Nicht aufgelöstes externes Symbol "_HB_FUN_ILSETBKCOLOR".
FiveH32.lib(TIMAGLST.obj) : error LNK2001: Nicht aufgelöstes externes Symbol "_HB_FUN_ILADDMASKED".
FiveH32.lib(TIMAGLST.obj) : error LNK2001: Nicht aufgelöstes externes Symbol "_HB_FUN_ILADD".
FiveH32.lib(MSGRUN.obj) : error LNK2001: Nicht aufgelöstes externes Symbol "_HB_FUN_WAITMESSAGE".
FiveH32.lib(RFILE.obj) : error LNK2001: Nicht aufgelöstes externes Symbol "_HB_FUN_ISANSI".
FiveH32.lib(MDIFRAME.obj) : error LNK2001: Nicht aufgelöstes externes Symbol "_HB_FUN_GETFRAMEPROC".
FiveHC32.lib(BRUSHES.obj) : error LNK2019: Verweis auf nicht aufgelöstes externes Symbol "_DibBits" in Funktion "_CreateMemBitmap2".
FiveHC32.lib(BRUSHES.obj) : error LNK2019: Verweis auf nicht aufgelöstes externes Symbol "_StrToken" in Funktion "_HB_FUN_MENUDRAW2007".
FiveHC32.lib(BRUSHES.obj) : error LNK2019: Verweis auf nicht aufgelöstes externes Symbol "_DrawGrayed" in Funktion "_HB_FUN_MENUDRAW2007".
FiveHC32.lib(BRUSHES.obj) : error LNK2019: Verweis auf nicht aufgelöstes externes Symbol "_DrawMasked" in Funktion "_HB_FUN_MENUDRAW2007".
FiveHC32.lib(BRUSHES.obj) : error LNK2019: Verweis auf nicht aufgelöstes externes Symbol "_bStrAt" in Funktion "_HB_FUN_MENUDRAW2007".
FiveHC32.lib(WNDMOVE.obj) : error LNK2019: Verweis auf nicht aufgelöstes externes Symbol "_CursorArrow" in Funktion "_HB_FUN_WNDCOPY".
FiveHC32.lib(WNDMOVE.obj) : error LNK2019: Verweis auf nicht aufgelöstes externes Symbol "_CursorWait" in Funktion "_HB_FUN_WNDCOPY".
FiveHC32.lib(WNDBOXES.obj) : error LNK2019: Verweis auf nicht aufgelöstes externes Symbol "_DrawRBGripper" in Funktion "_HB_FUN_BARPAINT".
FiveHC32.lib(WNDBOXES.obj) : error LNK2019: Verweis auf nicht aufgelöstes externes Symbol "__IsAppThemed" in Funktion "_HB_FUN_BARPAINT".
FiveHC32.lib(XBROWSEC.obj) : error LNK2019: Verweis auf nicht aufgelöstes externes Symbol "_IsForePalette" in Funktion "_BmpDrawNoStretch".
FiveHC32.lib(XBROWSEC.obj) : error LNK2019: Verweis auf nicht aufgelöstes externes Symbol "_MaskRegion" in Funktion "_BmpDrawNoStretch".
dlg_checkbox.exe : fatal error LNK1120: 476 nicht aufgelöste externe Verweise.
dlg_checkbox.exe - 1222 error(s), 1 warning(s)
 

[Antonio Linares]

Frank,

Are you using samples\buildh32.bat to build it ?

Here it is building fine and working fine on first try: I can send you the EXE so you can try it yourself

[frose]

Antonio,

working fine with the FWH1112 libs with UEStudio:


The unresolved externals appears only if using the libs you send me!

[frose]

Antonio,

now Alt-C/Ctrl-Break is working again with Harbour/MSVC AND xHarbour.com!

[Antonio Linares]

Very good

[HunterEC]

Frose:

This has worked for me:

Code: Select all  Expand view

SETKEY(ASC("Y"), {|| IIF(GetKeyState(VK_CONTROL),  EVAL( {|| MyFunction () } ), NIL) } )
 

Maybe Antonio can clarify if this construct can be used with the Alt key instead of the Control one.