HERE I HAVE TO CHANGE THE MEMORY COLORS
if FDQUERY2.FieldBYNAME('VISCERAL').Value >= 12 then
BEGIN
TfrxMemoView (frxReport1.FindObject ('Memo125')).Color := TALPhacolorRec.Orangered;
TfrxMemoView (frxReport1.FindObject ('Memo127')).Color := TALPhacolorRec.Orangered;
TfrxMemoView (frxReport1.FindObject ('Memo114')).Color := TALPhacolorRec.Orangered;
TfrxMemoView (frxReport1.FindObject ('Memo114')).font.Style := TfrxMemoView(frxReport1.FindObject('Memo114')).font.Style + [TFontStyle.fsBold];
TfrxMemoView (frxReport1.FindObject ('Memo118')).Color := TALPhacolorRec.Orangered;
TfrxMemoView (frxReport1.FindObject ('Memo118')).font.Style := TfrxMemoView(frxReport1.FindObject('Memo118')).font.Style + [TFontStyle.fsBold];
END;
TO CAPTURE LOCATION WHERE THE EXECUTABLE PROJECT IS
VARIAVEL
PATH, NAME: String;
path := ExtractFileDir (ParamStr(0));
NAME I'M GIVING FOR PREVIEW FASTREPORT
NOME := FDQUERY2.FieldBYNAME('nome').Value +' - '+ FormatDateTime('ddmmyyyy',date);
CALLING THE REPORT
frxReport1.LoadFromFile(path+'\grafico.fr3');
frxReport1.ReportOptions.Name := 'SISTEMA EVS - AVALIAÇÃO GRÁFICA - ' + nome;
frxReport1.ShowReport;
I HOPE TO HELP SOMEONE WITH THIS.