lazarus/examples/pen_brush/unit1.lfm

object Form1: TForm1
  Left = 350
  Height = 573
  Top = 215
  Width = 471
  HorzScrollBar.Page = 471
  VertScrollBar.Page = 573
  AutoScroll = True
  AutoSize = True
  Caption = 'Pen and Brush'
  ClientHeight = 573
  ClientWidth = 471
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  Position = poScreenCenter
  LCLVersion = '0.9.31'
  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 = 16
    Top = 269
    Width = 36
    BorderSpacing.Left = 7
    Caption = 'Width:'
    ParentColor = False
  end
  object Label4: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = CapsCombo
    AnchorSideTop.Side = asrCenter
    Left = 18
    Height = 16
    Top = 328
    Width = 53
    BorderSpacing.Left = 7
    Caption = 'End Caps:'
    ParentColor = False
  end
  object Label5: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = JoinCombo
    AnchorSideTop.Side = asrCenter
    Left = 18
    Height = 16
    Top = 358
    Width = 53
    BorderSpacing.Left = 7
    Caption = 'Join Style:'
    ParentColor = False
  end
  object Label6: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = PenColorBox
    AnchorSideTop.Side = asrCenter
    Left = 18
    Height = 16
    Top = 299
    Width = 33
    BorderSpacing.Left = 7
    Caption = 'Color:'
    ParentColor = False
  end
  object Bevel1: TBevel
    AnchorSideLeft.Control = Label1
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Label1
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 88
    Height = 3
    Top = 220
    Width = 372
    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 = 16
    Top = 213
    Width = 67
    BorderSpacing.Left = 11
    BorderSpacing.Top = 7
    Caption = 'Pen options:'
    ParentColor = False
  end
  object Label2: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = JoinCombo
    AnchorSideTop.Side = asrBottom
    Left = 11
    Height = 16
    Top = 385
    Width = 77
    BorderSpacing.Left = 11
    BorderSpacing.Top = 7
    Caption = 'Brush options:'
    ParentColor = False
  end
  object Bevel2: TBevel
    AnchorSideLeft.Control = Bevel1
    AnchorSideTop.Control = Label2
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 88
    Height = 3
    Top = 392
    Width = 372
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Right = 11
  end
  object Label7: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = PenStyleCombo
    AnchorSideTop.Side = asrCenter
    Left = 18
    Height = 16
    Top = 239
    Width = 29
    BorderSpacing.Left = 7
    Caption = 'Style:'
    ParentColor = False
  end
  object Label8: TLabel
    AnchorSideLeft.Control = Label2
    AnchorSideTop.Control = BrushStyleCombo
    AnchorSideTop.Side = asrCenter
    Left = 18
    Height = 16
    Top = 411
    Width = 29
    BorderSpacing.Left = 7
    Caption = 'Style:'
    ParentColor = False
  end
  object Label9: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = BrushColorBox
    AnchorSideTop.Side = asrCenter
    Left = 18
    Height = 16
    Top = 441
    Width = 33
    BorderSpacing.Left = 7
    Caption = 'Color:'
    ParentColor = False
  end
  object Label10: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = FigureCombo
    AnchorSideTop.Side = asrCenter
    Left = 18
    Height = 16
    Top = 186
    Width = 37
    BorderSpacing.Left = 7
    Caption = 'Figure:'
    ParentColor = False
  end
  object Button1: TBitBtn
    AnchorSideTop.Control = BrushColorBox
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 386
    Height = 26
    Top = 471
    Width = 74
    Anchors = [akTop, akRight]
    AutoSize = True
    BorderSpacing.Around = 11
    Caption = 'Close'
    Kind = bkClose
    NumGlyphs = 0
    TabOrder = 0
  end
  object WidthCombo: TComboBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = PenStyleCombo
    AnchorSideTop.Side = asrBottom
    Left = 100
    Height = 23
    Top = 266
    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 = 325
    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 = 355
    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 = 296
    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 = 236
    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 = 408
    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 = 438
    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 = 268
    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