source: cprs/trunk/CPRS-Chart/Encounter/fPCEBaseMain.dfm@ 829

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

Upgrade to version 27

File size: 5.0 KB
Line 
1inherited frmPCEBaseMain: TfrmPCEBaseMain
2 Left = 302
3 Top = 166
4 Caption = 'frmPCEBaseMain'
5 ExplicitWidth = 320
6 ExplicitHeight = 240
7 PixelsPerInch = 96
8 TextHeight = 13
9 object lblSection: TLabel [0]
10 Left = 6
11 Top = 6
12 Width = 46
13 Height = 13
14 Caption = 'lblSection'
15 end
16 object lblList: TLabel [1]
17 Left = 213
18 Top = 6
19 Width = 67
20 Height = 13
21 Caption = 'Section Name'
22 end
23 object lblComment: TLabel [2]
24 Left = 6
25 Top = 328
26 Width = 49
27 Height = 13
28 Caption = 'Comments'
29 end
30 object bvlMain: TBevel [3]
31 Left = 0
32 Top = 230
33 Width = 619
34 Height = 140
35 end
36 inherited btnOK: TBitBtn
37 Left = 464
38 TabOrder = 1
39 ExplicitLeft = 464
40 end
41 inherited btnCancel: TBitBtn
42 Left = 544
43 TabOrder = 2
44 ExplicitLeft = 544
45 end
46 inherited pnlGrid: TPanel
47 Width = 475
48 TabOrder = 0
49 ExplicitWidth = 475
50 inherited lbGrid: TORListBox
51 Width = 475
52 MultiSelect = True
53 OnClick = lbGridSelect
54 OnExit = lbGridExit
55 OnChange = lbGridSelect
56 CheckEntireLine = True
57 ExplicitWidth = 475
58 end
59 inherited hcGrid: THeaderControl
60 Width = 475
61 ExplicitWidth = 475
62 end
63 end
64 object edtComment: TCaptionEdit [7]
65 Left = 6
66 Top = 343
67 Width = 523
68 Height = 21
69 TabOrder = 5
70 OnChange = edtCommentChange
71 OnExit = edtCommentExit
72 OnKeyPress = edtCommentKeyPress
73 Caption = 'Comments'
74 end
75 object btnRemove: TButton [8]
76 Left = 536
77 Top = 343
78 Width = 75
79 Height = 21
80 Caption = 'Remove'
81 TabOrder = 4
82 OnClick = btnRemoveClick
83 end
84 object btnSelectAll: TButton [9]
85 Left = 406
86 Top = 326
87 Width = 75
88 Height = 17
89 Caption = 'Select All'
90 TabOrder = 3
91 TabStop = False
92 OnClick = btnSelectAllClick
93 end
94 object pnlMain: TPanel [10]
95 Left = 6
96 Top = 20
97 Width = 612
98 Height = 204
99 Anchors = [akLeft, akTop, akRight, akBottom]
100 BevelOuter = bvNone
101 TabOrder = 6
102 object splLeft: TSplitter
103 Left = 204
104 Top = 0
105 Height = 204
106 OnMoved = splLeftMoved
107 end
108 object lbxSection: TORListBox
109 Left = 207
110 Top = 0
111 Width = 405
112 Height = 204
113 Style = lbOwnerDrawFixed
114 Align = alClient
115 ExtendedSelect = False
116 ItemHeight = 16
117 ParentShowHint = False
118 ShowHint = True
119 TabOrder = 1
120 OnClick = clbListClick
121 OnExit = lbxSectionExit
122 OnMouseDown = clbListMouseDown
123 Caption = 'Section Name'
124 ItemTipColor = clWindow
125 LongList = False
126 Pieces = '2'
127 TabPosInPixels = True
128 CheckBoxes = True
129 CheckEntireLine = True
130 OnClickCheck = lbxSectionClickCheck
131 end
132 object pnlLeft: TPanel
133 Left = 0
134 Top = 0
135 Width = 204
136 Height = 204
137 Align = alLeft
138 BevelOuter = bvNone
139 TabOrder = 0
140 DesignSize = (
141 204
142 204)
143 object lbSection: TORListBox
144 Left = 0
145 Top = 0
146 Width = 204
147 Height = 174
148 Align = alTop
149 ItemHeight = 13
150 ParentShowHint = False
151 ShowHint = True
152 TabOrder = 1
153 OnClick = lbSectionClick
154 OnExit = lbSectionExit
155 Caption = 'Section'
156 ItemTipColor = clWindow
157 LongList = False
158 Pieces = '3'
159 CheckEntireLine = True
160 ExplicitLeft = -3
161 ExplicitTop = -2
162 end
163 object btnOther: TButton
164 Left = 65
165 Top = 178
166 Width = 139
167 Height = 21
168 Anchors = [akTop, akRight]
169 Caption = 'Other'
170 TabOrder = 0
171 OnClick = btnOtherClick
172 OnExit = btnOtherExit
173 end
174 end
175 end
176 inherited amgrMain: TVA508AccessibilityManager
177 Left = 24
178 Top = 24
179 Data = (
180 (
181 'Component = edtComment'
182 'Label = lblComment'
183 'Status = stsOK')
184 (
185 'Component = btnRemove'
186 'Status = stsDefault')
187 (
188 'Component = btnSelectAll'
189 'Status = stsDefault')
190 (
191 'Component = pnlMain'
192 'Status = stsDefault')
193 (
194 'Component = lbxSection'
195 'Label = lblList'
196 'Status = stsOK')
197 (
198 'Component = pnlLeft'
199 'Status = stsDefault')
200 (
201 'Component = lbSection'
202 'Label = lblSection'
203 'Status = stsOK')
204 (
205 'Component = btnOther'
206 'Status = stsDefault')
207 (
208 'Component = pnlGrid'
209 'Status = stsDefault')
210 (
211 'Component = lbGrid'
212 'Status = stsDefault')
213 (
214 'Component = hcGrid'
215 'Status = stsDefault')
216 (
217 'Component = btnOK'
218 'Status = stsDefault')
219 (
220 'Component = btnCancel'
221 'Status = stsDefault')
222 (
223 'Component = frmPCEBaseMain'
224 'Status = stsDefault'))
225 end
226end
Note: See TracBrowser for help on using the repository browser.