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

New component - RxPropStorage

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2737 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2013-05-09 05:37:53 +00:00
parent e16f5bacfb
commit 9a9db1d08a
13 changed files with 148 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/rx/rxapputils.pas
View File

@ -113,12 +113,9 @@ begin
else
begin
Result := ExtractFileName(ChangeFileExt(Application.ExeName, '.ini'));
{$IFNDEF WIN32}
S:=UTF8ToSys(GetAppConfigDir(false));
if not DirectoryExists(S) then
mkdir(S);
ForceDirectoriesUTF8(S);
Result:=S+Result;
{$ENDIF}
end;
end;