unit1.dfm

<<C++Builder 6实用编程100例>>随书光盘

object Form1: TForm1
  Left = 232
  Top = 175
  Width = 584
  Height = 403
  Caption = 'Pen & Brush'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 16
    Top = 160
    Width = 545
    Height = 201
    OnMouseDown = Image1MouseDown
    OnMouseUp = Image1MouseUp
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 8
    Width = 217
    Height = 145
    Caption = 'Pen'
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 32
      Width = 24
      Height = 13
      Caption = 'Color'
    end
    object Label2: TLabel
      Left = 16
      Top = 72
      Width = 23
      Height = 13
      Caption = 'Style'
    end
    object Label3: TLabel
      Left = 16
      Top = 112
      Width = 28
      Height = 13
      Caption = 'Width'
    end
    object ComboBox1: TComboBox
      Left = 56
      Top = 24
      Width = 145
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 0
      Text = #32418#30340
      OnChange = ComboBox1Change
      Items.Strings = (
        #32418#30340
        #40644#33394
        #34013#33394
        #30333#33394
        #40657#33394
        #32043#33394
        #32511#33394
        #28784#33394)
    end
    object ComboBox2: TComboBox
      Left = 56
      Top = 64
      Width = 145
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 1
      Text = '-----------------------------'
      OnChange = ComboBox2Change
      Items.Strings = (
        '-----------------------------'
        '--  --  --  --  --  --  --  --'
        '- - - - - - - - - - - - - - - '
        '-- - - -- - - -- - - -- - - --'
        '-- - -- - -- - -- - -- - -- -'
        #19981#32472#21046#32447
        #25238#21160#33394)
    end
    object Edit1: TEdit
      Left = 56
      Top = 104
      Width = 129
      Height = 21
      TabOrder = 2
      Text = '1'
      OnChange = Edit1Change
    end
    object UpDown1: TUpDown
      Left = 185
      Top = 104
      Width = 15
      Height = 21
      Associate = Edit1
      Min = 0
      Position = 1
      TabOrder = 3
      Wrap = False
    end
  end
  object GroupBox2: TGroupBox
    Left = 247
    Top = 8
    Width = 314
    Height = 145
    Caption = 'Brush'
    TabOrder = 1
    object RadioGroup1: TRadioGroup
      Left = 12
      Top = 16
      Width = 117
      Height = 121
      Caption = ' Color '
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        #32418#33394
        #40644#33394
        #34013#33394
        #30333#33394
        #40657#33394
        #32043#33394
        #32511#33394
        #28784#33394)
      TabOrder = 0
      OnClick = RadioGroup1Click
    end
    object RadioGroup2: TRadioGroup
      Left = 136
      Top = 16
      Width = 169
      Height = 121
      Caption = ' Style '
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        'bsSolid'
        'bsClear'
        'bsHorizontal'
        'bsVertical'
        'bsCross'
        'bsDiagCross'
        'bsFDialog'
        'bsBDialog')
      TabOrder = 1
      OnClick = RadioGroup2Click
    end
  end
end