Marquee Editor Button - Posted (1600 Views)
Carefree
Advanced Member
Carefree
Posts: 4224
4224
Someone asked me to write this and I know this was done a few years back but doubt the files could be located any more. So I redid it.
This requires very simple modification of four files and the addition of a new image file.
In "inc_post_buttons.asp":

Code:

Look for the following line (appx 60):

        "<a href=""Javascript:email();"" tabindex=""-1"">" & getCurrentIcon(strIconEditorEmail,"Insert Email","align=""top""") & "</a>" & _

Change it to say:


        "<a href=""Javascript:email();"" tabindex=""-1"">" & getCurrentIcon(strIconEditorEmail,"Insert Email","align=""top""") & "</a>" & _
        "<a href=""Javascript:marquee();"" tabindex=""-1"">" & getCurrentIcon(strIconEditorMarquee,"Insert Marquee","align=""top""") & "</a>"

In "inc_iconfiles.asp":

Code:

Look for the following line (appx 52):

Const strIconEditorList = "icon_editor_list.gif|23|22"

Below it, insert this:


Const strIconEditorMarquee = "icon_editor_marquee.gif|23|22"

In "inc_code.js":

Code:

Add this to the end of the file:



function marquee() {
    var text = getText();
     if (helpstat) {
        alert("Marquee tag includes the text in a moving marquee.\n\nUSE: [marquee]This text is in a marquee.[/marquee]");
    } else if (basic) {
        AddTxt="[marquee]" + text + "[/marquee]";
        AddText(AddTxt);
    } else {
        if (text) {
            txt=prompt("Text to be inclosed in a marquee.",text);
        } else {
            txt=prompt("Text to be inclosed in a marquee.","Text");
        }
        if (txt!=null) {
            AddTxt="[marquee]"+txt+"[/marquee]";
            AddText(AddTxt);
        }
    }
}

In "inc_func_common.asp":

Code:

Look for the following line (appx 480):

			fString = replace(fString, "
", "<hr noshade size=""1"">", 1, -1, 1)


Below it, insert this:


			fString = doCode(fString, "[marquee]", "[/marquee]", "<marquee loop=""infinite"">", "</marquee>")


For alternate behavior, try something like this line instead:


			fString = doCode(fString, "[marquee]", "[/marquee]", "<marquee loop=""infinite"" bgcolor=""" & strHiliteFontColor & """ behavior=""alternate"" height=""20"" width=""80%"" style=""font-size:" & strDefaultFontSize & "*6;color:" & strDefaultFontColor & ";border:1px " & strHeadCellColor & " solid;"">", "</marquee>")

Finally, add this as a button (you're welcome to make a better one bigsmile):
Last edited by Carefree on 07 January 2012, 03:57
 Sort direction, for dates DESC means newest first  
 Page size 
Posted
MaGraham
Senior Member
MaGraham
Posts: 1297
1297
Love; love; LOVE THIS!! It works PERFECT!!!

Thank you SO MUCH!!!
I always look for your mods!
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Posted
Carefree
Advanced Member
Carefree
Posts: 4224
4224
You're welcome. Glad you like it.
 
You Must enter a message