lazarus/examples/pen_brush/unit1.lfm

object Form1: TForm1
  Left = 331
  Height = 604
  Top = 85
  Width = 461
  HorzScrollBar.Page = 338
  VertScrollBar.Page = 586
  AutoScroll = True
  AutoSize = True
  Caption = 'Pen and Brush'
  ClientHeight = 604
  ClientWidth = 461
  Position = poScreenCenter
  LCLVersion = '4.99.0.0'
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  object PaintBox: TPaintBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 11
    Height = 169
    Top = 7
    Width = 439
    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:'
    ParentColor = False
  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:'
    ParentColor = False
  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:'
    ParentColor = False
  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:'
    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 = 86
    Height = 3
    Top = 219
    Width = 364
    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 = 65
    BorderSpacing.Left = 11
    BorderSpacing.Top = 7
    Caption = 'Pen options'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  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'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object Bevel2: TBevel
    AnchorSideLeft.Control = Label2
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Label2
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 97
    Height = 3
    Top = 390
    Width = 353
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Left = 10
    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:'
    ParentColor = False
  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:'
    ParentColor = False
  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:'
    ParentColor = False
  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:'
    ParentColor = False
  end
  object Button1: TBitBtn
    AnchorSideTop.Control = BgColorBox
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = BgColorBox
    AnchorSideBottom.Side = asrBottom
    Left = 375
    Height = 26
    Top = 549
    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
    DropDownCount = 24
    ItemHeight = 15
    ItemIndex = 0
    Items.Strings = (
      '1'
      '2'
      '3'
      '4'
      '5'
      '6'
      '7'
    )
    Style = csDropDownList
    TabOrder = 1
    Text = '1'
    OnChange = PenChange
  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
    DropDownCount = 24
    ItemHeight = 15
    ItemIndex = 0
    Items.Strings = (
      'Round'
      'Square'
      'Flat'
    )
    Style = csDropDownList
    TabOrder = 2
    Text = 'Round'
    OnChange = PenChange
  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
    DropDownCount = 24
    ItemHeight = 15
    ItemIndex = 0
    Items.Strings = (
      'Round'
      'Bevel'
      'Mitter'
    )
    Style = csDropDownList
    TabOrder = 3
    Text = 'Round'
    OnChange = PenChange
  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
    DropDownCount = 24
    ItemHeight = 16
    TabOrder = 4
    OnChange = PenChange
  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
    DropDownCount = 24
    ItemHeight = 15
    Style = csDropDownList
    TabOrder = 5
    OnChange = PenChange
  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
    DropDownCount = 24
    ItemHeight = 15
    Style = csDropDownList
    TabOrder = 6
    OnChange = BrushChange
  end
  object BrushColorBox: TColorBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = BrushStyleCombo
    AnchorSideTop.Side = asrBottom
    Left = 100
    Height = 22
    Top = 436
    Width = 140
    Selected = clRed
    Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames]
    AutoSelect = False
    BorderSpacing.Left = 100
    BorderSpacing.Top = 7
    DropDownCount = 24
    ItemHeight = 16
    TabOrder = 7
    OnChange = BrushChange
  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
    DropDownCount = 24
    ItemHeight = 15
    ItemIndex = 0
    Items.Strings = (
      'Line'
      'PolyLine'
      'Ellipse'
      'Rectangle'
      'Triangle'
      'Text'
    )
    Style = csDropDownList
    TabOrder = 8
    Text = 'Line'
    OnChange = FigureComboChange
  end
  object cbCosmetic: TCheckBox
    AnchorSideLeft.Control = WidthCombo
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = WidthCombo
    AnchorSideTop.Side = asrCenter
    Left = 247
    Height = 19
    Top = 267
    Width = 68
    BorderSpacing.Left = 7
    Caption = 'Cosmetic'
    Checked = True
    State = cbChecked
    TabOrder = 9
    OnChange = PenChange
  end
  object cbAntialiasing: TCheckBox
    AnchorSideLeft.Control = FigureCombo
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = FigureCombo
    AnchorSideTop.Side = asrCenter
    Left = 247
    Height = 19
    Top = 185
    Width = 80
    AllowGrayed = True
    BorderSpacing.Left = 7
    BorderSpacing.Right = 11
    Caption = 'Antialiasing'
    TabOrder = 10
    OnChange = cbAntialiasingChange
  end
  object LblBgColor: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = BgColorBox
    AnchorSideTop.Side = asrCenter
    Left = 18
    Height = 15
    Top = 520
    Width = 67
    BorderSpacing.Left = 7
    Caption = 'Background:'
    ParentColor = False
  end
  object BgColorBox: TColorBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = FontColorBox
    AnchorSideTop.Side = asrBottom
    Left = 100
    Height = 22
    Top = 516
    Width = 140
    Selected = clYellow
    Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames]
    AutoSelect = False
    BorderSpacing.Left = 100
    BorderSpacing.Top = 7
    BorderSpacing.Bottom = 11
    DropDownCount = 24
    ItemHeight = 16
    TabOrder = 11
    OnChange = BrushChange
  end
  object Label11: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = BrushColorBox
    AnchorSideTop.Side = asrBottom
    Left = 11
    Height = 15
    Top = 465
    Width = 69
    BorderSpacing.Left = 11
    BorderSpacing.Top = 7
    Caption = 'Text options'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object Bevel3: TBevel
    AnchorSideLeft.Control = Label11
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Label11
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 90
    Height = 3
    Top = 471
    Width = 360
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Left = 10
    BorderSpacing.Right = 11
  end
  object LblBgColor1: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = FontColorBox
    AnchorSideTop.Side = asrCenter
    Left = 18
    Height = 15
    Top = 491
    Width = 57
    BorderSpacing.Left = 7
    Caption = 'Font color:'
    ParentColor = False
  end
  object FontColorBox: TColorBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Label11
    AnchorSideTop.Side = asrBottom
    Left = 100
    Height = 22
    Top = 487
    Width = 140
    Selected = clBlue
    Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames]
    AutoSelect = False
    BorderSpacing.Left = 100
    BorderSpacing.Top = 7
    DropDownCount = 24
    ItemHeight = 16
    TabOrder = 12
    OnChange = BrushChange
  end
  object cbOpaque: TCheckBox
    AnchorSideLeft.Control = WidthCombo
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = BgColorBox
    AnchorSideTop.Side = asrCenter
    Left = 247
    Height = 19
    Top = 518
    Width = 60
    BorderSpacing.Left = 7
    Caption = 'Opaque'
    TabOrder = 13
    OnChange = cbOpaqueChange
  end
  object PenStyleInfoBtn: TSpeedButton
    AnchorSideLeft.Control = PenStyleCombo
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = PenStyleCombo
    AnchorSideTop.Side = asrCenter
    Left = 247
    Height = 22
    Top = 235
    Width = 23
    BorderSpacing.Left = 7
    Caption = '?'
    OnClick = PenStyleInfoBtnClick
  end
  object BrushStyleInfoBtn: TSpeedButton
    AnchorSideLeft.Control = BrushStyleCombo
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = BrushStyleCombo
    AnchorSideTop.Side = asrCenter
    Left = 247
    Height = 22
    Top = 406
    Width = 23
    BorderSpacing.Left = 7
    Caption = '?'
    OnClick = BrushStyleInfoBtnClick
  end
end