Notepad++ configuracion

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

Moderator: Rathinagiri

User avatar
andyglezl
Posts: 1057
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Has thanked: 24 times
Been thanked: 46 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

Post Reply