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
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