source: cprs/branches/foia-cprs/CPRS-Chart/fPatientFlagMulti.dfm@ 1676

Last change on this file since 1676 was 460, checked in by Kevin Toppenberg, 16 years ago

Uploading from OR_30_258

File size: 3.8 KB
Line 
1object frmFlags: TfrmFlags
2 Left = 210
3 Top = 169
4 Width = 505
5 Height = 498
6 VertScrollBar.Range = 116
7 AutoScroll = False
8 Caption = 'Patient Record Flags'
9 Color = clBtnFace
10 Font.Charset = DEFAULT_CHARSET
11 Font.Color = clWindowText
12 Font.Height = -11
13 Font.Name = 'MS Sans Serif'
14 Font.Style = []
15 OldCreateOrder = False
16 Position = poMainFormCenter
17 OnClose = FormClose
18 OnCreate = FormCreate
19 OnDestroy = FormDestroy
20 OnKeyDown = FormKeyDown
21 OnShow = FormShow
22 PixelsPerInch = 96
23 TextHeight = 13
24 object Splitter1: TSplitter
25 Left = 0
26 Top = 80
27 Width = 497
28 Height = 5
29 Cursor = crHSplit
30 Align = alNone
31 end
32 object Splitter2: TSplitter
33 Left = 0
34 Top = 308
35 Width = 497
36 Height = 4
37 Cursor = crVSplit
38 Align = alBottom
39 MinSize = 45
40 end
41 object pnlTop: TORAutoPanel
42 Left = 0
43 Top = 0
44 Width = 497
45 Height = 80
46 Align = alTop
47 Constraints.MinHeight = 40
48 Constraints.MinWidth = 300
49 TabOrder = 0
50 object lblFlags: TLabel
51 Left = 1
52 Top = 1
53 Width = 495
54 Height = 13
55 Align = alTop
56 Caption = 'Active Flag'
57 Layout = tlCenter
58 end
59 object lstFlags: TORListBox
60 Left = 1
61 Top = 14
62 Width = 495
63 Height = 65
64 Align = alClient
65 ItemHeight = 13
66 ParentShowHint = False
67 ShowHint = True
68 TabOrder = 0
69 OnClick = lstFlagsClick
70 ItemTipColor = clWindow
71 LongList = False
72 Pieces = '2'
73 OnChange = lstFlagsClick
74 end
75 end
76 object memFlags: TRichEdit
77 Left = 0
78 Top = 80
79 Width = 497
80 Height = 228
81 Align = alClient
82 Font.Charset = ANSI_CHARSET
83 Font.Color = clWindowText
84 Font.Height = -11
85 Font.Name = 'Courier New'
86 Font.Style = []
87 HideScrollBars = False
88 Lines.Strings = (
89 '')
90 ParentFont = False
91 ReadOnly = True
92 ScrollBars = ssBoth
93 TabOrder = 1
94 WantReturns = False
95 WordWrap = False
96 end
97 object pnlNotes: TPanel
98 Left = 0
99 Top = 312
100 Width = 497
101 Height = 152
102 Align = alBottom
103 TabOrder = 2
104 object lblNoteTitle: TLabel
105 Left = 1
106 Top = 1
107 Width = 495
108 Height = 13
109 Align = alTop
110 Caption = 'lblNoteTitle'
111 end
112 object lvPRF: TCaptionListView
113 Left = 1
114 Top = 14
115 Width = 495
116 Height = 106
117 Align = alClient
118 Columns = <
119 item
120 Caption = 'Used For Screen Readers'
121 Width = 1
122 end
123 item
124 AutoSize = True
125 Caption = 'Date'
126 end
127 item
128 AutoSize = True
129 Caption = 'Action'
130 end
131 item
132 AutoSize = True
133 Caption = 'Author'
134 end>
135 Constraints.MinHeight = 50
136 HideSelection = False
137 Items.Data = {
138 6C0000000100000000000000FFFFFFFFFFFFFFFF03000000000000000857414E
139 44455245521C4F63746F6265722032302C20323030334031303A31353A32333A
140 3233115245414C4C59204C4F4E47205354554646115069636B6572696E672C20
141 4D6F726F6E69FFFFFFFFFFFF}
142 ReadOnly = True
143 RowSelect = True
144 TabOrder = 0
145 ViewStyle = vsReport
146 OnClick = lvPRFClick
147 OnKeyDown = lvPRFKeyDown
148 end
149 object pnlBottom: TORAutoPanel
150 Left = 1
151 Top = 120
152 Width = 495
153 Height = 31
154 Align = alBottom
155 TabOrder = 1
156 DesignSize = (
157 495
158 31)
159 object btnClose: TButton
160 Left = 410
161 Top = 5
162 Width = 77
163 Height = 21
164 Anchors = [akRight, akBottom]
165 Cancel = True
166 Caption = 'Close'
167 ModalResult = 2
168 TabOrder = 0
169 end
170 end
171 end
172end
Note: See TracBrowser for help on using the repository browser.