What you need is a paintbar study. The code which I have written for this is used in TS2Ki but should work in yours as well. Here it is:
Inputs: pb(1), sellcolour(red);
{red bar paint condition}
Condition1 = close[1] < open[1];
{Sell Pinbar Alert}
If Condition1 then begin
PlotPaintBar[pb]{(Open[pb],} (High[pb], Low[pb], {Close[pb],} "pb");
SetPlotColor[pb](1, sellcolour);
{SetPlotWidth[pb](1, tk);}
end
Else Begin
{Both NoPlot statements must be included}
NoPlot(1);
NoPlot(2);
End;
Let me know how you get on.
Paul