113 lines
2.5 KiB
Plaintext
113 lines
2.5 KiB
Plaintext
inherited frmLabCollectTimes: TfrmLabCollectTimes
|
|
Left = 332
|
|
Top = 310
|
|
BorderIcons = []
|
|
Caption = 'Future Lab Collect Times'
|
|
ClientHeight = 170
|
|
ClientWidth = 439
|
|
Position = poScreenCenter
|
|
OnCreate = FormCreate
|
|
ExplicitWidth = 447
|
|
ExplicitHeight = 197
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object lblFutureTimes: TMemo [0]
|
|
Left = 211
|
|
Top = 113
|
|
Width = 129
|
|
Height = 46
|
|
TabStop = False
|
|
BorderStyle = bsNone
|
|
Color = clBtnFace
|
|
Lines.Strings = (
|
|
'Select a date and a routine '
|
|
'lab collect time for that '
|
|
'date.')
|
|
ReadOnly = True
|
|
TabOrder = 5
|
|
end
|
|
object calLabCollect: TORDateBox [1]
|
|
Left = 241
|
|
Top = 22
|
|
Width = 158
|
|
Height = 21
|
|
TabOrder = 0
|
|
Visible = False
|
|
OnChange = calLabCollectChange
|
|
DateOnly = True
|
|
RequireTime = False
|
|
end
|
|
object lstLabCollTimes: TORListBox [2]
|
|
Left = 210
|
|
Top = 6
|
|
Width = 218
|
|
Height = 98
|
|
ItemHeight = 13
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 1
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
Pieces = '2'
|
|
end
|
|
object cmdOK: TButton [3]
|
|
Left = 353
|
|
Top = 112
|
|
Width = 75
|
|
Height = 21
|
|
Caption = 'OK'
|
|
TabOrder = 2
|
|
OnClick = cmdOKClick
|
|
end
|
|
object cmdCancel: TButton [4]
|
|
Left = 353
|
|
Top = 139
|
|
Width = 75
|
|
Height = 21
|
|
Cancel = True
|
|
Caption = 'Cancel'
|
|
TabOrder = 3
|
|
OnClick = cmdCancelClick
|
|
end
|
|
object calMonth: TMonthCalendar [5]
|
|
Left = 8
|
|
Top = 5
|
|
Width = 190
|
|
Height = 153
|
|
CalColors.TitleBackColor = clBtnFace
|
|
CalColors.TitleTextColor = clBtnText
|
|
CalColors.MonthBackColor = clWindow
|
|
CalColors.TrailingTextColor = clGrayText
|
|
Date = 36507.853976585640000000
|
|
ShowTodayCircle = False
|
|
TabOrder = 4
|
|
TabStop = True
|
|
OnClick = calMonthClick
|
|
OnKeyDown = calMonthKeyDown
|
|
end
|
|
inherited amgrMain: TVA508AccessibilityManager
|
|
Data = (
|
|
(
|
|
'Component = lblFutureTimes'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = calLabCollect'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lstLabCollTimes'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdOK'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdCancel'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = calMonth'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = frmLabCollectTimes'
|
|
'Status = stsDefault'))
|
|
end
|
|
end
|