Textos de Derecha a Izquierda

[jorge_riv]

Hola miagos.
Hay algun ejemplo de como hacer que un texto se desplace de derecha a Izquierda o viceversa???
En html esta la opcion MARQUEE, algo asi?
Gracias
PD: yo uso la ultima version de Minigui

[JALMAG]

Hola, te paso un ejemplo de Humberto de Brasil que modificó Mustafá.

*--------------------------------------------------------*
* Original Project
* (c) 2004 FreeWare - Humberto Fornazier / Brasil
* hfornazier@yahoo.com.br
*--------------------------------------------------------*
* Modified 2010 by Mustafa López mustalopez@gmail.com
*--------------------------------------------------------*
#include "minigui.ch"

Static nCtEfeito := 0
Static nCt := 1
Static cDescEfeito := ""

Procedure Main()

Define Window Form_Pl ;
At 107,192 ;
Width 486 ;
Height 192 ;
TITLE ' [ Esc ] <- Volver'+ SPACE(35)+'Acerca de' ;
MAIN NOSYSMENU CURSOR "" NOSIZE NOMAXIMIZE
ON KEY ESCAPE ACTION Form_Pl.Release

@ 001,002 Frame Frame1 ;
Caption '' ;
Width 472 ;
Height 155



@ 014,120 LABEL Label_0 Value " NIC SOL" ;
WIDTH 450 HEIGHT 044 ;
FONT 'Arial' SIZE 25 BOLD ITALIC ;
FONTCOLOR {000,000,107}

@ 062,016 LABEL Label_1 WIDTH 450 HEIGHT 044 ;
FONT "Ms Sans Serif" SIZE 0011 BORDER CLIENTEDGE

Form_Pl.Label_1.Enabled :=.F.

@ 073,026 Label LbMucaAtual ;
Width 430 ;
Height 25 ;
Value ' ' ;
FONT 'Arial' SIZE 15 BOLD ITALIC ;
FONTCOLOR {000,000,107} BACKCOLOR {255,255,211}

@ 125,18 LABEL Label_x10c VALUE "Jalmag" ;
FONT "Arial" SIZE 9 BOLD ITALIC FONTCOLOR {026,052,107} ;
WIDTH 245 HEIGHT 20


DEFINE hyperlink email
row 117
col 220
FONTNAME "Arial"
FONTSIZE 9
FONTBOLD .T.
FONTITALIC .T.
value "correo@gmail.com"
transparent .t.
width 200
handcursor .t.
address "correo@gmail.com"
FONTCOLOR {026,052,107}
END hyperlink


_DefineTimer( "Timer_Abertura", "Form_Pl", 100 , {|| Efeito_Abertura()} )

End Window

Form_Pl.center

Form_Pl.Activate

Return Nil
*------------------------------------------------------------------------------*

Procedure Efeito_Abertura()

Local cTxt := ""
Local nTam := 0
Local iTime := Seconds()
Local aMensag := { "NIC SOL Taller Relojero" , ;
"José Nicolás Solis" , ;
"Micromecánica" , ;
"Servicio Oficial CITIZEN" , ;
"Servicio certificado de:" , ;
"OMEGA - RADO - LONGINES - HAMILTON" , ;
"TISSOT - CALVIN KLEIN - TISSOT" , ;
"CERTINA - MIDO" }

cTxt := aMensag[ nCt ]
nTam := Len( cTxt )

nCtEfeito += 1

If nCtEfeito > nTam

Do While Seconds() - iTime < .5
EndDo

nCtEfeito := 0
cDescEfeito := ""

nCt++
nCt := Iif( nCt > 8 , 1 , nCt )

Else

cDescEfeito += Substr( cTxt , nCtEfeito , 1 )

EnDif

Form_Pl.LbMucaAtual.Value := cDescEfeito


Return Nil