object QuanSelectForm: TQuanSelectForm Left = 401 Top = 109 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'QuanSelectForm' ClientHeight = 278 ClientWidth = 518 Font.Color = clWindowText Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] OnShow = FormShow PixelsPerInch = 120 TextHeight = 16 object Frame: TGroupBox Left = 10 Top = 15 Width = 498 Height = 213 Caption = 'QUANTITY PRICING' Font.Color = clMaroon Font.Height = -17 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 object LabelDescription: TLabel Left = 16 Top = 30 Width = 68 Height = 16 Caption = 'Description' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Price1: TLabel Left = 286 Top = 30 Width = 7 Height = 16 Alignment = taRightJustify Caption = '1' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Price2: TLabel Left = 349 Top = 30 Width = 7 Height = 16 Alignment = taRightJustify Caption = '2' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Price3: TLabel Left = 411 Top = 30 Width = 7 Height = 16 Alignment = taRightJustify Caption = '3' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Price4: TLabel Left = 474 Top = 30 Width = 7 Height = 16 Alignment = taRightJustify Caption = '4' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object MultiPriceBox: TMPGMultiPriceBox Left = 10 Top = 49 Width = 479 Height = 152 TabOrder = 0 end end object OKButton: TButton Left = 441 Top = 240 Width = 69 Height = 31 Cancel = True Caption = '&OK' Default = True ModalResult = 2 TabOrder = 0 end end