source: cprs/trunk/CPRS-Chart/fPrintLocation.dfm@ 924

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

Upgrading to version 27

File size: 4.3 KB
Line 
1inherited frmPrintLocation: TfrmPrintLocation
2 Left = 293
3 Top = 250
4 Width = 450
5 Height = 472
6 AutoScroll = True
7 BorderIcons = []
8 Caption = 'Order Location'
9 Constraints.MinWidth = 440
10 OldCreateOrder = False
11 Position = poMainFormCenter
12 OnClose = FormClose
13 ExplicitWidth = 450
14 ExplicitHeight = 472
15 DesignSize = (
16 442
17 445)
18 PixelsPerInch = 96
19 TextHeight = 13
20 object lblEncounter: TLabel [0]
21 Left = 0
22 Top = 379
23 Width = 280
24 Height = 13
25 Caption = 'Where would you like to continue processing patient data? '
26 end
27 object pnlTop: TPanel [1]
28 Left = 0
29 Top = 0
30 Width = 442
31 Height = 153
32 Anchors = [akLeft, akTop, akRight]
33 BevelOuter = bvNone
34 TabOrder = 0
35 object lblText: TLabel
36 Left = 8
37 Top = 16
38 Width = 3
39 Height = 13
40 end
41 object orpnlTopBottom: TORAutoPanel
42 Left = 0
43 Top = 112
44 Width = 442
45 Height = 41
46 Align = alBottom
47 BevelOuter = bvNone
48 TabOrder = 0
49 object btnClinic: TButton
50 Left = 145
51 Top = 8
52 Width = 75
53 Height = 25
54 Caption = 'All Clinic'
55 TabOrder = 0
56 OnClick = btnClinicClick
57 end
58 object btnWard: TButton
59 Left = 230
60 Top = 8
61 Width = 75
62 Height = 25
63 Caption = 'All Ward'
64 TabOrder = 1
65 OnClick = btnWardClick
66 end
67 end
68 end
69 object pnlBottom: TORAutoPanel [2]
70 Left = 0
71 Top = 159
72 Width = 442
73 Height = 210
74 TabOrder = 1
75 object orderGrid: TStringGrid
76 Left = 1
77 Top = 1
78 Width = 440
79 Height = 208
80 Align = alClient
81 ColCount = 3
82 Constraints.MinWidth = 440
83 DefaultRowHeight = 30
84 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing]
85 ParentShowHint = False
86 ShowHint = True
87 TabOrder = 2
88 OnDrawCell = OrderGridDrawCell
89 OnKeyPress = orderGridKeyPress
90 OnMouseDown = orderGridMouseDown
91 end
92 object pnlOrder: TPanel
93 Left = 264
94 Top = 56
95 Width = 97
96 Height = 25
97 TabOrder = 0
98 Visible = False
99 end
100 object cbolocation: TORComboBox
101 Left = 240
102 Top = 104
103 Width = 121
104 Height = 21
105 Style = orcsDropDown
106 AutoSelect = True
107 Color = clWindow
108 DropDownCount = 8
109 ItemHeight = 13
110 ItemTipColor = clWindow
111 ItemTipEnable = True
112 ListItemsOnly = False
113 LongList = False
114 LookupPiece = 1
115 MaxLength = 0
116 Sorted = False
117 SynonymChars = '<>'
118 TabOrder = 1
119 Visible = False
120 OnChange = cbolocationChange
121 OnExit = cbolocationExit
122 CharsNeedMatch = 1
123 UniqueAutoComplete = True
124 end
125 end
126 object ORpnlBottom: TORAutoPanel [3]
127 Left = 0
128 Top = 404
129 Width = 442
130 Height = 41
131 BevelEdges = []
132 BevelOuter = bvNone
133 TabOrder = 3
134 object btnOK: TButton
135 Left = 187
136 Top = 3
137 Width = 75
138 Height = 25
139 Caption = 'OK'
140 TabOrder = 0
141 OnClick = btnOKClick
142 end
143 end
144 object cboEncLoc: TComboBox [4]
145 Left = 284
146 Top = 375
147 Width = 104
148 Height = 21
149 Anchors = [akLeft, akTop, akRight, akBottom]
150 ItemHeight = 0
151 TabOrder = 2
152 end
153 inherited amgrMain: TVA508AccessibilityManager
154 Data = (
155 (
156 'Component = pnlTop'
157 'Status = stsDefault')
158 (
159 'Component = orpnlTopBottom'
160 'Status = stsDefault')
161 (
162 'Component = btnClinic'
163 'Status = stsDefault')
164 (
165 'Component = btnWard'
166 'Status = stsDefault')
167 (
168 'Component = pnlBottom'
169 'Status = stsDefault')
170 (
171 'Component = orderGrid'
172 'Status = stsDefault')
173 (
174 'Component = pnlOrder'
175 'Status = stsDefault')
176 (
177 'Component = cbolocation'
178 'Status = stsDefault')
179 (
180 'Component = ORpnlBottom'
181 'Status = stsDefault')
182 (
183 'Component = btnOK'
184 'Status = stsDefault')
185 (
186 'Component = cboEncLoc'
187 'Status = stsDefault')
188 (
189 'Component = frmPrintLocation'
190 'Status = stsDefault'))
191 end
192end
Note: See TracBrowser for help on using the repository browser.