examples: add antialiasing option to the pen and brush example

git-svn-id: trunk@17393 -

examples/pen_brush/unit1.lfm

@@ -3,15 +3,37 @@ object Form1: TForm1
   Height = 492
   Top = 215
   Width = 440
+  HelpContext = 0
+  Align = alNone
+  AllowDropFiles = False
+  AutoScroll = True
   AutoSize = True
+  BorderIcons = [biSystemMenu, biMinimize, biMaximize]
+  BorderStyle = bsSizeable
   Caption = 'Pen and Brush'
+  ChildSizing.LeftRightSpacing = 0
+  ChildSizing.TopBottomSpacing = 0
+  ChildSizing.HorizontalSpacing = 0
+  ChildSizing.VerticalSpacing = 0
+  ChildSizing.ControlsPerLine = 0
   ClientHeight = 492
   ClientWidth = 440
+  DockSite = False
+  DragKind = dkDrag
+  DragMode = dmManual
+  Enabled = True
+  Font.Height = 0
+  Font.Style = []
+  FormStyle = fsNormal
   OnCreate = FormCreate
   OnDestroy = FormDestroy
+  ParentBiDiMode = True
   ParentFont = False
   Position = poScreenCenter
+  ShowInTaskBar = stDefault
+  UseDockManager = False
   LCLVersion = '0.9.27'
+  WindowState = wsNormal
   object PaintBox: TPaintBox
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = Owner
@@ -21,10 +43,23 @@ object Form1: TForm1
     Height = 169
     Top = 7
     Width = 418
+    HelpContext = 0
+    Align = alNone
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Left = 11
     BorderSpacing.Top = 7
     BorderSpacing.Right = 11
+    BorderSpacing.Bottom = 0
+    BorderSpacing.Around = 0
+    BorderSpacing.CellAlignHorizontal = ccaFill
+    BorderSpacing.CellAlignVertical = ccaFill
+    DragCursor = crDrag
+    DragMode = dmManual
+    Enabled = True
+    ParentColor = True
+    ParentFont = True
+    ParentShowHint = True
+    Visible = True
     OnPaint = PaintBoxPaint
   end
   object Label3: TLabel
@@ -35,9 +70,31 @@ object Form1: TForm1
     Height = 14
     Top = 263
     Width = 33
+    HelpContext = 0
+    Align = alNone
+    Alignment = taLeftJustify
+    AutoSize = True
     BorderSpacing.Left = 7
+    BorderSpacing.Top = 0
+    BorderSpacing.Right = 0
+    BorderSpacing.Bottom = 0
+    BorderSpacing.Around = 0
+    BorderSpacing.CellAlignHorizontal = ccaFill
+    BorderSpacing.CellAlignVertical = ccaFill
     Caption = 'Width:'
+    DragCursor = crDrag
+    DragMode = dmManual
+    Enabled = True
+    Layout = tlTop
+    ParentBidiMode = True
     ParentColor = False
+    ParentFont = True
+    ParentShowHint = True
+    ShowAccelChar = True
+    Transparent = True
+    Visible = True
+    WordWrap = False
+    OptimalFill = False
   end
   object Label4: TLabel
     AnchorSideLeft.Control = Label1
@@ -47,9 +104,31 @@ object Form1: TForm1
     Height = 14
     Top = 320
     Width = 50
+    HelpContext = 0
+    Align = alNone
+    Alignment = taLeftJustify
+    AutoSize = True
     BorderSpacing.Left = 7
+    BorderSpacing.Top = 0
+    BorderSpacing.Right = 0
+    BorderSpacing.Bottom = 0
+    BorderSpacing.Around = 0
+    BorderSpacing.CellAlignHorizontal = ccaFill
+    BorderSpacing.CellAlignVertical = ccaFill
     Caption = 'End Caps:'
+    DragCursor = crDrag
+    DragMode = dmManual
+    Enabled = True
+    Layout = tlTop
+    ParentBidiMode = True
     ParentColor = False
+    ParentFont = True
+    ParentShowHint = True
+    ShowAccelChar = True
+    Transparent = True
+    Visible = True
+    WordWrap = False
+    OptimalFill = False
   end
   object Label5: TLabel
     AnchorSideLeft.Control = Label1
@@ -59,9 +138,31 @@ object Form1: TForm1
     Height = 14
     Top = 348
     Width = 51
+    HelpContext = 0
+    Align = alNone
+    Alignment = taLeftJustify
+    AutoSize = True
     BorderSpacing.Left = 7
+    BorderSpacing.Top = 0
+    BorderSpacing.Right = 0
+    BorderSpacing.Bottom = 0
+    BorderSpacing.Around = 0
+    BorderSpacing.CellAlignHorizontal = ccaFill
+    BorderSpacing.CellAlignVertical = ccaFill
     Caption = 'Join Style:'
+    DragCursor = crDrag
+    DragMode = dmManual
+    Enabled = True
+    Layout = tlTop
+    ParentBidiMode = True
     ParentColor = False
+    ParentFont = True
+    ParentShowHint = True
+    ShowAccelChar = True
+    Transparent = True
+    Visible = True
+    WordWrap = False
+    OptimalFill = False
   end
   object Label6: TLabel
     AnchorSideLeft.Control = Label1
@@ -71,9 +172,31 @@ object Form1: TForm1
     Height = 14
     Top = 292
     Width = 30
+    HelpContext = 0
+    Align = alNone
+    Alignment = taLeftJustify
+    AutoSize = True
     BorderSpacing.Left = 7
+    BorderSpacing.Top = 0
+    BorderSpacing.Right = 0
+    BorderSpacing.Bottom = 0
+    BorderSpacing.Around = 0
+    BorderSpacing.CellAlignHorizontal = ccaFill
+    BorderSpacing.CellAlignVertical = ccaFill
     Caption = 'Color:'
+    DragCursor = crDrag
+    DragMode = dmManual
+    Enabled = True
+    Layout = tlTop
+    ParentBidiMode = True
     ParentColor = False
+    ParentFont = True
+    ParentShowHint = True
+    ShowAccelChar = True
+    Transparent = True
+    Visible = True
+    WordWrap = False
+    OptimalFill = False
   end
   object Bevel1: TBevel
     AnchorSideLeft.Control = Label1
@@ -86,9 +209,17 @@ object Form1: TForm1
     Height = 3
     Top = 217
     Width = 347
+    HelpContext = 0
+    Align = alNone
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Left = 10
+    BorderSpacing.Top = 0
     BorderSpacing.Right = 11
+    BorderSpacing.Bottom = 0
+    BorderSpacing.Around = 0
+    BorderSpacing.CellAlignHorizontal = ccaFill
+    BorderSpacing.CellAlignVertical = ccaFill
+    Visible = True
   end
   object Label1: TLabel
     AnchorSideLeft.Control = Owner
@@ -98,10 +229,31 @@ object Form1: TForm1
     Height = 14
     Top = 211
     Width = 61
+    HelpContext = 0
+    Align = alNone
+    Alignment = taLeftJustify
+    AutoSize = True
     BorderSpacing.Left = 11
     BorderSpacing.Top = 7
+    BorderSpacing.Right = 0
+    BorderSpacing.Bottom = 0
+    BorderSpacing.Around = 0
+    BorderSpacing.CellAlignHorizontal = ccaFill
+    BorderSpacing.CellAlignVertical = ccaFill
     Caption = 'Pen options:'
+    DragCursor = crDrag
+    DragMode = dmManual
+    Enabled = True
+    Layout = tlTop
+    ParentBidiMode = True
     ParentColor = False
+    ParentFont = True
+    ParentShowHint = True
+    ShowAccelChar = True
+    Transparent = True
+    Visible = True
+    WordWrap = False
+    OptimalFill = False
   end
   object Label2: TLabel
     AnchorSideLeft.Control = Owner
@@ -111,10 +263,31 @@ object Form1: TForm1
     Height = 14
     Top = 373
     Width = 70
+    HelpContext = 0
+    Align = alNone
+    Alignment = taLeftJustify
+    AutoSize = True
     BorderSpacing.Left = 11
     BorderSpacing.Top = 7
+    BorderSpacing.Right = 0
+    BorderSpacing.Bottom = 0
+    BorderSpacing.Around = 0
+    BorderSpacing.CellAlignHorizontal = ccaFill
+    BorderSpacing.CellAlignVertical = ccaFill
     Caption = 'Brush options:'
+    DragCursor = crDrag
+    DragMode = dmManual
+    Enabled = True
+    Layout = tlTop
+    ParentBidiMode = True
     ParentColor = False
+    ParentFont = True
+    ParentShowHint = True
+    ShowAccelChar = True
+    Transparent = True
+    Visible = True
+    WordWrap = False
+    OptimalFill = False
   end
   object Bevel2: TBevel
     AnchorSideLeft.Control = Bevel1
@@ -126,8 +299,17 @@ object Form1: TForm1
     Height = 3
     Top = 379
     Width = 347
+    HelpContext = 0
+    Align = alNone
     Anchors = [akTop, akLeft, akRight]
+    BorderSpacing.Left = 0
+    BorderSpacing.Top = 0
     BorderSpacing.Right = 11
+    BorderSpacing.Bottom = 0
+    BorderSpacing.Around = 0
+    BorderSpacing.CellAlignHorizontal = ccaFill
+    BorderSpacing.CellAlignVertical = ccaFill
+    Visible = True
   end
   object Label7: TLabel
     AnchorSideLeft.Control = Label1
@@ -137,9 +319,31 @@ object Form1: TForm1
     Height = 14
     Top = 235
     Width = 29
+    HelpContext = 0
+    Align = alNone
+    Alignment = taLeftJustify
+    AutoSize = True
     BorderSpacing.Left = 7
+    BorderSpacing.Top = 0
+    BorderSpacing.Right = 0
+    BorderSpacing.Bottom = 0
+    BorderSpacing.Around = 0
+    BorderSpacing.CellAlignHorizontal = ccaFill
+    BorderSpacing.CellAlignVertical = ccaFill
     Caption = 'Style:'
+    DragCursor = crDrag
+    DragMode = dmManual
+    Enabled = True
+    Layout = tlTop
+    ParentBidiMode = True
     ParentColor = False
+    ParentFont = True
+    ParentShowHint = True
+    ShowAccelChar = True
+    Transparent = True
+    Visible = True
+    WordWrap = False
+    OptimalFill = False
   end
   object Label8: TLabel
     AnchorSideLeft.Control = Label2
@@ -149,9 +353,31 @@ object Form1: TForm1
     Height = 14
     Top = 397
     Width = 29
+    HelpContext = 0
+    Align = alNone
+    Alignment = taLeftJustify
+    AutoSize = True
     BorderSpacing.Left = 7
+    BorderSpacing.Top = 0
+    BorderSpacing.Right = 0
+    BorderSpacing.Bottom = 0
+    BorderSpacing.Around = 0
+    BorderSpacing.CellAlignHorizontal = ccaFill
+    BorderSpacing.CellAlignVertical = ccaFill
     Caption = 'Style:'
+    DragCursor = crDrag
+    DragMode = dmManual
+    Enabled = True
+    Layout = tlTop
+    ParentBidiMode = True
     ParentColor = False
+    ParentFont = True
+    ParentShowHint = True
+    ShowAccelChar = True
+    Transparent = True
+    Visible = True
+    WordWrap = False
+    OptimalFill = False
   end
   object Label9: TLabel
     AnchorSideLeft.Control = Label1
@@ -161,9 +387,31 @@ object Form1: TForm1
     Height = 14
     Top = 426
     Width = 30
+    HelpContext = 0
+    Align = alNone
+    Alignment = taLeftJustify
+    AutoSize = True
     BorderSpacing.Left = 7
+    BorderSpacing.Top = 0
+    BorderSpacing.Right = 0
+    BorderSpacing.Bottom = 0
+    BorderSpacing.Around = 0
+    BorderSpacing.CellAlignHorizontal = ccaFill
+    BorderSpacing.CellAlignVertical = ccaFill
     Caption = 'Color:'
+    DragCursor = crDrag
+    DragMode = dmManual
+    Enabled = True
+    Layout = tlTop
+    ParentBidiMode = True
     ParentColor = False
+    ParentFont = True
+    ParentShowHint = True
+    ShowAccelChar = True
+    Transparent = True
+    Visible = True
+    WordWrap = False
+    OptimalFill = False
   end
   object Label10: TLabel
     AnchorSideLeft.Control = Label1
@@ -173,9 +421,31 @@ object Form1: TForm1
     Height = 14
     Top = 186
     Width = 35
+    HelpContext = 0
+    Align = alNone
+    Alignment = taLeftJustify
+    AutoSize = True
     BorderSpacing.Left = 7
+    BorderSpacing.Top = 0
+    BorderSpacing.Right = 0
+    BorderSpacing.Bottom = 0
+    BorderSpacing.Around = 0
+    BorderSpacing.CellAlignHorizontal = ccaFill
+    BorderSpacing.CellAlignVertical = ccaFill
     Caption = 'Figure:'
+    DragCursor = crDrag
+    DragMode = dmManual
+    Enabled = True
+    Layout = tlTop
+    ParentBidiMode = True
     ParentColor = False
+    ParentFont = True
+    ParentShowHint = True
+    ShowAccelChar = True
+    Transparent = True
+    Visible = True
+    WordWrap = False
+    OptimalFill = False
   end
   object Button1: TBitBtn
     AnchorSideTop.Control = BrushColorBox
@@ -188,14 +458,33 @@ object Form1: TForm1
     Height = 26
     Top = 455
     Width = 89
+    HelpContext = 0
+    Align = alNone
     Anchors = [akTop, akRight]
     AutoSize = True
+    BorderSpacing.Left = 0
+    BorderSpacing.Top = 0
+    BorderSpacing.Right = 0
+    BorderSpacing.Bottom = 0
     BorderSpacing.Around = 11
+    BorderSpacing.CellAlignHorizontal = ccaFill
+    BorderSpacing.CellAlignVertical = ccaFill
+    Cancel = False
     Caption = '&Закрыть'
+    Default = False
+    Enabled = True
     Kind = bkClose
+    Layout = blGlyphLeft
+    Margin = -1
+    ModalResult = 0
     NumGlyphs = 0
     OnClick = Button1Click
+    ParentFont = True
+    ParentShowHint = True
+    Spacing = 3
     TabOrder = 0
+    TabStop = True
+    Visible = True
   end
   object WidthCombo: TComboBox
     AnchorSideLeft.Control = Owner
@@ -205,8 +494,27 @@ object Form1: TForm1
     Height = 21
     Top = 260
     Width = 110
+    HelpContext = 0
+    Align = alNone
+    ArrowKeysTraverseList = True
+    AutoComplete = False
+    AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
+    AutoDropDown = False
+    AutoSelect = False
+    AutoSize = True
     BorderSpacing.Left = 100
     BorderSpacing.Top = 7
+    BorderSpacing.Right = 0
+    BorderSpacing.Bottom = 0
+    BorderSpacing.Around = 0
+    BorderSpacing.CellAlignHorizontal = ccaFill
+    BorderSpacing.CellAlignVertical = ccaFill
+    CharCase = ecNormal
+    Ctl3D = False
+    DragCursor = crDrag
+    DragMode = dmManual
+    DropDownCount = 8
+    Enabled = True
     ItemHeight = 13
     ItemIndex = 0
     Items.Strings = (
@@ -218,10 +526,20 @@ object Form1: TForm1
       '6'
       '7'
     )
+    ItemWidth = 0
+    MaxLength = 0
     OnChange = PenChange
+    ParentBidiMode = True
+    ParentColor = False
+    ParentCtl3D = True
+    ParentFont = True
+    ParentShowHint = True
+    Sorted = False
     Style = csDropDownList
     TabOrder = 1
+    TabStop = True
     Text = '1'
+    Visible = True
   end
   object CapsCombo: TComboBox
     AnchorSideLeft.Control = Owner
@@ -231,8 +549,27 @@ object Form1: TForm1
     Height = 21
     Top = 317
     Width = 110
+    HelpContext = 0
+    Align = alNone
+    ArrowKeysTraverseList = True
+    AutoComplete = False
+    AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
+    AutoDropDown = False
+    AutoSelect = False
+    AutoSize = True
     BorderSpacing.Left = 100
     BorderSpacing.Top = 7
+    BorderSpacing.Right = 0
+    BorderSpacing.Bottom = 0
+    BorderSpacing.Around = 0
+    BorderSpacing.CellAlignHorizontal = ccaFill
+    BorderSpacing.CellAlignVertical = ccaFill
+    CharCase = ecNormal
+    Ctl3D = False
+    DragCursor = crDrag
+    DragMode = dmManual
+    DropDownCount = 8
+    Enabled = True
     ItemHeight = 13
     ItemIndex = 0
     Items.Strings = (
@@ -240,10 +577,20 @@ object Form1: TForm1
       'Square'
       'Flat'
     )
+    ItemWidth = 0
+    MaxLength = 0
     OnChange = PenChange
+    ParentBidiMode = True
+    ParentColor = False
+    ParentCtl3D = True
+    ParentFont = True
+    ParentShowHint = True
+    Sorted = False
     Style = csDropDownList
     TabOrder = 2
+    TabStop = True
     Text = 'Round'
+    Visible = True
   end
   object JoinCombo: TComboBox
     AnchorSideLeft.Control = Owner
@@ -253,8 +600,27 @@ object Form1: TForm1
     Height = 21
     Top = 345
     Width = 110
+    HelpContext = 0
+    Align = alNone
+    ArrowKeysTraverseList = True
+    AutoComplete = False
+    AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
+    AutoDropDown = False
+    AutoSelect = False
+    AutoSize = True
     BorderSpacing.Left = 100
     BorderSpacing.Top = 7
+    BorderSpacing.Right = 0
+    BorderSpacing.Bottom = 0
+    BorderSpacing.Around = 0
+    BorderSpacing.CellAlignHorizontal = ccaFill
+    BorderSpacing.CellAlignVertical = ccaFill
+    CharCase = ecNormal
+    Ctl3D = False
+    DragCursor = crDrag
+    DragMode = dmManual
+    DropDownCount = 8
+    Enabled = True
     ItemHeight = 13
     ItemIndex = 0
     Items.Strings = (
@@ -262,10 +628,20 @@ object Form1: TForm1
       'Bevel'
       'Mitter'
     )
+    ItemWidth = 0
+    MaxLength = 0
     OnChange = PenChange
+    ParentBidiMode = True
+    ParentColor = False
+    ParentCtl3D = True
+    ParentFont = True
+    ParentShowHint = True
+    Sorted = False
     Style = csDropDownList
     TabOrder = 3
+    TabStop = True
     Text = 'Round'
+    Visible = True
   end
   object PenColorBox: TColorBox
     AnchorSideLeft.Control = Owner
@@ -275,12 +651,41 @@ object Form1: TForm1
     Height = 22
     Top = 288
     Width = 110
+    HelpContext = 0
+    DefaultColorColor = clBlack
+    NoneColorColor = clBlack
+    Selected = clBlack
     Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames]
+    Align = alNone
+    ArrowKeysTraverseList = True
+    AutoComplete = False
+    AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
+    AutoDropDown = False
+    AutoSelect = False
+    AutoSize = True
     BorderSpacing.Left = 100
     BorderSpacing.Top = 7
+    BorderSpacing.Right = 0
+    BorderSpacing.Bottom = 0
+    BorderSpacing.Around = 0
+    BorderSpacing.CellAlignHorizontal = ccaFill
+    BorderSpacing.CellAlignVertical = ccaFill
+    Ctl3D = False
+    DragCursor = crDrag
+    DragMode = dmManual
+    DropDownCount = 8
+    Enabled = True
     ItemHeight = 16
+    ItemWidth = 0
     OnChange = PenChange
+    ParentBidiMode = True
+    ParentColor = False
+    ParentCtl3D = True
+    ParentFont = True
+    ParentShowHint = True
     TabOrder = 4
+    TabStop = True
+    Visible = True
   end
   object PenStyleCombo: TComboBox
     AnchorSideLeft.Control = Owner
@@ -290,12 +695,42 @@ object Form1: TForm1
     Height = 21
     Top = 232
     Width = 110
+    HelpContext = 0
+    Align = alNone
+    ArrowKeysTraverseList = True
+    AutoComplete = False
+    AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
+    AutoDropDown = False
+    AutoSelect = False
+    AutoSize = True
     BorderSpacing.Left = 100
     BorderSpacing.Top = 7
+    BorderSpacing.Right = 0
+    BorderSpacing.Bottom = 0
+    BorderSpacing.Around = 0
+    BorderSpacing.CellAlignHorizontal = ccaFill
+    BorderSpacing.CellAlignVertical = ccaFill
+    CharCase = ecNormal
+    Ctl3D = False
+    DragCursor = crDrag
+    DragMode = dmManual
+    DropDownCount = 8
+    Enabled = True
     ItemHeight = 13
+    ItemIndex = -1
+    ItemWidth = 0
+    MaxLength = 0
     OnChange = PenChange
+    ParentBidiMode = True
+    ParentColor = False
+    ParentCtl3D = True
+    ParentFont = True
+    ParentShowHint = True
+    Sorted = False
     Style = csDropDownList
     TabOrder = 5
+    TabStop = True
+    Visible = True
   end
   object BrushStyleCombo: TComboBox
     AnchorSideLeft.Control = Owner
@@ -305,13 +740,42 @@ object Form1: TForm1
     Height = 21
     Top = 394
     Width = 110
+    HelpContext = 0
+    Align = alNone
+    ArrowKeysTraverseList = True
+    AutoComplete = False
+    AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
+    AutoDropDown = False
+    AutoSelect = False
+    AutoSize = True
     BorderSpacing.Left = 100
     BorderSpacing.Top = 7
+    BorderSpacing.Right = 0
+    BorderSpacing.Bottom = 0
+    BorderSpacing.Around = 0
+    BorderSpacing.CellAlignHorizontal = ccaFill
+    BorderSpacing.CellAlignVertical = ccaFill
+    CharCase = ecNormal
+    Ctl3D = False
+    DragCursor = crDrag
+    DragMode = dmManual
+    DropDownCount = 8
+    Enabled = True
     ItemHeight = 13
-    MaxLength = -1
+    ItemIndex = -1
+    ItemWidth = 0
+    MaxLength = 0
     OnChange = BrushChange
+    ParentBidiMode = True
+    ParentColor = False
+    ParentCtl3D = True
+    ParentFont = True
+    ParentShowHint = True
+    Sorted = False
     Style = csDropDownList
     TabOrder = 6
+    TabStop = True
+    Visible = True
   end
   object BrushColorBox: TColorBox
     AnchorSideLeft.Control = Owner
@@ -321,13 +785,41 @@ object Form1: TForm1
     Height = 22
     Top = 422
     Width = 110
+    HelpContext = 0
+    DefaultColorColor = clBlack
+    NoneColorColor = clBlack
     Selected = clBtnFace
     Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames]
+    Align = alNone
+    ArrowKeysTraverseList = True
+    AutoComplete = False
+    AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
+    AutoDropDown = False
+    AutoSelect = False
+    AutoSize = True
     BorderSpacing.Left = 100
     BorderSpacing.Top = 7
+    BorderSpacing.Right = 0
+    BorderSpacing.Bottom = 0
+    BorderSpacing.Around = 0
+    BorderSpacing.CellAlignHorizontal = ccaFill
+    BorderSpacing.CellAlignVertical = ccaFill
+    Ctl3D = False
+    DragCursor = crDrag
+    DragMode = dmManual
+    DropDownCount = 8
+    Enabled = True
     ItemHeight = 16
+    ItemWidth = 0
     OnChange = BrushChange
+    ParentBidiMode = True
+    ParentColor = False
+    ParentCtl3D = True
+    ParentFont = True
+    ParentShowHint = True
     TabOrder = 7
+    TabStop = True
+    Visible = True
   end
   object FigureCombo: TComboBox
     AnchorSideLeft.Control = Owner
@@ -337,8 +829,27 @@ object Form1: TForm1
     Height = 21
     Top = 183
     Width = 110
+    HelpContext = 0
+    Align = alNone
+    ArrowKeysTraverseList = True
+    AutoComplete = False
+    AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
+    AutoDropDown = False
+    AutoSelect = False
+    AutoSize = True
     BorderSpacing.Left = 100
     BorderSpacing.Top = 7
+    BorderSpacing.Right = 0
+    BorderSpacing.Bottom = 0
+    BorderSpacing.Around = 0
+    BorderSpacing.CellAlignHorizontal = ccaFill
+    BorderSpacing.CellAlignVertical = ccaFill
+    CharCase = ecNormal
+    Ctl3D = False
+    DragCursor = crDrag
+    DragMode = dmManual
+    DropDownCount = 8
+    Enabled = True
     ItemHeight = 13
     ItemIndex = 0
     Items.Strings = (
@@ -348,10 +859,20 @@ object Form1: TForm1
       'Rectangle'
       'Triangle'
     )
+    ItemWidth = 0
+    MaxLength = 0
     OnChange = FigureComboChange
+    ParentBidiMode = True
+    ParentColor = False
+    ParentCtl3D = True
+    ParentFont = True
+    ParentShowHint = True
+    Sorted = False
     Style = csDropDownList
     TabOrder = 8
+    TabStop = True
     Text = 'Line'
+    Visible = True
   end
   object cbCosmetic: TCheckBox
     AnchorSideLeft.Control = WidthCombo
@@ -362,11 +883,69 @@ object Form1: TForm1
     Height = 19
     Top = 261
     Width = 69
+    HelpContext = 0
+    Align = alNone
+    AllowGrayed = False
+    AutoSize = True
     BorderSpacing.Left = 7
+    BorderSpacing.Top = 0
+    BorderSpacing.Right = 0
+    BorderSpacing.Bottom = 0
+    BorderSpacing.Around = 0
+    BorderSpacing.CellAlignHorizontal = ccaFill
+    BorderSpacing.CellAlignVertical = ccaFill
     Caption = 'Cosmetic'
     Checked = True
+    DragCursor = crDrag
+    DragKind = dkDrag
+    DragMode = dmManual
+    Enabled = True
     OnChange = PenChange
+    ParentColor = True
+    ParentFont = True
+    ParentShowHint = True
+    ParentBidiMode = True
     State = cbChecked
     TabOrder = 9
+    TabStop = True
+    UseOnChange = False
+    Visible = True
+  end
+  object cbAntialiasing: TCheckBox
+    AnchorSideLeft.Control = FigureCombo
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideTop.Control = FigureCombo
+    AnchorSideTop.Side = asrCenter
+    Left = 217
+    Height = 19
+    Top = 184
+    Width = 80
+    HelpContext = 0
+    Align = alNone
+    AllowGrayed = True
+    AutoSize = True
+    BorderSpacing.Left = 7
+    BorderSpacing.Top = 0
+    BorderSpacing.Right = 0
+    BorderSpacing.Bottom = 0
+    BorderSpacing.Around = 0
+    BorderSpacing.CellAlignHorizontal = ccaFill
+    BorderSpacing.CellAlignVertical = ccaFill
+    Caption = 'Antialiasing'
+    Checked = False
+    DragCursor = crDrag
+    DragKind = dkDrag
+    DragMode = dmManual
+    Enabled = True
+    OnChange = cbAntialiasingChange
+    ParentColor = True
+    ParentFont = True
+    ParentShowHint = True
+    ParentBidiMode = True
+    State = cbUnchecked
+    TabOrder = 10
+    TabStop = True
+    UseOnChange = False
+    Visible = True
   end
 end

examples/pen_brush/unit1.lrs

@@ -2,119 +2,305 @@
 
 LazarusResources.Add('TForm1','FORMDATA',[
   'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'^'#1#6'Height'#3#236#1#3'Top'#3#215#0#5'W'
-  +'idth'#3#184#1#8'AutoSize'#9#7'Caption'#6#13'Pen and Brush'#12'ClientHeight'
+  +'idth'#3#184#1#11'HelpContext'#2#0#5'Align'#7#6'alNone'#14'AllowDropFiles'#8
-  +#3#236#1#11'ClientWidth'#3#184#1#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7
+  +#10'AutoScroll'#9#8'AutoSize'#9#11'BorderIcons'#11#12'biSystemMenu'#10'biMin'
-  +#11'FormDestroy'#10'ParentFont'#8#8'Position'#7#14'poScreenCenter'#10'LCLVer'
+  +'imize'#10'biMaximize'#0#11'BorderStyle'#7#10'bsSizeable'#7'Caption'#6#13'Pe'
-  +'sion'#6#6'0.9.27'#0#9'TPaintBox'#8'PaintBox'#22'AnchorSideLeft.Control'#7#5
+  +'n and Brush'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomS'
-  +'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5
+  +'pacing'#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSp'
-  +'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#11#6'Height'#3#169
+  +'acing'#2#0#27'ChildSizing.ControlsPerLine'#2#0#12'ClientHeight'#3#236#1#11
-  +#0#3'Top'#2#7#5'Width'#3#162#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
+  +'ClientWidth'#3#184#1#8'DockSite'#8#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8
-  +#18'BorderSpacing.Left'#2#11#17'BorderSpacing.Top'#2#7#19'BorderSpacing.Righ'
+  +'dmManual'#7'Enabled'#9#11'Font.Height'#2#0#10'Font.Style'#11#0#9'FormStyle'
-  +'t'#2#11#7'OnPaint'#7#13'PaintBoxPaint'#0#0#6'TLabel'#6'Label3'#22'AnchorSid'
+  +#7#8'fsNormal'#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#14
-  +'eLeft.Control'#7#6'Label1'#21'AnchorSideTop.Control'#7#10'WidthCombo'#18'An'
+  +'ParentBiDiMode'#9#10'ParentFont'#8#8'Position'#7#14'poScreenCenter'#13'Show'
-  +'chorSideTop.Side'#7#9'asrCenter'#4'Left'#2#18#6'Height'#2#14#3'Top'#3#7#1#5
+  +'InTaskBar'#7#9'stDefault'#14'UseDockManager'#8#10'LCLVersion'#6#6'0.9.27'#11
-  +'Width'#2'!'#18'BorderSpacing.Left'#2#7#7'Caption'#6#6'Width:'#11'ParentColo'
+  +'WindowState'#7#8'wsNormal'#0#9'TPaintBox'#8'PaintBox'#22'AnchorSideLeft.Con'
-  +'r'#8#0#0#6'TLabel'#6'Label4'#22'AnchorSideLeft.Control'#7#6'Label1'#21'Anch'
+  +'trol'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Co'
-  +'orSideTop.Control'#7#9'CapsCombo'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'L'
+  +'ntrol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#11#6'He'
-  +'eft'#2#18#6'Height'#2#14#3'Top'#3'@'#1#5'Width'#2'2'#18'BorderSpacing.Left'
+  +'ight'#3#169#0#3'Top'#2#7#5'Width'#3#162#1#11'HelpContext'#2#0#5'Align'#7#6
-  +#2#7#7'Caption'#6#9'End Caps:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#22
+  +'alNone'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'
-  +'AnchorSideLeft.Control'#7#6'Label1'#21'AnchorSideTop.Control'#7#9'JoinCombo'
+  +#2#11#17'BorderSpacing.Top'#2#7#19'BorderSpacing.Right'#2#11#20'BorderSpacin'
-  +#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#18#6'Height'#2#14#3'Top'#3
+  +'g.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizont'
-  +'\'#1#5'Width'#2'3'#18'BorderSpacing.Left'#2#7#7'Caption'#6#11'Join Style:'
+  +'al'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#10'DragCu'
-  +#11'ParentColor'#8#0#0#6'TLabel'#6'Label6'#22'AnchorSideLeft.Control'#7#6'La'
+  +'rsor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#11'ParentColor'#9
-  +'bel1'#21'AnchorSideTop.Control'#7#11'PenColorBox'#18'AnchorSideTop.Side'#7#9
+  +#10'ParentFont'#9#14'ParentShowHint'#9#7'Visible'#9#7'OnPaint'#7#13'PaintBox'
-  +'asrCenter'#4'Left'#2#18#6'Height'#2#14#3'Top'#3'$'#1#5'Width'#2#30#18'Borde'
+  +'Paint'#0#0#6'TLabel'#6'Label3'#22'AnchorSideLeft.Control'#7#6'Label1'#21'An'
-  +'rSpacing.Left'#2#7#7'Caption'#6#6'Color:'#11'ParentColor'#8#0#0#6'TBevel'#6
+  +'chorSideTop.Control'#7#10'WidthCombo'#18'AnchorSideTop.Side'#7#9'asrCenter'
-  +'Bevel1'#22'AnchorSideLeft.Control'#7#6'Label1'#19'AnchorSideLeft.Side'#7#9
+  +#4'Left'#2#18#6'Height'#2#14#3'Top'#3#7#1#5'Width'#2'!'#11'HelpContext'#2#0#5
-  +'asrBottom'#21'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9
+  +'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJustify'#8'AutoSize'#9#18'Border'
-  +'asrCenter'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7
+  +'Spacing.Left'#2#7#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20
-  +#9'asrBottom'#4'Left'#2'R'#6'Height'#2#3#3'Top'#3#217#0#5'Width'#3'['#1#7'An'
+  +'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellA'
-  +'chors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#10#19'Bo'
+  +'lignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFil'
-  +'rderSpacing.Right'#2#11#0#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7
+  +'l'#7'Caption'#6#6'Width:'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManu'
-  +#5'Owner'#21'AnchorSideTop.Control'#7#11'FigureCombo'#18'AnchorSideTop.Side'
+  +'al'#7'Enabled'#9#6'Layout'#7#5'tlTop'#14'ParentBidiMode'#9#11'ParentColor'#8
-  +#7#9'asrBottom'#4'Left'#2#11#6'Height'#2#14#3'Top'#3#211#0#5'Width'#2'='#18
+  +#10'ParentFont'#9#14'ParentShowHint'#9#13'ShowAccelChar'#9#11'Transparent'#9
-  +'BorderSpacing.Left'#2#11#17'BorderSpacing.Top'#2#7#7'Caption'#6#12'Pen opti'
+  +#7'Visible'#9#8'WordWrap'#8#11'OptimalFill'#8#0#0#6'TLabel'#6'Label4'#22'Anc'
-  +'ons:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#22'AnchorSideLeft.Control'#7
+  +'horSideLeft.Control'#7#6'Label1'#21'AnchorSideTop.Control'#7#9'CapsCombo'#18
-  +#5'Owner'#21'AnchorSideTop.Control'#7#9'JoinCombo'#18'AnchorSideTop.Side'#7#9
+  +'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#18#6'Height'#2#14#3'Top'#3'@'#1
-  +'asrBottom'#4'Left'#2#11#6'Height'#2#14#3'Top'#3'u'#1#5'Width'#2'F'#18'Borde'
+  +#5'Width'#2'2'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'ta'
-  +'rSpacing.Left'#2#11#17'BorderSpacing.Top'#2#7#7'Caption'#6#14'Brush options'
+  +'LeftJustify'#8'AutoSize'#9#18'BorderSpacing.Left'#2#7#17'BorderSpacing.Top'
-  +':'#11'ParentColor'#8#0#0#6'TBevel'#6'Bevel2'#22'AnchorSideLeft.Control'#7#6
+  +#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpaci'
-  +'Bevel1'#21'AnchorSideTop.Control'#7#6'Label2'#18'AnchorSideTop.Side'#7#9'as'
+  +'ng.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSp'
-  +'rCenter'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9
+  +'acing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#9'End Caps:'#10'DragCurs'
-  +'asrBottom'#4'Left'#2'R'#6'Height'#2#3#3'Top'#3'{'#1#5'Width'#3'['#1#7'Ancho'
+  +'or'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#6'Layout'#7#5'tlTop'
-  +'rs'#11#5'akTop'#6'akLeft'#7'akRight'#0#19'BorderSpacing.Right'#2#11#0#0#6'T'
+  +#14'ParentBidiMode'#9#11'ParentColor'#8#10'ParentFont'#9#14'ParentShowHint'#9
-  +'Label'#6'Label7'#22'AnchorSideLeft.Control'#7#6'Label1'#21'AnchorSideTop.Co'
+  +#13'ShowAccelChar'#9#11'Transparent'#9#7'Visible'#9#8'WordWrap'#8#11'Optimal'
-  +'ntrol'#7#13'PenStyleCombo'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2
+  +'Fill'#8#0#0#6'TLabel'#6'Label5'#22'AnchorSideLeft.Control'#7#6'Label1'#21'A'
-  +#18#6'Height'#2#14#3'Top'#3#235#0#5'Width'#2#29#18'BorderSpacing.Left'#2#7#7
+  +'nchorSideTop.Control'#7#9'JoinCombo'#18'AnchorSideTop.Side'#7#9'asrCenter'#4
-  +'Caption'#6#6'Style:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label8'#22'AnchorSid'
+  +'Left'#2#18#6'Height'#2#14#3'Top'#3'\'#1#5'Width'#2'3'#11'HelpContext'#2#0#5
-  +'eLeft.Control'#7#6'Label2'#21'AnchorSideTop.Control'#7#15'BrushStyleCombo'
+  +'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJustify'#8'AutoSize'#9#18'Border'
-  +#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#18#6'Height'#2#14#3'Top'#3
+  +'Spacing.Left'#2#7#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20
-  +#141#1#5'Width'#2#29#18'BorderSpacing.Left'#2#7#7'Caption'#6#6'Style:'#11'Pa'
+  +'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellA'
-  +'rentColor'#8#0#0#6'TLabel'#6'Label9'#22'AnchorSideLeft.Control'#7#6'Label1'
+  +'lignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFil'
-  +#21'AnchorSideTop.Control'#7#13'BrushColorBox'#18'AnchorSideTop.Side'#7#9'as'
+  +'l'#7'Caption'#6#11'Join Style:'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8
-  +'rCenter'#4'Left'#2#18#6'Height'#2#14#3'Top'#3#170#1#5'Width'#2#30#18'Border'
+  +'dmManual'#7'Enabled'#9#6'Layout'#7#5'tlTop'#14'ParentBidiMode'#9#11'ParentC'
-  +'Spacing.Left'#2#7#7'Caption'#6#6'Color:'#11'ParentColor'#8#0#0#6'TLabel'#7
+  +'olor'#8#10'ParentFont'#9#14'ParentShowHint'#9#13'ShowAccelChar'#9#11'Transp'
-  +'Label10'#22'AnchorSideLeft.Control'#7#6'Label1'#21'AnchorSideTop.Control'#7
+  +'arent'#9#7'Visible'#9#8'WordWrap'#8#11'OptimalFill'#8#0#0#6'TLabel'#6'Label'
-  +#11'FigureCombo'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#18#6'Height'
+  +'6'#22'AnchorSideLeft.Control'#7#6'Label1'#21'AnchorSideTop.Control'#7#11'Pe'
-  +#2#14#3'Top'#3#186#0#5'Width'#2'#'#18'BorderSpacing.Left'#2#7#7'Caption'#6#7
+  +'nColorBox'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#18#6'Height'#2#14
-  +'Figure:'#11'ParentColor'#8#0#0#7'TBitBtn'#7'Button1'#21'AnchorSideTop.Contr'
+  +#3'Top'#3'$'#1#5'Width'#2#30#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alig'
-  +'ol'#7#13'BrushColorBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSide'
+  +'nment'#7#13'taLeftJustify'#8'AutoSize'#9#18'BorderSpacing.Left'#2#7#17'Bord'
-  +'Right.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'Anchor'
+  +'erSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0
-  +'SideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'L'
+  +#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFil'
-  +'eft'#3'T'#1#6'Height'#2#26#3'Top'#3#199#1#5'Width'#2'Y'#7'Anchors'#11#5'akT'
+  +'l'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#6'Color:'
-  +'op'#7'akRight'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#11#7'Caption'#6#15
+  +#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#6'Layout'
-  +'&'#208#151#208#176#208#186#209#128#209#139#209#130#209#140#4'Kind'#7#7'bkCl'
+  +#7#5'tlTop'#14'ParentBidiMode'#9#11'ParentColor'#8#10'ParentFont'#9#14'Paren'
-  +'ose'#9'NumGlyphs'#2#0#7'OnClick'#7#12'Button1Click'#8'TabOrder'#2#0#0#0#9'T'
+  +'tShowHint'#9#13'ShowAccelChar'#9#11'Transparent'#9#7'Visible'#9#8'WordWrap'
-  ,'ComboBox'#10'WidthCombo'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSid'
+  ,#8#11'OptimalFill'#8#0#0#6'TBevel'#6'Bevel1'#22'AnchorSideLeft.Control'#7#6
-  +'eTop.Control'#7#13'PenStyleCombo'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'L'
+  +'Label1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#6
-  +'eft'#2'd'#6'Height'#2#21#3'Top'#3#4#1#5'Width'#2'n'#18'BorderSpacing.Left'#2
+  +'Label1'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7
-  +'d'#17'BorderSpacing.Top'#2#7#10'ItemHeight'#2#13#9'ItemIndex'#2#0#13'Items.'
+  +#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2'R'#6'Height'#2#3
-  +'Strings'#1#6#1'1'#6#1'2'#6#1'3'#6#1'4'#6#1'5'#6#1'6'#6#1'7'#0#8'OnChange'#7
+  +#3'Top'#3#217#0#5'Width'#3'['#1#11'HelpContext'#2#0#5'Align'#7#6'alNone'#7'A'
-  +#9'PenChange'#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#1#4'Text'#6#1'1'#0
+  +'nchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#10#17'B'
-  +#0#9'TComboBox'#9'CapsCombo'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anchor'
+  +'orderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#11#20'BorderSpacing.Bottom'
-  +'SideTop.Control'#7#11'PenColorBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
+  +#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'cc'
-  +'Left'#2'd'#6'Height'#2#21#3'Top'#3'='#1#5'Width'#2'n'#18'BorderSpacing.Left'
+  +'aFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Visible'#9#0#0#6
-  +#2'd'#17'BorderSpacing.Top'#2#7#10'ItemHeight'#2#13#9'ItemIndex'#2#0#13'Item'
+  +'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Co'
-  +'s.Strings'#1#6#5'Round'#6#6'Square'#6#4'Flat'#0#8'OnChange'#7#9'PenChange'#5
+  +'ntrol'#7#11'FigureCombo'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#11
-  +'Style'#7#14'csDropDownList'#8'TabOrder'#2#2#4'Text'#6#5'Round'#0#0#9'TCombo'
+  +#6'Height'#2#14#3'Top'#3#211#0#5'Width'#2'='#11'HelpContext'#2#0#5'Align'#7#6
-  +'Box'#9'JoinCombo'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Co'
+  +'alNone'#9'Alignment'#7#13'taLeftJustify'#8'AutoSize'#9#18'BorderSpacing.Lef'
-  +'ntrol'#7#9'CapsCombo'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'd'#6
+  +'t'#2#11#17'BorderSpacing.Top'#2#7#19'BorderSpacing.Right'#2#0#20'BorderSpac'
-  +'Height'#2#21#3'Top'#3'Y'#1#5'Width'#2'n'#18'BorderSpacing.Left'#2'd'#17'Bor'
+  +'ing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizo'
-  +'derSpacing.Top'#2#7#10'ItemHeight'#2#13#9'ItemIndex'#2#0#13'Items.Strings'#1
+  +'ntal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Capti'
-  +#6#5'Round'#6#5'Bevel'#6#6'Mitter'#0#8'OnChange'#7#9'PenChange'#5'Style'#7#14
+  +'on'#6#12'Pen options:'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'
-  +'csDropDownList'#8'TabOrder'#2#3#4'Text'#6#5'Round'#0#0#9'TColorBox'#11'PenC'
+  +#7'Enabled'#9#6'Layout'#7#5'tlTop'#14'ParentBidiMode'#9#11'ParentColor'#8#10
-  +'olorBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7
+  +'ParentFont'#9#14'ParentShowHint'#9#13'ShowAccelChar'#9#11'Transparent'#9#7
-  +#10'WidthCombo'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'd'#6'Height'
+  +'Visible'#9#8'WordWrap'#8#11'OptimalFill'#8#0#0#6'TLabel'#6'Label2'#22'Ancho'
-  +#2#22#3'Top'#3' '#1#5'Width'#2'n'#5'Style'#11#16'cbStandardColors'#16'cbExte'
+  +'rSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#9'JoinCombo'#18'A'
-  +'ndedColors'#14'cbSystemColors'#13'cbCustomColor'#13'cbPrettyNames'#0#18'Bor'
+  +'nchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#11#6'Height'#2#14#3'Top'#3'u'#1
-  +'derSpacing.Left'#2'd'#17'BorderSpacing.Top'#2#7#10'ItemHeight'#2#16#8'OnCha'
+  +#5'Width'#2'F'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'ta'
-  +'nge'#7#9'PenChange'#8'TabOrder'#2#4#0#0#9'TComboBox'#13'PenStyleCombo'#22'A'
+  +'LeftJustify'#8'AutoSize'#9#18'BorderSpacing.Left'#2#11#17'BorderSpacing.Top'
-  +'nchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#6'Label1'#18
+  +#2#7#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpaci'
-  +'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'd'#6'Height'#2#21#3'Top'#3#232
+  +'ng.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSp'
-  +#0#5'Width'#2'n'#18'BorderSpacing.Left'#2'd'#17'BorderSpacing.Top'#2#7#10'It'
+  +'acing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#14'Brush options:'#10'Dr'
-  +'emHeight'#2#13#8'OnChange'#7#9'PenChange'#5'Style'#7#14'csDropDownList'#8'T'
+  +'agCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#6'Layout'#7#5
-  +'abOrder'#2#5#0#0#9'TComboBox'#15'BrushStyleCombo'#22'AnchorSideLeft.Control'
+  +'tlTop'#14'ParentBidiMode'#9#11'ParentColor'#8#10'ParentFont'#9#14'ParentSho'
-  +#7#5'Owner'#21'AnchorSideTop.Control'#7#6'Label2'#18'AnchorSideTop.Side'#7#9
+  +'wHint'#9#13'ShowAccelChar'#9#11'Transparent'#9#7'Visible'#9#8'WordWrap'#8#11
-  +'asrBottom'#4'Left'#2'd'#6'Height'#2#21#3'Top'#3#138#1#5'Width'#2'n'#18'Bord'
+  +'OptimalFill'#8#0#0#6'TBevel'#6'Bevel2'#22'AnchorSideLeft.Control'#7#6'Bevel'
-  +'erSpacing.Left'#2'd'#17'BorderSpacing.Top'#2#7#10'ItemHeight'#2#13#9'MaxLen'
+  +'1'#21'AnchorSideTop.Control'#7#6'Label2'#18'AnchorSideTop.Side'#7#9'asrCent'
-  +'gth'#2#255#8'OnChange'#7#11'BrushChange'#5'Style'#7#14'csDropDownList'#8'Ta'
+  +'er'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asr'
-  +'bOrder'#2#6#0#0#9'TColorBox'#13'BrushColorBox'#22'AnchorSideLeft.Control'#7
+  +'Bottom'#4'Left'#2'R'#6'Height'#2#3#3'Top'#3'{'#1#5'Width'#3'['#1#11'HelpCon'
-  +#5'Owner'#21'AnchorSideTop.Control'#7#15'BrushStyleCombo'#18'AnchorSideTop.S'
+  +'text'#2#0#5'Align'#7#6'alNone'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
-  +'ide'#7#9'asrBottom'#4'Left'#2'd'#6'Height'#2#22#3'Top'#3#166#1#5'Width'#2'n'
+  +#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'
-  +#8'Selected'#7#9'clBtnFace'#5'Style'#11#16'cbStandardColors'#16'cbExtendedCo'
+  +#2#11#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpaci'
-  +'lors'#14'cbSystemColors'#13'cbCustomColor'#13'cbPrettyNames'#0#18'BorderSpa'
+  +'ng.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7
-  +'cing.Left'#2'd'#17'BorderSpacing.Top'#2#7#10'ItemHeight'#2#16#8'OnChange'#7
+  +'ccaFill'#7'Visible'#9#0#0#6'TLabel'#6'Label7'#22'AnchorSideLeft.Control'#7#6
-  +#11'BrushChange'#8'TabOrder'#2#7#0#0#9'TComboBox'#11'FigureCombo'#22'AnchorS'
+  +'Label1'#21'AnchorSideTop.Control'#7#13'PenStyleCombo'#18'AnchorSideTop.Side'
-  +'ideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#8'PaintBox'#18'Anch'
+  +#7#9'asrCenter'#4'Left'#2#18#6'Height'#2#14#3'Top'#3#235#0#5'Width'#2#29#11
-  +'orSideTop.Side'#7#9'asrBottom'#4'Left'#2'd'#6'Height'#2#21#3'Top'#3#183#0#5
+  +'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJustify'#8'Au'
-  +'Width'#2'n'#18'BorderSpacing.Left'#2'd'#17'BorderSpacing.Top'#2#7#10'ItemHe'
+  +'toSize'#9#18'BorderSpacing.Left'#2#7#17'BorderSpacing.Top'#2#0#19'BorderSpa'
-  +'ight'#2#13#9'ItemIndex'#2#0#13'Items.Strings'#1#6#4'Line'#6#8'PolyLine'#6#7
+  +'cing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!'
-  +'Ellipse'#6#9'Rectangle'#6#8'Triangle'#0#8'OnChange'#7#17'FigureComboChange'
+  +'BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignV'
-  +#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#8#4'Text'#6#4'Line'#0#0#9'TChec'
+  +'ertical'#7#7'ccaFill'#7'Caption'#6#6'Style:'#10'DragCursor'#7#6'crDrag'#8'D'
-  +'kBox'#10'cbCosmetic'#22'AnchorSideLeft.Control'#7#10'WidthCombo'#19'AnchorS'
+  +'ragMode'#7#8'dmManual'#7'Enabled'#9#6'Layout'#7#5'tlTop'#14'ParentBidiMode'
-  +'ideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#10'WidthCombo'#18
+  +#9#11'ParentColor'#8#10'ParentFont'#9#14'ParentShowHint'#9#13'ShowAccelChar'
-  +'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#3#217#0#6'Height'#2#19#3'Top'#3#5
+  +#9#11'Transparent'#9#7'Visible'#9#8'WordWrap'#8#11'OptimalFill'#8#0#0#6'TLab'
-  +#1#5'Width'#2'E'#18'BorderSpacing.Left'#2#7#7'Caption'#6#8'Cosmetic'#7'Check'
+  +'el'#6'Label8'#22'AnchorSideLeft.Control'#7#6'Label2'#21'AnchorSideTop.Contr'
-  +'ed'#9#8'OnChange'#7#9'PenChange'#5'State'#7#9'cbChecked'#8'TabOrder'#2#9#0#0
+  +'ol'#7#15'BrushStyleCombo'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#18
-  +#0
+  +#6'Height'#2#14#3'Top'#3#141#1#5'Width'#2#29#11'HelpContext'#2#0#5'Align'#7#6
+  +'alNone'#9'Alignment'#7#13'taLeftJustify'#8'AutoSize'#9#18'BorderSpacing.Lef'
+  +'t'#2#7#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpaci'
+  +'ng.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizon'
+  +'tal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Captio'
+  +'n'#6#6'Style:'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabl'
+  +'ed'#9#6'Layout'#7#5'tlTop'#14'ParentBidiMode'#9#11'ParentColor'#8#10'Parent'
+  +'Font'#9#14'ParentShowHint'#9#13'ShowAccelChar'#9#11'Transparent'#9#7'Visibl'
+  +'e'#9#8'WordWrap'#8#11'OptimalFill'#8#0#0#6'TLabel'#6'Label9'#22'AnchorSideL'
+  +'eft.Control'#7#6'Label1'#21'AnchorSideTop.Control'#7#13'BrushColorBox'#18'A'
+  +'nchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#18#6'Height'#2#14#3'Top'#3#170#1
+  +#5'Width'#2#30#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'ta'
+  +'LeftJustify'#8'AutoSize'#9#18'BorderSpacing.Left'#2#7#17'BorderSpacing.Top'
+  ,#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpaci'
+  +'ng.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSp'
+  +'acing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#6'Color:'#10'DragCursor'
+  +#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#6'Layout'#7#5'tlTop'#14
+  +'ParentBidiMode'#9#11'ParentColor'#8#10'ParentFont'#9#14'ParentShowHint'#9#13
+  +'ShowAccelChar'#9#11'Transparent'#9#7'Visible'#9#8'WordWrap'#8#11'OptimalFil'
+  +'l'#8#0#0#6'TLabel'#7'Label10'#22'AnchorSideLeft.Control'#7#6'Label1'#21'Anc'
+  +'horSideTop.Control'#7#11'FigureCombo'#18'AnchorSideTop.Side'#7#9'asrCenter'
+  +#4'Left'#2#18#6'Height'#2#14#3'Top'#3#186#0#5'Width'#2'#'#11'HelpContext'#2#0
+  +#5'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJustify'#8'AutoSize'#9#18'Bord'
+  +'erSpacing.Left'#2#7#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20
+  +'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellA'
+  +'lignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFil'
+  +'l'#7'Caption'#6#7'Figure:'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmMan'
+  +'ual'#7'Enabled'#9#6'Layout'#7#5'tlTop'#14'ParentBidiMode'#9#11'ParentColor'
+  +#8#10'ParentFont'#9#14'ParentShowHint'#9#13'ShowAccelChar'#9#11'Transparent'
+  +#9#7'Visible'#9#8'WordWrap'#8#11'OptimalFill'#8#0#0#7'TBitBtn'#7'Button1'#21
+  +'AnchorSideTop.Control'#7#13'BrushColorBox'#18'AnchorSideTop.Side'#7#9'asrBo'
+  +'ttom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'a'
+  +'srBottom'#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'
+  +#7#9'asrBottom'#4'Left'#3'T'#1#6'Height'#2#26#3'Top'#3#199#1#5'Width'#2'Y'#11
+  +'HelpContext'#2#0#5'Align'#7#6'alNone'#7'Anchors'#11#5'akTop'#7'akRight'#0#8
+  +'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderS'
+  +'pacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#11
+  +'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlign'
+  +'Vertical'#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6#15'&'#208#151#208#176#208
+  +#186#209#128#209#139#209#130#209#140#7'Default'#8#7'Enabled'#9#4'Kind'#7#7'b'
+  +'kClose'#6'Layout'#7#11'blGlyphLeft'#6'Margin'#2#255#11'ModalResult'#2#0#9'N'
+  +'umGlyphs'#2#0#7'OnClick'#7#12'Button1Click'#10'ParentFont'#9#14'ParentShowH'
+  +'int'#9#7'Spacing'#2#3#8'TabOrder'#2#0#7'TabStop'#9#7'Visible'#9#0#0#9'TComb'
+  +'oBox'#10'WidthCombo'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop'
+  +'.Control'#7#13'PenStyleCombo'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'
+  +#2'd'#6'Height'#2#21#3'Top'#3#4#1#5'Width'#2'n'#11'HelpContext'#2#0#5'Align'
+  +#7#6'alNone'#21'ArrowKeysTraverseList'#9#12'AutoComplete'#8#16'AutoCompleteT'
+  +'ext'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#12'AutoDropDo'
+  +'wn'#8#10'AutoSelect'#8#8'AutoSize'#9#18'BorderSpacing.Left'#2'd'#17'BorderS'
+  +'pacing.Top'#2#7#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20
+  +'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'
+  +#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#8'CharCase'#7#8'ecNormal'#5
+  +'Ctl3D'#8#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#13'DropDownCo'
+  +'unt'#2#8#7'Enabled'#9#10'ItemHeight'#2#13#9'ItemIndex'#2#0#13'Items.Strings'
+  +#1#6#1'1'#6#1'2'#6#1'3'#6#1'4'#6#1'5'#6#1'6'#6#1'7'#0#9'ItemWidth'#2#0#9'Max'
+  +'Length'#2#0#8'OnChange'#7#9'PenChange'#14'ParentBidiMode'#9#11'ParentColor'
+  +#8#11'ParentCtl3D'#9#10'ParentFont'#9#14'ParentShowHint'#9#6'Sorted'#8#5'Sty'
+  +'le'#7#14'csDropDownList'#8'TabOrder'#2#1#7'TabStop'#9#4'Text'#6#1'1'#7'Visi'
+  +'ble'#9#0#0#9'TComboBox'#9'CapsCombo'#22'AnchorSideLeft.Control'#7#5'Owner'
+  +#21'AnchorSideTop.Control'#7#11'PenColorBox'#18'AnchorSideTop.Side'#7#9'asrB'
+  +'ottom'#4'Left'#2'd'#6'Height'#2#21#3'Top'#3'='#1#5'Width'#2'n'#11'HelpConte'
+  +'xt'#2#0#5'Align'#7#6'alNone'#21'ArrowKeysTraverseList'#9#12'AutoComplete'#8
+  +#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'
+  +#0#12'AutoDropDown'#8#10'AutoSelect'#8#8'AutoSize'#9#18'BorderSpacing.Left'#2
+  +'d'#17'BorderSpacing.Top'#2#7#19'BorderSpacing.Right'#2#0#20'BorderSpacing.B'
+  +'ottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'
+  +#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#8'CharCase'#7
+  +#8'ecNormal'#5'Ctl3D'#8#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'
+  +#13'DropDownCount'#2#8#7'Enabled'#9#10'ItemHeight'#2#13#9'ItemIndex'#2#0#13
+  +'Items.Strings'#1#6#5'Round'#6#6'Square'#6#4'Flat'#0#9'ItemWidth'#2#0#9'MaxL'
+  +'ength'#2#0#8'OnChange'#7#9'PenChange'#14'ParentBidiMode'#9#11'ParentColor'#8
+  +#11'ParentCtl3D'#9#10'ParentFont'#9#14'ParentShowHint'#9#6'Sorted'#8#5'Style'
+  +#7#14'csDropDownList'#8'TabOrder'#2#2#7'TabStop'#9#4'Text'#6#5'Round'#7'Visi'
+  +'ble'#9#0#0#9'TComboBox'#9'JoinCombo'#22'AnchorSideLeft.Control'#7#5'Owner'
+  +#21'AnchorSideTop.Control'#7#9'CapsCombo'#18'AnchorSideTop.Side'#7#9'asrBott'
+  +'om'#4'Left'#2'd'#6'Height'#2#21#3'Top'#3'Y'#1#5'Width'#2'n'#11'HelpContext'
+  +#2#0#5'Align'#7#6'alNone'#21'ArrowKeysTraverseList'#9#12'AutoComplete'#8#16
+  ,'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0
+  +#12'AutoDropDown'#8#10'AutoSelect'#8#8'AutoSize'#9#18'BorderSpacing.Left'#2
+  +'d'#17'BorderSpacing.Top'#2#7#19'BorderSpacing.Right'#2#0#20'BorderSpacing.B'
+  +'ottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'
+  +#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#8'CharCase'#7
+  +#8'ecNormal'#5'Ctl3D'#8#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'
+  +#13'DropDownCount'#2#8#7'Enabled'#9#10'ItemHeight'#2#13#9'ItemIndex'#2#0#13
+  +'Items.Strings'#1#6#5'Round'#6#5'Bevel'#6#6'Mitter'#0#9'ItemWidth'#2#0#9'Max'
+  +'Length'#2#0#8'OnChange'#7#9'PenChange'#14'ParentBidiMode'#9#11'ParentColor'
+  +#8#11'ParentCtl3D'#9#10'ParentFont'#9#14'ParentShowHint'#9#6'Sorted'#8#5'Sty'
+  +'le'#7#14'csDropDownList'#8'TabOrder'#2#3#7'TabStop'#9#4'Text'#6#5'Round'#7
+  +'Visible'#9#0#0#9'TColorBox'#11'PenColorBox'#22'AnchorSideLeft.Control'#7#5
+  +'Owner'#21'AnchorSideTop.Control'#7#10'WidthCombo'#18'AnchorSideTop.Side'#7#9
+  +'asrBottom'#4'Left'#2'd'#6'Height'#2#22#3'Top'#3' '#1#5'Width'#2'n'#11'HelpC'
+  +'ontext'#2#0#17'DefaultColorColor'#7#7'clBlack'#14'NoneColorColor'#7#7'clBla'
+  +'ck'#8'Selected'#7#7'clBlack'#5'Style'#11#16'cbStandardColors'#16'cbExtended'
+  +'Colors'#14'cbSystemColors'#13'cbCustomColor'#13'cbPrettyNames'#0#5'Align'#7
+  +#6'alNone'#21'ArrowKeysTraverseList'#9#12'AutoComplete'#8#16'AutoCompleteTex'
+  +'t'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#12'AutoDropDown'
+  +#8#10'AutoSelect'#8#8'AutoSize'#9#18'BorderSpacing.Left'#2'd'#17'BorderSpaci'
+  +'ng.Top'#2#7#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'Bor'
+  +'derSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31
+  +'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#5'Ctl3D'#8#10'DragCursor'#7#6
+  +'crDrag'#8'DragMode'#7#8'dmManual'#13'DropDownCount'#2#8#7'Enabled'#9#10'Ite'
+  +'mHeight'#2#16#9'ItemWidth'#2#0#8'OnChange'#7#9'PenChange'#14'ParentBidiMode'
+  +#9#11'ParentColor'#8#11'ParentCtl3D'#9#10'ParentFont'#9#14'ParentShowHint'#9
+  +#8'TabOrder'#2#4#7'TabStop'#9#7'Visible'#9#0#0#9'TComboBox'#13'PenStyleCombo'
+  +#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#6'Label1'
+  +#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'd'#6'Height'#2#21#3'Top'#3
+  +#232#0#5'Width'#2'n'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#21'ArrowKeysTr'
+  +'averseList'#9#12'AutoComplete'#8#16'AutoCompleteText'#11#22'cbactEndOfLineC'
+  +'omplete'#20'cbactSearchAscending'#0#12'AutoDropDown'#8#10'AutoSelect'#8#8'A'
+  +'utoSize'#9#18'BorderSpacing.Left'#2'd'#17'BorderSpacing.Top'#2#7#19'BorderS'
+  +'pacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0
+  +'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlign'
+  +'Vertical'#7#7'ccaFill'#8'CharCase'#7#8'ecNormal'#5'Ctl3D'#8#10'DragCursor'#7
+  +#6'crDrag'#8'DragMode'#7#8'dmManual'#13'DropDownCount'#2#8#7'Enabled'#9#10'I'
+  +'temHeight'#2#13#9'ItemIndex'#2#255#9'ItemWidth'#2#0#9'MaxLength'#2#0#8'OnCh'
+  +'ange'#7#9'PenChange'#14'ParentBidiMode'#9#11'ParentColor'#8#11'ParentCtl3D'
+  +#9#10'ParentFont'#9#14'ParentShowHint'#9#6'Sorted'#8#5'Style'#7#14'csDropDow'
+  +'nList'#8'TabOrder'#2#5#7'TabStop'#9#7'Visible'#9#0#0#9'TComboBox'#15'BrushS'
+  +'tyleCombo'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7
+  +#6'Label2'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'd'#6'Height'#2#21
+  +#3'Top'#3#138#1#5'Width'#2'n'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#21'Ar'
+  +'rowKeysTraverseList'#9#12'AutoComplete'#8#16'AutoCompleteText'#11#22'cbactE'
+  +'ndOfLineComplete'#20'cbactSearchAscending'#0#12'AutoDropDown'#8#10'AutoSele'
+  +'ct'#8#8'AutoSize'#9#18'BorderSpacing.Left'#2'd'#17'BorderSpacing.Top'#2#7#19
+  +'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Arou'
+  +'nd'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.C'
+  +'ellAlignVertical'#7#7'ccaFill'#8'CharCase'#7#8'ecNormal'#5'Ctl3D'#8#10'Drag'
+  +'Cursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#13'DropDownCount'#2#8#7'Enabl'
+  +'ed'#9#10'ItemHeight'#2#13#9'ItemIndex'#2#255#9'ItemWidth'#2#0#9'MaxLength'#2
+  +#0#8'OnChange'#7#11'BrushChange'#14'ParentBidiMode'#9#11'ParentColor'#8#11'P'
+  +'arentCtl3D'#9#10'ParentFont'#9#14'ParentShowHint'#9#6'Sorted'#8#5'Style'#7
+  +#14'csDropDownList'#8'TabOrder'#2#6#7'TabStop'#9#7'Visible'#9#0#0#9'TColorBo'
+  +'x'#13'BrushColorBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop'
+  +'.Control'#7#15'BrushStyleCombo'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Lef'
+  +'t'#2'd'#6'Height'#2#22#3'Top'#3#166#1#5'Width'#2'n'#11'HelpContext'#2#0#17
+  +'DefaultColorColor'#7#7'clBlack'#14'NoneColorColor'#7#7'clBlack'#8'Selected'
+  +#7#9'clBtnFace'#5'Style'#11#16'cbStandardColors'#16'cbExtendedColors'#14'cbS'
+  +'ystemColors'#13'cbCustomColor'#13'cbPrettyNames'#0#5'Align'#7#6'alNone'#21
+  +'ArrowKeysTraverseList'#9#12'AutoComplete'#8#16'AutoCompleteText'#11#22'cbac'
+  +'tEndOfLineComplete'#20'cbactSearchAscending'#0#12'AutoDropDown'#8#10'AutoSe'
+  +'lect'#8#8'AutoSize'#9#18'BorderSpacing.Left'#2'd'#17'BorderSpacing.Top'#2#7
+  ,#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.A'
+  +'round'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacin'
+  +'g.CellAlignVertical'#7#7'ccaFill'#5'Ctl3D'#8#10'DragCursor'#7#6'crDrag'#8'D'
+  +'ragMode'#7#8'dmManual'#13'DropDownCount'#2#8#7'Enabled'#9#10'ItemHeight'#2
+  +#16#9'ItemWidth'#2#0#8'OnChange'#7#11'BrushChange'#14'ParentBidiMode'#9#11'P'
+  +'arentColor'#8#11'ParentCtl3D'#9#10'ParentFont'#9#14'ParentShowHint'#9#8'Tab'
+  +'Order'#2#7#7'TabStop'#9#7'Visible'#9#0#0#9'TComboBox'#11'FigureCombo'#22'An'
+  +'chorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#8'PaintBox'#18
+  +'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'd'#6'Height'#2#21#3'Top'#3#183
+  +#0#5'Width'#2'n'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#21'ArrowKeysTraver'
+  +'seList'#9#12'AutoComplete'#8#16'AutoCompleteText'#11#22'cbactEndOfLineCompl'
+  +'ete'#20'cbactSearchAscending'#0#12'AutoDropDown'#8#10'AutoSelect'#8#8'AutoS'
+  +'ize'#9#18'BorderSpacing.Left'#2'd'#17'BorderSpacing.Top'#2#7#19'BorderSpaci'
+  +'ng.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!Bo'
+  +'rderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVer'
+  +'tical'#7#7'ccaFill'#8'CharCase'#7#8'ecNormal'#5'Ctl3D'#8#10'DragCursor'#7#6
+  +'crDrag'#8'DragMode'#7#8'dmManual'#13'DropDownCount'#2#8#7'Enabled'#9#10'Ite'
+  +'mHeight'#2#13#9'ItemIndex'#2#0#13'Items.Strings'#1#6#4'Line'#6#8'PolyLine'#6
+  +#7'Ellipse'#6#9'Rectangle'#6#8'Triangle'#0#9'ItemWidth'#2#0#9'MaxLength'#2#0
+  +#8'OnChange'#7#17'FigureComboChange'#14'ParentBidiMode'#9#11'ParentColor'#8
+  +#11'ParentCtl3D'#9#10'ParentFont'#9#14'ParentShowHint'#9#6'Sorted'#8#5'Style'
+  +#7#14'csDropDownList'#8'TabOrder'#2#8#7'TabStop'#9#4'Text'#6#4'Line'#7'Visib'
+  +'le'#9#0#0#9'TCheckBox'#10'cbCosmetic'#22'AnchorSideLeft.Control'#7#10'Width'
+  +'Combo'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#10
+  +'WidthCombo'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#3#217#0#6'Height'
+  +#2#19#3'Top'#3#5#1#5'Width'#2'E'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#11
+  +'AllowGrayed'#8#8'AutoSize'#9#18'BorderSpacing.Left'#2#7#17'BorderSpacing.To'
+  +'p'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSp'
+  +'acing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'Borde'
+  +'rSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#8'Cosmetic'#7'Checked'
+  +#9#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManu'
+  +'al'#7'Enabled'#9#8'OnChange'#7#9'PenChange'#11'ParentColor'#9#10'ParentFont'
+  +#9#14'ParentShowHint'#9#14'ParentBidiMode'#9#5'State'#7#9'cbChecked'#8'TabOr'
+  +'der'#2#9#7'TabStop'#9#11'UseOnChange'#8#7'Visible'#9#0#0#9'TCheckBox'#14'cb'
+  +'Antialiasing'#22'AnchorSideLeft.Control'#7#11'FigureCombo'#19'AnchorSideLef'
+  +'t.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#11'FigureCombo'#18'Ancho'
+  +'rSideTop.Side'#7#9'asrCenter'#4'Left'#3#217#0#6'Height'#2#19#3'Top'#3#184#0
+  +#5'Width'#2'P'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#11'AllowGrayed'#9#8
+  +'AutoSize'#9#18'BorderSpacing.Left'#2#7#17'BorderSpacing.Top'#2#0#19'BorderS'
+  +'pacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0
+  +'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlign'
+  +'Vertical'#7#7'ccaFill'#7'Caption'#6#12'Antialiasing'#7'Checked'#8#10'DragCu'
+  +'rsor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabl'
+  +'ed'#9#8'OnChange'#7#20'cbAntialiasingChange'#11'ParentColor'#9#10'ParentFon'
+  +'t'#9#14'ParentShowHint'#9#14'ParentBidiMode'#9#5'State'#7#11'cbUnchecked'#8
+  +'TabOrder'#2#10#7'TabStop'#9#11'UseOnChange'#8#7'Visible'#9#0#0#0
 ]);

examples/pen_brush/unit1.pas

@@ -17,6 +17,7 @@ type
     Bevel2: TBevel;
     Button1: TBitBtn;
     cbCosmetic: TCheckBox;
+    cbAntialiasing: TCheckBox;
     FigureCombo: TComboBox;
     Label10: TLabel;
     Label7: TLabel;
@@ -38,6 +39,7 @@ type
     PaintBox: TPaintBox;
     procedure BrushChange(Sender: TObject);
     procedure Button1Click(Sender: TObject);
+    procedure cbAntialiasingChange(Sender: TObject);
     procedure FigureComboChange(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -64,6 +66,19 @@ begin
   Close;
 end;
 
+procedure TForm1.cbAntialiasingChange(Sender: TObject);
+const
+  AntialiasingMode: array[TCheckBoxState] of TAntialiasingMode =
+  (
+    amOff,
+    amOn,
+    amDontCare
+  );
+begin
+  PaintBox.Canvas.AntialiasingMode := AntialiasingMode[cbAntialiasing.State];
+  PaintBox.Invalidate;
+end;
+
 procedure TForm1.FigureComboChange(Sender: TObject);
 begin
   PaintBox.Invalidate;
@@ -89,6 +104,13 @@ var
   ps: TPenStyle;
   bs: TBrushStyle;
 begin
+  case PaintBox.Canvas.AntialiasingMode of
+    amDontCare: cbAntialiasing.State := cbGrayed;
+    amOn: cbAntialiasing.State := cbChecked;
+    amOff: cbAntialiasing.State := cbUnchecked;
+  end;
+
+
   FPattern := TBitmap.Create;
   FPattern.SetHandles(CreateBitmap(8, 8, 1, 1, @LineBitsDotted), 0);