Changeset 1679 for cprs/trunk/CPRS-Chart/fRemCoverSheet.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/fRemCoverSheet.pas (modified) (8 diffs)

cprs/trunk/CPRS-Chart/fRemCoverSheet.pas

@@ -125 +125 @@
     procedure lvViewSelectItem(Sender: TObject; Item: TListItem;
       Selected: Boolean);
+    procedure lvViewExit(Sender: TObject);
+    procedure btnViewExit(Sender: TObject);
+    procedure lblCACExit(Sender: TObject);
+    procedure cbxUserLocExit(Sender: TObject);
+    procedure cbSystemExit(Sender: TObject);
+    procedure sbCopyRightExit(Sender: TObject);
+    procedure btnOKExit(Sender: TObject);
   private
     FData: TORStringList;     // DataCode IEN ^ Modified Flag  Object=TStringList
@@ -396 +403 @@
 end;
 
+procedure TfrmRemCoverSheet.lblCACExit(Sender: TObject);
+begin
+  inherited;
+  //TDP - CQ#19733 Corrected tabbing issues
+  if TabIsPressed() then
+  begin
+    if pnlUser.Visible then cbxUserLoc.SetFocus
+    else cbSystem.SetFocus;
+  end;
+  if ShiftTabIsPressed() then btnView.SetFocus;
+end;
+
 procedure TfrmRemCoverSheet.cbxLocationNeedData(Sender: TObject;
   const StartFrom: String; Direction, InsertAt: Integer);
@@ -729 +748 @@
 end;
 
+procedure TfrmRemCoverSheet.cbxUserLocExit(Sender: TObject);
+begin
+  inherited;
+  //TDP - CQ#19733 Corrected tabbing issues
+  if ShiftTabIsPressed() then
+  begin
+    if ScreenReaderSystemActive then lblCAC.SetFocus
+    else btnView.SetFocus;
+  end;
+end;
+
 procedure TfrmRemCoverSheet.cbxDropDownClose(Sender: TObject);
 begin
@@ -810 +840 @@
   end;
 
+end;
+
+procedure TfrmRemCoverSheet.cbSystemExit(Sender: TObject);
+begin
+  inherited;
+  //TDP - CQ#19733 Corrected tabbing issues
+  if ShiftTabIsPressed() then
+  begin
+    if ScreenReaderSystemActive then lblCAC.SetFocus
+    else btnView.SetFocus;
+  end;
 end;
 
@@ -1212 +1253 @@
 end;
 
+procedure TfrmRemCoverSheet.lvViewExit(Sender: TObject);
+begin
+  inherited;
+  //TDP - CQ#19733 Corrected tabbing issues
+  if TabIsPressed() then btnView.SetFocus;
+end;
+
 procedure TfrmRemCoverSheet.lvCoverCompare(Sender: TObject; Item1,
   Item2: TListItem; Data: Integer; var Compare: Integer);
@@ -1385 +1433 @@
       if ScreenReaderSystemActive then
         GetScreenReader.Speak('Reminder Added to ' + DataName[FEditingLevel] + ' Level Reminders List');
+    end;
+  end;
+end;
+
+procedure TfrmRemCoverSheet.sbCopyRightExit(Sender: TObject);
+begin
+  inherited;
+  //TDP - CQ#19733 On Tab from sbCopyRight, go to btnOK if no data in lvCover
+  if TabIsPressed() then
+  begin
+    if not ScreenReaderSystemActive then
+    begin
+      if lvCover.Items.Count = 0 then btnOK.SetFocus;
     end;
   end;
@@ -1471 +1532 @@
 begin
   SaveData(FALSE);
+end;
+
+procedure TfrmRemCoverSheet.btnOKExit(Sender: TObject);
+begin
+  inherited;
+  //TDP - CQ#19733 On ShiftTab from btnOK, go to sbCopyRight if no data in lvCover
+  if ShiftTabIsPressed() then
+  begin
+    if not ScreenReaderSystemActive then
+    begin
+      if lvCover.Items.Count = 0 then sbCopyRight.SetFocus;
+    end;
+  end;
 end;
 
@@ -1769 +1843 @@
 end;
 
+procedure TfrmRemCoverSheet.btnViewExit(Sender: TObject);
+begin
+  inherited;
+  //TDP - CQ#19733 Corrected tabbing issues
+  if TabIsPressed() then
+  begin
+    if ScreenReaderSystemActive then lblCAC.SetFocus
+    else begin
+      if pnlUser.Visible then cbxUserLoc.SetFocus
+      else cbSystem.SetFocus;
+    end;
+  end;
+  if ShiftTabIsPressed() then lvView.SetFocus;
+end;
+
 procedure TfrmRemCoverSheet.lvCoverKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);