Changeset 4 for trunk/UMainForm.lfm

Timestamp:

Feb 9, 2012, 1:43:33 PM (13 years ago)

Author:

chronos

Message:

• Fixed: New, open, save, save as, close project now working.

File:

• trunk/UMainForm.lfm (modified) (8 diffs)

trunk/UMainForm.lfm

@@ -8 +8 @@
   ClientWidth = 643
   Menu = MainMenu1
+  OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   OnDestroy = FormDestroy
@@ -18 +19 @@
     Width = 643
     Align = alClient
-    Lines.Strings = (
-      '++++++++++[>+++++++>++++++++++>+++>+<<<<'
-      '-]>++.>+.+++++++..+++.>++.<<++++++++++++'
-      '+++.>.+++.------.--------.>+.>.'
-    )
+    OnChange = MemoSourceChange
     TabOrder = 0
   end
@@ -465 +462 @@
       Caption = 'Open'
       ImageIndex = 7
+      OnExecute = AProjectOpenExecute
       ShortCut = 16463
     end
@@ -470 +468 @@
       Caption = 'Save'
       ImageIndex = 0
+      OnExecute = AProjectSaveExecute
       ShortCut = 16467
     end
@@ -475 +474 @@
       Caption = 'Close'
       ImageIndex = 4
+      OnExecute = AProjectCloseExecute
       ShortCut = 16465
     end
@@ -480 +480 @@
       Caption = 'Save as...'
       ImageIndex = 0
+      OnExecute = AProjectSaveAsExecute
       ShortCut = 24659
     end
@@ -485 +486 @@
       Caption = 'New'
       ImageIndex = 9
+      OnExecute = AProjectNewExecute
       ShortCut = 16462
     end
@@ -837 +839 @@
     }
   end
+  object OpenDialog1: TOpenDialog
+    DefaultExt = '.bf'
+    Filter = 'BrainFuck (*.bf)|*.bf|Any file (*.*)|*.*'
+    left = 192
+    top = 157
+  end
+  object SaveDialog1: TSaveDialog
+    DefaultExt = '.bf'
+    Filter = 'BrainFuck (*.bf)|*.bf|Any file (*.*)|*.*'
+    left = 192
+    top = 208
+  end
 end