Changeset 1695 for cprs/branches/HealthSevak-CPRS/VA

Timestamp:

May 9, 2015, 7:15:46 AM (10 years ago)

Author:

healthsevak

Message:

updated these files for version 28

Location:

cprs/branches/HealthSevak-CPRS/VA

Files:

• VA2006Utils.pas (modified) (3 diffs)
• VA508Accessibility/JAWS/JAWS.bdsproj (modified) (1 diff)
• VA508Accessibility/VA508Access2006.dpk (modified) (2 diffs)
• VAClasses.dcu (modified) ( previous)
• VAUtils.pas (modified) (2 diffs)

cprs/branches/HealthSevak-CPRS/VA/VA2006Utils.pas

@@ -4 +4 @@
 
 uses
-  Windows, Messages, SysUtils, Classes, Controls, ComCtrls, CommCtrl;
+  Windows, Messages, SysUtils, Classes, Controls, ComCtrls, CommCtrl,
+  Forms;
+
+type
+
+  //This class exists to workaround TFrame tabstop set to True
+  //Known defect with Delphi 2006: http://qc.embarcadero.com/wc/qcmain.aspx?d=12257
+  TfraTabStopFalse = class(TFrame)
+  private
+    function GetTabStop: Boolean;
+    procedure SetTabStop(const Value: Boolean);
+  published
+    property TabStop: Boolean read GetTabStop write SetTabStop stored False;
+  end;
 
 // Fixes bug in Delphi 2006, where clicking on a header control section after
@@ -16 +29 @@
 
 type
+
   THeaderControl2006BugFixer = class(TComponent)
   private
@@ -65 +79 @@
 end;
 
+{ TfraTabStopFalse }
+
+function TfraTabStopFalse.GetTabStop: Boolean;
+begin
+  Result := False;
+end;
+
+procedure TfraTabStopFalse.SetTabStop(const Value: Boolean);
+begin
+ //Do nothing here, just ignore the Value
+end;
+
 end.

cprs/branches/HealthSevak-CPRS/VA/VA508Accessibility/JAWS/JAWS.bdsproj

@@ -171 +171 @@
                         <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
                         <VersionInfoKeys Name="Comments"></VersionInfoKeys>
-                </VersionInfoKeys>  
-    
-    
-    
-    <Excluded_Packages>
+                </VersionInfoKeys>  <Excluded_Packages>
       <Excluded_Packages Name="D:\perforce\cprs\main\Packages\ORDateLib2006.bpl">CPRS Date/Time Dialogs</Excluded_Packages>
     </Excluded_Packages>

cprs/branches/HealthSevak-CPRS/VA/VA508Accessibility/VA508Access2006.dpk

@@ -27 +27 @@
 {$DESCRIPTION 'VA Section 508 Accessibility'}
 {$DESIGNONLY}
-{$IMPLICITBUILD OFF}
+{$IMPLICITBUILD ON}
 {$DEFINE DEBUG_ACCESSIBILITY_MANAGER}
 
@@ -35 +35 @@
   vcldb,
   VclSmp,
-  VAShared2006,
-  rtl;
+  rtl,
+  VAShared2006;
 
 contains

cprs/branches/HealthSevak-CPRS/VA/VAUtils.pas

@@ -1 +1 @@
 unit VAUtils;
-                       
+
 {TODO  -oJeremy Merrill -cMessageHandlers : Change component list to use hex address for uComponentList
 search instead of IndexOfObject, so that it used a binary search
@@ -19 +19 @@
 function ShowMsg(const Msg, Caption: string; Icon: TShow508MessageIcon = smiNone;
                     Buttons: TShow508MessageButton = smbOK): TShow508MessageResult; overload;
-function Show508Message(const Msg: string): TShow508MessageResult;
+
+function Show508Message(Const Msg: String): TShow508MessageResult;
 function ShowMsg(const Msg: string; Icon: TShow508MessageIcon = smiNone;
                     Buttons: TShow508MessageButton = smbOK): TShow508MessageResult; overload;