Aqui la funcion (tiene algunos detalles, se puede mejorar), y practicamente es como dice Amarante.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.
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)