68 lines
1.3 KiB
Plaintext
68 lines
1.3 KiB
Plaintext
inherited frmEffectDate: TfrmEffectDate
|
|
Left = 335
|
|
Top = 133
|
|
BorderIcons = []
|
|
BorderStyle = bsDialog
|
|
Caption = 'Discharge Date'
|
|
ClientHeight = 127
|
|
ClientWidth = 254
|
|
Position = poScreenCenter
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Label2: TLabel
|
|
Left = 68
|
|
Top = 48
|
|
Width = 68
|
|
Height = 13
|
|
Caption = 'Effective Date'
|
|
end
|
|
object Label3: TStaticText
|
|
Left = 8
|
|
Top = 8
|
|
Width = 244
|
|
Height = 17
|
|
Caption = 'Enter the date this discharge will become effective.'
|
|
TabOrder = 3
|
|
end
|
|
object Label4: TStaticText
|
|
Left = 8
|
|
Top = 22
|
|
Width = 224
|
|
Height = 17
|
|
Caption = '(This aids pharmacy in preparing prescriptions.)'
|
|
TabOrder = 4
|
|
end
|
|
object calEffective: TORDateBox
|
|
Left = 68
|
|
Top = 62
|
|
Width = 120
|
|
Height = 21
|
|
TabOrder = 0
|
|
Text = 'Today'
|
|
DateOnly = True
|
|
RequireTime = False
|
|
Caption = 'Effective Date'
|
|
end
|
|
object cmdOK: TButton
|
|
Left = 51
|
|
Top = 95
|
|
Width = 72
|
|
Height = 21
|
|
Caption = 'OK'
|
|
Default = True
|
|
TabOrder = 1
|
|
OnClick = cmdOKClick
|
|
end
|
|
object cmdCancel: TButton
|
|
Left = 133
|
|
Top = 95
|
|
Width = 72
|
|
Height = 21
|
|
Cancel = True
|
|
Caption = 'Cancel'
|
|
TabOrder = 2
|
|
OnClick = cmdCancelClick
|
|
end
|
|
end
|