home *** CD-ROM | disk | FTP | other *** search
- object ChangePriceForm: TChangePriceForm
- Left = 199
- Top = 118
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Change Price '
- ClientHeight = 168
- ClientWidth = 376
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- PixelsPerInch = 120
- TextHeight = 16
- object PriceChoicesGroupBox: TGroupBox
- Left = 0
- Top = 0
- Width = 376
- Height = 105
- Align = alTop
- Caption = 'Price Choices'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- object optRetailPrice: TRadioButton
- Left = 16
- Top = 32
- Width = 145
- Height = 17
- Caption = 'Retail Price'
- Checked = True
- TabOrder = 0
- TabStop = True
- end
- object optDiscountPrice1: TRadioButton
- Left = 16
- Top = 72
- Width = 161
- Height = 17
- Caption = 'Discount Price1'
- TabOrder = 1
- end
- object optDiscountPrice2: TRadioButton
- Left = 192
- Top = 32
- Width = 169
- Height = 17
- Caption = 'Discount Price2'
- TabOrder = 2
- end
- object optDiscountPrice3: TRadioButton
- Left = 192
- Top = 72
- Width = 161
- Height = 17
- Caption = 'Discount Price3'
- TabOrder = 3
- end
- end
- object Panel1: TPanel
- Left = 0
- Top = 105
- Width = 376
- Height = 63
- Align = alClient
- TabOrder = 1
- object cmdOK: TBitBtn
- Left = 24
- Top = 24
- Width = 75
- Height = 25
- TabOrder = 0
- OnClick = cmdOKClick
- Kind = bkOK
- end
- object cmdCancel: TBitBtn
- Left = 280
- Top = 24
- Width = 75
- Height = 25
- TabOrder = 1
- OnClick = cmdCancelClick
- Kind = bkCancel
- end
- end
- end
-