Еще раз о переключении RUS-LAT в WINXP
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
На форуме перидически обсуждается проблема переключения
РУС-ЛАТ в ХР.Может мне очень везет,но почему то у меня этой
проблемы не было на XP,XP+SP1,XP+sp2 как на русских версиях,
так и на анлийских с MUI.Платформы CLARION от с5 до с61.Причем
не только на своем компе,но и на компах заказчиков.Один раз была
проблема у заказчика под WIN2000 при переустановке системы,но
его админ сам решил проблему.Так может быть дело не в кларионе,
а каких то нестандарных настройках ХР?
Написал: lsgsoftware(155)
РУС-ЛАТ в ХР.Может мне очень везет,но почему то у меня этой
проблемы не было на XP,XP+SP1,XP+sp2 как на русских версиях,
так и на анлийских с MUI.Платформы CLARION от с5 до с61.Причем
не только на своем компе,но и на компах заказчиков.Один раз была
проблема у заказчика под WIN2000 при переустановке системы,но
его админ сам решил проблему.Так может быть дело не в кларионе,
а каких то нестандарных настройках ХР?
Написал: lsgsoftware(155)
Дорогая Тата!
Режим MDI я действительно не использую из-за
личных принципиальных соображений.Но чтобы закрыть вопрос
собрал простенький АРР на С61 с MDI-интерфейсом.ОС WINX+SP1+MUI.Установлен MS OFFICE 2003.Как ни странно,но переключение RUS-LAT работает нормально.Так что может быть
все таки дело не в Clarion?
Режим MDI я действительно не использую из-за
личных принципиальных соображений.Но чтобы закрыть вопрос
собрал простенький АРР на С61 с MDI-интерфейсом.ОС WINX+SP1+MUI.Установлен MS OFFICE 2003.Как ни странно,но переключение RUS-LAT работает нормально.Так что может быть
все таки дело не в Clarion?
Влазьте. На то и форум ...
Чем больше будут "влазить" - тем быстрее "вылезем" ...
А сделайте пожалуйста простой эксперимент на Вашем чудо-компьютере.
- Запустите, что нибудь из MS Office 2003 - например Word;
- Вызовите помощника (Справка -> Показать помощника)
- Щелкните по нему мышкой - откроется желтое окно для запроса
- В нем у Вас тоже нормально с клавиатуры переключается раскладка ?
Спасибо за информацию.
P/S: Если бы всем было бы удобней переключать "мышью по панели" - тогда бы точно проблемы не было ...
C уважением, ТАТА
Чем больше будут "влазить" - тем быстрее "вылезем" ...
А сделайте пожалуйста простой эксперимент на Вашем чудо-компьютере.
- Запустите, что нибудь из MS Office 2003 - например Word;
- Вызовите помощника (Справка -> Показать помощника)
- Щелкните по нему мышкой - откроется желтое окно для запроса
- В нем у Вас тоже нормально с клавиатуры переключается раскладка ?
Спасибо за информацию.
P/S: Если бы всем было бы удобней переключать "мышью по панели" - тогда бы точно проблемы не было ...
C уважением, ТАТА
Из этого следует - что в WinXP есть проблемы с переключением
раскладки клавиатуры не зависящие от Clarion и программ на нем
написанных.
Пример с Word не единственный, но наиболее наглядный.
Проявляется сия проблема при т.н. текстовом вводе -
которые используется в приложениях собранных на Clarion ...
TATA
раскладки клавиатуры не зависящие от Clarion и программ на нем
написанных.
Пример с Word не единственный, но наиболее наглядный.
Проявляется сия проблема при т.н. текстовом вводе -
которые используется в приложениях собранных на Clarion ...
TATA
Привет!
Я переключал язык из Клариона с помощью API-функций.
Посмотри пример - вдруг чем-либо поможет.
С уважением,
Mit
Я переключал язык из Клариона с помощью API-функций.
Посмотри пример - вдруг чем-либо поможет.
Код: Выделить всё
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
Mit
Пардон, но это код типа "Вот ща мы тут нажмём мышкой на эту пимпочку (кнопочку), и у нас переключится раскладка!!!"
А это СОВСЕМ НЕ ТО ЧТО НУЖНО!!!
Нужно, чтобы раскладка по-нормальному переключалась по Ctrl+Shift или Alt+Shift!!!
А то, что предложено, и так ясно, как забацать.
Написал: Aragorn(147)
А это СОВСЕМ НЕ ТО ЧТО НУЖНО!!!
Нужно, чтобы раскладка по-нормальному переключалась по Ctrl+Shift или Alt+Shift!!!
А то, что предложено, и так ясно, как забацать.
Написал: Aragorn(147)