Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/fReminderTree.pas

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/fReminderTree.pas (modified) (4 diffs)

cprs/branches/foia-cprs/CPRS-Chart/fReminderTree.pas

@@ -23 +23 @@
     memEvalCat: TMenuItem;
     mnuCoverSheet: TMenuItem;
+    mnuExit: TMenuItem;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -47 +48 @@
     procedure memEvalCatClick(Sender: TObject);
     procedure mnuCoverSheetClick(Sender: TObject);
-    procedure FormKeyUp(Sender: TObject; var Key: Word;
-      Shift: TShiftState);
     procedure tvRemNodeCaptioning(Sender: TObject; var Caption: String);
     procedure tvRemAddition(Sender: TObject; Node: TTreeNode);
     procedure tvRemDeletion(Sender: TObject; Node: TTreeNode);
+    procedure mnuExitClick(Sender: TObject);
   private
     FLinking: boolean;
@@ -689 +689 @@
 end;
 
-procedure TfrmReminderTree.FormKeyUp(Sender: TObject; var Key: Word;
-  Shift: TShiftState);
-begin
-  if Key = VK_ESCAPE then
-  begin
-    Key := 0;
-    Close;
-  end;
-end;
-
 procedure TfrmReminderTree.tvRemNodeCaptioning(Sender: TObject;
   var Caption: String);
@@ -724 +714 @@
 end;
 
+procedure TfrmReminderTree.mnuExitClick(Sender: TObject);
+begin
+  Close;
+end;
+
 end.