source: cprs/branches/tmg-cprs/CPRS-Chart/Orders/fODMedComplex.dfm@ 1136

Last change on this file since 1136 was 453, checked in by Kevin Toppenberg, 17 years ago

Initial upload of TMG-CPRS 1.0.26.69
File size: 5.6 KB
Line 
1inherited frmODMedComplex: TfrmODMedComplex
2 Left = 291
3 Top = 307
4 Width = 453
5 Height = 254
6 BorderIcons = []
7 Caption = 'Complex Dose'
8 Position = poScreenCenter
9 OnCreate = FormCreate
10 PixelsPerInch = 96
11 TextHeight = 13
12 object Bevel1: TBevel [0]
13 Left = 6
14 Top = 174
15 Width = 433
16 Height = 2
17 end
18 object grdDoses: TStringGrid [1]
19 Left = 6
20 Top = 6
21 Width = 433
22 Height = 135
23 DefaultColWidth = 78
24 DefaultRowHeight = 21
25 RowCount = 6
26 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goTabs]
27 ScrollBars = ssVertical
28 TabOrder = 4
29 OnDrawCell = grdDosesDrawCell
30 OnKeyPress = grdDosesKeyPress
31 OnMouseDown = grdDosesMouseDown
32 OnMouseUp = grdDosesMouseUp
33 RowHeights = (
34 21
35 21
36 21
37 21
38 21
39 21)
40 end
41 object cmdOK: TButton [2]
42 Left = 290
43 Top = 184
44 Width = 72
45 Height = 21
46 Caption = 'OK'
47 TabOrder = 5
48 OnClick = cmdOKClick
49 end
50 object cmdCancel: TButton [3]
51 Left = 368
52 Top = 184
53 Width = 72
54 Height = 21
55 Caption = 'Cancel'
56 TabOrder = 6
57 OnClick = cmdCancelClick
58 end
59 object cboRoute: TORComboBox [4]
60 Left = 170
61 Top = 200
62 Width = 72
63 Height = 21
64 Style = orcsDropDown
65 AutoSelect = False
66 Color = clWindow
67 DropDownCount = 8
68 ItemHeight = 13
69 ItemTipColor = clWindow
70 ItemTipEnable = True
71 ListItemsOnly = False
72 LongList = False
73 LookupPiece = 0
74 MaxLength = 0
75 Pieces = '2'
76 Sorted = False
77 SynonymChars = '<>'
78 TabOrder = 1
79 Visible = False
80 OnClick = cboRouteClick
81 OnExit = cboRouteExit
82 CharsNeedMatch = 1
83 end
84 object cboSchedule: TORComboBox [5]
85 Left = 169
86 Top = 176
87 Width = 72
88 Height = 21
89 Style = orcsDropDown
90 AutoSelect = False
91 Color = clWindow
92 DropDownCount = 8
93 ItemHeight = 13
94 ItemTipColor = clWindow
95 ItemTipEnable = True
96 ListItemsOnly = False
97 LongList = False
98 LookupPiece = 0
99 MaxLength = 0
100 Sorted = False
101 SynonymChars = '<>'
102 TabOrder = 2
103 Visible = False
104 OnExit = cboScheduleExit
105 CharsNeedMatch = 1
106 end
107 object pnlInstruct: TPanel [6]
108 Left = 6
109 Top = 177
110 Width = 150
111 Height = 21
112 BevelOuter = bvNone
113 TabOrder = 0
114 Visible = False
115 OnEnter = pnlInstructEnter
116 OnExit = pnlInstructExit
117 object btnUnits: TSpeedButton
118 Left = 86
119 Top = 1
120 Width = 63
121 Height = 15
122 Caption = 'TABLET(S)'
123 Flat = True
124 Glyph.Data = {
125 AE000000424DAE0000000000000076000000280000000E000000070000000100
126 0400000000003800000000000000000000001000000010000000000000000000
127 8000008000000080800080000000800080008080000080808000C0C0C0000000
128 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
129 330033333333333333003330333333733300330003333F87330030000033FFFF
130 F30033333333333333003333333333333300}
131 Layout = blGlyphRight
132 NumGlyphs = 2
133 Spacing = 0
134 OnClick = btnUnitsClick
135 end
136 object cboInstruct: TORComboBox
137 Left = -1
138 Top = -1
139 Width = 86
140 Height = 21
141 Style = orcsDropDown
142 AutoSelect = False
143 Color = clWindow
144 DropDownCount = 8
145 ItemHeight = 13
146 ItemTipColor = clWindow
147 ItemTipEnable = True
148 ListItemsOnly = False
149 LongList = False
150 LookupPiece = 0
151 MaxLength = 80
152 Sorted = False
153 SynonymChars = '<>'
154 TabOrder = 0
155 CharsNeedMatch = 1
156 end
157 end
158 object pnlDays: TPanel [7]
159 Left = 6
160 Top = 201
161 Width = 67
162 Height = 21
163 BevelOuter = bvNone
164 TabOrder = 3
165 Visible = False
166 OnEnter = pnlDaysEnter
167 OnExit = pnlDaysExit
168 object Label1: TLabel
169 Left = 43
170 Top = 4
171 Width = 22
172 Height = 13
173 Caption = 'days'
174 end
175 object txtDays: TCaptionEdit
176 Left = 0
177 Top = 0
178 Width = 25
179 Height = 21
180 AutoSelect = False
181 TabOrder = 0
182 Text = '0'
183 OnChange = txtDaysChange
184 Caption = 'days'
185 end
186 object UpDown2: TUpDown
187 Left = 25
188 Top = 0
189 Width = 15
190 Height = 21
191 Associate = txtDays
192 Max = 999
193 TabOrder = 1
194 end
195 end
196 object cmdInsert: TButton [8]
197 Left = 6
198 Top = 149
199 Width = 79
200 Height = 17
201 Caption = 'Insert Row'
202 TabOrder = 7
203 OnClick = cmdInsertClick
204 end
205 object cmdRemove: TButton [9]
206 Left = 92
207 Top = 149
208 Width = 91
209 Height = 17
210 Caption = 'Remove Row'
211 TabOrder = 8
212 OnClick = cmdRemoveClick
213 end
214 inherited DKLanguageController1: TDKLanguageController
215 LangData = {
216 0F0066726D4F444D6564436F6D706C6578010100000001000000070043617074
217 696F6E01100000000600426576656C3100000800677264446F73657300000500
218 636D644F4B010100000002000000070043617074696F6E000900636D6443616E
219 63656C010100000003000000070043617074696F6E00080063626F526F757465
220 00000B0063626F5363686564756C6500000B00706E6C496E7374727563740000
221 080062746E556E697473010100000004000000070043617074696F6E000B0063
222 626F496E73747275637400000700706E6C44617973000006004C6162656C3101
223 0100000005000000070043617074696F6E000700747874446179730101000000
224 06000000070043617074696F6E0007005570446F776E3200000900636D64496E
225 73657274010100000007000000070043617074696F6E000900636D6452656D6F
226 7665010100000008000000070043617074696F6E000800706F70556E69747300
227 00}
228 end
229 object popUnits: TPopupMenu
230 AutoPopup = False
231 Left = 109
232 Top = 193
233 end
234end
Note: See TracBrowser for help on using the repository browser.