Changeset 830 for cprs/trunk/CPRS-Chart/fAllgyFind.dfm

Timestamp:

Jul 7, 2010, 4:51:54 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrading to version 27

File:

• cprs/trunk/CPRS-Chart/fAllgyFind.dfm (modified) (10 diffs)

cprs/trunk/CPRS-Chart/fAllgyFind.dfm

@@ -9 +9 @@
   Position = poScreenCenter
   OnCreate = FormCreate
+  ExplicitLeft = 408
+  ExplicitTop = 234
+  ExplicitWidth = 453
+  ExplicitHeight = 506
   PixelsPerInch = 96
   TextHeight = 13
-  object lblSearch: TLabel
+  object lblSearch: TLabel [0]
     Left = 0
     Top = 0
@@ -27 +31 @@
     Layout = tlBottom
   end
-  object lblSelect: TLabel
+  object lblSelect: TLabel [1]
     Left = 5
     Top = 124
@@ -35 +39 @@
     Visible = False
   end
-  object lblDetail: TLabel
+  object lblDetail: TLabel [2]
     Left = 0
     Top = 25
@@ -49 +53 @@
     WordWrap = True
   end
-  object lblSearchCaption: TLabel
+  object lblSearchCaption: TLabel [3]
     Left = 6
     Top = 73
@@ -56 +60 @@
     Caption = 'Search for:'
   end
-  object txtSearch: TCaptionEdit
+  object txtSearch: TCaptionEdit [4]
     Left = 4
     Top = 88
@@ -67 +71 @@
       'r at least 3 characters)'
   end
-  object cmdSearch: TButton
+  object cmdSearch: TButton [5]
     Left = 362
     Top = 88
     Width = 75
     Height = 21
-    Caption = 'Search'
+    Caption = '&Search'
     Default = True
     TabOrder = 1
     OnClick = cmdSearchClick
   end
-  object cmdOK: TButton
+  object cmdOK: TButton [6]
     Left = 263
     Top = 422
     Width = 75
     Height = 22
-    Caption = 'OK'
+    Caption = '&OK'
     TabOrder = 4
     OnClick = cmdOKClick
   end
-  object cmdCancel: TButton
+  object cmdCancel: TButton [7]
     Left = 345
     Top = 422
@@ -92 +96 @@
     Height = 22
     Cancel = True
-    Caption = 'Cancel'
+    Caption = '&Cancel'
     TabOrder = 5
     OnClick = cmdCancelClick
   end
-  object stsFound: TStatusBar
+  object stsFound: TStatusBar [8]
     Left = 0
     Top = 453
@@ -104 +108 @@
     SimplePanel = True
   end
-  object ckNoKnownAllergies: TCheckBox
+  object ckNoKnownAllergies: TCheckBox [9]
     Left = 320
     Top = 118
     Width = 119
     Height = 17
-    Caption = 'No Known Allergies'
+    Caption = '&No Known Allergies'
     TabOrder = 3
     OnClick = ckNoKnownAllergiesClick
   end
-  object tvAgent: TORTreeView
+  object tvAgent: TORTreeView [10]
     Left = 2
     Top = 138
@@ -127 +131 @@
     NodePiece = 0
   end
+  inherited amgrMain: TVA508AccessibilityManager
+    Data = (
+      (
+        'Component = txtSearch'
+        'Status = stsDefault')
+      (
+        'Component = cmdSearch'
+        'Status = stsDefault')
+      (
+        'Component = cmdOK'
+        'Status = stsDefault')
+      (
+        'Component = cmdCancel'
+        'Status = stsDefault')
+      (
+        'Component = stsFound'
+        'Status = stsDefault')
+      (
+        'Component = ckNoKnownAllergies'
+        'Status = stsDefault')
+      (
+        'Component = tvAgent'
+        'Status = stsDefault')
+      (
+        'Component = frmAllgyFind'
+        'Status = stsDefault'))
+  end
   object imTree: TImageList
     Left = 396
@@ -270 +301 @@
       000000000000}
   end
+  object imgLblAllgyFindTree: TVA508ImageListLabeler
+    Components = <
+      item
+        Component = tvAgent
+      end>
+    ImageList = imTree
+    Labels = <
+      item
+        ImageIndex = 0
+        OverlayIndex = -1
+      end
+      item
+        Caption = 'Check'
+        ImageIndex = 1
+        OverlayIndex = -1
+      end
+      item
+        Caption = 'Greyed X and Exclaimation'
+        ImageIndex = 2
+        OverlayIndex = -1
+      end>
+    Left = 400
+    Top = 192
+  end
 end