Code: Select all
vars:
intrabarpersist need_delete_this_bar(false),
priceline(-1),
tl_first(-1),
pl_attr(-1),
line_color(RGB(230,240,80));
if lastbaronchart and bartype_ex is = 2 then begin
priceline = TL_New(date, time-2400, close, date, time, close);
pl_attr= TL_SetColor (priceline , line_color);
pl_attr= TL_SetExtRight (priceline , true);
{pl_attr = TL_SetExtLeft (priceline , false); } // toggles SetExtLeft
pl_attr= TL_setsize (priceline , 1);
pl_attr= TL_Setstyle (priceline , 2);
pl_attr= TL_Lock (priceline , true);
need_delete_this_bar = not need_delete_this_bar and priceline [1] > 0 AND priceline <> priceline [1];
tl_first = tl_getfirst(1);
if tl_getnext(tl_first, 1) > 0 and need_delete_this_bar then pl_attr = TL_Delete(tl_first);
if barstatus = 2 then need_delete_this_bar = false;
end;