source: cprs/branches/foia-cprs/CPRS-Chart/Encounter/fPCEBaseMain.dfm@ 1154

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

Adding foia-cprs branch

File size: 3.5 KB
RevLine 
[459]1inherited frmPCEBaseMain: TfrmPCEBaseMain
2 Left = 302
3 Top = 166
4 Caption = 'frmPCEBaseMain'
5 OnDestroy = FormDestroy
6 OnResize = FormResize
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 end
40 inherited btnCancel: TBitBtn
41 Left = 544
42 TabOrder = 2
43 end
44 inherited pnlGrid: TPanel
45 Width = 475
46 TabOrder = 0
47 inherited lbGrid: TORListBox
48 Width = 475
49 MultiSelect = True
50 OnClick = lbGridSelect
51 OnChange = lbGridSelect
52 CheckEntireLine = True
53 end
54 inherited hcGrid: THeaderControl
55 Width = 475
56 end
57 end
58 object edtComment: TCaptionEdit
59 Left = 6
60 Top = 343
61 Width = 523
62 Height = 21
63 TabOrder = 5
64 OnChange = edtCommentChange
65 OnExit = edtCommentExit
66 OnKeyPress = edtCommentKeyPress
67 Caption = 'Comments'
68 end
69 object btnRemove: TButton
70 Left = 536
71 Top = 343
72 Width = 75
73 Height = 21
74 Caption = 'Remove'
75 TabOrder = 4
76 OnClick = btnRemoveClick
77 end
78 object btnSelectAll: TButton
79 Left = 406
80 Top = 326
81 Width = 75
82 Height = 17
83 Caption = 'Select All'
84 TabOrder = 3
85 TabStop = False
86 OnClick = btnSelectAllClick
87 end
88 object pnlMain: TPanel
89 Left = 6
90 Top = 20
91 Width = 612
92 Height = 204
93 Anchors = [akLeft, akTop, akRight, akBottom]
94 BevelOuter = bvNone
95 TabOrder = 6
96 object splLeft: TSplitter
97 Left = 204
98 Top = 0
99 Width = 3
100 Height = 204
101 Cursor = crHSplit
102 OnMoved = splLeftMoved
103 end
104 object lbxSection: TORListBox
105 Left = 207
106 Top = 0
107 Width = 405
108 Height = 204
109 Style = lbOwnerDrawFixed
110 Align = alClient
111 ExtendedSelect = False
112 ItemHeight = 16
113 ParentShowHint = False
114 ShowHint = True
115 TabOrder = 1
116 OnClick = clbListClick
117 OnMouseDown = clbListMouseDown
118 Caption = 'Section Name'
119 ItemTipColor = clWindow
120 LongList = False
121 Pieces = '2'
122 TabPosInPixels = True
123 CheckBoxes = True
124 CheckEntireLine = True
125 OnClickCheck = lbxSectionClickCheck
126 end
127 object pnlLeft: TPanel
128 Left = 0
129 Top = 0
130 Width = 204
131 Height = 204
132 Align = alLeft
133 BevelOuter = bvNone
134 TabOrder = 0
135 DesignSize = (
136 204
137 204)
138 object lbSection: TORListBox
139 Left = 0
140 Top = 0
141 Width = 204
142 Height = 174
143 Align = alTop
144 ItemHeight = 13
145 ParentShowHint = False
146 ShowHint = True
147 TabOrder = 1
148 OnClick = lbSectionClick
149 Caption = 'Section'
150 ItemTipColor = clWindow
151 LongList = False
152 Pieces = '3'
153 CheckEntireLine = True
154 end
155 object btnOther: TButton
156 Left = 65
157 Top = 178
158 Width = 139
159 Height = 21
160 Anchors = [akTop, akRight]
161 Caption = 'Other'
162 TabOrder = 0
163 OnClick = btnOtherClick
164 end
165 end
166 end
167end
Note: See TracBrowser for help on using the repository browser.