Changeset 829 for cprs/trunk/CPRS-Chart/Consults/fConsult513Prt.dfm

Timestamp:

Jul 7, 2010, 4:31:10 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

Upgrade to version 27

File:

• cprs/trunk/CPRS-Chart/Consults/fConsult513Prt.dfm (modified) (8 diffs)

cprs/trunk/CPRS-Chart/Consults/fConsult513Prt.dfm

@@ -1 @@
-object frm513Print: Tfrm513Print
+inherited frm513Print: Tfrm513Print
   Left = 116
   Top = 375
-  AutoScroll = False
   Caption = 'Print SF 513'
-  ClientHeight = 308
-  ClientWidth = 427
-  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'MS Sans Serif'
-  Font.Style = []
-  OldCreateOrder = True
+  ClientHeight = 306
   Position = poScreenCenter
-  OnCreate = FormCreate
-  OnDestroy = FormDestroy
+  ExplicitHeight = 340
   PixelsPerInch = 96
   TextHeight = 13
-  object lblPrintTo: TLabel
+  object lblPrintTo: TLabel [0]
     Left = 7
     Top = 265
@@ -24 +14 @@
     Height = 13
   end
-  object lblConsultTitle: TMemo
+  object lblConsultTitle: TMemo [1]
     Left = 10
     Top = 8
@@ -36 +26 @@
     TabOrder = 0
   end
-  object grpChooseCopy: TGroupBox
+  object grpChooseCopy: TGroupBox [2]
     Left = 321
     Top = 4
@@ -64 +54 @@
     end
   end
-  object grpDevice: TGroupBox
+  object grpDevice: TGroupBox [3]
     Left = 8
     Top = 69
@@ -131 +121 @@
       OnChange = cboDeviceChange
       OnNeedData = cboDeviceNeedData
+      CharsNeedMatch = 1
     end
   end
-  object cmdOK: TButton
+  object cmdOK: TButton [4]
     Left = 267
     Top = 272
@@ -143 +134 @@
     OnClick = cmdOKClick
   end
-  object cmdCancel: TButton
+  object cmdCancel: TButton [5]
     Left = 347
     Top = 272
@@ -153 +144 @@
     OnClick = cmdCancelClick
   end
-  object chkDefault: TCheckBox
+  object chkDefault: TCheckBox [6]
     Left = 7
     Top = 288
@@ -161 +152 @@
     TabOrder = 3
   end
+  inherited amgrMain: TVA508AccessibilityManager
+    Data = (
+      (
+        'Component = lblConsultTitle'
+        'Status = stsDefault')
+      (
+        'Component = grpChooseCopy'
+        'Status = stsDefault')
+      (
+        'Component = radChartCopy'
+        'Status = stsDefault')
+      (
+        'Component = radWorkCopy'
+        'Status = stsDefault')
+      (
+        'Component = grpDevice'
+        'Status = stsDefault')
+      (
+        'Component = txtRightMargin'
+        'Status = stsDefault')
+      (
+        'Component = txtPageLength'
+        'Status = stsDefault')
+      (
+        'Component = cboDevice'
+        'Status = stsDefault')
+      (
+        'Component = cmdOK'
+        'Status = stsDefault')
+      (
+        'Component = cmdCancel'
+        'Status = stsDefault')
+      (
+        'Component = chkDefault'
+        'Status = stsDefault')
+      (
+        'Component = frm513Print'
+        'Status = stsDefault'))
+  end
   object dlgWinPrinter: TPrintDialog
     Left = 268