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

192 lines
5.1 KiB
Plaintext

inherited frmSaveQuickOrder: TfrmSaveQuickOrder
Left = 308
Top = 171
Width = 363
Height = 362
Caption = 'Add to Common List (Meds, Inpatient)'
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 355
Height = 113
Align = alTop
TabOrder = 0
object lblDisplayName: TLabel
Left = 8
Top = 70
Width = 261
Height = 13
Caption = 'Enter the name that should be used for this quick order.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object memOrder: TMemo
Left = 8
Top = 8
Width = 340
Height = 46
Color = clBtnFace
ReadOnly = True
TabOrder = 0
WantReturns = False
end
object txtDisplayName: TCaptionEdit
Left = 8
Top = 84
Width = 340
Height = 21
TabOrder = 1
OnChange = txtDisplayNameChange
Caption = 'Enter the name that should be used for this quick order.'
end
end
object Panel2: TPanel
Left = 0
Top = 113
Width = 355
Height = 181
Align = alClient
TabOrder = 1
object lblQuickList: TLabel
Left = 8
Top = 8
Width = 136
Height = 13
Caption = 'Meds, Inpatient Common List'
end
object lstQuickList: TORListBox
Left = 8
Top = 30
Width = 270
Height = 141
ItemHeight = 13
ParentShowHint = False
ShowHint = True
TabOrder = 0
Caption = 'Meds, Inpatient Common List'
ItemTipColor = clWindow
LongList = False
Pieces = '2'
end
object pnlUpButton: TKeyClickPanel
Left = 292
Top = 42
Width = 30
Height = 27
BevelOuter = bvNone
Caption = 'Display selected medication earlier'
TabOrder = 2
TabStop = True
OnClick = cmdUpClick
OnEnter = pnlUpButtonEnter
OnExit = pnlUpButtonExit
DesignSize = (
30
27)
object cmdUp: TSpeedButton
Left = 0
Top = 0
Width = 30
Height = 24
Anchors = [akLeft, akTop, akRight, akBottom]
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333333333333333333333333CCCCC33333333333CCCCC33
333333333CCCCC33333333333CCCCC33333333333CCCCC33333333333CCCCC33
3333333CCCCCCCCC33333333CCCCCCC3333333333CCCCC333333333333CCC333
33333333333C3333333333333333333333333333333333333333}
OnClick = cmdUpClick
end
end
object pnlDownButton: TKeyClickPanel
Left = 292
Top = 76
Width = 31
Height = 26
BevelOuter = bvNone
Caption = 'Display selected medication later'
TabOrder = 3
TabStop = True
OnClick = cmdDownClick
OnEnter = pnlUpButtonEnter
OnExit = pnlUpButtonExit
DesignSize = (
31
26)
object cmdDown: TSpeedButton
Left = 0
Top = 1
Width = 31
Height = 22
Anchors = [akLeft, akTop, akRight, akBottom]
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333C33333333333333CCC333
333333333CCCCC3333333333CCCCCCC33333333CCCCCCCCC333333333CCCCC33
333333333CCCCC33333333333CCCCC33333333333CCCCC33333333333CCCCC33
333333333CCCCC33333333333333333333333333333333333333}
OnClick = cmdDownClick
end
end
object cmdRename: TButton
Left = 286
Top = 128
Width = 62
Height = 21
Caption = 'Rename'
TabOrder = 4
OnClick = cmdRenameClick
end
object cmdDelete: TButton
Left = 286
Top = 153
Width = 62
Height = 21
Caption = 'Delete'
TabOrder = 5
OnClick = cmdDeleteClick
end
end
object Panel3: TPanel
Left = 0
Top = 294
Width = 355
Height = 41
Align = alBottom
TabOrder = 2
object cmdOK: TButton
Left = 98
Top = 11
Width = 72
Height = 21
Caption = 'OK'
TabOrder = 0
OnClick = cmdOKClick
end
object cmdCancel: TButton
Left = 186
Top = 11
Width = 72
Height = 21
Cancel = True
Caption = 'Cancel'
TabOrder = 1
OnClick = cmdCancelClick
end
end
end