paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-23 16:59:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, added internal variable REPORTTITLE

Browse Source 
git-svn-id: trunk@19743 -
This commit is contained in:
jesus 2009-05-01 16:39:43 +00:00
parent 6df88346a1
commit 06acd45a27
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7608,6 +7608,11 @@ begin
begin begin
aValue:= frVariables[s]; aValue:= frVariables[s];
Exit; Exit;
end else
if CompareText(s,'REPORTTITLE')=0 then
begin
aValue := Title;
Exit;
end; end;
if s <> SubValue then if s <> SubValue then
begin begin
@ -7663,13 +7668,17 @@ begin
end; end;
procedure TfrReport.LoadFromXML(XML: TLrXMLConfig; Path: String); procedure TfrReport.LoadFromXML(XML: TLrXMLConfig; Path: String);
var
ATitle: string;
begin begin
CurReport := Self; CurReport := Self;
frVersion := XML.GetValue(Path+'Version/Value', 21); frVersion := XML.GetValue(Path+'Version/Value', 21);
fComments.Text := XML.GetValue(Path+'Comments/Value', ''); fComments.Text := XML.GetValue(Path+'Comments/Value', '');
fKeyWords := XML.GetValue(Path+'KeyWords/Value', ''); fKeyWords := XML.GetValue(Path+'KeyWords/Value', '');
fSubject := XML.GetValue(Path+'Subject/Value', ''); fSubject := XML.GetValue(Path+'Subject/Value', '');
fTitle := XML.GetValue(Path+'Title/Value', ''); ATitle := XML.GetValue(Path+'Title/Value', '');
if ATitle<>'' then
fTitle := ATitle;
// XML.SetValue(Path+'ReportCreateDate/Value', FReportCreateDate); // XML.SetValue(Path+'ReportCreateDate/Value', FReportCreateDate);
// XML.SetValue(Path+'ReportCreateDate/Value', FReportLastChange); // XML.SetValue(Path+'ReportCreateDate/Value', FReportLastChange);