Marquee Editor Button
Snitz™ Forums 2000https://forum.snitz.com/forumTopic/Posts/70070?pagenum=1
05 November 2025, 02:10
Topic
Carefree
Marquee Editor Button
07 January 2012, 01:44
Marquee Editor Button
07 January 2012, 01:44
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":
In "inc_iconfiles.asp":
In "inc_code.js":
In "inc_func_common.asp":
Finally, add this as a button (you're welcome to make a better one
): 
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
):