Changeset 4 for trunk/UMainForm.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

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

trunk/UMainForm.pas

@@ -42 +42 @@
     MenuItem8: TMenuItem;
     MenuItem9: TMenuItem;
+    OpenDialog1: TOpenDialog;
+    SaveDialog1: TSaveDialog;
     StatusBar1: TStatusBar;
     TabControl1: TTabControl;
@@ -53 +55 @@
     ToolButton7: TToolButton;
     procedure AExitExecute(Sender: TObject);
+    procedure AProjectCloseExecute(Sender: TObject);
+    procedure AProjectNewExecute(Sender: TObject);
+    procedure AProjectOpenExecute(Sender: TObject);
+    procedure AProjectSaveAsExecute(Sender: TObject);
+    procedure AProjectSaveExecute(Sender: TObject);
     procedure ARunExecute(Sender: TObject);
+    procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure MemoSourceChange(Sender: TObject);
   private
     { private declarations }
   public
+    Modified: Boolean;
+    ProjectFileName: string;
     BrainFuckInterpreter: TBrainFuckInterpreter;
+    procedure UpdateInterface;
   end;
 
@@ -71 +83 @@
 
 uses
-  UInterpreterForm;
+  UInterpreterForm, UApplicationInfo;
 
 { TMainForm }
@@ -77 +89 @@
 procedure TMainForm.FormShow(Sender: TObject);
 begin
+  UpdateInterface;
+end;
 
+procedure TMainForm.MemoSourceChange(Sender: TObject);
+begin
+  Modified := True;
+  UpdateInterface;
+end;
+
+procedure TMainForm.UpdateInterface;
+var
+  Title: string;
+begin
+  AProjectSave.Enabled := Modified;
+  Title := ApplicationInfo.Name;
+  if ProjectFileName <> '' then Title := ProjectFileName + ' - ' + Title;
+  if Modified then Title := Title + ' *';
+  Caption := Title;
+  MemoSource.Enabled := ProjectFileName <> '';
+  AProjectClose.Enabled := ProjectFileName <> '';
+  ARun.Enabled := ProjectFileName <> '';
+  ACompile.Enabled := ProjectFileName <> '';
 end;
 
@@ -99 +132 @@
 end;
 
+procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: boolean);
+begin
+end;
+
 procedure TMainForm.AExitExecute(Sender: TObject);
 begin
@@ -104 +141 @@
 end;
 
+procedure TMainForm.AProjectCloseExecute(Sender: TObject);
+begin
+  Modified := False;
+  ProjectFileName := '';
+  MemoSource.Clear;
+  UpdateInterface;
+end;
+
+procedure TMainForm.AProjectNewExecute(Sender: TObject);
+begin
+  ProjectFileName := 'Project.bf';
+  MemoSource.Clear;
+  UpdateInterface;
+end;
+
+procedure TMainForm.AProjectOpenExecute(Sender: TObject);
+begin
+  OpenDialog1.FileName := ProjectFileName;
+  if OpenDialog1.Execute then begin
+    MemoSource.Lines.LoadFromFile(OpenDialog1.FileName);
+    ProjectFileName := OpenDialog1.FileName;
+    UpdateInterface;
+  end;
+end;
+
+procedure TMainForm.AProjectSaveAsExecute(Sender: TObject);
+begin
+  SaveDialog1.FileName := ProjectFileName;
+  if SaveDialog1.Execute then begin
+    MemoSource.Lines.SaveToFile(SaveDialog1.FileName);
+    ProjectFileName := SaveDialog1.FileName;
+    Modified := False;
+    UpdateInterface;
+  end;
+end;
+
+procedure TMainForm.AProjectSaveExecute(Sender: TObject);
+begin
+  if Modified then AProjectSaveAs.Execute;
+end;
+
 end.