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