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

Last change on this file since 1689 was 1679, checked in by healthsevak, 10 years ago

Updating the working copy to CPRS version 28

File size: 5.9 KB
RevLine 
[830]1inherited frmFlags: TfrmFlags
2 Left = 380
3 Top = 122
[1679]4 Width = 589
5 Height = 607
[456]6 VertScrollBar.Range = 116
7 Caption = 'Patient Record Flags'
8 Position = poMainFormCenter
9 OnClose = FormClose
10 OnCreate = FormCreate
11 OnDestroy = FormDestroy
12 OnShow = FormShow
[1679]13 ExplicitWidth = 589
14 ExplicitHeight = 607
[456]15 PixelsPerInch = 96
16 TextHeight = 13
[1679]17 object Panel1: TPanel [0]
[456]18 Left = 0
19 Top = 0
[1679]20 Width = 581
21 Height = 573
22 Align = alClient
[456]23 TabOrder = 0
[1679]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
[456]35 object lblFlags: TLabel
36 Left = 1
[1679]37 Top = 77
38 Width = 579
[830]39 Height = 13
40 Align = alTop
41 Caption = 'Category II Flags'
42 Layout = tlCenter
43 ExplicitWidth = 79
44 end
[1679]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
[830]55 object lblCat1: TLabel
56 Left = 1
[456]57 Top = 1
[1679]58 Width = 579
[456]59 Height = 13
60 Align = alTop
[830]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
[456]70 Layout = tlCenter
[830]71 ExplicitWidth = 93
[456]72 end
[1679]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
[830]105 object lstFlagsCat2: TORListBox
[456]106 Left = 1
[1679]107 Top = 90
108 Width = 579
109 Height = 63
110 Align = alTop
111 Constraints.MinHeight = 30
[456]112 ItemHeight = 13
113 ParentShowHint = False
114 ShowHint = True
[1679]115 TabOrder = 3
[830]116 OnClick = lstFlagsCat2Click
117 ItemTipColor = clWindow
118 LongList = False
119 Pieces = '2'
120 end
121 object lstFlagsCat1: TORListBox
122 Left = 1
123 Top = 14
[1679]124 Width = 579
125 Height = 59
[830]126 Align = alTop
127 BevelKind = bkTile
128 BevelOuter = bvRaised
[1679]129 Constraints.MinHeight = 30
[830]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
[1679]139 TabOrder = 2
[830]140 OnClick = lstFlagsCat1Click
[456]141 ItemTipColor = clWindow
142 LongList = False
143 Pieces = '2'
144 end
[1679]145 object pnlNotes: TPanel
[456]146 Left = 1
[1679]147 Top = 420
148 Width = 579
149 Height = 152
[456]150 Align = alBottom
151 TabOrder = 1
[1679]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
[456]188 TabOrder = 0
[1679]189 ViewStyle = vsReport
190 OnClick = lvPRFClick
191 OnKeyDown = lvPRFKeyDown
[456]192 end
[1679]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
[456]216 end
217 end
[830]218 inherited amgrMain: TVA508AccessibilityManager
219 Data = (
220 (
[1679]221 'Component = frmFlags'
[830]222 'Status = stsDefault')
223 (
[1679]224 'Component = Panel1'
225 'Status = stsDefault')
226 (
227 'Component = memFlags'
228 'Text = Selected Flag'#39's Information'
229 'Status = stsOK')
230 (
[830]231 'Component = lstFlagsCat2'
232 'Status = stsDefault')
233 (
234 'Component = lstFlagsCat1'
[1679]235 'Text = Category One Flags'
236 'Status = stsOK')
[830]237 (
238 'Component = pnlNotes'
239 'Status = stsDefault')
240 (
241 'Component = lvPRF'
[1679]242 'Label = lblNoteTitle'
243 'Status = stsOK')
[830]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
[1679]255 Left = 376
256 Top = 464
[830]257 end
[456]258end
Note: See TracBrowser for help on using the repository browser.