source: cprs/trunk/CPRS-Chart/Consults/fConsult513Prt.dfm@ 1245

Last change on this file since 1245 was 829, checked in by Kevin Toppenberg, 14 years ago

Upgrade to version 27

File size: 4.2 KB
Line 
1inherited frm513Print: Tfrm513Print
2 Left = 116
3 Top = 375
4 Caption = 'Print SF 513'
5 ClientHeight = 306
6 Position = poScreenCenter
7 ExplicitHeight = 340
8 PixelsPerInch = 96
9 TextHeight = 13
10 object lblPrintTo: TLabel [0]
11 Left = 7
12 Top = 265
13 Width = 3
14 Height = 13
15 end
16 object lblConsultTitle: TMemo [1]
17 Left = 10
18 Top = 8
19 Width = 301
20 Height = 53
21 BorderStyle = bsNone
22 Color = clBtnFace
23 Lines.Strings = (
24 'Consult Title, Date/Time of Consult, Location')
25 ReadOnly = True
26 TabOrder = 0
27 end
28 object grpChooseCopy: TGroupBox [2]
29 Left = 321
30 Top = 4
31 Width = 98
32 Height = 61
33 Caption = 'Print'
34 TabOrder = 1
35 object radChartCopy: TRadioButton
36 Left = 8
37 Top = 16
38 Width = 81
39 Height = 17
40 Caption = '&Chart Copy'
41 Checked = True
42 TabOrder = 0
43 TabStop = True
44 OnClick = radChartCopyClick
45 end
46 object radWorkCopy: TRadioButton
47 Left = 8
48 Top = 36
49 Width = 81
50 Height = 17
51 Caption = '&Work Copy'
52 TabOrder = 1
53 OnClick = radWorkCopyClick
54 end
55 end
56 object grpDevice: TGroupBox [3]
57 Left = 8
58 Top = 69
59 Width = 411
60 Height = 192
61 Caption = 'Device'
62 TabOrder = 2
63 object lblMargin: TLabel
64 Left = 8
65 Top = 166
66 Width = 60
67 Height = 13
68 Caption = 'Right Margin'
69 end
70 object lblLength: TLabel
71 Left = 120
72 Top = 166
73 Width = 61
74 Height = 13
75 Caption = 'Page Length'
76 end
77 object txtRightMargin: TMaskEdit
78 Left = 72
79 Top = 164
80 Width = 34
81 Height = 19
82 AutoSize = False
83 EditMask = '99999;0; '
84 MaxLength = 5
85 TabOrder = 1
86 end
87 object txtPageLength: TMaskEdit
88 Left = 184
89 Top = 164
90 Width = 34
91 Height = 19
92 AutoSize = False
93 EditMask = '99999;0; '
94 MaxLength = 5
95 TabOrder = 2
96 end
97 object cboDevice: TORComboBox
98 Left = 8
99 Top = 16
100 Width = 395
101 Height = 140
102 Style = orcsSimple
103 AutoSelect = True
104 Caption = 'Device'
105 Color = clWindow
106 DropDownCount = 8
107 ItemHeight = 13
108 ItemTipColor = clWindow
109 ItemTipEnable = True
110 ListItemsOnly = True
111 LongList = True
112 LookupPiece = 0
113 MaxLength = 0
114 ParentShowHint = False
115 Pieces = '2,4'
116 ShowHint = True
117 Sorted = False
118 SynonymChars = '<>'
119 TabPositions = '30'
120 TabOrder = 0
121 OnChange = cboDeviceChange
122 OnNeedData = cboDeviceNeedData
123 CharsNeedMatch = 1
124 end
125 end
126 object cmdOK: TButton [4]
127 Left = 267
128 Top = 272
129 Width = 72
130 Height = 22
131 Caption = 'OK'
132 Default = True
133 TabOrder = 4
134 OnClick = cmdOKClick
135 end
136 object cmdCancel: TButton [5]
137 Left = 347
138 Top = 272
139 Width = 72
140 Height = 22
141 Cancel = True
142 Caption = 'Cancel'
143 TabOrder = 5
144 OnClick = cmdCancelClick
145 end
146 object chkDefault: TCheckBox [6]
147 Left = 7
148 Top = 288
149 Width = 166
150 Height = 17
151 Caption = 'Save as user'#39's default printer'
152 TabOrder = 3
153 end
154 inherited amgrMain: TVA508AccessibilityManager
155 Data = (
156 (
157 'Component = lblConsultTitle'
158 'Status = stsDefault')
159 (
160 'Component = grpChooseCopy'
161 'Status = stsDefault')
162 (
163 'Component = radChartCopy'
164 'Status = stsDefault')
165 (
166 'Component = radWorkCopy'
167 'Status = stsDefault')
168 (
169 'Component = grpDevice'
170 'Status = stsDefault')
171 (
172 'Component = txtRightMargin'
173 'Status = stsDefault')
174 (
175 'Component = txtPageLength'
176 'Status = stsDefault')
177 (
178 'Component = cboDevice'
179 'Status = stsDefault')
180 (
181 'Component = cmdOK'
182 'Status = stsDefault')
183 (
184 'Component = cmdCancel'
185 'Status = stsDefault')
186 (
187 'Component = chkDefault'
188 'Status = stsDefault')
189 (
190 'Component = frm513Print'
191 'Status = stsDefault'))
192 end
193 object dlgWinPrinter: TPrintDialog
194 Left = 268
195 Top = 26
196 end
197end
Note: See TracBrowser for help on using the repository browser.