Changeset 829 for cprs/trunk/CPRS-Chart/Encounter/fPCEProvider.dfm

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/fPCEProvider.dfm (modified) (8 diffs)

cprs/trunk/CPRS-Chart/Encounter/fPCEProvider.dfm

@@ -1 @@
-object frmPCEProvider: TfrmPCEProvider
+inherited frmPCEProvider: TfrmPCEProvider
   Left = 192
   Top = 104
@@ -7 +7 @@
   ClientHeight = 254
   ClientWidth = 317
-  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'MS Sans Serif'
-  Font.Style = []
-  OldCreateOrder = False
   Position = poScreenCenter
   OnCreate = FormCreate
   PixelsPerInch = 96
   TextHeight = 13
-  object Spacer1: TLabel
+  object Spacer1: TLabel [0]
     Left = 0
     Top = 0
@@ -24 +17 @@
     Height = 13
     Align = alTop
+    ExplicitWidth = 3
   end
-  object lblMsg: TMemo
+  object lblMsg: TMemo [1]
     Left = 0
     Top = 13
@@ -46 +40 @@
     TabOrder = 4
   end
-  object cboPrimary: TORComboBox
+  object cboPrimary: TORComboBox [2]
     Left = 6
     Top = 69
@@ -73 +67 @@
     CharsNeedMatch = 1
   end
-  object btnYes: TButton
+  object btnYes: TButton [3]
     Left = 158
     Top = 40
@@ -83 +77 @@
     TabOrder = 1
   end
-  object btnNo: TButton
+  object btnNo: TButton [4]
     Left = 238
     Top = 40
@@ -93 +87 @@
     TabOrder = 2
   end
-  object btnSelect: TButton
+  object btnSelect: TButton [5]
     Left = 6
     Top = 40
@@ -102 +96 @@
     OnClick = btnSelectClick
   end
+  inherited amgrMain: TVA508AccessibilityManager
+    Data = (
+      (
+        'Component = lblMsg'
+        'Status = stsDefault')
+      (
+        'Component = cboPrimary'
+        'Status = stsDefault')
+      (
+        'Component = btnYes'
+        'Status = stsDefault')
+      (
+        'Component = btnNo'
+        'Status = stsDefault')
+      (
+        'Component = btnSelect'
+        'Status = stsDefault')
+      (
+        'Component = frmPCEProvider'
+        'Status = stsDefault'))
+  end
 end