Changeset 1695 for cprs/branches/HealthSevak-CPRS/VA/VA2006Utils.pas

Timestamp:

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

Author:

healthsevak

Message:

updated these files for version 28

File:

• cprs/branches/HealthSevak-CPRS/VA/VA2006Utils.pas (modified) (3 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.