The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
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
):
Postet den
Love; love; LOVE THIS!! It works PERFECT!!!
Thank you SO MUCH!!!
I always look for your mods!
Thank you SO MUCH!!!
I always look for your mods!
Postet den
You're welcome. Glad you like it.