Changeset 72 for trunk/Forms/UFormMain.pas

Timestamp:

Mar 6, 2016, 12:10:38 AM (8 years ago)

Author:

chronos

Message:

• Modified: Built with FPC 3.0.0. Fixed various compiler messages.

File:

• trunk/Forms/UFormMain.pas (modified) (5 diffs)

trunk/Forms/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, SynEdit, Forms, Controls, Graphics, Dialogs,
-  Menus, ActnList, ComCtrls, ExtCtrls, UTarget, Registry, URegistry, Process;
+  Menus, ActnList, ComCtrls, ExtCtrls, UTarget, Registry, URegistry, Process,
+  LazFileUtils;
 
 type
@@ -171 +172 @@
 
 resourcestring
-  SProgramExited = 'Program exited';
   SProgramStarted = 'Program started';
   SProgramStopped = 'Program stopped';
@@ -245 +245 @@
   if Core.Project.Openned then
     raise Exception.Create(SCloseProjectFirst);
-  FormSourceCode.MemoSource.Lines.LoadFromFile(UTF8Decode(FileName));
+  FormSourceCode.MemoSource.Lines.LoadFromFile(FileName);
   Core.LastOpenedList.AddItem(FileName);
   Core.Project.FileName := FileName;
@@ -609 +609 @@
   SaveDialog1.FileName := Core.Project.FileName;
   if SaveDialog1.Execute then begin
-    FormSourceCode.MemoSource.Lines.SaveToFile(UTF8Decode(SaveDialog1.FileName));
+    FormSourceCode.MemoSource.Lines.SaveToFile(SaveDialog1.FileName);
     Core.Project.FileName := SaveDialog1.FileName;
     Core.LastOpenedList.AddItem(SaveDialog1.FileName);
@@ -620 +620 @@
 begin
   if Core.Project.Modified and FileExistsUTF8(Core.Project.FileName) then begin
-    FormSourceCode.MemoSource.Lines.SaveToFile(UTF8Decode(Core.Project.FileName));
+    FormSourceCode.MemoSource.Lines.SaveToFile(Core.Project.FileName);
     Core.Project.Modified := False;
     UpdateInterface;