Changeset 18 for trunk/UCore.pas

Timestamp:

Nov 6, 2017, 1:14:20 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Build with newer Lazarus version.
• Fixed: Creation of application configuration file.
• Fixed: Wrong decimal point used for XML datetime decode.
• Added: Detect Subversion exe files from TortoiseSVN directory on Windows.

File:

• trunk/UCore.pas (modified) (4 diffs)

trunk/UCore.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, XMLConf, FileUtil, ActnList, Controls, UVCS, UProject,
-  ULastOpenedList, Forms, Dialogs, Contnrs, UBackend;
+  ULastOpenedList, Forms, Dialogs, Menus, Contnrs, UBackend;
 
 type
@@ -113 +113 @@
 begin
   Backends := TObjectList.Create;
+  Project := nil;
 end;
 
@@ -181 +182 @@
   XMLConfig1.SetValue('UserName', UserName);
   XMLConfig1.SetValue('Email', Email);
+  XmlConfig1.Flush;
 end;
 
@@ -186 +188 @@
 begin
   RegisterBackends;
+  XMLConfig1.Filename := GetAppConfigDir(False) + 'Config.xml';
+  ForceDirectoriesUTF8(ExtractFileDir(XMLConfig1.Filename));
   LoadConfig;
   if (LastOpenedListProject.Items.Count > 0) and DirectoryExistsUTF8(LastOpenedListProject.Items[0]) then