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

RxFPC:fix file name for TRxXMLPropStorage

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6166 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2018-02-02 10:30:25 +00:00
parent 992be28e62
commit cf916d308e
1 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
components/rx/trunk/rxcontrols/rxxmlpropstorage.pas
View File

@ -48,6 +48,7 @@ type
TRxXMLPropStorage = class(TXMLPropStorage)
private
FSeparateFiles: boolean;
function FixPath2(const APath: String): String;
protected
function GetXMLFileName: string; override;
public
@ -60,19 +61,24 @@ type
implementation
uses LazFileUtils, LazUTF8, rxapputils;
function GetDefaultCfgName: string;
var
S:string;
begin
Result := ExtractFileName(ChangeFileExt(Application.ExeName, defCFGFileExt));
S:=RxGetAppConfigDir(false);
S:=SysToUTF8(S);
S:=SysToUTF8(RxGetAppConfigDir(false));
ForceDirectoriesUTF8(S);
Result:=S+Result;
end;
{ TRxXMLPropStorage }
function TRxXMLPropStorage.FixPath2(const APath: String): String;
begin
Result:=StringReplace(APath,'/', '.', [rfReplaceAll]);
end;
function TRxXMLPropStorage.GetXMLFileName: string;
var
S: String;
@ -81,13 +87,13 @@ begin
Result:=FileName
else
begin
S:=GetDefaultIniName;
S:=GetDefaultCfgName;
if FileName <> '' then
Result:=AppendPathDelim(ExtractFileDir(S)) + FileName
else
begin
if FSeparateFiles then
Result:=AppendPathDelim(ExtractFileDir(S)) + RootSection + defCFGFileExt
Result:=AppendPathDelim(ExtractFileDir(S)) + FixPath2(RootSection) + defCFGFileExt
else
Result:=S;
end;