Workaround for Got Focus and Lost Focus missing events for RadioGroup (only works with getting / losing focus using the TAB key)
Code: Select all
#include "hmg.ch"
Function Main
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 640 HEIGHT 480 ;
TITLE 'HMG Demo' ;
MAIN ;
FONT 'Arial' SIZE 10
DEFINE RADIOGROUP Radio_1
OPTIONS { 'One' , 'Two' , 'Three', 'Four' }
VALUE 1
WIDTH 100
TOOLTIP 'RadioGroup'
ONCHANGE MsgBalloon( "On Change", "RadioGroup 1" )
READONLY { .F. , .T. , .F. , .T. }
ROW 10
COL 10
END RADIOGROUP
DEFINE RADIOGROUP Radio_2
ROW 10
COL 150
OPTIONS { 'One' , 'Two' , 'Three', 'Four' }
VALUE 1
WIDTH 100
TOOLTIP 'RadioGroup'
ONCHANGE MsgBalloon( "On Change", "RadioGroup 2" )
READONLY { .F. , .T. , .F. , .T. }
END RADIOGROUP
@ 150,10 DATEPICKER Date_1 ;
VALUE CTOD(' / / ') ;
TOOLTIP 'DatePicker Control'
END WINDOW
Form_1.date_1.SetFocus
Form_1.Center
CREATE EVENT PROCNAME cProcRadioGroup()
Form_1.Activate
Return Nil
**********************************************************
Function cProcRadioGroup( )
Local nMsg := EventMSG ()
Local hWnd := EventHWND ()
Local wParam := EventWPARAM ()
Local lParam := EventLPARAM ()
DO CASE
CASE ASCAN ( Form_1.Radio_1.Handle, hWnd ) <> 0 //Handles of Radio_1
DO CASE
CASE nMsg == WM_KEYUP .AND. LoWord ( wParam ) == VK_TAB
MsgBalloon( "Got Focus", "RadioGroup 1" )
CASE nMsg == WM_KEYDOWN .AND. LoWord ( wParam ) == VK_TAB
MsgBalloon( "Lost Focus", "RadioGroup 1" )
ENDCASE
CASE ASCAN ( Form_1.Radio_2.Handle, hWnd ) <> 0 //Handles of Radio_2
DO CASE
CASE nMsg == WM_KEYUP .AND. LoWord ( wParam ) == VK_TAB
MsgBalloon( "Got Focus", "RadioGroup 2" )
CASE nMsg == WM_KEYDOWN .AND. LoWord ( wParam ) == VK_TAB
MsgBalloon( "Lost Focus", "RadioGroup 2" )
ENDCASE
ENDCASE
RETURN Nil
**************************************************************************************--------------------------------------------------------*
Procedure MsgBalloon( cMessage, cTitle )
Default cMessage := "Message", cTitle := "Title"
ShowNotifyInfo( GetActiveWindow(), .T. , Nil, Nil, cMessage, cTitle, .T., .F., .F. )
Do Events
ShowNotifyInfo( GetActiveWindow(), .F. , Nil, Nil, Nil , Nil , .F., .F., .F. )
Return
*************************************************************************************
#pragma BEGINDUMP
//#define _WIN32_IE 0x0500
#define HB_OS_WIN_32_USED
//#define _WIN32_WINNT 0x0400
#include <shlobj.h>
#include <windows.h>
#include <commctrl.h>
#include "hbapi.h"
static void ShowNotifyInfo(HWND hWnd, BOOL bAdd, HICON hIcon, LPSTR szText, LPSTR szInfo, LPSTR szInfoTitle, BOOL bInfo, BOOL bWarning, BOOL bError);
HB_FUNC ( SHOWNOTIFYINFO )
{
ShowNotifyInfo( (HWND) hb_parnl(1), (BOOL) hb_parl(2), (HICON) hb_parnl(3), (LPSTR) hb_parc(4),
(LPSTR) hb_parc(5), (LPSTR) hb_parc(6), (BOOL) hb_parl(7), (BOOL) hb_parl(8), (BOOL) hb_parl(9) );
}
static void ShowNotifyInfo(HWND hWnd, BOOL bAdd, HICON hIcon, LPSTR szText, LPSTR szInfo, LPSTR szInfoTitle, BOOL bInfo, BOOL bWarning, BOOL bError)
{
NOTIFYICONDATA nid;
ZeroMemory( &nid, sizeof(nid) );
nid.cbSize = sizeof(NOTIFYICONDATA);
nid.hIcon = hIcon;
nid.hWnd = hWnd;
nid.uID = 0;
nid.uFlags = NIF_INFO | NIF_TIP | NIF_ICON;
if(bInfo)
nid.dwInfoFlags = NIIF_INFO;
if(bWarning)
nid.dwInfoFlags = NIIF_WARNING;
if(bError)
nid.dwInfoFlags = NIIF_ERROR;
lstrcpy( nid.szTip, TEXT(szText) );
lstrcpy( nid.szInfo, TEXT(szInfo) );
lstrcpy( nid.szInfoTitle, TEXT(szInfoTitle) );
if(bAdd)
Shell_NotifyIcon( NIM_ADD, &nid );
else
Shell_NotifyIcon( NIM_DELETE, &nid );
DestroyIcon( hIcon );
}
#pragma ENDDUMP
