[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]

не погло

Код:

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

Код:

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