Change color of dbfield

Karen99

Hi

I am new to Fastreports.

How do I change the colour of a dbfield on a report according to more than one condition. I know I can use highlighting. But that caters only for one condition.

Regards
Karen

gordk

write code in the obp event of the memoview or the band containing the memoview.

Karen99

Thank you for replying.

As I said I am a newbie. So what you replied makes no sense to me. Can you pls explain.

gpi

procedure Memo1OnBeforePrint(Sender: TfrxComponent);
begin
  if <YourDatasetName."YourFieldName"> > 1000 then Memo1.Color := clRed;                                                                                     
end;

Karen99

I am using version 4.13.2. And it is an Embarcadero version on XE4.

It does not have any event handlers. So can not use events on the report components. Only have events on the report it self, like onbeforeprint etc.

gordk

yes the embarcedero version is limited

Karen99

So any other way I can do it. I have the following code in my onbeforeprint:

if MatchStr(sender.Name,['dsPairedTTestCONS1','dsPairedTTestCONS2','dsPairedTTestCONS3','dsPairedTTestCONS4','dsPairedTTestCONS5']) then
  begin
         if TFrxMemoView(sender).value = 'HS' then TFrxMemoView(sender).Font.Color := clred
    else if TFrxMemoView(sender).value = 'PS' then TFrxMemoView(sender).Font.Color := clblue
    else if TFrxMemoView(sender).value = 'NS' then TFrxMemoView(sender).Font.Color := clblack
    else                                           TFrxMemoView(sender).Font.Color := clblack;

    if  TFrxMemoView(sender).value = 'HS' then
      TFrxMemoView(sender).Font.Style := [fsBold]
    else if TFrxMemoView(sender).value = 'PS' then
      TFrxMemoView(sender).Font.Style := [fsBold]
    else if TFrxMemoView(sender).value = 'NS' then
      TFrxMemoView(sender).Font.Style := []
    else
      TFrxMemoView(sender).Font.Style := [];
  end;

But this results in changing the next row's color ??!!

gpi

You can't get TFrxMemoView(sender).value in TfrxReport.OnBeforePrint event, try to use frxReport1.Calc(TFrxMemoView(sender).Text)

Karen99

I get the following error if I change my code to frxReport1.Calc(TFrxMemoView(sender).Text). Please see file attached for error.

Karen99

Bumping this post up.

Anybody able to help me?

gordk

Karen read this topic it may help you understand what is required
http://www.fast-report.com/en/forum/?p=/discussion/11839

gpi

replace [,] with <,> in the expression