mainform.dfm

电脑销售管理系统

object Form1: TForm1
  Left = 131
  Top = 117
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Windows XP Menu Demo Program'
  ClientHeight = 272
  ClientWidth = 384
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Serif'
  Font.Style = []
  Menu = MainMenu2
  OldCreateOrder = False
  PopupMenu = PopupMenu2
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object GroupBox1: TGroupBox
    Left = 0
    Top = 28
    Width = 384
    Height = 244
    Align = alClient
    TabOrder = 1
    object GroupBox2: TGroupBox
      Left = 187
      Top = 18
      Width = 195
      Height = 224
      Align = alClient
      Caption = ' Other: '
      TabOrder = 0
      object Label2: TLabel
        Left = 8
        Top = 24
        Width = 111
        Height = 16
        Alignment = taRightJustify
        Caption = 'Menu Bitmap Width:'
      end
      object Label4: TLabel
        Left = 17
        Top = 56
        Width = 102
        Height = 16
        Alignment = taRightJustify
        Caption = 'Menu Item Height:'
      end
      object GroupBox3: TGroupBox
        Left = 2
        Top = 145
        Width = 191
        Height = 77
        Align = alBottom
        Anchors = [akLeft, akTop, akRight, akBottom]
        TabOrder = 4
        object ListBox1: TListBox
          Left = 2
          Top = 18
          Width = 187
          Height = 57
          Align = alClient
          BorderStyle = bsNone
          Color = clBtnFace
          ItemHeight = 16
          Items.Strings = (
            'Select Font Color'
            'Select Border Color'
            'Select Color'
            'Menu Bar Color'
            'MenuItem Icon BackColor'
            'Separator Color'
            'Color')
          TabOrder = 0
          OnDblClick = ListBox1DblClick
        end
      end
      object SpinEdit1: TSpinEdit
        Left = 120
        Top = 19
        Width = 73
        Height = 26
        MaxValue = 0
        MinValue = 0
        TabOrder = 0
        Value = 20
        OnChange = SpinEdit1Change
      end
      object SpinEdit3: TSpinEdit
        Left = 120
        Top = 51
        Width = 73
        Height = 26
        MaxValue = 0
        MinValue = 0
        TabOrder = 1
        Value = 20
        OnChange = SpinEdit3Change
      end
      object CheckBox1: TCheckBox
        Left = 8
        Top = 80
        Width = 81
        Height = 17
        Caption = '3D Style!'
        Checked = True
        State = cbChecked
        TabOrder = 2
        OnClick = CheckBox1Click
      end
      object CheckBox2: TCheckBox
        Left = 16
        Top = 144
        Width = 97
        Height = 17
        Caption = 'Use Sys Color'
        Checked = True
        State = cbChecked
        TabOrder = 3
        OnClick = CheckBox2Click
      end
      object CheckBox3: TCheckBox
        Left = 96
        Top = 80
        Width = 97
        Height = 17
        Caption = 'Gradient'
        Checked = True
        State = cbChecked
        TabOrder = 5
        OnClick = CheckBox3Click
      end
      object CheckBox5: TCheckBox
        Left = 8
        Top = 104
        Width = 81
        Height = 17
        Caption = 'Flat Menu'
        TabOrder = 6
        OnClick = CheckBox5Click
      end
      object CheckBox6: TCheckBox
        Left = 96
        Top = 104
        Width = 97
        Height = 17
        Caption = 'Auto Detect'
        Checked = True
        State = cbChecked
        TabOrder = 7
        OnClick = CheckBox6Click
      end
      object BitBtn2: TBitBtn
        Left = 8
        Top = 120
        Width = 177
        Height = 25
        Caption = 'Font...'
        TabOrder = 8
        OnClick = BitBtn2Click
      end
    end
    object GroupBox4: TGroupBox
      Left = 2
      Top = 18
      Width = 185
      Height = 224
      Align = alLeft
      Caption = ' Bar: '
      TabOrder = 1
      object Label1: TLabel
        Left = 56
        Top = 16
        Width = 30
        Height = 16
        Alignment = taRightJustify
        Caption = 'Style:'
      end
      object Label3: TLabel
        Left = 27
        Top = 48
        Width = 59
        Height = 16
        Alignment = taRightJustify
        Caption = 'Bar Width:'
      end
      object Label5: TLabel
        Left = 18
        Top = 72
        Width = 68
        Height = 16
        Alignment = taRightJustify
        Caption = 'Bar Caption:'
      end
      object ComboBox1: TComboBox
        Left = 88
        Top = 16
        Width = 89
        Height = 21
        Style = csDropDownList
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ParentFont = False
        TabOrder = 0
        OnChange = ComboBox1Change
        Items.Strings = (
          'Text'
          'Bitmap'
          '(None)')
      end
      object SpinEdit2: TSpinEdit
        Left = 88
        Top = 43
        Width = 89
        Height = 26
        MaxValue = 0
        MinValue = 0
        TabOrder = 1
        Value = 22
        OnChange = SpinEdit2Change
      end
      object Edit2: TEdit
        Left = 88
        Top = 72
        Width = 89
        Height = 24
        TabOrder = 2
        Text = 'Windows XP BarMenu'
        OnChange = Edit2Change
      end
      object BitBtn1: TBitBtn
        Left = 8
        Top = 96
        Width = 97
        Height = 25
        Caption = 'Load Bar Bitmap'
        TabOrder = 3
        OnClick = BitBtn1Click
      end
      object CheckBox7: TCheckBox
        Left = 112
        Top = 102
        Width = 65
        Height = 17
        Caption = 'Stretch'
        TabOrder = 4
        OnClick = CheckBox7Click
      end
      object GroupBox5: TGroupBox