Changeset 1679 for cprs/trunk/VA

Timestamp:

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

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

Location:

cprs/trunk/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.dcu (modified) ( previous)
• VAUtils.pas (modified) (2 diffs)

cprs/trunk/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/trunk/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/trunk/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/trunk/VA/VAUtils.pas

@@ -20 +20 @@
                     Buttons: TShow508MessageButton = smbOK): TShow508MessageResult; overload;
 
+function Show508Message(Const Msg: String): TShow508MessageResult;
 function ShowMsg(const Msg: string; Icon: TShow508MessageIcon = smiNone;
                     Buttons: TShow508MessageButton = smbOK): TShow508MessageResult; overload;
@@ -281 +282 @@
     smiError:     Caption := ' Error';
     smiQuestion:  Caption := ' Inquiry';
+    smiInfo:      Caption := ' Information';
   end;
   Caption := Application.Title + Caption;
   Result := ShowMsg(Msg, Caption, Icon, Buttons);
 end;
+
+function Show508Message(Const Msg: String): TShow508MessageResult;
+begin
+  Result := ShowMsg(msg);
+end;
+
 
 procedure FreeAndNilTStringsAndObjects(var Strings);