Отправлено: 05.11.14 11:29. Заголовок: harbour: Русские буквы, как сделать ?!

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

 Отправлено: 05.11.14 11:31. Заголовок: REQUEST HB_LANG_RU86..

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

 Отправлено: 05.11.14 11:39. Заголовок: Это нужно вставить в..

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

 Отправлено: 05.11.14 11:47. Заголовок: VitalClip пишет: Эт..

VitalClip пишет:

цитата:

Это нужно вставить в основной prg файл ?

да

 Отправлено: 05.11.14 13:10. Заголовок: Спасибо !..

Спасибо !

 Отправлено: 11.03.16 14:58. Заголовок: Подскажите команду ч..

Подскажите команду чтоб названия месяцев отображались по-русски
из функции CMONTH()

Команды НЕ ПОМОГЛИ :(

REQUEST HB_LANG_RU866
hb_LangSelect( "RU866" )

 Отправлено: 11.03.16 15:11. Заголовок: сделал такой тест , ..

сделал такой тест , все норм

 
 REQUEST HB_LANG_RU866  
 HB_LANGSELECT("RU866") 
  
 REQUEST HB_CODEPAGE_RU866 
 hb_cdpSelect( "RU866" ) 
  
 ? CMONTH(DATE()) 
 wait 
  
 

 Отправлено: 12.03.16 17:11. Заголовок: По ходу у меня что-т..

По ходу у меня что-то лишнее ?

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" )

 Отправлено: 14.03.16 11:10. Заголовок: К тому-же и SET MUL..

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

 Отправлено: 14.03.16 11:16. Заголовок: Softlog86 пишет: К ..

Softlog86 пишет:

цитата:

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

Это Минигуи или консоль Harbour ?

 Отправлено: 14.03.16 11:42. Заголовок: Dima Это Минигуи и..

Dima

цитата:

Это Минигуи или консоль Harbour ?

SET MULTIPLE OFF это минигуй,

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

 Отправлено: 14.03.16 12:30. Заголовок: Только GUI . Все ос..

Только 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

 Отправлено: 14.03.16 14:31. Заголовок: Делай так: Function..

Делай так:

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.

 Отправлено: 14.03.16 14:34. Заголовок: Softlog86 пишет: То..

Softlog86 пишет:

цитата:

Только GUI

Вот пример под MiniGui , месяц пишет по русски

 
  
 #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 
 

ЗЫ. Под терминалку Дима написал правильный набор команд по выбору языка , с ним в терминалке будет по русски

 Отправлено: 14.03.16 14:53. Заголовок: Заработало ! Нужно б..

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