paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 21:18:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

Examples: Remove semicolon after "then" in virtualtreeview and pen_brush examples. Part of MR !403 by n7800

Browse Source
This commit is contained in:
wp_xyz 2024-12-13 11:23:55 +01:00
parent 4c1940a28c
commit 8e72df6b62
2 changed files with 107 additions and 107 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

212
examples/pen_brush/unit1.lfm
View File

@ -3,17 +3,17 @@ object Form1: TForm1
Height = 604 Height = 604
Top = 85 Top = 85
Width = 461 Width = 461
HorzScrollBar.Page = 379 HorzScrollBar.Page = 338
VertScrollBar.Page = 604 VertScrollBar.Page = 586
AutoScroll = True AutoScroll = True
AutoSize = True AutoSize = True
Caption = 'Pen and Brush' Caption = 'Pen and Brush'
ClientHeight = 604 ClientHeight = 604
ClientWidth = 440 ClientWidth = 461
Position = poScreenCenter
LCLVersion = '4.99.0.0'
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
Position = poScreenCenter
LCLVersion = '2.2.4.0'
object PaintBox: TPaintBox object PaintBox: TPaintBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
@ -22,7 +22,7 @@ object Form1: TForm1
Left = 11 Left = 11
Height = 169 Height = 169
Top = 7 Top = 7
Width = 418 Width = 439
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 11 BorderSpacing.Left = 11
BorderSpacing.Top = 7 BorderSpacing.Top = 7
@ -34,9 +34,9 @@ object Form1: TForm1
AnchorSideTop.Control = WidthCombo AnchorSideTop.Control = WidthCombo
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 18 Left = 18
Height = 18 Height = 15
Top = 293 Top = 269
Width = 40 Width = 35
BorderSpacing.Left = 7 BorderSpacing.Left = 7
Caption = 'Width:' Caption = 'Width:'
ParentColor = False ParentColor = False
@ -46,9 +46,9 @@ object Form1: TForm1
AnchorSideTop.Control = CapsCombo AnchorSideTop.Control = CapsCombo
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 18 Left = 18
Height = 18 Height = 15
Top = 371 Top = 328
Width = 60 Width = 52
BorderSpacing.Left = 7 BorderSpacing.Left = 7
Caption = 'End Caps:' Caption = 'End Caps:'
ParentColor = False ParentColor = False
@ -58,9 +58,9 @@ object Form1: TForm1
AnchorSideTop.Control = JoinCombo AnchorSideTop.Control = JoinCombo
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 18 Left = 18
Height = 18 Height = 15
Top = 410 Top = 358
Width = 59 Width = 52
BorderSpacing.Left = 7 BorderSpacing.Left = 7
Caption = 'Join Style:' Caption = 'Join Style:'
ParentColor = False ParentColor = False
@ -70,9 +70,9 @@ object Form1: TForm1
AnchorSideTop.Control = PenColorBox AnchorSideTop.Control = PenColorBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 18 Left = 18
Height = 18 Height = 15
Top = 332 Top = 299
Width = 37 Width = 32
BorderSpacing.Left = 7 BorderSpacing.Left = 7
Caption = 'Color:' Caption = 'Color:'
ParentColor = False ParentColor = False
@ -84,10 +84,10 @@ object Form1: TForm1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 98 Left = 86
Height = 3 Height = 3
Top = 230 Top = 219
Width = 331 Width = 364
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10 BorderSpacing.Left = 10
BorderSpacing.Right = 11 BorderSpacing.Right = 11
@ -97,9 +97,9 @@ object Form1: TForm1
AnchorSideTop.Control = FigureCombo AnchorSideTop.Control = FigureCombo
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 11 Left = 11
Height = 18 Height = 15
Top = 222 Top = 213
Width = 77 Width = 65
BorderSpacing.Left = 11 BorderSpacing.Left = 11
BorderSpacing.Top = 7 BorderSpacing.Top = 7
Caption = 'Pen options' Caption = 'Pen options'
@ -112,9 +112,9 @@ object Form1: TForm1
AnchorSideTop.Control = JoinCombo AnchorSideTop.Control = JoinCombo
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 11 Left = 11
Height = 18 Height = 15
Top = 442 Top = 384
Width = 91 Width = 76
BorderSpacing.Left = 11 BorderSpacing.Left = 11
BorderSpacing.Top = 7 BorderSpacing.Top = 7
Caption = 'Brush options' Caption = 'Brush options'
@ -129,10 +129,10 @@ object Form1: TForm1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 112 Left = 97
Height = 3 Height = 3
Top = 450 Top = 390
Width = 317 Width = 353
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10 BorderSpacing.Left = 10
BorderSpacing.Right = 11 BorderSpacing.Right = 11
@ -142,9 +142,9 @@ object Form1: TForm1
AnchorSideTop.Control = PenStyleCombo AnchorSideTop.Control = PenStyleCombo
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 18 Left = 18
Height = 18 Height = 15
Top = 254 Top = 239
Width = 33 Width = 28
BorderSpacing.Left = 7 BorderSpacing.Left = 7
Caption = 'Style:' Caption = 'Style:'
ParentColor = False ParentColor = False
@ -154,9 +154,9 @@ object Form1: TForm1
AnchorSideTop.Control = BrushStyleCombo AnchorSideTop.Control = BrushStyleCombo
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 18 Left = 18
Height = 18 Height = 15
Top = 474 Top = 410
Width = 33 Width = 28
BorderSpacing.Left = 7 BorderSpacing.Left = 7
Caption = 'Style:' Caption = 'Style:'
ParentColor = False ParentColor = False
@ -166,9 +166,9 @@ object Form1: TForm1
AnchorSideTop.Control = BrushColorBox AnchorSideTop.Control = BrushColorBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 18 Left = 18
Height = 18 Height = 15
Top = 513 Top = 440
Width = 37 Width = 32
BorderSpacing.Left = 7 BorderSpacing.Left = 7
Caption = 'Color:' Caption = 'Color:'
ParentColor = False ParentColor = False
@ -178,9 +178,9 @@ object Form1: TForm1
AnchorSideTop.Control = FigureCombo AnchorSideTop.Control = FigureCombo
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 18 Left = 18
Height = 18 Height = 15
Top = 190 Top = 187
Width = 42 Width = 36
BorderSpacing.Left = 7 BorderSpacing.Left = 7
Caption = 'Figure:' Caption = 'Figure:'
ParentColor = False ParentColor = False
@ -192,9 +192,9 @@ object Form1: TForm1
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = BgColorBox AnchorSideBottom.Control = BgColorBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 354 Left = 375
Height = 29 Height = 26
Top = 652 Top = 549
Width = 75 Width = 75
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
@ -208,14 +208,14 @@ object Form1: TForm1
AnchorSideTop.Control = PenStyleCombo AnchorSideTop.Control = PenStyleCombo
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 100 Left = 100
Height = 32 Height = 23
Top = 286 Top = 265
Width = 140 Width = 140
AutoSelect = False AutoSelect = False
BorderSpacing.Left = 100 BorderSpacing.Left = 100
BorderSpacing.Top = 7 BorderSpacing.Top = 7
DropDownCount = 24 DropDownCount = 24
ItemHeight = 24 ItemHeight = 15
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'1' '1'
@ -226,66 +226,66 @@ object Form1: TForm1
'6' '6'
'7' '7'
) )
OnChange = PenChange
Style = csDropDownList Style = csDropDownList
TabOrder = 1 TabOrder = 1
Text = '1' Text = '1'
OnChange = PenChange
end end
object CapsCombo: TComboBox object CapsCombo: TComboBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = PenColorBox AnchorSideTop.Control = PenColorBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 100 Left = 100
Height = 32 Height = 23
Top = 364 Top = 324
Width = 140 Width = 140
AutoSelect = False AutoSelect = False
BorderSpacing.Left = 100 BorderSpacing.Left = 100
BorderSpacing.Top = 7 BorderSpacing.Top = 7
DropDownCount = 24 DropDownCount = 24
ItemHeight = 24 ItemHeight = 15
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'Round' 'Round'
'Square' 'Square'
'Flat' 'Flat'
) )
OnChange = PenChange
Style = csDropDownList Style = csDropDownList
TabOrder = 2 TabOrder = 2
Text = 'Round' Text = 'Round'
OnChange = PenChange
end end
object JoinCombo: TComboBox object JoinCombo: TComboBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CapsCombo AnchorSideTop.Control = CapsCombo
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 100 Left = 100
Height = 32 Height = 23
Top = 403 Top = 354
Width = 140 Width = 140
AutoSelect = False AutoSelect = False
BorderSpacing.Left = 100 BorderSpacing.Left = 100
BorderSpacing.Top = 7 BorderSpacing.Top = 7
DropDownCount = 24 DropDownCount = 24
ItemHeight = 24 ItemHeight = 15
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'Round' 'Round'
'Bevel' 'Bevel'
'Mitter' 'Mitter'
) )
OnChange = PenChange
Style = csDropDownList Style = csDropDownList
TabOrder = 3 TabOrder = 3
Text = 'Round' Text = 'Round'
OnChange = PenChange
end end
object PenColorBox: TColorBox object PenColorBox: TColorBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = WidthCombo AnchorSideTop.Control = WidthCombo
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 100 Left = 100
Height = 32 Height = 22
Top = 325 Top = 295
Width = 140 Width = 140
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames] Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames]
AutoSelect = False AutoSelect = False
@ -293,50 +293,50 @@ object Form1: TForm1
BorderSpacing.Top = 7 BorderSpacing.Top = 7
DropDownCount = 24 DropDownCount = 24
ItemHeight = 16 ItemHeight = 16
OnChange = PenChange
TabOrder = 4 TabOrder = 4
OnChange = PenChange
end end
object PenStyleCombo: TComboBox object PenStyleCombo: TComboBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Label1 AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 100 Left = 100
Height = 32 Height = 23
Top = 247 Top = 235
Width = 140 Width = 140
AutoSelect = False AutoSelect = False
BorderSpacing.Left = 100 BorderSpacing.Left = 100
BorderSpacing.Top = 7 BorderSpacing.Top = 7
DropDownCount = 24 DropDownCount = 24
ItemHeight = 18 ItemHeight = 15
OnChange = PenChange
Style = csDropDownList Style = csDropDownList
TabOrder = 5 TabOrder = 5
OnChange = PenChange
end end
object BrushStyleCombo: TComboBox object BrushStyleCombo: TComboBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Label2 AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 100 Left = 100
Height = 32 Height = 23
Top = 467 Top = 406
Width = 140 Width = 140
AutoSelect = False AutoSelect = False
BorderSpacing.Left = 100 BorderSpacing.Left = 100
BorderSpacing.Top = 7 BorderSpacing.Top = 7
DropDownCount = 24 DropDownCount = 24
ItemHeight = 18 ItemHeight = 15
OnChange = BrushChange
Style = csDropDownList Style = csDropDownList
TabOrder = 6 TabOrder = 6
OnChange = BrushChange
end end
object BrushColorBox: TColorBox object BrushColorBox: TColorBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = BrushStyleCombo AnchorSideTop.Control = BrushStyleCombo
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 100 Left = 100
Height = 32 Height = 22
Top = 506 Top = 436
Width = 140 Width = 140
Selected = clRed Selected = clRed
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames] Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames]
@ -345,22 +345,22 @@ object Form1: TForm1
BorderSpacing.Top = 7 BorderSpacing.Top = 7
DropDownCount = 24 DropDownCount = 24
ItemHeight = 16 ItemHeight = 16
OnChange = BrushChange
TabOrder = 7 TabOrder = 7
OnChange = BrushChange
end end
object FigureCombo: TComboBox object FigureCombo: TComboBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = PaintBox AnchorSideTop.Control = PaintBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 100 Left = 100
Height = 32 Height = 23
Top = 183 Top = 183
Width = 140 Width = 140
AutoSelect = False AutoSelect = False
BorderSpacing.Left = 100 BorderSpacing.Left = 100
BorderSpacing.Top = 7 BorderSpacing.Top = 7
DropDownCount = 24 DropDownCount = 24
ItemHeight = 24 ItemHeight = 15
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'Line' 'Line'
@ -370,10 +370,10 @@ object Form1: TForm1
'Triangle' 'Triangle'
'Text' 'Text'
) )
OnChange = FigureComboChange
Style = csDropDownList Style = csDropDownList
TabOrder = 8 TabOrder = 8
Text = 'Line' Text = 'Line'
OnChange = FigureComboChange
end end
object cbCosmetic: TCheckBox object cbCosmetic: TCheckBox
AnchorSideLeft.Control = WidthCombo AnchorSideLeft.Control = WidthCombo
@ -381,15 +381,15 @@ object Form1: TForm1
AnchorSideTop.Control = WidthCombo AnchorSideTop.Control = WidthCombo
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 247 Left = 247
Height = 22 Height = 19
Top = 291 Top = 267
Width = 85 Width = 68
BorderSpacing.Left = 7 BorderSpacing.Left = 7
Caption = 'Cosmetic' Caption = 'Cosmetic'
Checked = True Checked = True
OnChange = PenChange
State = cbChecked State = cbChecked
TabOrder = 9 TabOrder = 9
OnChange = PenChange
end end
object cbAntialiasing: TCheckBox object cbAntialiasing: TCheckBox
AnchorSideLeft.Control = FigureCombo AnchorSideLeft.Control = FigureCombo
@ -397,24 +397,24 @@ object Form1: TForm1
AnchorSideTop.Control = FigureCombo AnchorSideTop.Control = FigureCombo
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 247 Left = 247
Height = 22 Height = 19
Top = 188 Top = 185
Width = 100 Width = 80
AllowGrayed = True AllowGrayed = True
BorderSpacing.Left = 7 BorderSpacing.Left = 7
BorderSpacing.Right = 11 BorderSpacing.Right = 11
Caption = 'Antialiasing' Caption = 'Antialiasing'
OnChange = cbAntialiasingChange
TabOrder = 10 TabOrder = 10
OnChange = cbAntialiasingChange
end end
object LblBgColor: TLabel object LblBgColor: TLabel
AnchorSideLeft.Control = Label1 AnchorSideLeft.Control = Label1
AnchorSideTop.Control = BgColorBox AnchorSideTop.Control = BgColorBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 18 Left = 18
Height = 18 Height = 15
Top = 616 Top = 520
Width = 78 Width = 67
BorderSpacing.Left = 7 BorderSpacing.Left = 7
Caption = 'Background:' Caption = 'Background:'
ParentColor = False ParentColor = False
@ -424,8 +424,8 @@ object Form1: TForm1
AnchorSideTop.Control = FontColorBox AnchorSideTop.Control = FontColorBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 100 Left = 100
Height = 32 Height = 22
Top = 609 Top = 516
Width = 140 Width = 140
Selected = clYellow Selected = clYellow
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames] Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames]
@ -435,17 +435,17 @@ object Form1: TForm1
BorderSpacing.Bottom = 11 BorderSpacing.Bottom = 11
DropDownCount = 24 DropDownCount = 24
ItemHeight = 16 ItemHeight = 16
OnChange = BrushChange
TabOrder = 11 TabOrder = 11
OnChange = BrushChange
end end
object Label11: TLabel object Label11: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = BrushColorBox AnchorSideTop.Control = BrushColorBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 11 Left = 11
Height = 18 Height = 15
Top = 545 Top = 465
Width = 80 Width = 69
BorderSpacing.Left = 11 BorderSpacing.Left = 11
BorderSpacing.Top = 7 BorderSpacing.Top = 7
Caption = 'Text options' Caption = 'Text options'
@ -460,10 +460,10 @@ object Form1: TForm1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 101 Left = 90
Height = 3 Height = 3
Top = 553 Top = 471
Width = 328 Width = 360
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10 BorderSpacing.Left = 10
BorderSpacing.Right = 11 BorderSpacing.Right = 11
@ -473,9 +473,9 @@ object Form1: TForm1
AnchorSideTop.Control = FontColorBox AnchorSideTop.Control = FontColorBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 18 Left = 18
Height = 18 Height = 15
Top = 577 Top = 491
Width = 65 Width = 57
BorderSpacing.Left = 7 BorderSpacing.Left = 7
Caption = 'Font color:' Caption = 'Font color:'
ParentColor = False ParentColor = False
@ -485,8 +485,8 @@ object Form1: TForm1
AnchorSideTop.Control = Label11 AnchorSideTop.Control = Label11
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 100 Left = 100
Height = 32 Height = 22
Top = 570 Top = 487
Width = 140 Width = 140
Selected = clBlue Selected = clBlue
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames] Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames]
@ -495,8 +495,8 @@ object Form1: TForm1
BorderSpacing.Top = 7 BorderSpacing.Top = 7
DropDownCount = 24 DropDownCount = 24
ItemHeight = 16 ItemHeight = 16
OnChange = BrushChange
TabOrder = 12 TabOrder = 12
OnChange = BrushChange
end end
object cbOpaque: TCheckBox object cbOpaque: TCheckBox
AnchorSideLeft.Control = WidthCombo AnchorSideLeft.Control = WidthCombo
@ -504,13 +504,13 @@ object Form1: TForm1
AnchorSideTop.Control = BgColorBox AnchorSideTop.Control = BgColorBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 247 Left = 247
Height = 22 Height = 19
Top = 614 Top = 518
Width = 77 Width = 60
BorderSpacing.Left = 7 BorderSpacing.Left = 7
Caption = 'Opaque' Caption = 'Opaque'
OnChange = cbOpaqueChange
TabOrder = 13 TabOrder = 13
OnChange = cbOpaqueChange
end end
object PenStyleInfoBtn: TSpeedButton object PenStyleInfoBtn: TSpeedButton
AnchorSideLeft.Control = PenStyleCombo AnchorSideLeft.Control = PenStyleCombo
@ -519,7 +519,7 @@ object Form1: TForm1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 247 Left = 247
Height = 22 Height = 22
Top = 252 Top = 235
Width = 23 Width = 23
BorderSpacing.Left = 7 BorderSpacing.Left = 7
Caption = '?' Caption = '?'
@ -532,7 +532,7 @@ object Form1: TForm1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 247 Left = 247
Height = 22 Height = 22
Top = 472 Top = 406
Width = 23 Width = 23
BorderSpacing.Left = 7 BorderSpacing.Left = 7
Caption = '?' Caption = '?'

2
examples/pen_brush/unit1.pas
View File

@ -226,7 +226,7 @@ begin
PaintBox.Canvas.Pen.Cosmetic := cbCosmetic.Checked; PaintBox.Canvas.Pen.Cosmetic := cbCosmetic.Checked;
PaintBox.Canvas.Pen.EndCap := TPenEndCap(CapsCombo.ItemIndex); PaintBox.Canvas.Pen.EndCap := TPenEndCap(CapsCombo.ItemIndex);
PaintBox.Canvas.Pen.JoinStyle := TPenJoinStyle(JoinCombo.ItemIndex); PaintBox.Canvas.Pen.JoinStyle := TPenJoinStyle(JoinCombo.ItemIndex);
if PaintBox.Canvas.Pen.Style = psPattern then; if PaintBox.Canvas.Pen.Style = psPattern then
PaintBox.Canvas.Pen.SetPattern(Dashes); PaintBox.Canvas.Pen.SetPattern(Dashes);
// Must be called before setting Brush.Bitmap since that will reset Style to bsSolid // Must be called before setting Brush.Bitmap since that will reset Style to bsSolid