Changeset 7 for trunk/UCore.pas

Timestamp:

May 17, 2015, 10:51:50 PM (10 years ago)

Author:

chronos

Message:

• Added: Commit form.

File:

• trunk/UCore.pas (modified) (5 diffs)

trunk/UCore.pas

@@ -20 +20 @@
     ACommandCommit: TAction;
     ACommandStatus: TAction;
+    Action1: TAction;
     AProjectClose: TAction;
     ActionList1: TActionList;
@@ -38 +39 @@
     procedure AProjectOpenExecute(Sender: TObject);
     procedure AQuitExecute(Sender: TObject);
+    procedure ASettingsExecute(Sender: TObject);
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
@@ -60 +62 @@
 
 uses
-  UFormMain, UFormBrowse;
+  UFormMain, UFormBrowse, UFormSettings, UFormCommit;
 
 { TCore }
@@ -67 +69 @@
 begin
   Application.Terminate;
+end;
+
+procedure TCore.ASettingsExecute(Sender: TObject);
+begin
+  FormSettings.ShowModal;
 end;
 
@@ -159 +166 @@
 procedure TCore.ACommandCommitExecute(Sender: TObject);
 begin
-  Project.WorkingCopy.Commit;
+  if FormCommit.ShowModal = mrOk then begin
+    Project.WorkingCopy.Commit(FormCommit.MemoMessage.Lines);
+  end;
 end;