source: cprs/trunk/CPRS-Chart/fPatientFlagMulti.dfm

Last change on this file was 1679, checked in by healthsevak, 9 years ago

Updating the working copy to CPRS version 28

File size: 5.9 KB
Line 
1inherited frmFlags: TfrmFlags
2 Left = 380
3 Top = 122
4 Width = 589
5 Height = 607
6 VertScrollBar.Range = 116
7 Caption = 'Patient Record Flags'
8 Position = poMainFormCenter
9 OnClose = FormClose
10 OnCreate = FormCreate
11 OnDestroy = FormDestroy
12 OnShow = FormShow
13 ExplicitWidth = 589
14 ExplicitHeight = 607
15 PixelsPerInch = 96
16 TextHeight = 13
17 object Panel1: TPanel [0]
18 Left = 0
19 Top = 0
20 Width = 581
21 Height = 573
22 Align = alClient
23 TabOrder = 0
24 object Splitter3: TSplitter
25 Left = 1
26 Top = 73
27 Width = 579
28 Height = 4
29 Cursor = crVSplit
30 Align = alTop
31 ExplicitLeft = 0
32 ExplicitTop = 38
33 ExplicitWidth = 494
34 end
35 object lblFlags: TLabel
36 Left = 1
37 Top = 77
38 Width = 579
39 Height = 13
40 Align = alTop
41 Caption = 'Category II Flags'
42 Layout = tlCenter
43 ExplicitWidth = 79
44 end
45 object Splitter1: TSplitter
46 Left = 1
47 Top = 153
48 Width = 579
49 Height = 4
50 Cursor = crVSplit
51 Align = alTop
52 ExplicitTop = 31
53 ExplicitWidth = 494
54 end
55 object lblCat1: TLabel
56 Left = 1
57 Top = 1
58 Width = 579
59 Height = 13
60 Align = alTop
61 Caption = 'Category I Flags'
62 Color = clBtnFace
63 Font.Charset = DEFAULT_CHARSET
64 Font.Color = clWindowText
65 Font.Height = -11
66 Font.Name = 'MS Sans Serif'
67 Font.Style = [fsBold]
68 ParentColor = False
69 ParentFont = False
70 Layout = tlCenter
71 ExplicitWidth = 93
72 end
73 object Splitter2: TSplitter
74 Left = 1
75 Top = 416
76 Width = 579
77 Height = 4
78 Cursor = crVSplit
79 Align = alBottom
80 MinSize = 45
81 ExplicitTop = 157
82 end
83 object memFlags: TRichEdit
84 Left = 1
85 Top = 157
86 Width = 579
87 Height = 259
88 Align = alClient
89 Font.Charset = ANSI_CHARSET
90 Font.Color = clWindowText
91 Font.Height = -11
92 Font.Name = 'Courier New'
93 Font.Style = []
94 HideScrollBars = False
95 Constraints.MinHeight = 30
96 Lines.Strings = (
97 '')
98 ParentFont = False
99 ReadOnly = True
100 ScrollBars = ssBoth
101 TabOrder = 0
102 WantReturns = False
103 WordWrap = False
104 end
105 object lstFlagsCat2: TORListBox
106 Left = 1
107 Top = 90
108 Width = 579
109 Height = 63
110 Align = alTop
111 Constraints.MinHeight = 30
112 ItemHeight = 13
113 ParentShowHint = False
114 ShowHint = True
115 TabOrder = 3
116 OnClick = lstFlagsCat2Click
117 ItemTipColor = clWindow
118 LongList = False
119 Pieces = '2'
120 end
121 object lstFlagsCat1: TORListBox
122 Left = 1
123 Top = 14
124 Width = 579
125 Height = 59
126 Align = alTop
127 BevelKind = bkTile
128 BevelOuter = bvRaised
129 Constraints.MinHeight = 30
130 Font.Charset = DEFAULT_CHARSET
131 Font.Color = clWindowText
132 Font.Height = -11
133 Font.Name = 'MS Sans Serif'
134 Font.Style = [fsBold]
135 ItemHeight = 13
136 ParentFont = False
137 ParentShowHint = False
138 ShowHint = True
139 TabOrder = 2
140 OnClick = lstFlagsCat1Click
141 ItemTipColor = clWindow
142 LongList = False
143 Pieces = '2'
144 end
145 object pnlNotes: TPanel
146 Left = 1
147 Top = 420
148 Width = 579
149 Height = 152
150 Align = alBottom
151 TabOrder = 1
152 object lblNoteTitle: TLabel
153 Left = 1
154 Top = 1
155 Width = 577
156 Height = 13
157 Align = alTop
158 Caption = 'lblNoteTitle'
159 ExplicitWidth = 53
160 end
161 object lvPRF: TCaptionListView
162 Left = 1
163 Top = 14
164 Width = 577
165 Height = 106
166 Align = alClient
167 Columns = <
168 item
169 Caption = 'Used For Screen Readers'
170 Width = 1
171 end
172 item
173 AutoSize = True
174 Caption = 'Date'
175 end
176 item
177 AutoSize = True
178 Caption = 'Action'
179 end
180 item
181 AutoSize = True
182 Caption = 'Author'
183 end>
184 Constraints.MinHeight = 50
185 HideSelection = False
186 ReadOnly = True
187 RowSelect = True
188 TabOrder = 0
189 ViewStyle = vsReport
190 OnClick = lvPRFClick
191 OnKeyDown = lvPRFKeyDown
192 end
193 object pnlBottom: TORAutoPanel
194 Left = 1
195 Top = 120
196 Width = 577
197 Height = 31
198 Align = alBottom
199 TabOrder = 1
200 DesignSize = (
201 577
202 31)
203 object btnClose: TButton
204 Left = 494
205 Top = 5
206 Width = 77
207 Height = 21
208 Anchors = [akRight, akBottom]
209 Cancel = True
210 Caption = 'Close'
211 Default = True
212 ModalResult = 2
213 TabOrder = 0
214 end
215 end
216 end
217 end
218 inherited amgrMain: TVA508AccessibilityManager
219 Data = (
220 (
221 'Component = frmFlags'
222 'Status = stsDefault')
223 (
224 'Component = Panel1'
225 'Status = stsDefault')
226 (
227 'Component = memFlags'
228 'Text = Selected Flag'#39's Information'
229 'Status = stsOK')
230 (
231 'Component = lstFlagsCat2'
232 'Status = stsDefault')
233 (
234 'Component = lstFlagsCat1'
235 'Text = Category One Flags'
236 'Status = stsOK')
237 (
238 'Component = pnlNotes'
239 'Status = stsDefault')
240 (
241 'Component = lvPRF'
242 'Label = lblNoteTitle'
243 'Status = stsOK')
244 (
245 'Component = pnlBottom'
246 'Status = stsDefault')
247 (
248 'Component = btnClose'
249 'Status = stsDefault'))
250 end
251 object TimerTextFlash: TTimer
252 Enabled = False
253 Interval = 750
254 OnTimer = TimerTextFlashTimer
255 Left = 376
256 Top = 464
257 end
258end
Note: See TracBrowser for help on using the repository browser.