HMGforum.com

Code: Select all

#include "hmg.ch"

FUNCTION Main()

Local lReleaseLayout
Public cDefKLID := GetKeyboardLayoutName() 
Public nDefHKL := GetKeyboardLayout()
Public cSerbCyrKLID := "00000C1A"  // Serbian (Cyrillic) --> http://kbdlayout.info/

DEFINE WINDOW TCRMForm AT 0 , 0 ;
			WIDTH 270 HEIGHT 200 ;
			TITLE 'KeYb Serbian (Cyrillic)' ;
			MAIN ;
			ON INIT lReleaseLayout := SetSerbKeybd() ;
			ON Release SetDefKeybd( lReleaseLayout )

	DEFINE LABEL Label_1
		ROW    30
		COL    40
		WIDTH  120
		HEIGHT 20
		VALUE "Serbian Cyrillic"
		ALIGNMENT Right
	END LABEL

	DEFINE TEXTBOX cTest
		ROW    55
		COL    70
		WIDTH  120
		HEIGHT 24
		VALUE ""
	END TEXTBOX
	
	DEFINE BUTTON Button_1
		ROW    100
		COL    80
		WIDTH  100
		HEIGHT 28
		ACTION ThisWindow.Release
		CAPTION "Close"
	END BUTTON
	
	DEFINE STATUSBAR FONT "MS Shell Dlg" SIZE 7
		STATUSITEM HMGVersion()
		CLOCK
	END STATUSBAR
	
	ON KEY ESCAPE ACTION ThisWindow.Release

END WINDOW

CENTER WINDOW TCRMForm
ACTIVATE WINDOW TCRMForm


Return Nil
************************************************************
FUNCTION SetSerbKeybd()
Local aLayoutList := GetKeyboardLayoutList(), nHKL, lIsLoadedSerbCyrHKL := .F.
IF Upper( cDefKLID ) == Upper( cSerbCyrKLID )	//already serbian cyr layout is active
	RETURN .F.
ENDIF

FOR EACH nHKL IN aLayoutList 
     IF GetKeyboardLayoutName( nHKL ) == Upper( cSerbCyrKLID )	// serbian cyr layout is loaded
		lIsLoadedSerbCyrHKL := .T.
		ActivateKeyboardLayout( nHKL , 0x00000008)
		EXIT
	 ENDIF
NEXT 

IF !lIsLoadedSerbCyrHKL
	LoadKeyboardLayout( cSerbCyrKLID, 0x0000001 )
ENDIF

RETURN !lIsLoadedSerbCyrHKL
************************************************************
FUNCTION SetDefKeybd( lReleaseLayout )
ActivateKeyboardLayout( nDefHKL, 0x00000008 )
IF lReleaseLayout
	UnLoadKeyboardLayout( cSerbCyrKLID )
ENDIF
RETURN Nil