forum.clarionlife.net

Код: Выделить всё

      Program

   INCLUDE('EQUATES.CLW')
   INCLUDE('ERRORS.CLW')
   INCLUDE('KEYCODES.CLW')

Latin    CSTRING('00000409')
Russian  CSTRING('00000419')
Ukraine  CSTRING('00000422')
CurL     string(2)

   MAP
     SwitchKBD(String KBDLayout)
     MODULE('Windows.lib')
      GetKBDLName(*CSTRING),BOOL,PASCAL,RAW,!
                            NAME('GetKeyboardLayoutNameA')
      ActivateKBDL(ULONG,UNSIGNED),ULONG,PASCAL,!
                            NAME('ActivateKeyboardLayout')
     END
   END

LID     cstring(10)
TmpStr  string(50)

Window WINDOW('Тест переключени<255> <255>зыка'),AT(,,185,92), !
                                FONT('MS Sans Serif',8,,FONT:regular),GRAY
       STRING('ID <255>зыка:'),AT(13,11),USE(?String1)
       STRING(@s10),AT(52,11),USE(LID)
       PANEL,AT(94,11,17,11),USE(?Panel1),BEVEL(-1)
       STRING(@s2),AT(95,11,14,10),USE(CurL),CENTER,!
                            FONT(,,COLOR:White,),COLOR(0A00000H)
       ENTRY(@s50),AT(22,38,112,10),USE(TmpStr)
       BUTTON('Язык'),AT(37,71,35,14),USE(?OkButton),DEFAULT
       BUTTON('Cancel'),AT(82,71,36,14),USE(?CancelButton),!
                    STD(STD:Close)
     END

    code
    DO GetKBDL
    open(Window)
    accept
      case accepted()
      of ?OkButton
        Q# = ActivateKBDL(1,0)
        DO GetKBDL
        display(?LID);display(?CurL)
        select(?TmpStr)
        presskey(RightKey)
      end ! case
    end !accept
GetKBDL  ROUTINE
    R# = GetKBDLName(LID)
    case LID
      of Latin   ; CurL = 'En'
      of Russian ; CurL = 'Ru'
      of Ukraine ; CurL = 'Uk'
    else
      CurL = '**'
    end

SwitchKBD Procedure (KBDLayout)
AKL  ULONG
TMP  CSTRING(20)
loc:i Long
 Code
 loc:i = GetKBDLName(Tmp)
 if Tmp<>KBDLayout
   AKL = ActivateKBDL(1,0)
 end