DEFINE TEXTBOX Text_1 
          ROW       5 
          COL      90 
          WIDTH   345 
          HEIGHT   21 
          ON CHANGE {|| RefreshBrowse()} 
       END TEXTBOX 
  
       @ 5, 450 LABEL Label_KB  VALUE '('+KB_LANG()+')' ; 
          WIDTH 50 HEIGHT 21 SIZE 11 BOLD FONTCOLOR BLACK TRANSPARENT  // "RUS/LAT" 

/*------------------------------------------------------------------------------	 
 *      http://clipper.borda.ru/?1-4-0-00000995-000-0-0-1408978369 
 * 
 lis_eng := lis_eng_kbd(@rsl) 
 ... 
 KB_ENG() 
 ... 
  
 KB_RUS() 
 ... 
 */ 
  
 Function lis_eng_kbd(rsl) 
 rsl:=RASKLADKA() 
 return (rsl== "00000409") //eng 
  
 Function lis_rus_kbd(rsl) 
 rsl:=RASKLADKA() 
 return (rsl== "00000419") //rus 
  
 Function KB_LANG() 
 Local rsl, cRet := "???" 
  
 rsl:=RASKLADKA() 
 IF rsl == "00000409" 
    cRet := "ENG" 
 ELSEIF rsl == "00000419" 
    cRet := "RUS" 
 ENDIF 
  
 return cRet 
  
 #pragma BEGINDUMP 
  
 #include "Windows.h" 
 #include "hbapi.h" 
  
 HB_FUNC(KB_RUS) { LoadKeyboardLayout("00000419", KLF_ACTIVATE) ; } 
 HB_FUNC(KB_ENG) { LoadKeyboardLayout("00000409", KLF_ACTIVATE) ; } 
  
 HB_FUNC(RASKLADKA) 
 { 
 TCHAR m_PreviousLayout[KL_NAMELENGTH] ; 
 GetKeyboardLayoutName(m_PreviousLayout); 
 hb_retc(m_PreviousLayout); 
 } 
  
 #pragma ENDDUMP 

   // Вывод подсказки с использованием внутреннего цикла TBrowse 
    oBrw:bEvents := { |a,b| MyEventBrowse(a,b) } 
 ....

      CASE nKey == 16 .OR. nKey == 17  // Shift+Alt  Shift+Ctrl  "RUS/LAT" 
          SetProperty(cForm, "Label_KB", "Value", '('+KB_LANG()+')' ) 
          lRet := .F. 

STATIC FUNCTION MyEventBrowse(oBrw, nMsg)    //  "RUS/LAT" 
    LOCAL cForm := oBrw:cParentWnd, cAlias := oBrw:cAlias 
    IF _IsControlDefined( "Label_KB", cForm ) .and. !(nMsg==WM_PAINT)  
       SetProperty(cForm, "Label_KB", "Value", '('+KB_LANG()+')' ) 
    ENDIF  
    RETURN 0 

 
 *-----------------------------------------------------------------------------* 
 Procedure Main 
 *-----------------------------------------------------------------------------* 
    SET OOP ON 
 ... 
 		ON INIT    ( (This.Object):PostMsg(1), DoEvents(), ; 
                    (This.Object):PostMsg(1) ) ; // CaptureImage() ;  // capture initialization 
 		ON RELEASE    CloseWebCam() ; 
       ON RESTORE ( (This.Object):PostMsg(1), DoEvents(), ; 
                    (This.Object):PostMsg(1) ) 
  
 		(This.Object):Event( 1, {|| CaptureImage() }) 
 ... 
 		DEFINE BUTTON Button_3 
 			ROW	80 
 			COL	315 
 			WIDTH   80 
 			CAPTION 'Capture' 
 			ACTION  ( (ThisWindow.Object):PostMsg(1), DoEvents() ) 
 		END BUTTON 
 

 
 ON INIT    ( (This.Object):PostMsg(1), DoEvents(CaptureImage()) ,(This.Object):PostMsg(1)) 
 

 
 ACTION  ( (ThisWindow.Object):PostMsg(1),DoEvents(CaptureImage()) )