paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-14 07:02:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, implemented export filter OnExported event to signal the view has been exported

Browse Source 
git-svn-id: trunk@41012 -
This commit is contained in:
jesus 2013-05-03 06:31:09 +00:00
parent 27b19e929c
commit 58b3af40f7
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/lazreport/source/lr_class.pas
View File

@ -941,6 +941,7 @@ type
procedure OnEndPage; virtual;
procedure OnData({%H-}x, {%H-}y: Integer; {%H-}View: TfrView); virtual;
procedure OnText({%H-}x, {%H-}y: Integer; const {%H-}text: String; {%H-}View: TfrView); virtual;
procedure OnExported({%H-}x, {%H-}y: Integer; {%H-}View: TfrView); virtual;
property BandTypes: TfrBandTypes read FBandTypes write FBandTypes;
property UseProgressbar: boolean read FUseProgressBar write FUseProgressBar;
@ -1072,6 +1073,7 @@ type
procedure InternalOnEnterRect(Memo: TStringList; View: TfrView);
procedure InternalOnExportData(View: TfrView);
procedure InternalOnExportText(x, y: Integer; const text: String; View: TfrView);
procedure InternalOnExported(View: TfrView);
procedure InternalOnGetValue(ParName: String; var ParValue: String);
procedure InternalOnProgress(Percent: Integer);
procedure FillQueryParams;
@ -2247,6 +2249,7 @@ end;
procedure TfrView.ExportData;
begin
CurReport.InternalOnExportData(Self);
CurReport.InternalOnExported(Self);
end;
procedure TfrView.LoadFromStream(Stream: TStream);
@ -3708,10 +3711,11 @@ end;
procedure TfrMemoView.ExportData;
begin
inherited;
CurReport.InternalOnExportData(Self);
Exporting := True;
Draw(TempBmp.Canvas);
Exporting := False;
CurReport.InternalOnExported(Self);
end;
function TfrMemoView.CalcHeight: Integer;
@ -8750,6 +8754,11 @@ begin
FCurrentFilter.OnText(x, y, text, View);
end;
procedure TfrReport.InternalOnExported(View: TfrView);
begin
FCurrentFilter.OnExported(View.x, View.y, View);
end;
procedure TfrReport.ReadStoreInDFM(Reader: TReader);
begin
FStoreInDFM := Reader.ReadBoolean;
@ -10817,6 +10826,10 @@ begin
// abstract method
end;
procedure TfrExportFilter.OnExported(x, y: Integer; View: TfrView);
begin
end;
function TfrFunctionLibrary.GetCount: integer;
begin
result := List.Count + Extra.Count;