Changeset 829 for cprs/trunk/CPRS-Chart/Encounter/fPCEBaseMain.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/fPCEBaseMain.dfm (modified) (10 diffs)

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

@@ -3 +3 @@
   Top = 166
   Caption = 'frmPCEBaseMain'
-  OnDestroy = FormDestroy
-  OnResize = FormResize
+  ExplicitWidth = 320
+  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
@@ -37 +37 @@
     Left = 464
     TabOrder = 1
+    ExplicitLeft = 464
   end
   inherited btnCancel: TBitBtn
     Left = 544
     TabOrder = 2
+    ExplicitLeft = 544
   end
   inherited pnlGrid: TPanel
     Width = 475
     TabOrder = 0
+    ExplicitWidth = 475
     inherited lbGrid: TORListBox
       Width = 475
       MultiSelect = True
       OnClick = lbGridSelect
+      OnExit = lbGridExit
       OnChange = lbGridSelect
       CheckEntireLine = True
+      ExplicitWidth = 475
     end
     inherited hcGrid: THeaderControl
       Width = 475
-    end
-  end
-  object edtComment: TCaptionEdit
+      ExplicitWidth = 475
+    end
+  end
+  object edtComment: TCaptionEdit [7]
     Left = 6
     Top = 343
@@ -67 +73 @@
     Caption = 'Comments'
   end
-  object btnRemove: TButton
+  object btnRemove: TButton [8]
     Left = 536
     Top = 343
@@ -76 +82 @@
     OnClick = btnRemoveClick
   end
-  object btnSelectAll: TButton
+  object btnSelectAll: TButton [9]
     Left = 406
     Top = 326
@@ -86 +92 @@
     OnClick = btnSelectAllClick
   end
-  object pnlMain: TPanel
+  object pnlMain: TPanel [10]
     Left = 6
     Top = 20
@@ -97 +103 @@
       Left = 204
       Top = 0
-      Width = 3
       Height = 204
-      Cursor = crHSplit
       OnMoved = splLeftMoved
     end
@@ -115 +119 @@
       TabOrder = 1
       OnClick = clbListClick
+      OnExit = lbxSectionExit
       OnMouseDown = clbListMouseDown
       Caption = 'Section Name'
@@ -147 +152 @@
         TabOrder = 1
         OnClick = lbSectionClick
+        OnExit = lbSectionExit
         Caption = 'Section'
         ItemTipColor = clWindow
@@ -152 +158 @@
         Pieces = '3'
         CheckEntireLine = True
+        ExplicitLeft = -3
+        ExplicitTop = -2
       end
       object btnOther: TButton
@@ -162 +170 @@
         TabOrder = 0
         OnClick = btnOtherClick
+        OnExit = btnOtherExit
       end
     end
   end
+  inherited amgrMain: TVA508AccessibilityManager
+    Left = 24
+    Top = 24
+    Data = (
+      (
+        'Component = edtComment'
+        'Label = lblComment'
+        'Status = stsOK')
+      (
+        'Component = btnRemove'
+        'Status = stsDefault')
+      (
+        'Component = btnSelectAll'
+        'Status = stsDefault')
+      (
+        'Component = pnlMain'
+        'Status = stsDefault')
+      (
+        'Component = lbxSection'
+        'Label = lblList'
+        'Status = stsOK')
+      (
+        'Component = pnlLeft'
+        'Status = stsDefault')
+      (
+        'Component = lbSection'
+        'Label = lblSection'
+        'Status = stsOK')
+      (
+        'Component = btnOther'
+        'Status = stsDefault')
+      (
+        'Component = pnlGrid'
+        'Status = stsDefault')
+      (
+        'Component = lbGrid'
+        'Status = stsDefault')
+      (
+        'Component = hcGrid'
+        'Status = stsDefault')
+      (
+        'Component = btnOK'
+        'Status = stsDefault')
+      (
+        'Component = btnCancel'
+        'Status = stsDefault')
+      (
+        'Component = frmPCEBaseMain'
+        'Status = stsDefault'))
+  end
 end