forum.clarionlife.net

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

         PROGRAM

HKL      EQUATE(UNSIGNED)
Latin    CSTRING('00000409')
Russian  CSTRING('00000419')
loc:Text STRING(200)  

         INCLUDE('KEYCODES.CLW')

         MAP
           module('')
             GetKeyboardLayout(DWORD),HKL,pascal
             GetKeyboardLayoutNameA(*CSTRING),BOOL,pascal,raw
             ActivateKeyboardLayout(HKL,UNSIGNED),HKL,pascal
           END
           SwitchKBD(STRING KBDLayout)
         END
  
Window WINDOW('Russian presskey'),AT(,,299,124),GRAY,FONT('Microsoft Sans Serif',8,,, |
      CHARSET:CYRILLIC)
    TEXT,AT(3,2,293,100),USE(loc:Text)
    BUTTON('Русский'),AT(2,107),USE(?Rus)
    BUTTON('Английский'),AT(45,107),USE(?Eng)
  END

  CODE
  OPEN(Window)
  ACCEPT
    CASE ACCEPTED()
    OF ?Rus
      SwitchKBD(Russian)
      SELECT(?loc:Text)
      PRESSKEY(AKey)
      PRESSKEY(BKey)
      PRESSKEY(CKey)
    OF ?Eng
      SwitchKBD(Latin)
      SELECT(?loc:Text)
      PRESSKEY(AKey)
      PRESSKEY(BKey)
      PRESSKEY(CKey)
    END
  END  
  CLOSE(Window)

SwitchKBD   Procedure(STRING KBDLayout)
AKL         HKL
TMP         CSTRING(20)
loc:i       Long
  Code
  loc:i = GetKeyboardLayoutNameA(Tmp)
  if Tmp<>KBDLayout
    AKL = ActivateKeyBoardLayout(1,0)
  end  

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

  SELECT(?LOC:Long)
  PRESSKEY(RightKey)
  PRESSKEY(Key1)
  PRESSKEY(Key2)
  PRESSKEY(Key3)

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

PRESSKEY(RightKey)  ! перемещаем вправо для введение следующего числа
PRESSKEY(Key1)

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

PRESSKEY(BSKEY)