VistA-cprs/CPRS-Chart/Orders/fOrdersDC.dfm

98 lines
2.1 KiB
Plaintext
Raw Normal View History

inherited frmDCOrders: TfrmDCOrders
Left = 316
Top = 226
Width = 433
Height = 316
Caption = 'Discontinue / Cancel Orders'
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 0
Top = 0
Width = 425
Height = 13
Align = alTop
Caption = 'The following orders will be discontinued -'
WordWrap = True
end
object Panel1: TPanel
Left = 0
Top = 13
Width = 425
Height = 188
Align = alClient
TabOrder = 0
object lstOrders: TCaptionListBox
Left = 1
Top = 1
Width = 423
Height = 186
Style = lbOwnerDrawVariable
Align = alClient
ItemHeight = 13
TabOrder = 0
OnDrawItem = lstOrdersDrawItem
OnMeasureItem = lstOrdersMeasureItem
Caption = 'The following orders will be discontinued '
end
end
object Panel2: TPanel
Left = 0
Top = 201
Width = 425
Height = 88
Align = alBottom
TabOrder = 1
DesignSize = (
425
88)
object lblReason: TLabel
Left = 1
Top = 1
Width = 423
Height = 13
Align = alTop
Caption = 'Reason for Discontinue (select one)'
end
object lstReason: TORListBox
Left = 3
Top = 19
Width = 218
Height = 60
ItemHeight = 13
ParentShowHint = False
ShowHint = True
Sorted = True
TabOrder = 0
Caption = 'Reason for Discontinue (select one)'
ItemTipColor = clWindow
LongList = False
Pieces = '2'
end
object cmdOK: TButton
Left = 267
Top = 54
Width = 72
Height = 21
Anchors = [akLeft, akBottom]
Caption = 'OK'
Default = True
TabOrder = 2
OnClick = cmdOKClick
end
object cmdCancel: TButton
Left = 347
Top = 54
Width = 72
Height = 21
Anchors = [akRight, akBottom]
Cancel = True
Caption = 'Cancel'
TabOrder = 3
OnClick = cmdCancelClick
end
end
end