Agus
Admin
Mensajes : 69
Fecha de inscripción : 01/07/2008
 | Tema: Bordes en Letras  Miér Jul 02, 2008 8:40 pm | |
| Reemplazan TODO el Sub DrawText por este - Citación :
Public Sub DrawText(lngXPos As Integer, lngYPos As Integer, strText As String, lngColor As Long)
On Error Resume Next
With BackBufferSurface
If strText <> "" Then
.SetFontTransparency True
.SetForeColor vbBlack
.SetFont frmMain.font
.DrawText lngXPos - 2, lngYPos, strText, False
.DrawText lngXPos + 2, lngYPos, strText, False
.DrawText lngXPos, lngYPos - 2, strText, False
.DrawText lngXPos, lngYPos + 2, strText, False
.SetFontTransparency True
.SetForeColor lngColor
.SetFont frmMain.font
.DrawText lngXPos, lngYPos, strText, False
End If
End With
End Sub
[/quote] | |
|
