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

LazEdit: use better location for config file (the old one was not writeable by default on any modern OS).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7259 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
lazarus-bart
2020-01-09 18:39:21 +00:00
parent 8970d84cbc
commit 97119a0e90
1 changed files with 15 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
applications/lazedit/lazedit_config.pas
View File

@ -41,7 +41,7 @@ interface
uses uses
SysUtils, Classes, EditorPageControl, lazedit_constants, lazedit_translations, SysUtils, Classes, EditorPageControl, lazedit_constants, lazedit_translations,
Forms, IniFiles, LCLProc; Forms, IniFiles, LCLProc, LazFileUtils;
type type
//globale type for all configurable options //globale type for all configurable options
@ -277,8 +277,21 @@ end;
function GetDefaultIniDir: String; function GetDefaultIniDir: String;
begin begin
Result := ExcludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)); Result := ExcludeTrailingPathDelimiter(GetAppConfigDirUTF8(False, True));
writeln('GetDefaultIniDir -> ',Result);
end; end;
function GetApplicationName: String;
begin
{$ifdef windows}
Result := 'LazEdit';
{$else}
Result := 'lazedit';
{$endif}
end;
initialization
OnGetApplicationName := @GetApplicationName;
end. end.