[Anton93]

Подскажите как изменить кодировку в Edit WINAPI. Вместо русских букв отображается всякая чушь. А английские все нормально.

[graers]

Сообщение от Anton93

Подскажите как изменить кодировку в Edit WINAPI. Вместо русских букв отображается всякая чушь. А английские все нормально.

Попробуй у Edit свойство OEMConvert установить True

[Anton93]

Сообщение от graers

Попробуй у Edit свойство OEMConvert установить True

нет у меня форма создана через WINAPI в то числе и Edit через CreateWindowEx.

[CynicRus]

НУ тогда выстави ES_OEMCONVERT.

[Freeman]

На самом деле, там, наверное, шрифт правильный не выставлен, и используется умолчательный System, оставленный в XP для совместимости с Windows 3.x. Нужно разобраться и выставить через API правильный шрифт, вроде Tahoma.

А по большому счету, в ситуации на 2015-й год все приложения нужно создавать в юникоде, если нет противопоказаний. Даже в Delphi 7. Код же вручную пишется? Явно вызываем CreateWindowW и вперед!

[Anton93]

Сообщение от Freeman

На самом деле, там, наверное, шрифт правильный не выставлен, и используется умолчательный System, оставленный в XP для совместимости с Windows 3.x. Нужно разобраться и выставить через API правильный шрифт, вроде Tahoma.

А по большому счету, в ситуации на 2015-й год все приложения нужно создавать в юникоде, если нет противопоказаний. Даже в Delphi 7. Код же вручную пишется? Явно вызываем CreateWindowW и вперед!

вы правы использую шрифт Terminal, так как требуется, но из за этого получается криво(
я так понимаю ES_OEMCONVERT это стиль, и по этому его нужно записывать при создании самого Edit Верно?

[CynicRus]

Сообщение от Anton93

я так понимаю ES_OEMCONVERT это стиль, и по этому его нужно записывать при создании самого Edit Верно?

Именно. (10 символов).

[Anton93]

не погло

Код:

1 2 3 4 5 6 7 8 9

Edit_1:= CreateWindowEx(WS_EX_CLIENTEDGE,                          'Edit',                          nil,                          WS_CHILD or WS_VISIBLE or ES_WANTRETURN or ES_OEMCONVERT,                          50, 33, 100, 30,                          hWindow,                          Edit__1,                          hInstance,                          nil);

[angvelem]

Как понимаю, весь сыр-бор из-за желания использовать моноширинный текст? Так ведь на шрифте "Terminal" свет клином не сошёлся. Можно использовать "Lucida Console".

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Edit := CreateWindowEx(WS_EX_CLIENTEDGE, 'Edit', nil,                        WS_CHILD or WS_VISIBLE or WS_VSCROLL or ES_AUTOHSCROLL or ES_MULTILINE or ES_WANTRETURN,                        10, 10, 300, 100,                        Wnd, 100, hInstance, nil); SendMessage(Edit, EM_REPLACESEL, 0, Integer(PChar('Сообщение: '#13#10)));   Font := CreateFont(-12, 0, 0, 0, 0, 0, 0, 0,                    DEFAULT_CHARSET,                    OUT_DEFAULT_PRECIS,                    CLIP_DEFAULT_PRECIS,                    DEFAULT_QUALITY,                    DEFAULT_PITCH or FF_DONTCARE, 'Lucida Console');   SendMessage(Edit, WM_SETFONT, Font, 0);