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

Lazreport, make DesignReport return modalresult on close designer, from Aleksey Lagunov

Browse Source 
git-svn-id: trunk@43260 -
This commit is contained in:
jesus 2013-10-16 21:25:59 +00:00
parent c42232d6f1
commit bdcdae86bd
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1108,7 +1108,7 @@ type
procedure LoadPreparedReport(const FName: String);
procedure SavePreparedReport(const FName: String);
// report manipulation methods
procedure DesignReport;
function DesignReport: Integer;
function PrepareReport: Boolean;
procedure ExportTo(FilterClass: TfrExportFilterClass; aFileName: String);
procedure ShowReport;
@ -9491,7 +9491,7 @@ begin
end;
// report manipulation methods
procedure TfrReport.DesignReport;
function TfrReport.DesignReport: Integer;
var
HF: String;
begin
@ -9503,11 +9503,14 @@ begin
if not Assigned(frDesigner) and Assigned(ProcedureInitDesigner) then
ProcedureInitDesigner();
if frDesigner <> nil then
begin
{$IFDEF MODALDESIGNER}
frDesigner.ShowModal;
Result:=frDesigner.ShowModal;
{$ELSE}
frDesigner.Show;
Result:=mrOk;
{$ENDIF}
end;
Application.HelpFile := HF;
end;