Todo sobre AO
 
ÍndiceFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse
Comparte | 
 

 Letras con bordes

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
Agus
Admin


Mensajes: 69
Fecha de inscripción: 01/07/2008

MensajeTema: 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]
Volver arriba Ir abajo
Ver perfil de usuario http://recompilacionao.forosactivos.com
 

Letras con bordes

Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.

Permisos de este foro:No puedes responder a temas en este foro.
 ::  ::  :: -