From 98ee797040216ca74ea9095d26fe11edf28f0e59 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 11 May 2016 06:51:14 +0000
Subject: [PATCH] RxFPC:implemented TRxVerxionInfo.LoadFromFile

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4643 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/rxversinfo.pas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/components/rx/trunk/rxversinfo.pas b/components/rx/trunk/rxversinfo.pas
index ded90aac6..208174f1e 100644
--- a/components/rx/trunk/rxversinfo.pas
+++ b/components/rx/trunk/rxversinfo.pas
@@ -48,6 +48,7 @@ type
   private
     FValid: Boolean;
     FValues:TStringList;
+    FFileName: string;
     function GetComments: string;
     function GetCompanyName: string;
     function GetFileDescription: string;
@@ -144,6 +145,8 @@ end;
 function TRxVersionInfo.GetFileName: string;
 begin
   Result:=FValues.Values['OriginalFilename'];
+  if Result = '' then
+    Result:=FFileName;
 end;
 
 function TRxVersionInfo.GetFileVersion: string;
@@ -228,7 +231,7 @@ end;
 
 procedure TRxVersionInfo.SetFileName(const AValue: string);
 begin
-
+  LoadFromFile(AValue);
 end;
 
 procedure TRxVersionInfo.DoVersionInfo(V: TVersionResource);
@@ -262,6 +265,7 @@ var
   Reader:TAbstractResourceReader;
   V:TVersionResource;
 begin
+  FFileName:=AFileName;
   FValues.Clear;
   FValid:=false;
   Reader:=nil;
@@ -278,7 +282,7 @@ begin
   Res:=TResources.Create;
   V:=nil;
   try
-    Res.LoadFromFile(ParamStr(0), Reader);
+    Res.LoadFromFile(AFileName, Reader);
     for i:=0 to Res.Count-1 do
     begin
       if Res[i] is TVersionResource then