Como eu posso fazer um letreiro digital (marquee) com Label ?
Estou apanhando até com esse negócio aqui...
Eu gostaria que corresse da direita para a esquerda, fosse até o fim e começasse novamente da direita para esquerda... Só consegui jogar do centro para os lados..
DEFINE LABEL lb_EMPRESA
PARENT formPDV_000
ROW (hjan)-35
COL 300
width (wjan)-600
height 35
value (cEmpresa)
fontname "Tahoma"
fontcolor WHITE
fontsize 12
fontbold .T.
transparent .T.
FONTUNDERLINE .F.
BORDER .F.
ALIGNMENT Center
VCENTERALIGN .T.
END LABEL
DEFINE TIMER Timer_1 ;
INTERVAL 400 ;
ACTION { || formPDV_000.lb_hora.Value := Time(), Marquee( ThisWindow.Name, 'lbEmpresa' ) }
Static Function Marquee(cForm,cLbNome)
cString := Left( cEmpresa, Len(cEmpresa)+1 - nTamSpaco )
nTamSpaco--
If nTamSpaco = 0
nTamSpaco := Len( cEmpresa )
EndIf
SetProperty( cForm, cLbNome, 'Value', cString )
SetProperty( cForm, 'LbEmpresa_Fdo', 'Value', cString )
Return Nil
Rubens