lazarus/examples/pen_brush/unit1.lfm

object Form1: TForm1
  Left = 350
  Height = 573
  Top = 215
  Width = 471
  AutoScroll = True
  AutoSize = True
  Caption = 'Pen and Brush'
  ClientHeight = 573
  ClientWidth = 471
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  Position = poScreenCenter
  LCLVersion = '0.9.29'
  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 = 18
    Top = 290
    Width = 40
    BorderSpacing.Left = 7
    Caption = 'Width:'
    ParentColor = False
  end
  object Label4: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = CapsCombo
    AnchorSideTop.Side = asrCenter
    Left = 18
    Height = 18
    Top = 366
    Width = 65
    BorderSpacing.Left = 7
    Caption = 'End Caps:'
    ParentColor = False
  end
  object Label5: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = JoinCombo
    AnchorSideTop.Side = asrCenter
    Left = 18
    Height = 18
    Top = 404
    Width = 63
    BorderSpacing.Left = 7
    Caption = 'Join Style:'
    ParentColor = False
  end
  object Label6: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = PenColorBox
    AnchorSideTop.Side = asrCenter
    Left = 18
    Height = 18
    Top = 328
    Width = 38
    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 = 101
    Height = 3
    Top = 229
    Width = 359
    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 = 18
    Top = 221
    Width = 80
    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 = 18
    Top = 436
    Width = 93
    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 = 101
    Height = 3
    Top = 444
    Width = 359
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Right = 11
  end
  object Label7: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = PenStyleCombo
    AnchorSideTop.Side = asrCenter
    Left = 18
    Height = 18
    Top = 252
    Width = 37
    BorderSpacing.Left = 7
    Caption = 'Style:'
    ParentColor = False
  end
  object Label8: TLabel
    AnchorSideLeft.Control = Label2
    AnchorSideTop.Control = BrushStyleCombo
    AnchorSideTop.Side = asrCenter
    Left = 18
    Height = 18
    Top = 467
    Width = 37
    BorderSpacing.Left = 7
    Caption = 'Style:'
    ParentColor = False
  end
  object Label9: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = BrushColorBox
    AnchorSideTop.Side = asrCenter
    Left = 18
    Height = 18
    Top = 505
    Width = 38
    BorderSpacing.Left = 7
    Caption = 'Color:'
    ParentColor = False
  end
  object Label10: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = FigureCombo
    AnchorSideTop.Side = asrCenter
    Left = 18
    Height = 18
    Top = 189
    Width = 43
    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 = 394
    Height = 29
    Top = 541
    Width = 66
    Anchors = [akTop, akRight]
    AutoSize = True
    BorderSpacing.Around = 11
    Caption = 'Close'
    Kind = bkClose
    NumGlyphs = 0
    OnClick = Button1Click
    TabOrder = 0
  end
  object WidthCombo: TComboBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = PenStyleCombo
    AnchorSideTop.Side = asrBottom
    Left = 100
    Height = 31
    Top = 284
    Width = 140
    AutoSelect = False
    BorderSpacing.Left = 100
    BorderSpacing.Top = 7
    ItemHeight = 0
    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 = 31
    Top = 360
    Width = 140
    AutoSelect = False
    BorderSpacing.Left = 100
    BorderSpacing.Top = 7
    ItemHeight = 0
    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 = 31
    Top = 398
    Width = 140
    AutoSelect = False
    BorderSpacing.Left = 100
    BorderSpacing.Top = 7
    ItemHeight = 0
    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 = 31
    Top = 322
    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 = 31
    Top = 246
    Width = 140
    AutoSelect = False
    BorderSpacing.Left = 100
    BorderSpacing.Top = 7
    ItemHeight = 0
    OnChange = PenChange
    Style = csDropDownList
    TabOrder = 5
  end
  object BrushStyleCombo: TComboBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Label2
    AnchorSideTop.Side = asrBottom
    Left = 100
    Height = 31
    Top = 461
    Width = 140
    AutoSelect = False
    BorderSpacing.Left = 100
    BorderSpacing.Top = 7
    ItemHeight = 0
    OnChange = BrushChange
    Style = csDropDownList
    TabOrder = 6
  end
  object BrushColorBox: TColorBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = BrushStyleCombo
    AnchorSideTop.Side = asrBottom
    Left = 100
    Height = 31
    Top = 499
    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 = 31
    Top = 183
    Width = 140
    AutoSelect = False
    BorderSpacing.Left = 100
    BorderSpacing.Top = 7
    ItemHeight = 0
    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 = 22
    Top = 288
    Width = 84
    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 = 22
    Top = 187
    Width = 97
    AllowGrayed = True
    BorderSpacing.Left = 7
    Caption = 'Antialiasing'
    OnChange = cbAntialiasingChange
    TabOrder = 10
  end
end