Pintar letra na janela(window)

[kapiaba]

Pintar letra na janela(window)

#Include "Fivewin.ch"
	STATIC oWnd
	FUNCTION Main()
	   DEFINE WINDOW oWnd
	   ACTIVATE WINDOW oWnd MAXIMIZED ;
      ON PAINT Pinta( hDC )
	RETURN NIL
	FUNCTION Pinta( hDC )
	   LOCAL nColor
   LOCAL nLeft := 290
   LOCAL cTexto := "I LOVE FIVEWIN BRASIL"
   LOCAL oFont
   LOCAL hFont
   LOCAL nLen := len( cTexto )
   LOCAL cLetra, n
	   DEFINE FONT oFont NAME "Segoe UI Symbol" SIZE 0, - 50
	   hFont := SelectObject( hDC, oFont:hFont )
	   FOR n := 1 TO nLen
	      cLetra := substr( cTexto, n, 1 )
	      nColor := SetTextColor( hDC, nRandom( CLR_WHITE ) )
	      TextOut( hDC, 325, nLeft, cLetra )
	      SetTextColor( hDC, nColor )
	      nLeft += GetTextWidth( hDC, cLetra, oFont )
	   NEXT
	   SelectObject( hDC, hFont )
	   oFont:End()
	RETURN NIL

 

[kapiaba]

Jorge Andrade, baba!! kkkkkkkkkkkkkkkkkkkkkk

 

[kapiaba]

Ike tudo Jorge Andradyyyyy. kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk

 

[Luiz Fernando]

Kapiaba vc podia fazer uns videos aula com o assunto (como ter tempo livre, mesmo sendo programador) e cobrar por isto, com certeza sera o grande nome de coach referente ao assunto em questão. rsrsrsrs 

[Jorge Andrade]

Vc tá boiolando João?? não aparece amanhã no boteco/reduto pra tomar uma que a turma do pt e do curintia vai te matar ahuahauhau

[kapiaba]

KKKKKKKKKKKKKKKKKKKKKKKKKKKK, Este sistema, está sendo desenvolvido para mulheres. kkkkkkkkkkkkkkk