LGram16
e067522598
Game client codebase including: - CharacterActionControl: Character and creature management - GlobalScript: Network, items, skills, quests, utilities - RYLClient: Main client application with GUI and event handlers - Engine: 3D rendering engine (RYLGL) - MemoryManager: Custom memory allocation - Library: Third-party dependencies (DirectX, boost, etc.) - Tools: Development utilities 🤖 Generated with [Claude Code](https://claude.com/claude-code) Co-Authored-By: Claude <noreply@anthropic.com>
57 lines
1.4 KiB
OpenEdge ABL
57 lines
1.4 KiB
OpenEdge ABL
VERSION 1.0 CLASS
|
|
BEGIN
|
|
MultiUse = -1 'True
|
|
Persistable = 0 'NotPersistable
|
|
DataBindingBehavior = 0 'vbNone
|
|
DataSourceBehavior = 0 'vbNone
|
|
MTSTransactionMode = 0 'NotAnMTSObject
|
|
END
|
|
Attribute VB_Name = "cText"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = True
|
|
Attribute VB_PredeclaredId = False
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
'Helper class to encapsulate text drawing
|
|
|
|
'Here we will keep the font information and the calls to draw the text
|
|
Private moD3DXFont As D3DXFont
|
|
|
|
Public Sub InitText(d3dx As D3DX8, dev As Direct3DDevice8, ByVal sFontName As String, lSize As Long, fBold As Boolean)
|
|
Dim oMyFont As IFont
|
|
|
|
Set oMyFont = New StdFont
|
|
oMyFont.Name = "Times New Roman"
|
|
oMyFont.size = 8
|
|
oMyFont.Bold = True
|
|
|
|
Set moD3DXFont = d3dx.CreateFont(dev, oMyFont.hFont)
|
|
|
|
End Sub
|
|
|
|
Public Sub BeginText()
|
|
moD3DXFont.Begin
|
|
End Sub
|
|
|
|
Public Sub EndText()
|
|
moD3DXFont.End
|
|
End Sub
|
|
|
|
Public Sub DrawText(ByVal sText As String, X As Long, Y As Long, lColor As Long)
|
|
Dim rcText As RECT
|
|
|
|
'X and Y are in screen coords
|
|
rcText.Left = X
|
|
rcText.Top = Y
|
|
'actually draw the text now, telling d3dx to build the rectangle based on the text and the x,y coord
|
|
moD3DXFont.DrawTextW sText, -1, rcText, 0, lColor
|
|
End Sub
|
|
|
|
Private Sub Class_Initialize()
|
|
Set moD3DXFont = Nothing
|
|
End Sub
|
|
|
|
Private Sub Class_Terminate()
|
|
Set moD3DXFont = Nothing
|
|
End Sub
|