如何在FastReport预览和打印时动态改变字体颜色？？？

Question

我想在FastReport预览和打印时改变字体颜色，（例如：在打印和预览时，“数量”这一列
＞＝500用红色显示，＜500用绿色显示）但是显示的颜色不是一直不变的，是根据用户设定的字体颜色来显示；用户设置什么颜色就显示什么颜色，打印出来就什么颜色。

Answer 1

procedure TForm1.frReport1GetValue(const ParName: String;
  var ParValue: Variant);
  var t: TfrMemoView;
t:= TfrmemoView(frReport1.FindObject('memo5'));
if t <> nil then t.Font.Color:=clgreen;
if table1.FieldByName('xj').AsFloat>1000 then t.Font.Color:=clred;
PARVALUE:= Table1.Fieldbyname('XM').AsString;