From 32454b8ceb42e508aaadeb8e08c98438d3b218fe Mon Sep 17 00:00:00 2001 From: paul Date: Fri, 14 Nov 2008 17:43:30 +0000 Subject: [PATCH] examples: add antialiasing option to the pen and brush example git-svn-id: trunk@17393 - --- examples/pen_brush/unit1.lfm | 581 ++++++++++++++++++++++++++++++++++- examples/pen_brush/unit1.lrs | 416 ++++++++++++++++++------- examples/pen_brush/unit1.pas | 22 ++ 3 files changed, 903 insertions(+), 116 deletions(-) diff --git a/examples/pen_brush/unit1.lfm b/examples/pen_brush/unit1.lfm index 12a5589d24..206364267b 100644 --- a/examples/pen_brush/unit1.lfm +++ b/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 diff --git a/examples/pen_brush/unit1.lrs b/examples/pen_brush/unit1.lrs index fd89fbc29b..69ffa827ac 100644 --- a/examples/pen_brush/unit1.lrs +++ b/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' - +#3#236#1#11'ClientWidth'#3#184#1#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7 - +#11'FormDestroy'#10'ParentFont'#8#8'Position'#7#14'poScreenCenter'#10'LCLVer' - +'sion'#6#6'0.9.27'#0#9'TPaintBox'#8'PaintBox'#22'AnchorSideLeft.Control'#7#5 - +'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5 - +'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#11#6'Height'#3#169 - +#0#3'Top'#2#7#5'Width'#3#162#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0 - +#18'BorderSpacing.Left'#2#11#17'BorderSpacing.Top'#2#7#19'BorderSpacing.Righ' - +'t'#2#11#7'OnPaint'#7#13'PaintBoxPaint'#0#0#6'TLabel'#6'Label3'#22'AnchorSid' - +'eLeft.Control'#7#6'Label1'#21'AnchorSideTop.Control'#7#10'WidthCombo'#18'An' - +'chorSideTop.Side'#7#9'asrCenter'#4'Left'#2#18#6'Height'#2#14#3'Top'#3#7#1#5 - +'Width'#2'!'#18'BorderSpacing.Left'#2#7#7'Caption'#6#6'Width:'#11'ParentColo' - +'r'#8#0#0#6'TLabel'#6'Label4'#22'AnchorSideLeft.Control'#7#6'Label1'#21'Anch' - +'orSideTop.Control'#7#9'CapsCombo'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'L' - +'eft'#2#18#6'Height'#2#14#3'Top'#3'@'#1#5'Width'#2'2'#18'BorderSpacing.Left' - +#2#7#7'Caption'#6#9'End Caps:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#22 - +'AnchorSideLeft.Control'#7#6'Label1'#21'AnchorSideTop.Control'#7#9'JoinCombo' - +#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#18#6'Height'#2#14#3'Top'#3 - +'\'#1#5'Width'#2'3'#18'BorderSpacing.Left'#2#7#7'Caption'#6#11'Join Style:' - +#11'ParentColor'#8#0#0#6'TLabel'#6'Label6'#22'AnchorSideLeft.Control'#7#6'La' - +'bel1'#21'AnchorSideTop.Control'#7#11'PenColorBox'#18'AnchorSideTop.Side'#7#9 - +'asrCenter'#4'Left'#2#18#6'Height'#2#14#3'Top'#3'$'#1#5'Width'#2#30#18'Borde' - +'rSpacing.Left'#2#7#7'Caption'#6#6'Color:'#11'ParentColor'#8#0#0#6'TBevel'#6 - +'Bevel1'#22'AnchorSideLeft.Control'#7#6'Label1'#19'AnchorSideLeft.Side'#7#9 - +'asrBottom'#21'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9 - +'asrCenter'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7 - +#9'asrBottom'#4'Left'#2'R'#6'Height'#2#3#3'Top'#3#217#0#5'Width'#3'['#1#7'An' - +'chors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#10#19'Bo' - +'rderSpacing.Right'#2#11#0#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7 - +#5'Owner'#21'AnchorSideTop.Control'#7#11'FigureCombo'#18'AnchorSideTop.Side' - +#7#9'asrBottom'#4'Left'#2#11#6'Height'#2#14#3'Top'#3#211#0#5'Width'#2'='#18 - +'BorderSpacing.Left'#2#11#17'BorderSpacing.Top'#2#7#7'Caption'#6#12'Pen opti' - +'ons:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#22'AnchorSideLeft.Control'#7 - +#5'Owner'#21'AnchorSideTop.Control'#7#9'JoinCombo'#18'AnchorSideTop.Side'#7#9 - +'asrBottom'#4'Left'#2#11#6'Height'#2#14#3'Top'#3'u'#1#5'Width'#2'F'#18'Borde' - +'rSpacing.Left'#2#11#17'BorderSpacing.Top'#2#7#7'Caption'#6#14'Brush options' - +':'#11'ParentColor'#8#0#0#6'TBevel'#6'Bevel2'#22'AnchorSideLeft.Control'#7#6 - +'Bevel1'#21'AnchorSideTop.Control'#7#6'Label2'#18'AnchorSideTop.Side'#7#9'as' - +'rCenter'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9 - +'asrBottom'#4'Left'#2'R'#6'Height'#2#3#3'Top'#3'{'#1#5'Width'#3'['#1#7'Ancho' - +'rs'#11#5'akTop'#6'akLeft'#7'akRight'#0#19'BorderSpacing.Right'#2#11#0#0#6'T' - +'Label'#6'Label7'#22'AnchorSideLeft.Control'#7#6'Label1'#21'AnchorSideTop.Co' - +'ntrol'#7#13'PenStyleCombo'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2 - +#18#6'Height'#2#14#3'Top'#3#235#0#5'Width'#2#29#18'BorderSpacing.Left'#2#7#7 - +'Caption'#6#6'Style:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label8'#22'AnchorSid' - +'eLeft.Control'#7#6'Label2'#21'AnchorSideTop.Control'#7#15'BrushStyleCombo' - +#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#18#6'Height'#2#14#3'Top'#3 - +#141#1#5'Width'#2#29#18'BorderSpacing.Left'#2#7#7'Caption'#6#6'Style:'#11'Pa' - +'rentColor'#8#0#0#6'TLabel'#6'Label9'#22'AnchorSideLeft.Control'#7#6'Label1' - +#21'AnchorSideTop.Control'#7#13'BrushColorBox'#18'AnchorSideTop.Side'#7#9'as' - +'rCenter'#4'Left'#2#18#6'Height'#2#14#3'Top'#3#170#1#5'Width'#2#30#18'Border' - +'Spacing.Left'#2#7#7'Caption'#6#6'Color:'#11'ParentColor'#8#0#0#6'TLabel'#7 - +'Label10'#22'AnchorSideLeft.Control'#7#6'Label1'#21'AnchorSideTop.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'#'#18'BorderSpacing.Left'#2#7#7'Caption'#6#7 - +'Figure:'#11'ParentColor'#8#0#0#7'TBitBtn'#7'Button1'#21'AnchorSideTop.Contr' - +'ol'#7#13'BrushColorBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSide' - +'Right.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'Anchor' - +'SideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'L' - +'eft'#3'T'#1#6'Height'#2#26#3'Top'#3#199#1#5'Width'#2'Y'#7'Anchors'#11#5'akT' - +'op'#7'akRight'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#11#7'Caption'#6#15 - +'&'#208#151#208#176#208#186#209#128#209#139#209#130#209#140#4'Kind'#7#7'bkCl' - +'ose'#9'NumGlyphs'#2#0#7'OnClick'#7#12'Button1Click'#8'TabOrder'#2#0#0#0#9'T' - ,'ComboBox'#10'WidthCombo'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSid' - +'eTop.Control'#7#13'PenStyleCombo'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'L' - +'eft'#2'd'#6'Height'#2#21#3'Top'#3#4#1#5'Width'#2'n'#18'BorderSpacing.Left'#2 - +'d'#17'BorderSpacing.Top'#2#7#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#8'OnChange'#7 - +#9'PenChange'#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#1#4'Text'#6#1'1'#0 - +#0#9'TComboBox'#9'CapsCombo'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anchor' - +'SideTop.Control'#7#11'PenColorBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4 - +'Left'#2'd'#6'Height'#2#21#3'Top'#3'='#1#5'Width'#2'n'#18'BorderSpacing.Left' - +#2'd'#17'BorderSpacing.Top'#2#7#10'ItemHeight'#2#13#9'ItemIndex'#2#0#13'Item' - +'s.Strings'#1#6#5'Round'#6#6'Square'#6#4'Flat'#0#8'OnChange'#7#9'PenChange'#5 - +'Style'#7#14'csDropDownList'#8'TabOrder'#2#2#4'Text'#6#5'Round'#0#0#9'TCombo' - +'Box'#9'JoinCombo'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Co' - +'ntrol'#7#9'CapsCombo'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'd'#6 - +'Height'#2#21#3'Top'#3'Y'#1#5'Width'#2'n'#18'BorderSpacing.Left'#2'd'#17'Bor' - +'derSpacing.Top'#2#7#10'ItemHeight'#2#13#9'ItemIndex'#2#0#13'Items.Strings'#1 - +#6#5'Round'#6#5'Bevel'#6#6'Mitter'#0#8'OnChange'#7#9'PenChange'#5'Style'#7#14 - +'csDropDownList'#8'TabOrder'#2#3#4'Text'#6#5'Round'#0#0#9'TColorBox'#11'PenC' - +'olorBox'#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'#5'Style'#11#16'cbStandardColors'#16'cbExte' - +'ndedColors'#14'cbSystemColors'#13'cbCustomColor'#13'cbPrettyNames'#0#18'Bor' - +'derSpacing.Left'#2'd'#17'BorderSpacing.Top'#2#7#10'ItemHeight'#2#16#8'OnCha' - +'nge'#7#9'PenChange'#8'TabOrder'#2#4#0#0#9'TComboBox'#13'PenStyleCombo'#22'A' - +'nchorSideLeft.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'#18'BorderSpacing.Left'#2'd'#17'BorderSpacing.Top'#2#7#10'It' - +'emHeight'#2#13#8'OnChange'#7#9'PenChange'#5'Style'#7#14'csDropDownList'#8'T' - +'abOrder'#2#5#0#0#9'TComboBox'#15'BrushStyleCombo'#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'#18'Bord' - +'erSpacing.Left'#2'd'#17'BorderSpacing.Top'#2#7#10'ItemHeight'#2#13#9'MaxLen' - +'gth'#2#255#8'OnChange'#7#11'BrushChange'#5'Style'#7#14'csDropDownList'#8'Ta' - +'bOrder'#2#6#0#0#9'TColorBox'#13'BrushColorBox'#22'AnchorSideLeft.Control'#7 - +#5'Owner'#21'AnchorSideTop.Control'#7#15'BrushStyleCombo'#18'AnchorSideTop.S' - +'ide'#7#9'asrBottom'#4'Left'#2'd'#6'Height'#2#22#3'Top'#3#166#1#5'Width'#2'n' - +#8'Selected'#7#9'clBtnFace'#5'Style'#11#16'cbStandardColors'#16'cbExtendedCo' - +'lors'#14'cbSystemColors'#13'cbCustomColor'#13'cbPrettyNames'#0#18'BorderSpa' - +'cing.Left'#2'd'#17'BorderSpacing.Top'#2#7#10'ItemHeight'#2#16#8'OnChange'#7 - +#11'BrushChange'#8'TabOrder'#2#7#0#0#9'TComboBox'#11'FigureCombo'#22'AnchorS' - +'ideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#8'PaintBox'#18'Anch' - +'orSideTop.Side'#7#9'asrBottom'#4'Left'#2'd'#6'Height'#2#21#3'Top'#3#183#0#5 - +'Width'#2'n'#18'BorderSpacing.Left'#2'd'#17'BorderSpacing.Top'#2#7#10'ItemHe' - +'ight'#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#8'OnChange'#7#17'FigureComboChange' - +#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#8#4'Text'#6#4'Line'#0#0#9'TChec' - +'kBox'#10'cbCosmetic'#22'AnchorSideLeft.Control'#7#10'WidthCombo'#19'AnchorS' - +'ideLeft.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'#18'BorderSpacing.Left'#2#7#7'Caption'#6#8'Cosmetic'#7'Check' - +'ed'#9#8'OnChange'#7#9'PenChange'#5'State'#7#9'cbChecked'#8'TabOrder'#2#9#0#0 - +#0 + +'idth'#3#184#1#11'HelpContext'#2#0#5'Align'#7#6'alNone'#14'AllowDropFiles'#8 + +#10'AutoScroll'#9#8'AutoSize'#9#11'BorderIcons'#11#12'biSystemMenu'#10'biMin' + +'imize'#10'biMaximize'#0#11'BorderStyle'#7#10'bsSizeable'#7'Caption'#6#13'Pe' + +'n and Brush'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomS' + +'pacing'#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSp' + +'acing'#2#0#27'ChildSizing.ControlsPerLine'#2#0#12'ClientHeight'#3#236#1#11 + +'ClientWidth'#3#184#1#8'DockSite'#8#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8 + +'dmManual'#7'Enabled'#9#11'Font.Height'#2#0#10'Font.Style'#11#0#9'FormStyle' + +#7#8'fsNormal'#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#14 + +'ParentBiDiMode'#9#10'ParentFont'#8#8'Position'#7#14'poScreenCenter'#13'Show' + +'InTaskBar'#7#9'stDefault'#14'UseDockManager'#8#10'LCLVersion'#6#6'0.9.27'#11 + +'WindowState'#7#8'wsNormal'#0#9'TPaintBox'#8'PaintBox'#22'AnchorSideLeft.Con' + +'trol'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Co' + +'ntrol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#11#6'He' + +'ight'#3#169#0#3'Top'#2#7#5'Width'#3#162#1#11'HelpContext'#2#0#5'Align'#7#6 + +'alNone'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left' + +#2#11#17'BorderSpacing.Top'#2#7#19'BorderSpacing.Right'#2#11#20'BorderSpacin' + +'g.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizont' + +'al'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#10'DragCu' + +'rsor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#11'ParentColor'#9 + +#10'ParentFont'#9#14'ParentShowHint'#9#7'Visible'#9#7'OnPaint'#7#13'PaintBox' + +'Paint'#0#0#6'TLabel'#6'Label3'#22'AnchorSideLeft.Control'#7#6'Label1'#21'An' + +'chorSideTop.Control'#7#10'WidthCombo'#18'AnchorSideTop.Side'#7#9'asrCenter' + +#4'Left'#2#18#6'Height'#2#14#3'Top'#3#7#1#5'Width'#2'!'#11'HelpContext'#2#0#5 + +'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJustify'#8'AutoSize'#9#18'Border' + +'Spacing.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#6'Width:'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManu' + +'al'#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#6'TLabel'#6'Label4'#22'Anc' + +'horSideLeft.Control'#7#6'Label1'#21'AnchorSideTop.Control'#7#9'CapsCombo'#18 + +'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#18#6'Height'#2#14#3'Top'#3'@'#1 + +#5'Width'#2'2'#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#9'End Caps:'#10'DragCurs' + +'or'#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'Optimal' + +'Fill'#8#0#0#6'TLabel'#6'Label5'#22'AnchorSideLeft.Control'#7#6'Label1'#21'A' + +'nchorSideTop.Control'#7#9'JoinCombo'#18'AnchorSideTop.Side'#7#9'asrCenter'#4 + +'Left'#2#18#6'Height'#2#14#3'Top'#3'\'#1#5'Width'#2'3'#11'HelpContext'#2#0#5 + +'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJustify'#8'AutoSize'#9#18'Border' + +'Spacing.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#11'Join Style:'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8 + +'dmManual'#7'Enabled'#9#6'Layout'#7#5'tlTop'#14'ParentBidiMode'#9#11'ParentC' + +'olor'#8#10'ParentFont'#9#14'ParentShowHint'#9#13'ShowAccelChar'#9#11'Transp' + +'arent'#9#7'Visible'#9#8'WordWrap'#8#11'OptimalFill'#8#0#0#6'TLabel'#6'Label' + +'6'#22'AnchorSideLeft.Control'#7#6'Label1'#21'AnchorSideTop.Control'#7#11'Pe' + +'nColorBox'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#18#6'Height'#2#14 + +#3'Top'#3'$'#1#5'Width'#2#30#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alig' + +'nment'#7#13'taLeftJustify'#8'AutoSize'#9#18'BorderSpacing.Left'#2#7#17'Bord' + +'erSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0 + +#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFil' + +'l'#31'BorderSpacing.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'Paren' + +'tShowHint'#9#13'ShowAccelChar'#9#11'Transparent'#9#7'Visible'#9#8'WordWrap' + ,#8#11'OptimalFill'#8#0#0#6'TBevel'#6'Bevel1'#22'AnchorSideLeft.Control'#7#6 + +'Label1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#6 + +'Label1'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7 + +#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2'R'#6'Height'#2#3 + +#3'Top'#3#217#0#5'Width'#3'['#1#11'HelpContext'#2#0#5'Align'#7#6'alNone'#7'A' + +'nchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#10#17'B' + +'orderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#11#20'BorderSpacing.Bottom' + +#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'cc' + +'aFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Visible'#9#0#0#6 + +'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Co' + +'ntrol'#7#11'FigureCombo'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#11 + +#6'Height'#2#14#3'Top'#3#211#0#5'Width'#2'='#11'HelpContext'#2#0#5'Align'#7#6 + +'alNone'#9'Alignment'#7#13'taLeftJustify'#8'AutoSize'#9#18'BorderSpacing.Lef' + +'t'#2#11#17'BorderSpacing.Top'#2#7#19'BorderSpacing.Right'#2#0#20'BorderSpac' + +'ing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizo' + +'ntal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Capti' + +'on'#6#12'Pen options:'#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'OptimalFill'#8#0#0#6'TLabel'#6'Label2'#22'Ancho' + +'rSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#9'JoinCombo'#18'A' + +'nchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#11#6'Height'#2#14#3'Top'#3'u'#1 + +#5'Width'#2'F'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'ta' + +'LeftJustify'#8'AutoSize'#9#18'BorderSpacing.Left'#2#11#17'BorderSpacing.Top' + +#2#7#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#14'Brush options:'#10'Dr' + +'agCursor'#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'ParentSho' + +'wHint'#9#13'ShowAccelChar'#9#11'Transparent'#9#7'Visible'#9#8'WordWrap'#8#11 + +'OptimalFill'#8#0#0#6'TBevel'#6'Bevel2'#22'AnchorSideLeft.Control'#7#6'Bevel' + +'1'#21'AnchorSideTop.Control'#7#6'Label2'#18'AnchorSideTop.Side'#7#9'asrCent' + +'er'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asr' + +'Bottom'#4'Left'#2'R'#6'Height'#2#3#3'Top'#3'{'#1#5'Width'#3'['#1#11'HelpCon' + +'text'#2#0#5'Align'#7#6'alNone'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0 + +#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right' + +#2#11#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpaci' + +'ng.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7 + +'ccaFill'#7'Visible'#9#0#0#6'TLabel'#6'Label7'#22'AnchorSideLeft.Control'#7#6 + +'Label1'#21'AnchorSideTop.Control'#7#13'PenStyleCombo'#18'AnchorSideTop.Side' + +#7#9'asrCenter'#4'Left'#2#18#6'Height'#2#14#3'Top'#3#235#0#5'Width'#2#29#11 + +'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJustify'#8'Au' + +'toSize'#9#18'BorderSpacing.Left'#2#7#17'BorderSpacing.Top'#2#0#19'BorderSpa' + +'cing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!' + +'BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignV' + +'ertical'#7#7'ccaFill'#7'Caption'#6#6'Style:'#10'DragCursor'#7#6'crDrag'#8'D' + +'ragMode'#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'OptimalFill'#8#0#0#6'TLab' + +'el'#6'Label8'#22'AnchorSideLeft.Control'#7#6'Label2'#21'AnchorSideTop.Contr' + +'ol'#7#15'BrushStyleCombo'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#18 + +#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 ]); diff --git a/examples/pen_brush/unit1.pas b/examples/pen_brush/unit1.pas index a56dc235a3..2f99a241dd 100644 --- a/examples/pen_brush/unit1.pas +++ b/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);