change font style

Comments

• Rajaei

  August 2008 edited 5:22AM

  Hi, You cna use this instead your code:
  procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
  begin
  If <frxDBDatasetInforme."ACTIVO"> = 0 then
  begin
  Memo37.Font.Style := 3;
  end
  else
  begin
  Memo37.Font.Style := 0;
  end;
  end;
  I hope this code is useful for you.
  
  

  combatvc wrote: »

  I am intented to change the font style but ERROR in this script
  

  procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
  begin
         If <frxDBDatasetInforme."ACTIVO"> = 0 then
         begin
                 Memo37.Font.Style := [fsStrikeOut];
         end
         else
         begin
                 Memo37.Font.Style := [];  
         end;
  end;
  

  
  what is it the problem???
  
  thanks
• gordk St.Catherines On. Canada.

  August 2008 edited 5:22AM

  Just so you understand your error.
  do not use [] these delimiters are for use inside the memoview objects they trigger the expression evaluator to get the value of the expression
  simply font.style := fsbold; or ie font.style := fsbold + fsunderline; will do
  to clear font.style := 0;