source: cprs/branches/GUI-config/CPRS-Lib/ORDtTm.dfm@ 881

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

New WorldVistA Config Utility
File size: 5.6 KB
RevLine 
[476]1object ORfrmDtTm: TORfrmDtTm
2 Left = 550
3 Top = 474
4 BorderIcons = []
5 BorderStyle = bsDialog
6 Caption = 'Select Date/Time'
7 ClientHeight = 235
8 ClientWidth = 398
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 = True
16 Position = poScreenCenter
17 OnCreate = FormCreate
18 PixelsPerInch = 96
19 TextHeight = 13
20 object bvlFrame: TBevel
21 Left = 8
22 Top = 8
23 Width = 302
24 Height = 221
25 Shape = bsFrame
26 Style = bsRaised
27 end
28 object lblDate: TPanel
29 Left = 18
30 Top = 18
31 Width = 192
32 Height = 22
33 BevelOuter = bvNone
34 BorderStyle = bsSingle
35 Caption = 'October 20, 1998'
36 Color = clWindow
37 Font.Charset = DEFAULT_CHARSET
38 Font.Color = clWindowText
39 Font.Height = -11
40 Font.Name = 'MS Sans Serif'
41 Font.Style = [fsBold]
42 ParentFont = False
43 TabOrder = 9
44 object bvlRButton: TBevel
45 Left = 160
46 Top = 0
47 Width = 2
48 Height = 18
49 Align = alRight
50 Style = bsRaised
51 end
52 object pnlPrevMonth: TPanel
53 Left = 0
54 Top = 0
55 Width = 27
56 Height = 18
57 Align = alLeft
58 BevelWidth = 2
59 TabOrder = 0
60 OnClick = imgPrevMonthClick
61 OnMouseDown = imgPrevMonthMouseDown
62 OnMouseUp = imgPrevMonthMouseUp
63 object imgPrevMonth: TImage
64 Left = 2
65 Top = 2
66 Width = 23
67 Height = 14
68 Align = alClient
69 Center = True
70 Picture.Data = {
71 07544269746D6170EE000000424DEE0000000000000076000000280000000F00
72 00000F0000000100040000000000780000000000000000000000100000001000
73 0000000000000000800000800000008080008000000080008000808000008080
74 8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
75 FF00888888888888888088888888888888808888888888880880888888888800
76 08808888888800CC088088888800CCCC0880888800CCCCCC08808800CCCCCCCC
77 0880888800CCCCCC088088888800CCCC08808888888800CC0880888888888800
78 0880888888888888088088888888888888808888888888888880}
79 OnClick = imgPrevMonthClick
80 OnMouseDown = imgPrevMonthMouseDown
81 OnMouseUp = imgPrevMonthMouseUp
82 end
83 end
84 object pnlNextMonth: TPanel
85 Left = 162
86 Top = 0
87 Width = 26
88 Height = 18
89 Align = alRight
90 BevelWidth = 2
91 TabOrder = 1
92 OnClick = imgNextMonthClick
93 OnMouseDown = imgNextMonthMouseDown
94 OnMouseUp = imgNextMonthMouseUp
95 object imgNextMonth: TImage
96 Left = 2
97 Top = 2
98 Width = 22
99 Height = 14
100 Align = alClient
101 Center = True
102 Picture.Data = {
103 07544269746D6170EE000000424DEE0000000000000076000000280000000F00
104 00000F0000000100040000000000780000000000000000000000100000001000
105 0000000000000000800000800000008080008000000080008000808000008080
106 8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
107 FF00888888888888888088888888888888808808888888888880880008888888
108 8880880CC00888888880880CCCC008888880880CCCCCC0088880880CCCCCCCC0
109 0880880CCCCCC0088880880CCCC008888880880CC00888888880880008888888
110 8880880888888888888088888888888888808888888888888880}
111 OnClick = imgNextMonthClick
112 OnMouseDown = imgNextMonthMouseDown
113 OnMouseUp = imgNextMonthMouseUp
114 end
115 end
116 end
117 object txtTime: TEdit
118 Left = 218
119 Top = 18
120 Width = 81
121 Height = 21
122 Font.Charset = DEFAULT_CHARSET
123 Font.Color = clWindowText
124 Font.Height = -11
125 Font.Name = 'MS Sans Serif'
126 Font.Style = [fsBold]
127 ParentFont = False
128 TabOrder = 2
129 OnChange = txtTimeChange
130 end
131 object lstHour: TListBox
132 Left = 218
133 Top = 38
134 Width = 45
135 Height = 160
136 ItemHeight = 13
137 Items.Strings = (
138 ' 0'
139 ' 1'
140 ' 2'
141 ' 3'
142 ' 4'
143 ' 5'
144 ' 6'
145 ' 7'
146 ' 8'
147 ' 9'
148 '10'
149 '11'
150 '12 --'
151 '13'
152 '14'
153 '15'
154 '16'
155 '17'
156 '18'
157 '19'
158 '20'
159 '21'
160 '22'
161 '23')
162 TabOrder = 3
163 OnClick = lstHourClick
164 end
165 object lstMinute: TListBox
166 Left = 266
167 Top = 38
168 Width = 33
169 Height = 160
170 ItemHeight = 13
171 Items.Strings = (
172 ':00 --'
173 ':05'
174 ':10'
175 ':15 --'
176 ':20'
177 ':25'
178 ':30 --'
179 ':35'
180 ':40'
181 ':45 --'
182 ':50'
183 ':55')
184 TabOrder = 4
185 OnClick = lstMinuteClick
186 end
187 object cmdOK: TButton
188 Left = 318
189 Top = 8
190 Width = 72
191 Height = 21
192 Caption = 'OK'
193 TabOrder = 7
194 OnClick = cmdOKClick
195 end
196 object cmdCancel: TButton
197 Left = 318
198 Top = 37
199 Width = 72
200 Height = 21
201 Caption = 'Cancel'
202 TabOrder = 8
203 OnClick = cmdCancelClick
204 end
205 object calSelect: TORCalendar
206 Left = 18
207 Top = 38
208 Width = 192
209 Height = 160
210 StartOfWeek = 0
211 TabOrder = 0
212 UseCurrentDate = False
213 OnChange = calSelectChange
214 end
215 object cmdToday: TButton
216 Left = 18
217 Top = 200
218 Width = 42
219 Height = 17
220 Caption = 'Today'
221 TabOrder = 1
222 OnClick = cmdTodayClick
223 end
224 object cmdNow: TButton
225 Left = 218
226 Top = 200
227 Width = 31
228 Height = 17
229 Caption = 'Now'
230 TabOrder = 5
231 OnClick = cmdNowClick
232 end
233 object cmdMidnight: TButton
234 Left = 249
235 Top = 200
236 Width = 50
237 Height = 17
238 Caption = 'Midnight'
239 TabOrder = 6
240 OnClick = cmdMidnightClick
241 end
242end
Note: See TracBrowser for help on using the repository browser.