Changeset 11 for trunk/UMainForm.pas

Timestamp:

Feb 10, 2012, 2:10:20 PM (12 years ago)

Author:

chronos

Message:

• Added: Some other examples from web.

File:

• trunk/UMainForm.pas (modified) (3 diffs)

trunk/UMainForm.pas

@@ -210 +210 @@
   ProjectFileName := 'Project.b';
   MemoSource.Clear;
+  Modified := False;
   UpdateInterface;
 end;
@@ -217 +218 @@
   OpenDialog1.FileName := ProjectFileName;
   if OpenDialog1.Execute then begin
-    MemoSource.Lines.LoadFromFile(OpenDialog1.FileName);
+    MemoSource.Lines.LoadFromFile(UTF8Decode(OpenDialog1.FileName));
     ProjectFileName := OpenDialog1.FileName;
     UpdateInterface;
+    Modified := False;
   end;
 end;
@@ -227 +229 @@
   SaveDialog1.FileName := ProjectFileName;
   if SaveDialog1.Execute then begin
-    MemoSource.Lines.SaveToFile(SaveDialog1.FileName);
+    MemoSource.Lines.SaveToFile(UTF8Decode(SaveDialog1.FileName));
     ProjectFileName := SaveDialog1.FileName;
     Modified := False;