116 lines
2.6 KiB
Plaintext
116 lines
2.6 KiB
Plaintext
inherited frmODBase: TfrmODBase
|
|
Left = 277
|
|
Top = 179
|
|
Width = 528
|
|
Height = 275
|
|
HorzScrollBar.Range = 500
|
|
HorzScrollBar.Tracking = True
|
|
HorzScrollBar.Visible = True
|
|
VertScrollBar.Range = 225
|
|
VertScrollBar.Visible = True
|
|
BorderIcons = [biSystemMenu]
|
|
Caption = ''
|
|
FormStyle = fsStayOnTop
|
|
OnClose = FormClose
|
|
OnCloseQuery = FormCloseQuery
|
|
OnCreate = FormCreate
|
|
OnKeyPress = FormKeyPress
|
|
ExplicitWidth = 528
|
|
ExplicitHeight = 275
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object memOrder: TCaptionMemo [0]
|
|
Left = 6
|
|
Top = 194
|
|
Width = 430
|
|
Height = 48
|
|
TabStop = False
|
|
Color = clCream
|
|
Ctl3D = True
|
|
ParentCtl3D = False
|
|
ReadOnly = True
|
|
ScrollBars = ssVertical
|
|
TabOrder = 0
|
|
Caption = 'Order'
|
|
end
|
|
object cmdAccept: TButton [1]
|
|
Left = 442
|
|
Top = 194
|
|
Width = 72
|
|
Height = 21
|
|
Caption = 'Accept Order'
|
|
TabOrder = 1
|
|
OnClick = cmdAcceptClick
|
|
end
|
|
object cmdQuit: TButton [2]
|
|
Left = 442
|
|
Top = 221
|
|
Width = 39
|
|
Height = 21
|
|
Cancel = True
|
|
Caption = 'Quit'
|
|
TabOrder = 2
|
|
OnClick = cmdQuitClick
|
|
end
|
|
object pnlMessage: TPanel [3]
|
|
Left = 24
|
|
Top = 176
|
|
Width = 381
|
|
Height = 44
|
|
BevelInner = bvRaised
|
|
BorderStyle = bsSingle
|
|
TabOrder = 3
|
|
Visible = False
|
|
OnExit = pnlMessageExit
|
|
OnMouseDown = pnlMessageMouseDown
|
|
OnMouseMove = pnlMessageMouseMove
|
|
object imgMessage: TImage
|
|
Left = 4
|
|
Top = 4
|
|
Width = 32
|
|
Height = 32
|
|
OnMouseUp = memMessageMouseUp
|
|
end
|
|
object memMessage: TRichEdit
|
|
Left = 40
|
|
Top = 4
|
|
Width = 332
|
|
Height = 32
|
|
Color = clInfoBk
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clInfoText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
ReadOnly = True
|
|
ScrollBars = ssVertical
|
|
TabOrder = 0
|
|
WantReturns = False
|
|
OnMouseDown = pnlMessageMouseDown
|
|
OnMouseMove = pnlMessageMouseMove
|
|
end
|
|
end
|
|
inherited amgrMain: TVA508AccessibilityManager
|
|
Data = (
|
|
(
|
|
'Component = memOrder'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdAccept'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdQuit'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlMessage'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = memMessage'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = frmODBase'
|
|
'Status = stsDefault'))
|
|
end
|
|
end
|