harbour: Русские буквы, как сделать ?!

Форум » [x]Harbour » harbour: Русские буквы, как сделать ?! » Ответить

harbour: Русские буквы, как сделать ?!

VitalClip: Всем привет ! Пробую разобраться с harbour. Перевожу прогу с Clipper-а. Создал файл и запускаю hbmk2 файл.hbp Получаю exe файл, запускаю и ... вместо русских букв - корявки ! Какую опцию нужно указывать, чтобы были видны русские буквы ? Или может нужно запускать keyrus предварительно или еще что ?!

Ответов - 14

Dima: REQUEST HB_LANG_RU866 HB_LANGSELECT("RU866") REQUEST HB_CODEPAGE_RU866 hb_cdpSelect( "RU866" )

VitalClip: Это нужно вставить в основной prg файл ? include надо какое - нибудь ?

Dima: VitalClip пишет: Это нужно вставить в основной prg файл ? да

VitalClip: Спасибо !

Softlog86: Подскажите команду чтоб названия месяцев отображались по-русски из функции CMONTH() Команды НЕ ПОМОГЛИ :( REQUEST HB_LANG_RU866 hb_LangSelect( "RU866" )

Dima: сделал такой тест , все норм [pre2] REQUEST HB_LANG_RU866 HB_LANGSELECT("RU866") REQUEST HB_CODEPAGE_RU866 hb_cdpSelect( "RU866" ) ? CMONTH(DATE()) wait [/pre2]

Softlog86: По ходу у меня что-то лишнее ? REQUEST HB_CODEPAGE_RU1251 SET CODEPAGE TO RUSSIAN SET LANGUAGE TO RUSSIAN REQUEST HB_LANG_RU866 hb_LangSelect( "RU866" ) REQUEST HB_CODEPAGE_RU866 hb_cdpSelect( "RU866" )

Softlog86: К тому-же и SET MULTIPLE OFF не работает ....... спокойно запускается несколько копий программы :(

Dima: Softlog86 пишет: К тому-же и SET MULTIPLE OFF не работает ....... спокойно запускается несколько копий программы :( Это Минигуи или консоль Harbour ?

Haz: Dima Это Минигуи или консоль Harbour ? SET MULTIPLE OFF это минигуй, Возможно и проблемы с кирилицей тоже связаны с тем что минигую нужен 1251 Softlog86 Рассказывай чего там пишешь? Дима прав с вопросом консоль VS гуи. А лучше ( как принято на форуме ) выложи короткий пример, тогда сразу видно будет в чем засада

Softlog86: Только GUI . Все остальные программы (HARBOUR + MINIGUI) работают правильно . Всё собирается на одном компьютере из одного пакета MiniGui PS: Дома собираю - тоже самое . Вот начало : #include "MiniGUI.ch" #include "inkey.ch" REQUEST HB_CODEPAGE_RU1251 REQUEST HB_LANG_RU866 hb_LangSelect( "RU866" ) REQUEST HB_CODEPAGE_RU866 hb_cdpSelect( "RU866" ) REQUEST HB_MEMIO REQUEST DBFCDX , DBFFPT RDDSETDEFAULT( "DBFCDX" ) SET BROWSESYNC ON SET MULTIPLE OFF WARNING Function Main DEFINE WINDOW Form_Main ; AT 0,0 ; WIDTH 800 HEIGHT 400 ; TITLE 'Склад ' ; MAIN ; ON INIT ( GET_PASSWORD() , OPEN_DATABASE() ); NOSHOW DEFINE MAIN MENU POPUP 'Файл' ITEM 'Выход' ACTION Form_Main.Release END POPUP POPUP 'Склад' ITEM 'Номенклатура' ACTION View_SKLAD() END POPUP POPUP 'Приход/Расход' ITEM 'Коммерческое предложение' END POPUP END MENU END WINDOW CENTER WINDOW Form_Main ACTIVATE WINDOW Form_Main Return Nil

Andrey: Делай так: REQUEST..... // все до Main() Function Main //SET LANGUAGE TO RUSSIAN - можно и так //SET CODEPAGE TO RUSSIAN SET EPOCH TO ( Year(Date()) - 50 ) SET DATE FORMAT "DD.MM.YY" SET Date TO GERMAN SET MULTIPLE OFF WARNING SET BROWSESYNC ON hb_LangSelect( "RU866" ) hb_cdpSelect( "RU866" ) RDDSETDEFAULT('DBFCDX') и т.д. И тема если про МиниГуи, то пиши там - http://clipper.borda.ru/?0-1 А здесь про терминалку без всяких GUI.

Haz: Softlog86 пишет: Только GUI Вот пример под MiniGui , месяц пишет по русски [pre2] #include "minigui.ch" Procedure Main REQUEST HB_LANG_RUWIN SET CODEPAGE TO RUSSIAN HB_LANGSELECT( "RU" ) DEFINE WINDOW Win_1 ; AT 0,0 ; WIDTH 400 ; HEIGHT 400 ; TITLE 'Привет мир!' ; MAIN DEFINE MAIN MENU POPUP 'Тест ' MENUITEM "Название месяца по русски" ACTION MsgBox( cMonth(Date()) ) MESSAGE "" END POPUP END MENU END WINDOW CENTER WINDOW Win_1 ACTIVATE WINDOW Win_1 Return [/pre2] ЗЫ. Под терминалку Дима написал правильный набор команд по выбору языка , с ним в терминалке будет по русски

Softlog86: Заработало ! Нужно было всё перенести в MAIN ...... Всем спасибо .

полная версия страницы