pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:implemented TRxVerxionInfo.LoadFromFile

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4643 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2016-05-11 06:51:14 +00:00
parent b30ff02cd5
commit 98ee797040
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/rx/trunk/rxversinfo.pas
View File

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