Текст

[|( () ( T |/| |(]

Проблева в том, что не могу установить цвет, получаеться только градации чёрног, в чем проблема?

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

Function Main_CreateD3DXFont(ByVal fontname As String, Optional size As Currency = 8, Optional bold As Boolean = False, Optional italic As Boolean = False, Optional strikethrough As Boolean = False, Optional underline As Boolean = False) As D3DXFont
    Dim fnt As IFont
    Set fnt = New StdFont
    With fnt
        .size = size
        .Name = fontname
        .bold =  bold
        .italic = italic
        .strikethrough = strikethrough
        .underline = underline
        Set Main_CreateD3DXFont = d3dx.CreateFont(dev, .hFont)
    End With
    Set fnt = Nothing
End Function
Sub Render_Text(ByVal font As D3DXFont, ByVal text As String, ByVal x As Single, ByVal y As Single, Optional Color As Long = -1)
    Dim RECT As RECT
    With RECT
        .Left = x
        .Top = y
    End With
    font.DrawTextW text, Len(text), RECT, 0, Color
End Sub


[Bonesnapper]

Dim Font As D3DXFont
Dim r As RECT
Dim fnt As IFont
Set fnt = New StdFont
fnt.Name = "Arial cir"
fnt.Size = 50
fnt.Bold = True
Set Font = D3DX.CreateFont(D3DDevice, fnt.hFont)
With r
.Left = 100
.Top = 100
End With
Font.Begin
Font.DrawTextW "GAME", 4, r, 0, &H9922FFFF
Font.End

вот так работает у меня


Хотя и твой вариант работает

[|( () ( T |/| |(]

Разобрался. надо D3DColorRGBA для цвета использовать. (тогда и твой и мой работает нормально.)

Вопрос по тойже теме: Можно ли обойтись без "fnt As IFont" ли нет?

[keks-n]

Нет. Иначе HFONT не получишь.

[DirectXManiac]

keks-n
Впринципе возможно)))))

[keks-n]

Не понял? D3DX.CreateFont принимает хэндл на системный объект шрифта. Создаёть его можно 2-мя API: CreateFont и CreateFontIndirect. При создании StdFont создавемый объект вызывает одну из них. Однако интерфейс StdFont не подразумевает получения хэндла на системный объект шрифта. Однако объект поддерживает интерфейс IFont, через который системный хэндл получить можно, что и продемонстрировано в коде. Как ещё ты собрался работать я не знаю, разве что напрямую к API, что не удобно.

[DirectXManiac]

keks-n
никто не говорит про удобство я говорю вообще

[keks-n]

Что по твоему лучше: относительно встроенными в язык средствами или внешним, геморным API?

[DirectXManiac]

keks-n
Впринципе возможно)))))

[|( () ( T |/| |(]

Ктонибуть может выложить пример создания (инициализации) шривта, средствами API, чтобы можно было не подключать "OLE Automation"?

P.S. Чтобы не создавать новую тему, задам здесь. Как вклучить Анизатропную фильтрацию?

[keks-n]

чтобы можно было не подключать "OLE Automation"?

А смысл? stdole2.tlb однозначно компилится вместе с EXE, причём не вся, а только то, что нужно. Таскать с собой её не надо, да и большинство TLB её импортируют.

[Mikle]

|( () ( T |/| |(
Ты об этом?:

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

Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Private Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long
......
  AddFontResource "EURAN___.TTF"
......
  RemoveFontResource "EURAN___.TTF"
......


[|( () ( T |/| |(]

Mikle, как я понял это добовление своего шрифта. А я имел ввиду другое. Ну я так поняль что через API, размер будет больше чем через "OLE Automation". Хотя пример полезный)

[keks-n]

Ну я так поняль что через API, размер будет больше чем через "OLE Automation"

Там свои единицы, зависимые от разрешения экрана, вроде.