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

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

Upgrading to version 27

File size: 5.2 KB
Line 
1inherited 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
237end
Note: See TracBrowser for help on using the repository browser.