Changeset 73 for trunk/Packages/Common/UDebugLog.pas

Timestamp:

Oct 27, 2016, 3:00:47 PM (8 years ago)

Author:

chronos

Message:

• Added: Remember position and size of main form after close of application.
• Modified: Updated Common package to latest version.

File:

• trunk/Packages/Common/UDebugLog.pas (modified) (2 diffs)

trunk/Packages/Common/UDebugLog.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, SpecializedList, SyncObjs, LazFileUtils;
+  Classes, SysUtils, FileUtil, SpecializedList, SyncObjs;
 
 type
@@ -103 +103 @@
   try
     if ExtractFileDir(FileName) <> '' then
-      ForceDirectoriesUTF8(ExtractFileDir(FileName));
-    if FileExistsUTF8(FileName) then LogFile := TFileStream.Create(FileName, fmOpenWrite)
-      else LogFile := TFileStream.Create(FileName, fmCreate);
+      ForceDirectories(ExtractFileDir(FileName));
+    if FileExists(FileName) then LogFile := TFileStream.Create(UTF8Decode(FileName), fmOpenWrite)
+      else LogFile := TFileStream.Create(UTF8Decode(FileName), fmCreate);
     LogFile.Seek(0, soFromEnd);
     Text := FormatDateTime('hh:nn:ss.zzz', Now) + ': ' + Text + LineEnding;