source: cprs/branches/tmg-cprs/CPRS-Chart/Orders/fOrderSaveQuick.~dfm@ 793

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

Initial upload of TMG-CPRS 1.0.26.69

File size: 6.1 KB
RevLine 
[453]1inherited frmSaveQuickOrder: TfrmSaveQuickOrder
2 Left = 308
3 Top = 171
4 Width = 363
5 Height = 362
6 Caption = 'Add to Common List (Meds, Inpatient)'
7 Position = poScreenCenter
8 OnCreate = FormCreate
9 PixelsPerInch = 96
10 TextHeight = 13
11 object Panel1: TPanel [0]
12 Left = 0
13 Top = 0
14 Width = 355
15 Height = 113
16 Align = alTop
17 TabOrder = 0
18 object lblDisplayName: TLabel
19 Left = 8
20 Top = 70
21 Width = 261
22 Height = 13
23 Caption = 'Enter the name that should be used for this quick order.'
24 Font.Charset = DEFAULT_CHARSET
25 Font.Color = clWindowText
26 Font.Height = -11
27 Font.Name = 'MS Sans Serif'
28 Font.Style = []
29 ParentFont = False
30 end
31 object memOrder: TMemo
32 Left = 8
33 Top = 8
34 Width = 340
35 Height = 46
36 Color = clBtnFace
37 ReadOnly = True
38 TabOrder = 0
39 WantReturns = False
40 end
41 object txtDisplayName: TCaptionEdit
42 Left = 8
43 Top = 84
44 Width = 340
45 Height = 21
46 TabOrder = 1
47 OnChange = txtDisplayNameChange
48 Caption = 'Enter the name that should be used for this quick order.'
49 end
50 end
51 object Panel2: TPanel [1]
52 Left = 0
53 Top = 113
54 Width = 355
55 Height = 174
56 Align = alClient
57 TabOrder = 1
58 object lblQuickList: TLabel
59 Left = 8
60 Top = 8
61 Width = 136
62 Height = 13
63 Caption = 'Meds, Inpatient Common List'
64 end
65 object lstQuickList: TORListBox
66 Left = 8
67 Top = 30
68 Width = 270
69 Height = 141
70 ItemHeight = 13
71 ParentShowHint = False
72 ShowHint = True
73 TabOrder = 0
74 Caption = 'Meds, Inpatient Common List'
75 ItemTipColor = clWindow
76 LongList = False
77 Pieces = '2'
78 end
79 object pnlUpButton: TKeyClickPanel
80 Left = 292
81 Top = 42
82 Width = 30
83 Height = 27
84 BevelOuter = bvNone
85 Caption = 'Display selected medication earlier'
86 TabOrder = 2
87 TabStop = True
88 OnClick = cmdUpClick
89 OnEnter = pnlUpButtonEnter
90 OnExit = pnlUpButtonExit
91 DesignSize = (
92 30
93 27)
94 object cmdUp: TSpeedButton
95 Left = 0
96 Top = 0
97 Width = 30
98 Height = 24
99 Anchors = [akLeft, akTop, akRight, akBottom]
100 Glyph.Data = {
101 F6000000424DF600000000000000760000002800000010000000100000000100
102 0400000000008000000000000000000000001000000010000000000000000000
103 8000008000000080800080000000800080008080000080808000C0C0C0000000
104 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
105 33333333333333333333333333333333333333333CCCCC33333333333CCCCC33
106 333333333CCCCC33333333333CCCCC33333333333CCCCC33333333333CCCCC33
107 3333333CCCCCCCCC33333333CCCCCCC3333333333CCCCC333333333333CCC333
108 33333333333C3333333333333333333333333333333333333333}
109 OnClick = cmdUpClick
110 end
111 end
112 object pnlDownButton: TKeyClickPanel
113 Left = 292
114 Top = 76
115 Width = 31
116 Height = 26
117 BevelOuter = bvNone
118 Caption = 'Display selected medication later'
119 TabOrder = 3
120 TabStop = True
121 OnClick = cmdDownClick
122 OnEnter = pnlUpButtonEnter
123 OnExit = pnlUpButtonExit
124 DesignSize = (
125 31
126 26)
127 object cmdDown: TSpeedButton
128 Left = 0
129 Top = 1
130 Width = 31
131 Height = 22
132 Anchors = [akLeft, akTop, akRight, akBottom]
133 Glyph.Data = {
134 F6000000424DF600000000000000760000002800000010000000100000000100
135 0400000000008000000000000000000000001000000010000000000000000000
136 8000008000000080800080000000800080008080000080808000C0C0C0000000
137 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
138 3333333333333333333333333333333333333333333C33333333333333CCC333
139 333333333CCCCC3333333333CCCCCCC33333333CCCCCCCCC333333333CCCCC33
140 333333333CCCCC33333333333CCCCC33333333333CCCCC33333333333CCCCC33
141 333333333CCCCC33333333333333333333333333333333333333}
142 OnClick = cmdDownClick
143 end
144 end
145 object cmdRename: TButton
146 Left = 286
147 Top = 128
148 Width = 62
149 Height = 21
150 Caption = 'Rename'
151 TabOrder = 4
152 OnClick = cmdRenameClick
153 end
154 object cmdDelete: TButton
155 Left = 286
156 Top = 153
157 Width = 62
158 Height = 21
159 Caption = 'Delete'
160 TabOrder = 5
161 OnClick = cmdDeleteClick
162 end
163 end
164 object Panel3: TPanel [2]
165 Left = 0
166 Top = 287
167 Width = 355
168 Height = 41
169 Align = alBottom
170 TabOrder = 2
171 object cmdOK: TButton
172 Left = 98
173 Top = 11
174 Width = 72
175 Height = 21
176 Caption = 'OK'
177 TabOrder = 0
178 OnClick = cmdOKClick
179 end
180 object cmdCancel: TButton
181 Left = 186
182 Top = 11
183 Width = 72
184 Height = 21
185 Cancel = True
186 Caption = 'Cancel'
187 TabOrder = 1
188 OnClick = cmdCancelClick
189 end
190 end
191 inherited DKLanguageController1: TDKLanguageController
192 LangData = {
193 110066726D53617665517569636B4F7264657201010000000100000007004361
194 7074696F6E0110000000060050616E656C3100000E006C626C446973706C6179
195 4E616D65010100000002000000070043617074696F6E0008006D656D4F726465
196 7200000E00747874446973706C61794E616D6501010000000300000007004361
197 7074696F6E00060050616E656C3200000C006C626C517569636B4C6973740101
198 00000004000000070043617074696F6E000C006C7374517569636B4C69737401
199 0100000005000000070043617074696F6E000B00706E6C5570427574746F6E01
200 0100000006000000070043617074696F6E000500636D64557000000D00706E6C
201 446F776E427574746F6E010100000007000000070043617074696F6E00070063
202 6D64446F776E00000900636D6452656E616D6501010000000800000007004361
203 7074696F6E000900636D6444656C657465010100000009000000070043617074
204 696F6E00060050616E656C3300000500636D644F4B01010000000A0000000700
205 43617074696F6E000900636D6443616E63656C01010000000B00000007004361
206 7074696F6E00}
207 end
208end
Note: See TracBrowser for help on using the repository browser.