* Use correct paths for files when demo database is created on demand (Patch from Graeme Geldenhuys, Bug ID #32360)

git-svn-id: trunk@37107 -

packages/fcl-report/demos/rptdataset.pp

@@ -150,35 +150,35 @@ begin
   lDataSet.FieldByName('Name').AsString := 'Kimi Raikkonen';
   lDataSet.FieldByName('Address').AsString := '[email protected]';
   lDataSet.FieldByName('Age').AsInteger := 35;
-  TBlobField(lDataSet.FieldByName('Photo')).LoadFromFile(ExpandFileName('../common/pictures/man01.png'));
+  TBlobField(lDataSet.FieldByName('Photo')).LoadFromFile(ExpandFileName('pictures/man01.png'));
   lDataSet.Post;
 
   lDataSet.Insert;
   lDataSet.FieldByName('Name').AsString := 'Michael Schumacher';
   lDataSet.FieldByName('Address').AsString := '[email protected]';
   lDataSet.FieldByName('Age').AsInteger := 28;
-  TBlobField(lDataSet.FieldByName('Photo')).LoadFromFile(ExpandFileName('../common/pictures/man02.png'));
+  TBlobField(lDataSet.FieldByName('Photo')).LoadFromFile(ExpandFileName('pictures/man02.png'));
   lDataSet.Post;
 
   lDataSet.Insert;
   lDataSet.FieldByName('Name').AsString := 'Alain Prost';
   lDataSet.FieldByName('Address').AsString := '[email protected]';
   lDataSet.FieldByName('Age').AsInteger := 64;
-  TBlobField(lDataSet.FieldByName('Photo')).LoadFromFile(ExpandFileName('../common/pictures/man03.png'));
+  TBlobField(lDataSet.FieldByName('Photo')).LoadFromFile(ExpandFileName('pictures/man03.png'));
   lDataSet.Post;
 
   lDataSet.Insert;
   lDataSet.FieldByName('Name').AsString := 'Jenson Button';
   lDataSet.FieldByName('Address').AsString := '[email protected]';
   lDataSet.FieldByName('Age').AsInteger := 50;
-  TBlobField(lDataSet.FieldByName('Photo')).LoadFromFile(ExpandFileName('../common/pictures/man04.png'));
+  TBlobField(lDataSet.FieldByName('Photo')).LoadFromFile(ExpandFileName('pictures/man04.png'));
   lDataSet.Post;
 
   lDataSet.Insert;
   lDataSet.FieldByName('Name').AsString := 'Fernando Allonso';
   lDataSet.FieldByName('Address').AsString := '[email protected]';
   lDataSet.FieldByName('Age').AsInteger := 47;
-  TBlobField(lDataSet.FieldByName('Photo')).LoadFromFile(ExpandFileName('../common/pictures/man05.png'));
+  TBlobField(lDataSet.FieldByName('Photo')).LoadFromFile(ExpandFileName('pictures/man05.png'));
   lDataSet.Post;
 
   Dataset := lDataset;