mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-18 05:29:38 +02:00
examples: add antialiasing option to the pen and brush example
git-svn-id: trunk@17393 -
This commit is contained in:
paul
parent
36ed21e333
commit
32454b8ceb
@ -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
|
||||
|
||||
@ -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
|
||||
]);
|
||||
|
||||
@ -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);
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user