HMGforum.com

Posted: **Fri Nov 29, 2013 3:07 am**

Hola

Superinteressante and I began to imagine how I could do something like text over text, I will explain:
We display a text in size 10 and black in color and in the same position in the same text in white size 8 might have a similar effect.
As I said would have a similar effect but with smoky text effect andy.

Aqui la funcion (tiene algunos detalles, se puede mejorar), y practicamente es como dice Amarante.

Here the function (has some details can be improved), and Virtually as Amarante says.

----------------------------------------------------------------------------------------------------------------------------
USO: *TextSomb( reng, Colu, Forma, texto, consec, clr1, clr2, TFont, lSombra, lUpDown )
----------------------------------------------------------------------------------------------------------------------------
STATIC nConcLbl:=0

TextSomb(658,360,"Form_Main","ESTACIÓN: [ "+NetName()+" ]" ,nConcLbl++,VDELUNA,BLACK,8,.F.,.F.)
----------------------------------------------------------------------------------------------------------------------------
cEtiUsu:=TextSomb(658,540,"Form_Main","USUARIO: [ ]" ,nConcLbl++,VDELUNA,BLACK,8,.F.,.F.)
cpso1:="LabelA"+cEtiUsu
cpso2:="LabelB"+cEtiUsu
Form_Main.&cpso1..Value:="USUARIO: [ "+UPPER(AllTrim(Ejecutiv->Nombre))+" ]"
Form_Main.&cpso2..Value:="USUARIO: [ "+UPPER(AllTrim(Ejecutiv->Nombre))+" ]"
----------------------------------------------------------------------------------------------------------------------------

Code: Select all

FUNCTION TextSomb(reng,Colu,Forma,texto,consec,clr1,clr2,TFont,lSombra,lUpDown)
    LOCAL x, y, nSomb

    lSombra:=IF( VALTYPE(lSombra) == "U",.T.,lSombra )
    lUpDown:=IF( VALTYPE(lUpDown) == "U",.F.,lUpDown )

    nSomb:=IF(lSombra,2,1)
    y:=STRZERO(consec,3)
    x:="LabelB"+y

    IF lUpDown
        @ reng-nSomb,colu-nSomb LABEL &x OF &Forma. VALUE texto WIDTH 70 HEIGHT 10     ;
                                FONT 'Taoma' SIZE TFont AUTOSIZE FONTCOLOR clr2 BOLD TRANSPARENT // ITALIC
    ELSE
        @ reng+nSomb,colu+nSomb LABEL &x OF &Forma. VALUE texto WIDTH 70 HEIGHT 10     ;
                                FONT 'Taoma' SIZE TFont AUTOSIZE FONTCOLOR clr2 BOLD TRANSPARENT // ITALIC
    ENDIF
    x:="LabelA"+y
    @ reng  ,colu   LABEL &x OF &Forma. VALUE texto WIDTH 70 HEIGHT 10     ;
                    FONT 'Taoma' SIZE TFont AUTOSIZE FONTCOLOR clr1 BOLD TRANSPARENT // ITALIC
RETURN(y)

Posted: **Fri Nov 29, 2013 11:46 am**

André
Gracias por compartir.

---
André
Thanks for sharing.

Posted: **Thu Mar 28, 2019 1:17 am**

Gracias Pablo Cesar por el tip!!!

Tranks Pablo Cesar!!!

Posted: **Thu Mar 28, 2019 3:09 pm**

Leopoldo Blancas wrote: ↑Thu Mar 28, 2019 1:17 am Gracias Pablo Cesar por el tip!!!

Tranks Pablo Cesar!!!

Hola Leopoldo

Pablo Cesar ya no te puede responder...

http://www.hmgforum.com/viewtopic.php?f ... sar#p57159

Posted: **Thu Mar 28, 2019 6:04 pm**

Gracias andyglezl por la noticia.... malas noticias.

Así es la vida... y muchas veces nos enfrascamos en nuestra necedad de que SOLO YO TENGO LA RAZÓN, recuerdo a Pablo Cesar Siempre ayudando y tratar de hacer siempre las cosas bien y hacer de HMG algo Grande. Espero que esto nos enseñe a que no somos inmortales y mientras tengamos vida hagamos de HMG algo GIGANTE. En Honor a Pablo Cesar que tanto me ayudo, estoy dispuesto a Regalar Horas de clase enseñando HMG en alguna escuela de México...!!!

R.I.P. Pablo Cesar, un abrazo en donde quiera que estés!!!

------------------------------------------------------------------------------------------------------------------------------------------------
This is life ... and many times we get involved in our foolishness that I ONLY HAVE THE REASON, I remember Pablo Cesar Always helping and trying to always do things right and make HMG something Great. I hope this teaches us that we are not immortal and as long as we have life we make HMG something GIANT. In honor of Pablo Cesar who has helped me so much, I am willing to give away class hours teaching HMG in a school in Mexico ... !!!

R.I.P. Pablo Cesar, a hug wherever you are !!! My condolences to his family and friends.May he rest in peace.
And i will say one more thank you to Pablo. Helped so many of us so many times.

HMGforum.com

Notepad++ configuracion

Re: Notepad++ configuracion

Re: Notepad++ configuracion

Re: Notepad++ configuracion

Re: Notepad++ configuracion

Re: Notepad++ configuracion