Try using the OnGetText event to check the value in your dataset and change the color of the text accordingly. For instance...
procedure TForm1.ppDBText1GetText(Sender: TObject; var Text: String); begin if ppReport1.DataPipeline['MyValueField'] < 60 then ppDBText1.Font.Color := clRed else ppDBText1.Font.Color := clBlack; end;
Comments
Try using the OnGetText event to check the value in your dataset and change
the color of the text accordingly. For instance...
procedure TForm1.ppDBText1GetText(Sender: TObject; var Text: String);
begin
if ppReport1.DataPipeline['MyValueField'] < 60 then
ppDBText1.Font.Color := clRed
else
ppDBText1.Font.Color := clBlack;
end;
--
Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com