Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsTeams.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/Options/fOptionsTeams.pas (modified) (4 diffs)

cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsTeams.pas

@@ -37 +37 @@
     procedure cboSubscribeKeyDown(Sender: TObject; var Key: Word;
       Shift: TShiftState);
+    procedure cboSubscribeMouseClick(Sender: TObject);
   private
     FKeyBoarding: boolean;
@@ -224 +225 @@
 procedure TfrmOptionsTeams.cboSubscribeClick(Sender: TObject);
 begin
+  FKeyBoarding := False
+end;
+
+procedure TfrmOptionsTeams.btnRemoveClick(Sender: TObject);
+begin
+  with lstTeams do
+    if InfoBox('Do you want to remove yourself from '
+      + Piece(Items[ItemIndex], '^', 2) + '?',
+      'Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES then
+  begin
+    rpcRemoveList(ItemIEN);
+    Items.Delete(ItemIndex);
+    lstTeamsClick(self);
+    FillATeams;
+  end;
+end;
+
+procedure TfrmOptionsTeams.mnuPatientIDClick(Sender: TObject);
+begin
+  DisplayPtInfo(lstPatients.ItemID);
+end;
+
+procedure TfrmOptionsTeams.lstPatientsMouseDown(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  mnuPopPatient.AutoPopup := (lstPatients.Items.Count > 0)
+                              and (lstPatients.ItemIndex > -1)
+                              and (Button = mbRight);
+end;
+
+procedure TfrmOptionsTeams.cboSubscribeKeyDown(Sender: TObject;
+  var Key: Word; Shift: TShiftState);
+begin
+  case Key of VK_RETURN:
+    if (cboSubscribe.ItemIndex > -1) then
+    begin
+      FKeyBoarding := False;
+      cboSubscribeMouseClick(self); // Provide onmouseclick behavior.
+    end;
+  else
+    FKeyBoarding := True; // Suppress onmouseclick behavior.
+  end;
+end;
+
+procedure TfrmOptionsTeams.cboSubscribeMouseClick(Sender: TObject);
+begin
   if FKeyBoarding then
     FKeyBoarding := False
@@ -229 +276 @@
   begin
     with cboSubscribe do
-    if InfoBox('Do you want to join '
+    if ItemIndex < 0 then
+      exit
+    else if InfoBox('Do you want to join '
       + Piece(Items[ItemIndex], '^', 2) + '?',
       'Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES then
@@ -249 +298 @@
 end;
 
-procedure TfrmOptionsTeams.btnRemoveClick(Sender: TObject);
-begin
-  with lstTeams do
-    if InfoBox('Do you want to remove yourself from '
-      + Piece(Items[ItemIndex], '^', 2) + '?',
-      'Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES then
-  begin
-    rpcRemoveList(ItemIEN);
-    Items.Delete(ItemIndex);
-    lstTeamsClick(self);
-    FillATeams;
-  end;
-end;
-
-procedure TfrmOptionsTeams.mnuPatientIDClick(Sender: TObject);
-begin
-  DisplayPtInfo(lstPatients.ItemID);
-end;
-
-procedure TfrmOptionsTeams.lstPatientsMouseDown(Sender: TObject;
-  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
-begin
-  mnuPopPatient.AutoPopup := (lstPatients.Items.Count > 0)
-                              and (lstPatients.ItemIndex > -1)
-                              and (Button = mbRight);
-end;
-
-procedure TfrmOptionsTeams.cboSubscribeKeyDown(Sender: TObject;
-  var Key: Word; Shift: TShiftState);
-begin
-  case Key of VK_RETURN:
-    if (lstTeams.ItemIndex > 0) then
-      cboSubscribeClick(self); // Provide onclick behavior.
-  else
-    FKeyBoarding := True; // Suppress onclick behavior.
-  end;
-end;
-
 end.