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