Notepad++ configuracion

Utilities like DBU, Make, IDE written in HMG/ used to create HMG based applications

Moderator: Rathinagiri

User avatar
andyglezl
Posts: 1144
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Has thanked: 35 times
Been thanked: 68 times
Contact:

Re: Notepad++ configuracion

Post by andyglezl » 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)
Andrés González López
Desde Guadalajara, Jalisco. México.

User avatar
Amarante
Posts: 182
Joined: Fri Apr 27, 2012 9:44 pm
Location: Araruama-RJ, Brazil

Post by Amarante » Fri Nov 29, 2013 11:46 am

André
Gracias por compartir. :D
---
André
Thanks for sharing. :D

Leopoldo Blancas
Posts: 388
Joined: Wed Nov 21, 2012 7:14 pm
Location: México
Has thanked: 3 times
Been thanked: 9 times

Post by Leopoldo Blancas » Thu Mar 28, 2019 1:17 am

Gracias Pablo Cesar por el tip!!!

Tranks Pablo Cesar!!!

User avatar
andyglezl
Posts: 1144
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Has thanked: 35 times
Been thanked: 68 times
Contact:

Post by andyglezl » 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
Andrés González López
Desde Guadalajara, Jalisco. México.

Leopoldo Blancas
Posts: 388
Joined: Wed Nov 21, 2012 7:14 pm
Location: México
Has thanked: 3 times
Been thanked: 9 times

Post by Leopoldo Blancas » 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.

Post Reply