Mirage Source http://web.miragesource.net/forums/ |
|
Drawing text with DirectDraw7 help http://web.miragesource.net/forums/viewtopic.php?f=201&t=2466 |
Page 1 of 1 |
Author: | GIAKEN [ Mon Aug 13, 2007 11:34 pm ] |
Post subject: | Drawing text with DirectDraw7 help |
Since ES is down at the moment...I'll post my question here. I'm trying to convert the way ES draws text to DirectDraw...here's what I have: Note: Old code commented out Code: Public GameFont As New StdFont Public Sub SetFont(ByVal Font As String, ByVal Size As Byte, ByVal Bold As Long, ByVal Italic As Long, ByVal UnderLine As Long, ByVal Strike As Long) 'Dim GameFont As New StdFont 'GameFont = CreateFont(Size, 0, 0, 0, Bold, Italic, UnderLine, Strike, 0, 0, 0, 0, 0, Font) If Bold = YES Then GameFont.Bold = True Else GameFont.Bold = False End If If Italic = YES Then GameFont.Italic = True Else GameFont.Italic = False End If If UnderLine = YES Then GameFont.UnderLine = True Else GameFont.UnderLine = False End If If Strike = YES Then GameFont.Strikethrough = True Else GameFont.Strikethrough = False End If GameFont.Size = Size GameFont.Name = Font DD_PrimarySurf.SetFont GameFont End Sub Public Sub DrawText(ByVal hDC As Long, ByVal x, ByVal y, ByVal Text As String, Color As Long) 'Call SelectObject(hDC, GameFont) 'Call SetBkMode(hDC, vbTransparent) 'Call SetTextColor(hDC, RGB(0, 0, 0)) 'Call TextOut(hDC, x + 1, y + 1, Text, Len(Text)) 'Call SetTextColor(hDC, Color) 'Call TextOut(hDC, x, y, Text, Len(Text)) DD_PrimarySurf.SetForeColor Color DD_PrimarySurf.DrawText x, y, Text, False End Sub Public Sub DrawPlayerNameText(ByVal hDC As Long, ByVal x, ByVal y, ByVal Text As String, Color As Long) 'Call SelectObject(hDC, GameFont) 'Call SetBkMode(hDC, vbTransparent) 'Call SetTextColor(hDC, RGB(0, 0, 0)) 'Call TextOut(hDC, x + 1, y + 1, Text, Len(Text)) 'Call SetTextColor(hDC, Color) 'Call TextOut(hDC, x, y, Text, Len(Text)) DD_PrimarySurf.SetForeColor Color DD_PrimarySurf.DrawText x, y, Text, False End Sub It's not Blting to picScreen...it Blt's above the game window...I can see why, but I thought the PrimarySurf would blt to picScreen...anyways I tried creating my own surface, but to no luck...I also just tried using the BackBuffer, but I got an automation error for using more than one DC or something on it. Any help? |
Page 1 of 1 | All times are UTC |
Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/ |