Useful Modification of BigTicker

AFL Programming
,
1

I was setting up a new computer with Amibroker (licensed purchaser) and I found the old bigticker code which I had modified to display fullname of the security. The only problem was it was too long and displayed information that isn't important like "common shares" "ADRs" so I wrote this quick function to remove it and improve my display of the ticker in the background. (it is supposed to be dim and transparent. If you don't like it, modify the code.

_SECTION_BEGIN("FRAG");
function CleanFullName(string)
{
    s = string;

    s = StrReplace( s, "Common Shares", "" );
    s = StrReplace( s, "Common Stock", "" );
    s = StrReplace( s, "Ordinary Shares", "" );
    s = StrReplace( s, "American Depositary Shares", "" );
    s = StrReplace( s, "Depositary Shares", "" );
    s = StrReplace( s, "ADS", "" );
    s = StrReplace( s, "ADR", "" );
    s = StrReplace( s, "Class A", "" );
    s = StrReplace( s, "Class B", "" );
    s = StrReplace( s, "Class C", "" );

    return s;
}

// This is a nice modification of the bigtickers code
//
// Displays a Bigticker on the back of the chart with the name
// So you don't need to look on the side.
//
//make sure you put this before any subroutines that use plotforeign or foreign!
//
cleanname = CleanFullName(FullName());

// --- Main Ticker Font Settings ---
GfxSetOverlayMode(1);
GfxSetTextAlign(6);          // Center alignment
GfxSetBkMode(0);             // Transparent background
GfxSetTextColor( ColorHSB(42, 42, 42) );   // Subtle gray tone
//
// --- Smaller full name (now ABOVE) ---
GfxSelectFont("Times New Roman", Status("pxheight")/25 );
GfxTextOut( cleanname, Status("pxwidth")/2, Status("pxheight")/22 );
// --- Larger ticker symbol (now BELOW the name) ---
GfxSelectFont("Times New Roman", Status("pxheight")/5 );
GfxTextOut( Name(), Status("pxwidth")/2, Status("pxheight")/8 );
_SECTION_END();
1 Like