Дело в следующем. Редактор. Одна из возможностей - отрисовка шрифта на picturebox'е. Для прорисовки используются функции Glyph. Параметры шрифта от пикчурбокса передаются в Glyph'овые функции и оттуда получаю набор точек по которым все рисуется. Если выставляю шрифт пикчурбокса из IDE VB6, то русские символы нормально рисуются. Но хочется сделать чтобы были всякие разные шрифты и я подключил Commondialog. С помощью диалога шрифт меняется, английские буквы отрисовываются как надо. А вот вместо русских букв выводится какая-то дребедень(как на картинке). Такое впечатление что пикчурбоксу передается совсем не тот набор символов(не русский, а какойто другой).
Вот процедура вызова и получения параметров шрифта от диалога:
- Код: Выделить всё
Private Sub CmdFont_Click()
Editor.CommonDialog3.CancelError = True
On Error GoTo ErrHandler
Editor.CommonDialog3.Flags = cdlCFBoth 'cdlCFEffects ' Or
Editor.CommonDialog3.ShowFont
With Editor.CommonDialog3
Editor.PicEdit.FontName = .FontName
Editor.PicEdit.FontSize = .FontSize
Editor.PicEdit.FontBold = .FontBold
Editor.PicEdit.FontItalic = .FontItalic
Editor.PicEdit.FontUnderline = .FontUnderline
Editor.PicEdit.FontStrikethru = .FontStrikethru
End With
ErrHandler:
End Sub
Скажите, что я делаю не так?
И еще один вопрос. Когда первый раз загружается диалоговое окно выбора шрифта, то не выбран не один шрифт. Как сделать чтобы выбирался какой-нибудь шрифт по умолчанию?
