Отправлено: 01.08.13 16:04. Заголовок: Раскладка клавы после запуска задачи

Терминал GTWVT , как после запуска задачи установить нужную раскладку клавы ?
Допустим в момент запуска в винде стояла украинская раскладка а надо после запуска
задачи установить English

 Отправлено: 01.08.13 18:24. Заголовок: Проехали , нашел на ..

Проехали , нашел на форуме.

 Отправлено: 01.08.13 20:53. Заголовок: Есть только один воп..

Есть только один вопросец.
При сборке вылазит ворнинг

 
 Warning W8065 test.prg 29: Call to function 'hb_retc' with no prototype in function HB_FUN_RASKLADKA 
 

Как его побороть ?

Тестовый пример

 
 proc main 
 REQUEST HB_GT_WVT_DEFAULT 
 REQUEST HB_LANG_RU866  
 HB_LANGSELECT("RU866") 
 REQUEST HB_CODEPAGE_RU866 
 hb_cdpSelect( "RU866" ) 
  
 setcolor("w/n") 
 eng() 
 c:="         " 
 cls 
 @ 10,10 get c  picture "xxxxxxxxxxx" 
 read 
 ? RASKLADKA() 
  
 wait 
 return nil 
  
  
  
 #PRAGMA BEGINDUMP 
 #include "Windows.h" 
 HB_FUNC(UKR) { LoadKeyboardLayout("00020422", KLF_ACTIVATE) ; } 
 HB_FUNC(RUS) { LoadKeyboardLayout("00000419", KLF_ACTIVATE) ; } 
 HB_FUNC(ENG) { LoadKeyboardLayout("00000409", KLF_ACTIVATE) ; } 
 HB_FUNC(RASKLADKA) { 
 TCHAR m_PreviousLayout[KL_NAMELENGTH] ; 
 GetKeyboardLayoutName(m_PreviousLayout); 
 hb_retc(m_PreviousLayout); 
 } 
 #pragma ENDDUMP  
 

 Отправлено: 02.08.13 09:20. Заголовок: Добавьте строку #in..

Добавьте строку
#include "hbapi.h"

 
  #PRAGMA BEGINDUMP  
  
  #include "Windows.h"  
  #include "hbapi.h" 
  
  HB_FUNC(UKR) { LoadKeyboardLayout("00020422", KLF_ACTIVATE) ; }  
  HB_FUNC(RUS) { LoadKeyboardLayout("00000419", KLF_ACTIVATE) ; }  
  HB_FUNC(ENG) { LoadKeyboardLayout("00000409", KLF_ACTIVATE) ; }  
  
  HB_FUNC(RASKLADKA)  
  {  
  
    TCHAR m_PreviousLayout[KL_NAMELENGTH] ;  
    GetKeyboardLayoutName(m_PreviousLayout);  
    hb_retc(m_PreviousLayout);  
  }  
  
  #pragma ENDDUMP   
 

 Отправлено: 02.08.13 09:59. Заголовок: santy Сенкс !..

santy
Сенкс !

 Отправлено: 21.08.13 17:31. Заголовок: Попробовал запустить..

Попробовал запустить функцию ENG() перед вводом пароля, чтобы народ голову не ломал (все логины и пароли в латинице).
Заметил, что во время набора пароля ИСЧЕЗАЕТ системный лоток Windows с индикатором RU/EN.

Появляется только если пару раз переключить RU <-> EN кнопками вручную. Убрал вызов функции - все ок, лоток на месте. Никаких сторонних русификаторов наподобие PuntoSwitcher не используется.

Никто не сталкивался с таким приколом ?

 Отправлено: 21.08.13 17:34. Заголовок: Sergy У мну норм ht..

Sergy
У мну норм


PS
я перед вводом пароля делаю так

 
 hhklv:=HB_IdleAdd({|| Klavka()}) 
  
 апосля как пароль введен 
    IF ! Empty( hhklv ) 
       hb_idleDel( hhklv ) 
    ENDIF 
  
 Func klavka() 
 local rsl:=RASKLADKA() 
 local klv:="х/з" 
 hb_releaseCPU() 
   if rsl=="00000419" //rus 
 klv="Рус" 
   elseif rsl=="00020422" //ukr 
 klv:="Укр" 
   elseif rsl=="00000409" //eng 
 klv:="Eng" 
   endif 
 hb_DispOutAt(19,23,padc(klv,5),"n/w*")   
 return nil 
  
  
 

 Отправлено: 21.08.13 17:45. Заголовок: Dima пишет: У мну н..

Dima пишет:

цитата:

У мну норм

Дмитрий, подобную штуку хотел реализовать, да не знал как (народ привык к RKM.COM, висевшему в правом верхнем углу).

Речь идет именно о системном лотке Windows RU/EN висящем в правом нижнем углу, рядом с часами. Посмотрите после пары-тройки нажатий на кнопки.
Проверял на двух машинах (рабочей и домашней). Реакция - идентичная.

 Отправлено: 21.08.13 17:48. Заголовок: Cкрин то я не зря по..

Cкрин то я не зря повесил и там видно что все нормик
Системный лоток в XP он иногда глючит.

 Отправлено: 21.08.13 17:51. Заголовок: Sergy пишет: Дмитри..

Sergy пишет:

цитата:

Дмитрий, подобную штуку хотел реализовать, да не знал как (народ привык к RKM.COM, висевшему в правом верхнем углу

По этой методе вешать в проге на всем ее протяжении работы индикатор не стоит ибо будет тормоз и надо несколько иначе делать.
Я вешаю такой индикатор только при вводе пароля

 Отправлено: 21.08.13 18:07. Заголовок: Dima пишет: По этой..

Dima пишет:

цитата:

По этой методе вешать в проге на всем ее протяжении работы индикатор не стоит ибо будет тормоз и надо несколько иначе делать. Я вешаю такой индикатор только при вводе пароля

Я повесил "на попробовать", но он у меня упорно показывает Eng
Ввод переключаю, ввожу русский и латиницу - системный индикатор работает правильно, а этот упорно говорит "Eng".
Опять чудеса на виражах, блин. :(

 Отправлено: 21.08.13 18:12. Заголовок: Это работает под тер..

Это работает под терминалом GTWVT (GTWVG) только

 Отправлено: 21.08.13 18:17. Заголовок: Dima пишет: Это раб..

Dima пишет:

цитата:

Это работает под терминалом GTWVT (GTWVG) только

о как...
тогда отложим на потом...

 Отправлено: 21.08.13 18:19. Заголовок: а ты под GTWIN собра..

а ты под GTWIN собрался работать ;) ? И еще видать на полный экран как в Clipper ;)
Уходить надо с этого режима так как Full Screen почикал Microsoft начиная с Vista
Мои пользователи тоже сидели на Clipper в Full Screen и когда сделал перевод
под Harbour c терминалом Gtwvt они привыкали ровно пару тройку дней.

 Отправлено: 21.08.13 18:27. Заголовок: Dima пишет: а ты по..

Dima пишет:

цитата:

а ты под GTWIN собрался работать

Нет конечно - консольное окно, все давно привыкли еще начиная с Win95. Кстати, есть офигенный точечный шрифт 12*28 - просто сказка, файл называется splushka.fon - рекомендую.

Подскажи плиз - какие могут быть грабли при переходе на GTWVT и с чего правильнее начать ?
Про преимущества наслышан.

 Отправлено: 21.08.13 18:34. Заголовок: Да ты начни а грабли..

Да ты начни а грабли сами тебя найдут и потом с вопросами сюда ;)

 Отправлено: 21.08.13 20:15. Заголовок: Sergy пишет: с чег..

Sergy пишет:

цитата:

с чего правильнее начать ?

Привет мир под gtwin ты собирать умеешь , сделай тоже самое под Gtwvt , с шрифтами поиграйся , размерами экрана ,
почувствуй разницу между терминалами.
А подводных камней вроде и нет там во всяком случае в Harbour 3.2

 Отправлено: 21.08.13 20:46. Заголовок: Dima пишет: Dima п..

Dima пишет:
[quote]` Dima пишет:

цитата:

Привет мир под gtwin ты собирать умеешь , сделай тоже самое под Gtwvt , с шрифтами поиграйся , размерами экрана , почувствуй разницу между терминалами. А подводных камней вроде и нет там во всяком случае в Harbour 3.2

Чет никак не могу понять, как использовать системные "точечные шрифты", что были доступны в меню выбора при клике по верхнему левому углу экрана.
Пробовал
hb_gtInfo( HB_GTI_FONTNAME, "fixed" )
hb_gtInfo( HB_GTI_FONTNAME, "fixedsys" )
hb_gtInfo( HB_GTI_FONTNAME, "fixed font" )

не помогает - какая-то фигня типа Lucida Console получается...

 Отправлено: 21.08.13 21:00. Заголовок: Lucida Console прави..

Lucida Console правильный моноширинный шрифтец а моноширинных нормальных (TTF) не много ,не считая
тех что появились в win7
Скрин что выше я показывал там именно Lucida Console.
Попробуй установить шрифт Terminal он тоже моноширинный и увидишь разницу.
С точечными не уверен да и не юзаю их и возможно там будут косяки.

 Отправлено: 21.08.13 22:04. Заголовок: вот что считаю на се..

вот что считаю на сегодняшний день отличным вариантом:



Это "точечный шрифт" по мнению Windows.

Про Lucida Console и пр. - в курсе. Это все не то...

цитата:

Попробуй установить шрифт Termina

Кстати - ДА!
Заработало, спасибо.

 Отправлено: 22.09.13 17:55. Заголовок: Dima пишет: elseif ..

Dima пишет:

цитата:

elseif rsl=="00020422" //ukr

что то укр мова не распознается. может цифирки не те ?

 Отправлено: 22.09.13 18:47. Заголовок: Dima пишет: может ц..

Dima пишет:

цитата:

может цифирки не те ?

что-то мне кажется, нужно 422

 Отправлено: 22.09.13 20:49. Заголовок: PSP пишет: что-то м..

PSP пишет:

цитата:

что-то мне кажется, нужно 422

Да ты прав. Спасибо !

Украинская (расширенная) 0x00020422 хз что это ........но буду иметь в виду.