Willi Quintana

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

>Colores por cada letra de un texto
Posted: Sat Aug 09, 2014 04:03 PM

Hola Amigos.
Sera posible tener un texto con colores diferentes en cada letra??
Salu2

[IMG]http://sia1.subirimagenes.net/img/2014/08/09/mini_140809060949533781.jpg" alt="" loading="lazy">[/img]

[IMG]http://sia1.subirimagenes.net/img/2014/08/09/140809060949533781.jpg" alt="" loading="lazy">[/img]

Willi Quintana

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Re: >Colores por cada letra de un texto
Posted: Wed Aug 13, 2014 02:42 AM

No es posible????

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: >Colores por cada letra de un texto
Posted: Wed Aug 13, 2014 02:47 AM

Willi:

Me parece que no existe una función para tal efecto, se me ocurre que metas el texto en
un array y ahí asignarle el color a cada letra. Solo una idea.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

pgfdz

Posts: 145

Joined: Wed Nov 03, 2010 09:16 AM

Re: >Colores por cada letra de un texto
Posted: Wed Aug 13, 2014 07:46 AM

Hola. A ver si esto te vale.
Un saludo

include "fivewin.ch"

static oWnd

function main()

DEFINE WINDOW oWnd

ACTIVATE WINDOW oWnd ON PAINT Pinta( hDC )

return nil

function Pinta( hDC )

local nColor
local nLeft := 10
local cTexto := "En un lugar de la mancha de cuyo nombre no quiero acordarme"
local oFont
local hFont
local nLen := len( cTexto )
local cLetra, n

DEFINE FONT oFont NAME "Segoe UI Light" SIZE 0, -18

hFont := SelectObject( hDC, oFont:hFont )

for n := 1 to nLen

cLetra := substr( cTexto, n, 1 )

nColor := SetTextColor( hDC, nRandom( CLR_WHITE ) )

TextOut( hDC, 10, nLeft, cLetra )

SetTextColor( hDC, nColor )

nLeft += GetTextWidth( hDC, cLetra, oFont )

oFont:ENd()

return nil

Paco García

Carles

Posts: 1283

Joined: Fri Feb 10, 2006 02:34 PM

Re: >Colores por cada letra de un texto
Posted: Wed Aug 13, 2014 08:18 AM

Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: >Colores por cada letra de un texto
Posted: Tue Mar 31, 2020 12:00 PM

Very good Paco.

Code (fw): Select all Collapse

#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  := 80
   LOCAL nRight := 220
   LOCAL cTexto := "AMBIENTE PAISAGISMO"
   LOCAL oFont
   LOCAL hFont
   LOCAL nLen := len( cTexto )
   LOCAL cLetra, n

   LOCAL nResHoriz, nResVert

   nResHoriz := oWnd:nHorzRes()
   nResVert  := oWnd:nVertRes()

   // Necesito más sugerencias para resoluciones de video.
   // I need more suggestions for video resolutions.
   IF nResHoriz = 1366 .AND. nResVert = 768

      nLeft  := 260
      nRight := 230

   ELSEIF nResHoriz = 1360 .AND. nResVert = 768

      nLeft  := 210
      nRight := 250

   ELSEIF nResHoriz = 1280 .AND. nResVert = 768

      nLeft  := 210
      nRight := 250

   ELSEIF nResHoriz = 1280 .AND. nResVert = 720

      nLeft  := 200
      nRight := 200

   ELSEIF nResHoriz = 1024 .AND. nResVert = 768  // Minha Maquina

      nLeft  :=  80
      nRight := 220

   ELSE

      nLeft  :=  80
      nRight := 220

   ENDIF

   // DEFINE FONT oFont NAME "Segoe UI Light" SIZE 0, - 50
   DEFINE FONT oFont NAME "Segoe UI Symbol" SIZE 0, - 80

   hFont := SelectObject( hDC, oFont:hFont )

   FOR n := 1 TO nLen

      cLetra := substr( cTexto, n, 1 )

      nColor := SetTextColor( hDC, nRandom( CLR_HGREEN ) )  // COLORS.CH

      // TextOut( hDC, 10, nLeft, cLetra )
      TextOut( hDC, 325, nLeft, cLetra )

      SetTextColor( hDC, nColor )

      nLeft += GetTextWidth( hDC, cLetra, oFont )

   NEXT

   SelectObject( hDC, hFont )

   oFont:ENd()

RETURN NIL

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

include "fivewin.ch"

Continue the discussion