lazarus/examples/pen_brush/unit1.lfm

object Form1: TForm1
  Left = 350
  Height = 573
  Top = 215
  Width = 471
  HorzScrollBar.Page = 329
  VertScrollBar.Page = 506
  AutoScroll = True
  AutoSize = True
  Caption = 'Pen and Brush'
  ClientHeight = 573
  ClientWidth = 471
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  Position = poScreenCenter
  LCLVersion = '2.3.0.0'
  object PaintBox: TPaintBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 11
    Height = 169
    Top = 7
    Width = 449
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Left = 11
    BorderSpacing.Top = 7
    BorderSpacing.Right = 11
    OnPaint = PaintBoxPaint
  end
  object Label3: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = WidthCombo
    AnchorSideTop.Side = asrCenter
    Left = 18
    Height = 15
    Top = 269
    Width = 35
    BorderSpacing.Left = 7
    Caption = 'Width:'
  end
  object Label4: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = CapsCombo
    AnchorSideTop.Side = asrCenter
    Left = 18
    Height = 15
    Top = 328
    Width = 52
    BorderSpacing.Left = 7
    Caption = 'End Caps:'
  end
  object Label5: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = JoinCombo
    AnchorSideTop.Side = asrCenter
    Left = 18
    Height = 15
    Top = 358
    Width = 52
    BorderSpacing.Left = 7
    Caption = 'Join Style:'
  end
  object Label6: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = PenColorBox
    AnchorSideTop.Side = asrCenter
    Left = 18
    Height = 15
    Top = 299
    Width = 32
    BorderSpacing.Left = 7
    Caption = 'Color:'
  end
  object Bevel1: TBevel
    AnchorSideLeft.Control = Label1
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Label1
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 87
    Height = 3
    Top = 219
    Width = 373
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Left = 10
    BorderSpacing.Right = 11
  end
  object Label1: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = FigureCombo
    AnchorSideTop.Side = asrBottom
    Left = 11
    Height = 15
    Top = 213
    Width = 66
    BorderSpacing.Left = 11
    BorderSpacing.Top = 7
    Caption = 'Pen options:'
  end
  object Label2: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = JoinCombo
    AnchorSideTop.Side = asrBottom
    Left = 11
    Height = 15
    Top = 384
    Width = 76
    BorderSpacing.Left = 11
    BorderSpacing.Top = 7
    Caption = 'Brush options:'
  end
  object Bevel2: TBevel
    AnchorSideLeft.Control = Bevel1
    AnchorSideTop.Control = Label2
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 87
    Height = 3
    Top = 390
    Width = 373
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Right = 11
  end
  object Label7: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = PenStyleCombo
    AnchorSideTop.Side = asrCenter
    Left = 18
    Height = 15
    Top = 239
    Width = 28
    BorderSpacing.Left = 7
    Caption = 'Style:'
  end
  object Label8: TLabel
    AnchorSideLeft.Control = Label2
    AnchorSideTop.Control = BrushStyleCombo
    AnchorSideTop.Side = asrCenter
    Left = 18
    Height = 15
    Top = 410
    Width = 28
    BorderSpacing.Left = 7
    Caption = 'Style:'
  end
  object Label9: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = BrushColorBox
    AnchorSideTop.Side = asrCenter
    Left = 18
    Height = 15
    Top = 440
    Width = 32
    BorderSpacing.Left = 7
    Caption = 'Color:'
  end
  object Label10: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = FigureCombo
    AnchorSideTop.Side = asrCenter
    Left = 18
    Height = 15
    Top = 187
    Width = 36
    BorderSpacing.Left = 7
    Caption = 'Figure:'
  end
  object Button1: TBitBtn
    AnchorSideTop.Control = BrushColorBox
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 385
    Height = 26
    Top = 469
    Width = 75
    Anchors = [akTop, akRight]
    AutoSize = True
    BorderSpacing.Around = 11
    Caption = 'Close'
    Kind = bkClose
    TabOrder = 0
  end
  object WidthCombo: TComboBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = PenStyleCombo
    AnchorSideTop.Side = asrBottom
    Left = 100
    Height = 23
    Top = 265
    Width = 140
    AutoSelect = False
    BorderSpacing.Left = 100
    BorderSpacing.Top = 7
    ItemHeight = 15
    ItemIndex = 0
    Items.Strings = (
      '1'
      '2'
      '3'
      '4'
      '5'
      '6'
      '7'
    )
    OnChange = PenChange
    Style = csDropDownList
    TabOrder = 1
    Text = '1'
  end
  object CapsCombo: TComboBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = PenColorBox
    AnchorSideTop.Side = asrBottom
    Left = 100
    Height = 23
    Top = 324
    Width = 140
    AutoSelect = False
    BorderSpacing.Left = 100
    BorderSpacing.Top = 7
    ItemHeight = 15
    ItemIndex = 0
    Items.Strings = (
      'Round'
      'Square'
      'Flat'
    )
    OnChange = PenChange
    Style = csDropDownList
    TabOrder = 2
    Text = 'Round'
  end
  object JoinCombo: TComboBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = CapsCombo
    AnchorSideTop.Side = asrBottom
    Left = 100
    Height = 23
    Top = 354
    Width = 140
    AutoSelect = False
    BorderSpacing.Left = 100
    BorderSpacing.Top = 7
    ItemHeight = 15
    ItemIndex = 0
    Items.Strings = (
      'Round'
      'Bevel'
      'Mitter'
    )
    OnChange = PenChange
    Style = csDropDownList
    TabOrder = 3
    Text = 'Round'
  end
  object PenColorBox: TColorBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = WidthCombo
    AnchorSideTop.Side = asrBottom
    Left = 100
    Height = 22
    Top = 295
    Width = 140
    Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames]
    AutoSelect = False
    BorderSpacing.Left = 100
    BorderSpacing.Top = 7
    ItemHeight = 16
    OnChange = PenChange
    TabOrder = 4
  end
  object PenStyleCombo: TComboBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Label1
    AnchorSideTop.Side = asrBottom
    Left = 100
    Height = 23
    Top = 235
    Width = 140
    AutoSelect = False
    BorderSpacing.Left = 100
    BorderSpacing.Top = 7
    ItemHeight = 15
    OnChange = PenChange
    Style = csDropDownList
    TabOrder = 5
  end
  object BrushStyleCombo: TComboBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Label2
    AnchorSideTop.Side = asrBottom
    Left = 100
    Height = 23
    Top = 406
    Width = 140
    AutoSelect = False
    BorderSpacing.Left = 100
    BorderSpacing.Top = 7
    ItemHeight = 15
    OnChange = BrushChange
    Style = csDropDownList
    TabOrder = 6
  end
  object BrushColorBox: TColorBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = BrushStyleCombo
    AnchorSideTop.Side = asrBottom
    Left = 100
    Height = 22
    Top = 436
    Width = 140
    Selected = clBtnFace
    Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames]
    AutoSelect = False
    BorderSpacing.Left = 100
    BorderSpacing.Top = 7
    ItemHeight = 16
    OnChange = BrushChange
    TabOrder = 7
  end
  object FigureCombo: TComboBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = PaintBox
    AnchorSideTop.Side = asrBottom
    Left = 100
    Height = 23
    Top = 183
    Width = 140
    AutoSelect = False
    BorderSpacing.Left = 100
    BorderSpacing.Top = 7
    ItemHeight = 15
    ItemIndex = 0
    Items.Strings = (
      'Line'
      'PolyLine'
      'Ellipse'
      'Rectangle'
      'Triangle'
    )
    OnChange = FigureComboChange
    Style = csDropDownList
    TabOrder = 8
    Text = 'Line'
  end
  object cbCosmetic: TCheckBox
    AnchorSideLeft.Control = WidthCombo
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = WidthCombo
    AnchorSideTop.Side = asrCenter
    Left = 247
    Height = 19
    Top = 267
    Width = 70
    BorderSpacing.Left = 7
    Caption = 'Cosmetic'
    Checked = True
    OnChange = PenChange
    State = cbChecked
    TabOrder = 9
  end
  object cbAntialiasing: TCheckBox
    AnchorSideLeft.Control = FigureCombo
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = FigureCombo
    AnchorSideTop.Side = asrCenter
    Left = 247
    Height = 19
    Top = 185
    Width = 82
    AllowGrayed = True
    BorderSpacing.Left = 7
    Caption = 'Antialiasing'
    OnChange = cbAntialiasingChange
    TabOrder = 10
  end
end