Помогите с unicode в самописном контроле

[visualman]

Приветствую!

Скриншот Good - работа на XP
Скриншот Bad - работа на Win7

Проблема в Sub OutputCaption. Подскажите, как организовать вывод текста с поддержкой unicode. У меня ни чего не получается (((

Заранее, спасибо!

Контрол взят с psc.

[iGrok]

Для поддержки юникода надо переписать её (процедуру OutputCaption) с использованием TextOutW вместо TextOutA.
Но на скрине, по-моему, проблема из другой оперы.

[Хакер]

Для поддержки юникода надо переписать её (процедуру OutputCaption) с использованием TextOutW вместо TextOutA.

Не обязательно. Юникод можно выводить с помощью A-функций, установив локаль UTF-8.

[visualman]

Для поддержки юникода надо переписать её (процедуру OutputCaption) с использованием TextOutW вместо TextOutA.
Но на скрине, по-моему, проблема из другой оперы.

Поробовал TextOutW. Крокозябры сменились на квадраты.

[Хакер]

Крокозябры сменились на квадраты.

Скорее всего функцию неправильно вызываешь.

[iGrok]

Не обязательно. Юникод можно выводить с помощью A-функций, установив локаль UTF-8.

Да, но для этого у тебя и строка должна быть в utf-8, а не UCS-2, то есть для этого ещё и строку конвертировать придётся.

Поробовал TextOutW. Крокозябры сменились на квадраты.

Как-то так, писал по памяти:

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

Sub OutputCaption()
    SetTextColor UserControl.hdc, vbWhite

    TextOutW UserControl.hdc, 3, 3, StrConv(mCaption, vbUnicode), Len(mCaption)

    SetTextColor UserControl.hdc, RGB(50, 50, 50)

    TextOutW UserControl.hdc, 3, 2, StrConv(mCaption, vbUnicode), Len(mCaption)
End Sub


В принципе, и тут получается лишняя конвертация, надо проверить, если заработает, то где-то на форуме было описано, как её можно избежать.

UPD:
Примерно так:

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

Private Declare Function TextOut Lib "gdi32" Alias "TextOutW" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal lpString As Long, ByVal nCount As Long) As Long

...

TextOut UserControl.hdc, 3, 2, StrPtr(mCaption), Len(mCaption)


[visualman]

Неа. Ни в каком варианте не получается ((( Только смесь крокозябр с квадратами...

Айн момент, люлей получу от шефа и продолжим )

Кто ни будь под 7 попробовал запустить?? Может это только у меня проблема? Или у вас тоже криво показывает?

[Хакер]

Шрифт нормальный?

[visualman]

Шрифт нормальный?

Arial кирилица

[Хакер]

Arial кирилица

Ты его прямо с помощью SelectObject установил?

[Antonariy]

То, что на картинке, мало похоже на проблему с юникодом, скорее неправильно выбрана кодовая страница шрифта.

[visualman]

Arial кирилица

Ты его прямо с помощью SelectObject установил?

Нет, кодом ни чего не ставил. Ща попробую

[Andrey Fedorov]

В TextBox, к примеру, в VB6 можно вывести тот-же французский текст безо всякого API - когда-то давно это делал...

Для этого устанавливаем нужный TextBox.Font.Charset, после чего делаем:

TextBox1 = StrConv(ФранцТекст, vbUnicode) ' Насколько помню

В итоге и получим нужное нам отображение в TextBox-е. Но это прокатывает далеко не со всеми контролами - с тем же Label или Menu, к примеру, не пройдет.

----------
Вообще-же делать на VB6 подобное изврат - ни среда ни компоненты на это не рассчитаны. Логичней подобное писать на NET-языках.

[Хакер]

Логичней подобное писать на NET-языках.

Ну, да, конечно, только у них есть привилегия работать с юникодом...

[Денис]

Хакер
+1

[Antonariy]

Логичней подобное писать на NET-языках.

Ну, да, конечно, только у них есть привилегия работать с юникодом...

Им хотя бы не нужны для этого костыли.