Change color of dbfield

Comments

• gordk St.Catherines On. Canada.

  May 2014 edited 2:52PM

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

  May 2014 edited 2:52PM

  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

  May 2014 edited 2:52PM

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

  May 2014 edited May 2014

  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 St.Catherines On. Canada.

  May 2014 edited 2:52PM

  yes the embarcedero version is limited
• Karen99

  May 2014 edited 2:52PM

  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

  May 2014 edited 2:52PM

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

  May 2014 edited 2:52PM

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

  May 2014 edited 2:52PM

  Bumping this post up.
  
  Anybody able to help me?
• gordk St.Catherines On. Canada.

  May 2014 edited 2:52PM

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

  May 2014 edited 2:52PM

  replace [,] with <,> in the expression