Changeset 829 for cprs/trunk/CPRS-Chart/Encounter/fEncounterFrame.pas

Timestamp:

Jul 7, 2010, 4:31:10 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrade to version 27

File:

• cprs/trunk/CPRS-Chart/Encounter/fEncounterFrame.pas (modified) (14 diffs)

cprs/trunk/CPRS-Chart/Encounter/fEncounterFrame.pas

@@ -7 +7 @@
   Tabs, ComCtrls, ExtCtrls, Menus, StdCtrls, Buttons, fPCEBase,
   fVisitType, fDiagnoses, fProcedure, fImmunization, fSkinTest, fPatientEd,
-  fHealthFactor, fExam, uPCE, rPCE, rTIU, ORCtrls, ORFn, fEncVitals,rvitals;
+  fHealthFactor, fExam, uPCE, rPCE, rTIU, ORCtrls, ORFn, fEncVitals, rvitals, fBase508Form,
+  VA508AccessibilityManager;
 
 const
@@ -56 +57 @@
 
 type
-  TfrmEncounterFrame = class(TForm)
+  TfrmEncounterFrame = class(TfrmBase508Form)
     StatusBar1: TStatusBar;
     pnlPage: TPanel;
@@ -72 +73 @@
     procedure TabControlChanging(Sender: TObject;
       var AllowChange: Boolean);
-    procedure TabControlExit(Sender: TObject);
     procedure FormKeyDown(Sender: TObject; var Key: Word;
       Shift: TShiftState);
@@ -78 +78 @@
     procedure FormCanResize(Sender: TObject; var NewWidth,
       NewHeight: Integer; var Resize: Boolean);
+    procedure FormShow(Sender: TObject);
+    procedure TabControlEnter(Sender: TObject);
 
   private
@@ -88 +90 @@
                             //in the frame.  They must be available at compile time
     FLastPage: TfrmPCEBase;
+    FGiveMultiTabMessage: boolean;
     procedure CreateChildForms(Sender: TObject; Location: integer);
     procedure SynchPCEData;
@@ -124 +127 @@
   uCore,
   fGAF, uConst,
-  rCore, fPCEProvider, rMisc;
+  rCore, fPCEProvider, rMisc, VA508AccessibilityRouter, VAUtils;
 
 {$R *.DFM}
@@ -549 +552 @@
   FAbort := TRUE;
   SetFormFonts;
+  FGiveMultiTabMessage := ScreenReaderSystemActive;
 end;
 
@@ -582 +586 @@
         if (Storemessage <> 'True') then
         begin
-          showmessage(storemessage);
+          ShowMsg(storemessage);
 //        exit;
         end;
@@ -680 +684 @@
   if (sender as tTabControl).tabindex = -1 then exit;
 
+  if TabControl.CanFocus and Assigned(FLastPage) and not TabControl.Focused then
+    TabControl.SetFocus;  //CQ: 14845
+
   for i := CT_FIRST to CT_LAST do
   begin
@@ -688 +695 @@
         PageIDToForm(i).show;
         SwitchToPage(PageIDToForm(i));
+        Exit;
       end;
   end;
@@ -736 +744 @@
 end;
 
-procedure TfrmEncounterFrame.TabControlExit(Sender: TObject);
-var
-  i: integer;
-begin
-  //Keep the focus on the active page
-  if (sender as tTabControl).tabindex = -1 then exit;
-
-  for i := CT_FIRST to CT_LAST do
-  begin
-    with Formlist do
-      with sender as tTabControl do
-        if Tabindex = IndexOf(PageIdToTab(i)) then
-      begin
-        PageIDToForm(i).FocusFirstControl;
-      end;
+procedure TfrmEncounterFrame.TabControlEnter(Sender: TObject);
+begin
+  if FGiveMultiTabMessage then // CQ#15483
+  begin
+    FGiveMultiTabMessage := FALSE;
+    GetScreenReader.Speak('Multi tab form');
   end;
 end;
@@ -759 +758 @@
   CanChange: boolean;
 begin
+  inherited;
   if (Key = VK_ESCAPE) then
   begin
@@ -788 +788 @@
     end;
   end;
-  if FLastPage = frmEncVitals then
-    frmEncVitals.FormKeyDown(Sender, Key, Shift);
 end;
 
@@ -836 +834 @@
 end;
 
+procedure TfrmEncounterFrame.FormShow(Sender: TObject);
+begin
+  inherited;
+  if TabControl.CanFocus then
+    TabControl.SetFocus;
+end;
+
 end.