Negrito em volta da Letra
Página 1 de 1
Negrito em volta da Letra
olha pessoal eu sei que muitas pessoas estava atraz disso , intao fiquei
aqui fazendo e deu muitos erros ... mais acabei conseguindo ^^ ...
vamos parar de falar e vamos logo ao Assunto que preste ^^
abra o Client~Side e vai em modGameLogic e proucure por ...(mudar a font)
Explicando ...(eu deixei o meu assim msm)
Fixedsys = Font
1º 18 = tamanho da letra
2º Mude o primeiro zero para 1 se voce quiser que a fonte esteja em negrito
3º Mude o segundo zero para 1 se voce quiser que a fonte esteja em italico
4º Mude o terceiro zero para 1 se voce quiser que a fonte esteja em Sublinhado
5º Mude o ultimo zero para 1 se voce quiser que a fonte esteja em Riscado
eu deixei o meu desse geito msm nem mechei ^^
agora para colocar negrito em volta da letra, abra o modText e proucure por ...
mude para
agora proucure por
mude para
Só isso ^^ XD
espero ter ajudo a voces !!!
Antes
Depois
aqui fazendo e deu muitos erros ... mais acabei conseguindo ^^ ...
vamos parar de falar e vamos logo ao Assunto que preste ^^
abra o Client~Side e vai em modGameLogic e proucure por ...(mudar a font)
- Código:
Call SetFont("Fixedsys", 18, 0, 0, 0, 0)
Explicando ...(eu deixei o meu assim msm)
Fixedsys = Font
1º 18 = tamanho da letra
2º Mude o primeiro zero para 1 se voce quiser que a fonte esteja em negrito
3º Mude o segundo zero para 1 se voce quiser que a fonte esteja em italico
4º Mude o terceiro zero para 1 se voce quiser que a fonte esteja em Sublinhado
5º Mude o ultimo zero para 1 se voce quiser que a fonte esteja em Riscado
eu deixei o meu desse geito msm nem mechei ^^
agora para colocar negrito em volta da letra, abra o modText e proucure por ...
- Código:
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))
End Sub
mude para
- Código:
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 + 0, Text, Len(Text))
Call TextOut(hDC, x + 0, y + 1, Text, Len(Text))
Call TextOut(hDC, x - 1, y - 0, Text, Len(Text))
Call TextOut(hDC, x - 0, y - 1, Text, Len(Text))
Call SetTextColor(hDC, Color)
Call TextOut(hDC, x, y, Text, Len(Text))
End Sub
agora proucure por
- Código:
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))
End Sub
mude para
- Código:
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 + 0, Text, Len(Text))
Call TextOut(hDC, x + 0, y + 1, Text, Len(Text))
Call TextOut(hDC, x - 1, y - 0, Text, Len(Text))
Call TextOut(hDC, x - 0, y - 1, Text, Len(Text))
Call SetTextColor(hDC, Color)
Call TextOut(hDC, x, y, Text, Len(Text))
End Sub
Só isso ^^ XD
espero ter ajudo a voces !!!
Antes
Depois
Mapper- Novato
- Mensagens : 35
Pontos : 102
Reputação : 6
Data de inscrição : 06/11/2011
Desineria RPG Maker
Nível de atividade:
(101/1000)
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos