Уникодный Edit понимает не весь уникод

[arthur2]

То есть, показывать может всё, а вот набирать - нет.

Есть Edit, созданный CreateWindowExW, он субклассируется. Показывать может любые знаки. Набирать может тоже большинство раскладок. Можно писать в одном окне на арабском, русском, идише и тд.

Но! Если раскладка клавиатуры подразумевает язык, для которого нет Ascii-кодировки, типа японской или грузинской, то в Edit-e вводятся вопросики. Причем, вставить из буфера текст на этих языках - можно.

И я, скорее всего, даже знаю, почему. Видимо, в дебрях бейсика при обработке сообщений вызывается DispatchMessageA вместо W, и до моей винпрок уникодные сообщения просто не доходят.

Как это победить?

[Хакер]

В таких случаях надо выкладывать пример, с которым можно играться, отлаживать, искать решение. И писать версию ОС, на которой проблема наблюдается.

[arthur2]

Пример лежит в соседнем топике. viewtopic.php?f=1&t=56533

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

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

hwTx = CreateWindowExW(WS_EX_TRANSPARENT, StrPtr("Edit") _
, StrPtr("ля-ля-ля") _
, WS_BORDER Or WS_CHILD Or WS_VISIBLE Or &H4& _
, 0, 0, 150, 150, Me.hwnd, 0, App.hInstance, 0)


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

К эдиту не приходит ни одного сообщения WM_UNICHAR.
Ось семёрка, но, думаю, это не принципиально - в блокноте всё печатается, а это ведь тоже эдит.

С DispatchMessageA , на сколько у меня удалось проверить, проблема не связана. Установил в программе хук WH_GETMESSAGE, при получении клавиатурных сообщений дополнительно их транслирую:

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

           Case WM_KEYDOWN, WM_KEYUP ', WM_CHAR
             TranslateMessage ByVal lParam
             DispatchMessageW ByVal lParam


Получаю, в эдите, как и предполагал, строенные знаки, но уникодного среди них нет - все три одинаковые. WM_CHAR перетранслировать сначала не решился - думал, это вызовет зацикливание, но потом оказалось, что нет, знаки так же высыпаются по три, и уникодного среди них всё равно нет. WM_UNICHAR так и не приходит.

С ричэдитом абсолютно такая же ситуация

[Хакер]

А обычный «Блокнот» себя при этом правильно ведёт?

Вот я, не зная, в чём причина проблема заранее, прирменил бы именно такой подход: если Блокнот (или любое другое юникодное приложение с EDIT-ом) не дуркует, надо надо просто брать и вычислять разницу. Во-первых, разницу в оконных и классовых (если есть новый класс) стилях, а следом разницу в обработке.

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

[arthur2]

Блокнот ведёт себя правильно. Но как к нему подступиться, чтобы что-то там проверять, ума не приложу.

Я воспроизвел ситуацию на си. На окно, созданное с помощью CreateWindowA, положил эдит, созданный с помощь CreateWindowExW. Получил точно такое же поведение - эдит могёт отображать что угодно, но набирать позволяет только в тех раскладках, где есть соответствующая Ascii-кодировка. Санскрит и грузинский пролетают.

Если и главное окно, и едит создавать W-функциями, то эдит получается полноценный.

Прикладываю оба экзешника - один с убогим униэдитом, другой с полноценным.

[arthur2]

И я, скорее всего, даже знаю, почему. Видимо, в дебрях бейсика при обработке сообщений вызывается DispatchMessageA вместо W

С DispatchMessageA , на сколько у меня удалось проверить, проблема не связана.

DispatchMessageA по идее не должна давать эту проблему

В общем, да, конечно, это не она создаёт проблему. Проблему, конечно же создаёт ГетМеседжеА, вот кто создаёт проблему

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

Sub Main()
Dim hwTx As Long
hwTx = CreateWindowExW(WS_EX_TRANSPARENT, StrPtr("Edit") _
, StrPtr("ля-ля-ля") _
, WS_BORDER Or WS_VISIBLE Or &H4& _
, 0, 0, 150, 150, 0, 0, App.hInstance, 0)
Dim msg As msg
    Do
      GetMessageW msg, 0&, 0&, 0&
      TranslateMessage msg
      DispatchMessageW msg
    Loop

End Sub


Уаля! В воздухе висит вполне себе полноценный УниЕдит!

Теперь надо бы придумать, как бы решить это не столь радикально.

[arthur2]

Наваял пример. В нём Едит и РичЕдит с полноценным уникодом.
В эдитах теперь можно полноценно печатать в любоЙ раскладке.

Единственное, что странно - WM_UNICHART так и не приходит. Спрашивается, как же тогда получить нужный код напечатанного знака?

[Teranas]

Очень достойно, только я не понял куда делся фон под текстом, вроде, всё начиналось именно с этого, и нет прокрутки строк.

[arthur2]

Это ж пример. Акценты только на том, о чём речь. Прокрутку можно прикрутить, просто при создании указав соответствующий флаг или послав едитам соответствующее сообщение.

В коде закомментирована установка субклассинга (в form_load в конце - прямо там об этом и написано). Если раскомментировать, будет прозрачный фон у едита. К тому же, можно будет ловить от него любые события, как то нажатие клавиш, движение мыши, и пр. Чтобы субклассинг спокойно отлаживать, можно подключить к примеру dll-ку (она там же в папке) и закомментировать #Const ReleaseBuild = 1 в модуле субклассинга. Специально убрал длл-ку из референцев, чтобы пример от неё не зависел.

У РичЕдита фон и без субклассинга прозрачный.