Changeset 1679 for cprs/trunk/CPRS-Chart/fReminderTree.pas

Timestamp:

May 7, 2015, 12:34:29 PM (9 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/CPRS-Chart/fReminderTree.pas (modified) (7 diffs)

cprs/trunk/CPRS-Chart/fReminderTree.pas

@@ -65 +65 @@
     procedure tvRemNodeCaptioning(Sender: TObject; var Caption: String);
     procedure mnuExitClick(Sender: TObject);
+    procedure tvRemKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
   private
     tvRem508Manager : TtvRem508Manager;
@@ -169 +170 @@
           idx := lbRem.Items.IndexOfObject(tvRem.Selected);
           lbRem.ItemIndex := idx;
+          tvRem.Selected := TTreeNode(lbRem.Items.Objects[lbRem.ItemIndex]);
+          tvRem.SetFocus;
         end
         else
@@ -178 +181 @@
           tvRem.Selected := nil
         else
-          tvRem.Selected := TTreeNode(lbRem.Items.Objects[lbRem.ItemIndex]);
+          begin
+            tvRem.Selected := TTreeNode(lbRem.Items.Objects[lbRem.ItemIndex]);
+            tvRem.SetFocus;
+          end;
       end;
     finally
@@ -321 +327 @@
   FUpdating := TRUE;
   try
+    tvRem.Selected := Node;
     ResetlbItems(Node);
     pnlTopResize(Self);
@@ -328 +335 @@
 end;
 
+procedure TfrmReminderTree.tvRemKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  inherited;
+  if (Key = VK_LEFT) or (Key = VK_RIGHT) then  tvRemClick(Sender);    
+end;
+
 procedure TfrmReminderTree.tvRemCollapsed(Sender: TObject;
   Node: TTreeNode);
@@ -334 +348 @@
   FUpdating := TRUE;
   try
+    tvRem.Selected := Node;
     ResetlbItems(Node);
     pnlTopResize(Self);
@@ -555 +570 @@
   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 begin
-  Resync(TRUE);
+    //Resync(TRUE);
 end;