HMGforum.com

Code: Select all

LOCAL aLabel := { { "LABEL1"   , NIL } ;
               ,  { "RadioGrp2", NIL } ;
               ,  { "LABEL3"   , NIL } }
  DEFINE WINDOW MainForm;
    WIDTH  400 ;
    HEIGHT 260 ;
    TITLE  "Labels as Buttons";
    MAIN;
    ON GOTFOCUS MainFormOnGotFocus(aLabel)

    //this labels can get focus and process keyboard/mouse messages
	FOR n := 1 TO Len(aLabel)

		if ( n == 2 )	// RADIOGROUP
			DEFINE RADIOGROUP &( aLabel[n][CTRL_NAME] )
				ROW    10 + 55 * (n - 1)
				COL    20
				WIDTH  150
				HEIGHT 28
				PARENT MainForm
				OPTIONS { 'Inches','Milimeters'}
				VALUE 1
				FONTNAME "Arial"
				FONTSIZE 9
				 FONTBOLD .T.
				TOOLTIP "Units of Measure"
				FONTBOLD .F.
				FONTITALIC .F.
				FONTUNDERLINE .F.
				FONTSTRIKEOUT .F.
				HELPID Nil
				TABSTOP .T.
				VISIBLE .T.
				TRANSPARENT .F.
				SPACING 75
				BACKCOLOR {255,250,240}
				FONTCOLOR NIL
				READONLY Nil
				HORIZONTAL .T. 
			END RADIOGROUP
		else

			DEFINE LABEL &( aLabel[n][CTRL_NAME] )
				ROW       10 + 55 * (n - 1)
				COL       20
				WIDTH     140
				HEIGHT    45
				VALUE     "This is " + aLabel[n][CTRL_NAME]
				ALIGNMENT Center
				FONTCOLOR BLACK
			END LABEL

		endif

Code: Select all

   ControlHandle := InitRadioGroup( ... )
   FOR i = 2 TO HMG_LEN( aOptions )
      ControlHandle := InitRadioButton( ... )

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

Code: Select all

SetWindowTheme( ItemEdit.RadioGrp_OALLen.Handle, 0, 0 )
// prior to EDK's 
CREATE EVENT PROCNAME cProcRadioGroup()