Как открыть свой шрифт?

[longwair]

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

Public Sub InitGameFont()
Dim MyFont As IFont
Set MyFont = New StdFont
MyFont.Name = "Arial"
MyFont.Size = 15
MyFont.Bold = True
Set GameFont = D3DX.CreateFont(d3ddevice, MyFont.hFont)
End Sub


Ну это понятно. А как открыть свой шрифт из папки с поектом?

[Mikle]

API - AddFontResource.

[longwair]

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

Public Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long

Вот нашёл такую строку а как дальше впихнуть это в код, понятия не имею. Точнее эту строку впихнуть то могу, а как дальше? Как указать что

MyFont.Name = "LONG" или как AddFontResource "LONG.ttf", ну и как заставить это работать.

[iGrok]

Регистрируешь шрифт, потом используешь его имя.
Только имя шрифта, а не имя файла. Зарегистрируй его разок сам и посмотри, какое у него имя.

[longwair]

Регистрируешь шрифт, потом используешь его имя.
Только имя шрифта, а не имя файла. Зарегистрируй его разок сам и посмотри, какое у него имя.

не пойму всё равно как это вставить сюда

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

Public Sub InitGameFont()
Dim MyFont As IFont
Set MyFont = New StdFont
MyFont.Name = "Arial"
MyFont.Size = 15
MyFont.Bold = True
Set GameFont = D3DX.CreateFont(d3ddevice, MyFont.hFont)
End Sub

[iGrok]

После регистрации твоего шрифта при помощи AddFontResource можно будет использовать его название в MyFont.Name = "название_шрифта".

Только не забывай - название шрифта, и имя файла шрифта - это не одно и то же.
Добавь вручную свой шрифт в систему, и посмотри, какое у него будет название.

Я бы даже лучше использовал вот такой вариант:
(myfont.ttf - имя файла шрифта, MyFontName - название шрифта, как оно отображается в папке Fonts, или в диалогах выбора шрифта в разных редакторах)

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

Declare Function AddFontResourceEx Lib "gdi32.dll" Alias "AddFontResourceExA" (ByVal lpcstr As String, ByVal dword As Long, ByRef DESIGNVECTOR) As Long
...
AddFontResourceExA "myfont.ttf", FR_PRIVATE, 0
...
MyFont.Name = "MyFontName"
...


В таком виде эта строка:
AddFontResourceExA "myfont.ttf", FR_PRIVATE, 0
Регистрирует шрифт только для твоего процесса, и автоматически удаляет его из системы после завершения процесса.

[longwair]

Всё разобрался спасибо всем кто помогал.
сделал так

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

Public Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Public Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long
........
AddFontResource "LONG.ttf"
MyFont.Name = "LONG"
......
и при выгрузке формы
RemoveFontResource "LONG.ttf"

[iGrok]

Насколько я понимаю, лучше всё-таки заменить AddFontResource на AddFontResourceEx с флагом FR_PRIVATE, и совсем убрать RemoveFontResource.
Это нужно для того, чтобы:
а) Во время работы твоей программы из другой нельзя было выбрать твой шрифт.
б) После краха программы (мало ли, лучше это тоже предусмотреть) он всё равно удалился.

[longwair]

А у меня почему то вот здесь выдаёт ошибку

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

AddFontResourceExA "myfont.ttf", FR_PRIVATE, 0

Хотя может это ты написал не правильно. Может в AddFontResourceExA последнюю "А" не писать, тогда всё работает.

[Viper]

Может в AddFontResourceExA последнюю "А" не писать, тогда всё работает.

Именно так, последняя A не нужна.

[iGrok]

Ага, издержки копипаста.

[arthur2]

Именно так, последняя A не нужна.

А нужна бы последняя W
Поскольку пути вполне могут содержать уникодные символы - и тады программа не найдет файла. Кстати, это относится вообще ко всем обращениям к файловой системе из бейсика: нужны бы W-версии функций.