Changeset 830 for cprs/trunk/CPRS-Chart/fDrawers.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/fDrawers.dfm (modified) (15 diffs)

cprs/trunk/CPRS-Chart/fDrawers.dfm

@@ -1 @@
-object frmDrawers: TfrmDrawers
-  Left = 634
-  Top = 437
+inherited frmDrawers: TfrmDrawers
+  Left = 285
+  Top = 335
   BorderStyle = bsNone
   Caption = 'frmDrawers'
   ClientHeight = 365
   ClientWidth = 189
-  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'MS Sans Serif'
-  Font.Style = []
-  KeyPreview = True
-  OldCreateOrder = False
   OnCanResize = FormCanResize
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   OnResize = FormResize
+  ExplicitLeft = 285
+  ExplicitTop = 335
+  ExplicitWidth = 197
+  ExplicitHeight = 399
   PixelsPerInch = 96
   TextHeight = 13
-  object pnlRemindersButton: TKeyClickPanel
+  object pnlRemindersButton: TKeyClickPanel [0]
     Left = 0
     Top = 193
@@ -38 +34 @@
       Width = 189
       Height = 22
+      Align = alClient
       AllowAllUp = True
       GroupIndex = 1
@@ -57 +54 @@
       Spacing = 2
       OnClick = sbRemindersClick
-      Align = alClient
       OnResize = sbResize
     end
   end
-  object pnlEncounterButton: TKeyClickPanel
+  object pnlEncounterButton: TKeyClickPanel [1]
     Left = 0
     Top = 107
@@ -79 +75 @@
       Width = 189
       Height = 22
+      Align = alClient
       AllowAllUp = True
       GroupIndex = 1
@@ -98 +95 @@
       Spacing = 2
       OnClick = sbEncounterClick
-      Align = alClient
       OnResize = sbResize
     end
   end
-  object pnlTemplatesButton: TKeyClickPanel
+  object pnlTemplatesButton: TKeyClickPanel [2]
     Left = 0
     Top = 0
@@ -120 +116 @@
       Width = 189
       Height = 22
+      Align = alClient
       AllowAllUp = True
       GroupIndex = 1
@@ -140 +137 @@
       Spacing = 2
       OnClick = sbTemplatesClick
-      Align = alClient
       OnResize = sbResize
-    end
-  end
-  object pnlOrdersButton: TKeyClickPanel
+      ExplicitTop = -6
+    end
+  end
+  object pnlOrdersButton: TKeyClickPanel [3]
     Left = 0
     Top = 279
@@ -162 +159 @@
       Width = 189
       Height = 22
+      Align = alClient
       AllowAllUp = True
       GroupIndex = 1
@@ -181 +179 @@
       Spacing = 11
       OnClick = sbOrdersClick
-      Align = alClient
       OnResize = sbResize
     end
   end
-  object lbOrders: TORListBox
+  object lbOrders: TORListBox [4]
     Left = 0
     Top = 301
@@ -202 +199 @@
     LongList = False
   end
-  object lbEncounter: TORListBox
+  object lbEncounter: TORListBox [5]
     Left = 0
     Top = 129
@@ -219 +216 @@
     LongList = False
   end
-  object pnlTemplates: TPanel
+  object pnlTemplates: TPanel [6]
     Left = 0
     Top = 22
@@ -314 +311 @@
     end
   end
-  object tvReminders: TORTreeView
+  object tvReminders: TORTreeView [7]
     Left = 0
     Top = 215
@@ -328 +325 @@
     StateImages = dmodShared.imgReminders
     TabOrder = 5
-    OnAddition = tvRemindersAddition
     OnCollapsed = tvRemindersCurListChanged
-    OnDeletion = tvRemindersDeletion
     OnExpanded = tvRemindersCurListChanged
     OnKeyDown = tvRemindersKeyDown
@@ -337 +332 @@
     NodePiece = 0
     OnNodeCaptioning = tvRemindersNodeCaptioning
+  end
+  inherited amgrMain: TVA508AccessibilityManager
+    Left = 72
+    Top = 72
+    Data = (
+      (
+        'Component = pnlRemindersButton'
+        'Status = stsDefault')
+      (
+        'Component = pnlEncounterButton'
+        'Status = stsDefault')
+      (
+        'Component = pnlTemplatesButton'
+        'Status = stsDefault')
+      (
+        'Component = pnlOrdersButton'
+        'Status = stsDefault')
+      (
+        'Component = lbOrders'
+        'Status = stsDefault')
+      (
+        'Component = lbEncounter'
+        'Status = stsDefault')
+      (
+        'Component = pnlTemplates'
+        'Status = stsDefault')
+      (
+        'Component = tvTemplates'
+        'Status = stsDefault')
+      (
+        'Component = pnlTemplateSearch'
+        'Status = stsDefault')
+      (
+        'Component = btnFind'
+        'Status = stsDefault')
+      (
+        'Component = edtSearch'
+        'Status = stsDefault')
+      (
+        'Component = cbMatchCase'
+        'Status = stsDefault')
+      (
+        'Component = cbWholeWords'
+        'Status = stsDefault')
+      (
+        'Component = tvReminders'
+        'Status = stsDefault')
+      (
+        'Component = frmDrawers'
+        'Status = stsDefault'))
   end
   object popTemplates: TPopupMenu
@@ -409 +454 @@
     end
   end
+  object fldAccessTemplates: TVA508ComponentAccessibility
+    Component = pnlTemplatesButton
+    OnStateQuery = fldAccessTemplatesStateQuery
+    OnInstructionsQuery = fldAccessTemplatesInstructionsQuery
+    ComponentName = 'Drawer'
+    Left = 104
+    Top = 72
+  end
+  object fldAccessReminders: TVA508ComponentAccessibility
+    Component = pnlRemindersButton
+    OnStateQuery = fldAccessRemindersStateQuery
+    OnInstructionsQuery = fldAccessRemindersInstructionsQuery
+    ComponentName = 'Drawer'
+    Left = 128
+    Top = 232
+  end
+  object imgLblReminders: TVA508ImageListLabeler
+    Components = <
+      item
+        Component = tvReminders
+      end>
+    Labels = <>
+    RemoteLabeler = dmodShared.imgLblReminders
+    Left = 96
+    Top = 232
+  end
+  object imgLblTemplates: TVA508ImageListLabeler
+    Components = <
+      item
+        Component = tvTemplates
+      end>
+    Labels = <>
+    RemoteLabeler = dmodShared.imgLblHealthFactorLabels
+    Left = 136
+    Top = 72
+  end
 end