marcelo Contributor


Joined: 10 May 2008 Posts: 151
|
Posted: Mon Jan 27, 2025 7:46 pm Post subject: Slide Text Efect |
|
|
Hi, I'm trying to get some text to show up simulating a slide effect.
This is the code I'm using to get there but I'd like the text to reappear on the right and I can't seem to do that.
Any ideas?
Code: |
OPTION decimalsep,.
%%SlidePos = 1
%%SlideWidth = 100
%%Texto = Esta es una cadena de texto que no entra en el recuadro y necesita un slide
DIALOG CREATE,Slide Text,-1,0,661,160
DIALOG ADD,STYLE,display,Verdana,16
DIALOG ADD,LINE,LINE1,56,80,496,48
DIALOG ADD,TEXT,TEXT1,70,100,448,24,,,display
DIALOG SHOW
:Menu
wait 0.1,event
GOto @event()
:Timer
%%SlideText = @SubStr(%%Texto,%%SlidePos,%%SlideWidth)
if @equal(@Len(%%SlideText),1)
%%SlidePos = 0
end
Dialog set,Text1,%%SlideTExt
%%SlidePos = @succ(%%SlidePos)
Goto Menu
:Close
Stop
|
|
|