From 5066e9c035bc4abe8ea99bc2c581a41f7d62dbb1 Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Thu, 12 Mar 2009 20:43:57 +0000
Subject: [PATCH] LazReport, published OnGetValue in TfrPrintGrid so templates
 can modify custom variables

git-svn-id: trunk@18971 -
---
 components/lazreport/source/lr_pgrid.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/components/lazreport/source/lr_pgrid.pas b/components/lazreport/source/lr_pgrid.pas
index 9012d238ce..73fa3aa518 100644
--- a/components/lazreport/source/lr_pgrid.pas
+++ b/components/lazreport/source/lr_pgrid.pas
@@ -40,6 +40,7 @@ type
   TfrPrintGrid = class(TComponent)
   private
     FDBGrid               : TDBGrid;
+    FOnGetValue: TDetailEvent;
     FOnSetUpColumn: TSetupColumnEvent;
     FReport               : TfrReport;
     FReportDataSet        : TfrDBDataSet;
@@ -81,6 +82,7 @@ type
     property ShowHeaderOnAllPage : boolean read fShowHdOnAllPage write fShowHdOnAllPage default True;
     property ShowProgress : Boolean read fShowProgress write fShowProgress default false;
     property OnSetupColumn: TSetupColumnEvent read FOnSetUpColumn write FOnSetupColumn;
+    property OnGetValue: TDetailEvent read FOnGetValue write FOnGetValue;
  end;
 
 
@@ -245,6 +247,7 @@ begin
   FReport.OnEnterRect  :=@OnEnterRect;
   FReport.OnPrintColumn:=@OnPrintColumn;
   FReport.ShowProgress :=fShowProgress;
+  FReport.OnGetValue   :=FOnGetValue;
 
   FReportDataSet := TfrDBDataSet.Create(Self);
   FReportDataSet.Name := 'frGridDBDataSet1';