HMGforum.com

Code: Select all

#include <hmg.ch>

Function Main
DEFINE WINDOW w_test AT 222 , 270 WIDTH 550 HEIGHT 350 ;
    TITLE "simulate a MOUSE OVER" ICON NIL MAIN
	
    ON KEY ESCAPE ACTION Thiswindow.Release()

    DEFINE TEXTBOX Text_1
        ROW    40
        COL    80
        WIDTH  120
        HEIGHT 24
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        ONCHANGE Nil
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONENTER Nil
        HELPID Nil
        TABSTOP .T.
        VISIBLE .T.
        READONLY .F.
        RIGHTALIGN .F.
        DISABLEDBACKCOLOR Nil
        DISABLEDFONTCOLOR Nil
        CASECONVERT NONE
        BACKCOLOR Nil
        FONTCOLOR Nil
        INPUTMASK Nil
        FORMAT Nil
        VALUE "Test Box"
    END TEXTBOX

    DEFINE LISTBOX List_1
        ROW    100
        COL    80
        WIDTH  100
        HEIGHT 100
        ITEMS {"Test1","Test2"}
        VALUE 0
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        ONCHANGE Nil
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        BACKCOLOR Nil
        FONTCOLOR Nil
        ONDBLCLICK Nil
        HELPID Nil
        TABSTOP .T.
        VISIBLE .T.
        SORT .F.
        MULTISELECT .F.
        DRAGITEMS .F.
    END LISTBOX

    DEFINE RADIOGROUP RadioGroup_1
        ROW    100
        COL    300
        WIDTH  120
        HEIGHT 50
        OPTIONS { 'Option 1','Option 2'}
        VALUE 1
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        ONCHANGE Nil
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        HELPID Nil
        TABSTOP .T.
        VISIBLE .T.
        TRANSPARENT .F.
        SPACING 25
        BACKCOLOR Nil
        FONTCOLOR Nil
        READONLY Nil
        HORIZONTAL .F. 
    END RADIOGROUP

END WINDOW
CREATE EVENT PROCNAME TESTMOVE HWND W_test.HANDLE
// CREATE EVENT PROCNAME SELECTCTRL HWND W_test.HANDLE
w_test.Center
w_test.Activate
Return Nil

Function TestMove()
Local hWnd := EventHWND()
Local nMsg:= EventMsg()
Local wParam:= EventWPARAM () 
Local cNom, cForm

if nMsg == 32 .and. wParam <> w_test.HANDLE
   GetControlNameByHandle(wParam,@cNom, @cForm)
   msgbox("Event " + str( nMsg,3,0) + " / " + str(wParam,8,0) + " / " + cNom + " / " + cForm )
endif
Return Nil

Function SelectCtrl()
Local hWnd := EventHWND()
Local nMsg:= EventMsg()
Local wParam:= EventWPARAM () 
Local cNom,cForm
Static ctrlselect:= ""

if wParam <> w_test.HANDLE
   if nMsg == 528 .and. !empty(ctrlselect)
      msgbox("ctrl selected " + ctrlselect )
   else
      if nMsg == 32 
         GetControlNameByHandle(wParam,@cNom, @cForm)
         ctrlselect:= upper(cNom)
      else
         ctrlselect:= ""
      endif
   endif	
endif
Return Nil