paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 13:22:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

examples: cleanup pen and brush example

Browse Source 
git-svn-id: trunk@31471 -
This commit is contained in:
paul 2011-06-30 09:09:31 +00:00
parent 17bfc6f175
commit e8085ad171
5 changed files with 96 additions and 333 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -3789,7 +3789,6 @@ examples/pascalstream/unit1.pas svneol=native#text/plain
examples/pen_brush/project1.lpi svneol=native#text/plain
examples/pen_brush/project1.lpr svneol=native#text/pascal
examples/pen_brush/unit1.lfm svneol=native#text/plain
examples/pen_brush/unit1.lrs svneol=native#text/pascal
examples/pen_brush/unit1.pas svneol=native#text/pascal
examples/popupnotifier/popupnotifierdemo.lpi svneol=native#text/plain
examples/popupnotifier/popupnotifierdemo.lpr svneol=native#text/plain

152
examples/pen_brush/project1.lpi
View File

@ -1,21 +1,23 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<Version Value="7"/>
<General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/>
<ActiveWindowIndexAtStart Value="0"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
<Language Value=""/>
<CharSet Value=""/>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
@ -46,151 +48,45 @@
<ComponentName Value="Form1"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<CursorPos X="9" Y="66"/>
<TopLine Value="49"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="40"/>
<CursorPos X="10" Y="58"/>
<UsageCount Value="26"/>
<Bookmarks Count="1">
<Item0 X="30" Y="86" ID="1"/>
</Bookmarks>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="..\..\lcl\forms.pp"/>
<UnitName Value="Forms"/>
<WindowIndex Value="0"/>
<TopLine Value="1031"/>
<CursorPos X="24" Y="980"/>
<TopLine Value="968"/>
<EditorIndex Value="1"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit2>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<JumpHistory Count="2" HistoryIndex="1">
<Position1>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="824" Column="13" TopLine="795"/>
</Position1>
<Position2>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="849" Column="11" TopLine="829"/>
</Position2>
<Position3>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="926" Column="15" TopLine="907"/>
</Position3>
<Position4>
<Filename Value="unit1.pas"/>
<Caret Line="66" Column="9" TopLine="49"/>
</Position4>
<Position5>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="592" Column="28" TopLine="584"/>
</Position5>
<Position6>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position6>
<Position7>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="51" Column="11" TopLine="31"/>
</Position7>
<Position8>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="63" Column="75" TopLine="31"/>
</Position8>
<Position9>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="68" Column="23" TopLine="31"/>
</Position9>
<Position10>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="357" Column="18" TopLine="331"/>
</Position10>
<Position11>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="396" Column="37" TopLine="377"/>
</Position11>
<Position12>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="430" Column="34" TopLine="411"/>
</Position12>
<Position13>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="553" Column="31" TopLine="533"/>
</Position13>
<Position14>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="593" Column="28" TopLine="573"/>
</Position14>
<Position15>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="603" Column="31" TopLine="573"/>
</Position15>
<Position16>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="604" Column="47" TopLine="573"/>
</Position16>
<Position17>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="668" Column="28" TopLine="648"/>
</Position17>
<Position18>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="812" Column="13" TopLine="783"/>
</Position18>
<Position19>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="814" Column="13" TopLine="783"/>
</Position19>
<Position20>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="816" Column="11" TopLine="783"/>
</Position20>
<Position21>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="818" Column="48" TopLine="783"/>
</Position21>
<Position22>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="819" Column="62" TopLine="783"/>
</Position22>
<Position23>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="824" Column="46" TopLine="804"/>
</Position23>
<Position24>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="848" Column="11" TopLine="829"/>
</Position24>
<Position25>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="872" Column="24" TopLine="853"/>
</Position25>
<Position26>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="881" Column="29" TopLine="853"/>
</Position26>
<Position27>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="895" Column="24" TopLine="875"/>
</Position27>
<Position28>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="897" Column="31" TopLine="875"/>
</Position28>
<Position29>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="908" Column="28" TopLine="875"/>
</Position29>
<Position30>
<Filename Value="..\..\lcl\forms.pp"/>
<Caret Line="963" Column="30" TopLine="936"/>
</Position30>
</Position1>
<Position2>
<Filename Value="unit1.pas"/>
<Caret Line="72" Column="90" TopLine="61"/>
</Position2>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="10"/>
<PathDelim Value="\"/>
<Parsing>
<SyntaxOptions>
<CStyleOperator Value="False"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>

139
examples/pen_brush/unit1.lfm
View File

@ -3,6 +3,8 @@ object Form1: TForm1
Height = 573
Top = 215
Width = 471
HorzScrollBar.Page = 471
VertScrollBar.Page = 573
AutoScroll = True
AutoSize = True
Caption = 'Pen and Brush'
@ -11,7 +13,7 @@ object Form1: TForm1
OnCreate = FormCreate
OnDestroy = FormDestroy
Position = poScreenCenter
LCLVersion = '0.9.29'
LCLVersion = '0.9.31'
object PaintBox: TPaintBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
@ -32,9 +34,9 @@ object Form1: TForm1
AnchorSideTop.Control = WidthCombo
AnchorSideTop.Side = asrCenter
Left = 18
Height = 18
Top = 290
Width = 40
Height = 16
Top = 269
Width = 36
BorderSpacing.Left = 7
Caption = 'Width:'
ParentColor = False
@ -44,9 +46,9 @@ object Form1: TForm1
AnchorSideTop.Control = CapsCombo
AnchorSideTop.Side = asrCenter
Left = 18
Height = 18
Top = 366
Width = 65
Height = 16
Top = 328
Width = 53
BorderSpacing.Left = 7
Caption = 'End Caps:'
ParentColor = False
@ -56,9 +58,9 @@ object Form1: TForm1
AnchorSideTop.Control = JoinCombo
AnchorSideTop.Side = asrCenter
Left = 18
Height = 18
Top = 404
Width = 63
Height = 16
Top = 358
Width = 53
BorderSpacing.Left = 7
Caption = 'Join Style:'
ParentColor = False
@ -68,9 +70,9 @@ object Form1: TForm1
AnchorSideTop.Control = PenColorBox
AnchorSideTop.Side = asrCenter
Left = 18
Height = 18
Top = 328
Width = 38
Height = 16
Top = 299
Width = 33
BorderSpacing.Left = 7
Caption = 'Color:'
ParentColor = False
@ -82,10 +84,10 @@ object Form1: TForm1
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 101
Left = 88
Height = 3
Top = 229
Width = 359
Top = 220
Width = 372
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Right = 11
@ -95,9 +97,9 @@ object Form1: TForm1
AnchorSideTop.Control = FigureCombo
AnchorSideTop.Side = asrBottom
Left = 11
Height = 18
Top = 221
Width = 80
Height = 16
Top = 213
Width = 67
BorderSpacing.Left = 11
BorderSpacing.Top = 7
Caption = 'Pen options:'
@ -108,9 +110,9 @@ object Form1: TForm1
AnchorSideTop.Control = JoinCombo
AnchorSideTop.Side = asrBottom
Left = 11
Height = 18
Top = 436
Width = 93
Height = 16
Top = 385
Width = 77
BorderSpacing.Left = 11
BorderSpacing.Top = 7
Caption = 'Brush options:'
@ -122,10 +124,10 @@ object Form1: TForm1
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 101
Left = 88
Height = 3
Top = 444
Width = 359
Top = 392
Width = 372
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 11
end
@ -134,9 +136,9 @@ object Form1: TForm1
AnchorSideTop.Control = PenStyleCombo
AnchorSideTop.Side = asrCenter
Left = 18
Height = 18
Top = 252
Width = 37
Height = 16
Top = 239
Width = 29
BorderSpacing.Left = 7
Caption = 'Style:'
ParentColor = False
@ -146,9 +148,9 @@ object Form1: TForm1
AnchorSideTop.Control = BrushStyleCombo
AnchorSideTop.Side = asrCenter
Left = 18
Height = 18
Top = 467
Width = 37
Height = 16
Top = 411
Width = 29
BorderSpacing.Left = 7
Caption = 'Style:'
ParentColor = False
@ -158,9 +160,9 @@ object Form1: TForm1
AnchorSideTop.Control = BrushColorBox
AnchorSideTop.Side = asrCenter
Left = 18
Height = 18
Top = 505
Width = 38
Height = 16
Top = 441
Width = 33
BorderSpacing.Left = 7
Caption = 'Color:'
ParentColor = False
@ -170,9 +172,9 @@ object Form1: TForm1
AnchorSideTop.Control = FigureCombo
AnchorSideTop.Side = asrCenter
Left = 18
Height = 18
Top = 189
Width = 43
Height = 16
Top = 186
Width = 37
BorderSpacing.Left = 7
Caption = 'Figure:'
ParentColor = False
@ -184,17 +186,16 @@ object Form1: TForm1
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 394
Height = 29
Top = 541
Width = 66
Left = 386
Height = 26
Top = 471
Width = 74
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Around = 11
Caption = 'Close'
Kind = bkClose
NumGlyphs = 0
OnClick = Button1Click
TabOrder = 0
end
object WidthCombo: TComboBox
@ -202,13 +203,13 @@ object Form1: TForm1
AnchorSideTop.Control = PenStyleCombo
AnchorSideTop.Side = asrBottom
Left = 100
Height = 31
Top = 284
Height = 23
Top = 266
Width = 140
AutoSelect = False
BorderSpacing.Left = 100
BorderSpacing.Top = 7
ItemHeight = 0
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'1'
@ -229,13 +230,13 @@ object Form1: TForm1
AnchorSideTop.Control = PenColorBox
AnchorSideTop.Side = asrBottom
Left = 100
Height = 31
Top = 360
Height = 23
Top = 325
Width = 140
AutoSelect = False
BorderSpacing.Left = 100
BorderSpacing.Top = 7
ItemHeight = 0
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'Round'
@ -252,13 +253,13 @@ object Form1: TForm1
AnchorSideTop.Control = CapsCombo
AnchorSideTop.Side = asrBottom
Left = 100
Height = 31
Top = 398
Height = 23
Top = 355
Width = 140
AutoSelect = False
BorderSpacing.Left = 100
BorderSpacing.Top = 7
ItemHeight = 0
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'Round'
@ -275,8 +276,8 @@ object Form1: TForm1
AnchorSideTop.Control = WidthCombo
AnchorSideTop.Side = asrBottom
Left = 100
Height = 31
Top = 322
Height = 22
Top = 296
Width = 140
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames]
AutoSelect = False
@ -291,13 +292,13 @@ object Form1: TForm1
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 100
Height = 31
Top = 246
Height = 23
Top = 236
Width = 140
AutoSelect = False
BorderSpacing.Left = 100
BorderSpacing.Top = 7
ItemHeight = 0
ItemHeight = 15
OnChange = PenChange
Style = csDropDownList
TabOrder = 5
@ -307,13 +308,13 @@ object Form1: TForm1
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom
Left = 100
Height = 31
Top = 461
Height = 23
Top = 408
Width = 140
AutoSelect = False
BorderSpacing.Left = 100
BorderSpacing.Top = 7
ItemHeight = 0
ItemHeight = 15
OnChange = BrushChange
Style = csDropDownList
TabOrder = 6
@ -323,8 +324,8 @@ object Form1: TForm1
AnchorSideTop.Control = BrushStyleCombo
AnchorSideTop.Side = asrBottom
Left = 100
Height = 31
Top = 499
Height = 22
Top = 438
Width = 140
Selected = clBtnFace
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames]
@ -340,13 +341,13 @@ object Form1: TForm1
AnchorSideTop.Control = PaintBox
AnchorSideTop.Side = asrBottom
Left = 100
Height = 31
Height = 23
Top = 183
Width = 140
AutoSelect = False
BorderSpacing.Left = 100
BorderSpacing.Top = 7
ItemHeight = 0
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'Line'
@ -366,9 +367,9 @@ object Form1: TForm1
AnchorSideTop.Control = WidthCombo
AnchorSideTop.Side = asrCenter
Left = 247
Height = 22
Top = 288
Width = 84
Height = 19
Top = 268
Width = 70
BorderSpacing.Left = 7
Caption = 'Cosmetic'
Checked = True
@ -382,9 +383,9 @@ object Form1: TForm1
AnchorSideTop.Control = FigureCombo
AnchorSideTop.Side = asrCenter
Left = 247
Height = 22
Top = 187
Width = 97
Height = 19
Top = 185
Width = 82
AllowGrayed = True
BorderSpacing.Left = 7
Caption = 'Antialiasing'

126
examples/pen_brush/unit1.lrs
View File

@ -1,126 +0,0 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'^'#1#6'Height'#3'='#2#3'Top'#3#215#0#5'Wi'
+'dth'#3#215#1#10'AutoScroll'#9#8'AutoSize'#9#7'Caption'#6#13'Pen and Brush'
+#12'ClientHeight'#3'='#2#11'ClientWidth'#3#215#1#8'OnCreate'#7#10'FormCreate'
+#9'OnDestroy'#7#11'FormDestroy'#8'Position'#7#14'poScreenCenter'#10'LCLVersi'
+'on'#6#6'0.9.29'#0#9'TPaintBox'#8'PaintBox'#22'AnchorSideLeft.Control'#7#5'O'
+'wner'#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#193#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#18#3'Top'#3'"'#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#18#3'Top'#3'n'#1#5'Width'#2'A'#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#18#3'Top'#3
+#148#1#5'Width'#2'?'#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#18#3'Top'#3'H'#1#5'Width'#2'&'#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'e'#6'Height'#2#3#3'Top'#3#229#0#5'Width'#3'g'#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#18#3'Top'#3#221#0#5'Width'#2'P'#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#18#3'Top'#3#180#1#5'Width'#2']'#18'Bord'
+'erSpacing.Left'#2#11#17'BorderSpacing.Top'#2#7#7'Caption'#6#14'Brush option'
+'s:'#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'e'#6'Height'#2#3#3'Top'#3#188#1#5'Width'#3'g'#1#7'Anch'
+'ors'#11#5'akTop'#6'akLeft'#7'akRight'#0#19'BorderSpacing.Right'#2#11#0#0#6
+'TLabel'#6'Label7'#22'AnchorSideLeft.Control'#7#6'Label1'#21'AnchorSideTop.C'
+'ontrol'#7#13'PenStyleCombo'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2
+#18#6'Height'#2#18#3'Top'#3#252#0#5'Width'#2'%'#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#18#3'Top'#3
+#211#1#5'Width'#2'%'#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#18#3'Top'#3#249#1#5'Width'#2'&'#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#18#3'Top'#3#189#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#138#1#6'Height'#2#29#3'Top'#3#29#2#5'Width'#2'B'#7'Anchors'#11#5'akT'
+'op'#7'akRight'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#11#7'Caption'#6#5
+'Close'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#7'OnClick'#7#12'Button1Click'#8
+'TabOrder'#2#0#0#0#9'TComboBox'#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#31#3'Top'#3#28#1#5'Width'#3#140#0#10
+'AutoSelect'#8#18'BorderSpacing.Left'#2'd'#17'BorderSpacing.Top'#2#7#10'Item'
+'Height'#2#0#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'csDropDownL'
+'ist'#8'TabOrder'#2#1#4'Text'#6#1'1'#0#0#9'TComboBox'#9'CapsCombo'#22'Anchor'
+'SideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#11'PenColorBox'#18
+'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'd'#6'Height'#2#31#3'Top'#3'h'#1
+#5'Width'#3#140#0#10'AutoSelect'#8#18'BorderSpacing.Left'#2'd'#17'BorderSpac'
+'ing.Top'#2#7#10'ItemHeight'#2#0#9'ItemIndex'#2#0#13'Items.Strings'#1#6#5'Ro'
+'und'#6#6'Square'#6#4'Flat'#0#8'OnChange'#7#9'PenChange'#5'Style'#7#14'csDro'
+'pDownList'#8'TabOrder'#2#2#4'Text'#6#5'Round'#0#0#9'TComboBox'#9'JoinCombo'
+#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#9'CapsCom'
+'bo'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'd'#6'Height'#2#31#3'Top'
+#3#142#1#5'Width'#3#140#0#10'AutoSelect'#8#18'BorderSpacing.Left'#2'd'#17'Bo'
+'rderSpacing.Top'#2#7#10'ItemHeight'#2#0#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#31#3'Top'#3'B'#1#5'Width'#3#140#0#5'Style'#11#16'cbStandardColors'#16'cbE'
+'xtendedColors'#14'cbSystemColors'#13'cbCustomColor'#13'cbPrettyNames'#0#10
+'AutoSelect'#8#18'BorderSpacing.Left'#2'd'#17'BorderSpacing.Top'#2#7#10'Item'
+'Height'#2#16#8'OnChange'#7#9'PenChange'#8'TabOrder'#2#4#0#0#9'TComboBox'#13
+'PenStyleCombo'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Contr'
+'ol'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'd'#6'Height'
+#2#31#3'Top'#3#246#0#5'Width'#3#140#0#10'AutoSelect'#8#18'BorderSpacing.Left'
+#2'd'#17'BorderSpacing.Top'#2#7#10'ItemHeight'#2#0#8'OnChange'#7#9'PenChange'
+#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#5#0#0#9'TComboBox'#15'BrushStyl'
+'eCombo'#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#31#3
+'Top'#3#205#1#5'Width'#3#140#0#10'AutoSelect'#8#18'BorderSpacing.Left'#2'd'
+#17'BorderSpacing.Top'#2#7#10'ItemHeight'#2#0#8'OnChange'#7#11'BrushChange'#5
+'Style'#7#14'csDropDownList'#8'TabOrder'#2#6#0#0#9'TColorBox'#13'BrushColorB'
+'ox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#15'Br'
+'ushStyleCombo'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'd'#6'Height'
+#2#31#3'Top'#3#243#1#5'Width'#3#140#0#8'Selected'#7#9'clBtnFace'#5'Style'#11
+#16'cbStandardColors'#16'cbExtendedColors'#14'cbSystemColors'#13'cbCustomCol'
+'or'#13'cbPrettyNames'#0#10'AutoSelect'#8#18'BorderSpacing.Left'#2'd'#17'Bor'
+'derSpacing.Top'#2#7#10'ItemHeight'#2#16#8'OnChange'#7#11'BrushChange'#8'Tab'
+'Order'#2#7#0#0#9'TComboBox'#11'FigureCombo'#22'AnchorSideLeft.Control'#7#5
+'Owner'#21'AnchorSideTop.Control'#7#8'PaintBox'#18'AnchorSideTop.Side'#7#9'a'
+'srBottom'#4'Left'#2'd'#6'Height'#2#31#3'Top'#3#183#0#5'Width'#3#140#0#10'Au'
+'toSelect'#8#18'BorderSpacing.Left'#2'd'#17'BorderSpacing.Top'#2#7#10'ItemHe'
+'ight'#2#0#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#247#0#6'Height'#2#22#3'Top'#3
+' '#1#5'Width'#2'T'#18'BorderSpacing.Left'#2#7#7'Caption'#6#8'Cosmetic'#7'Ch'
+'ecked'#9#8'OnChange'#7#9'PenChange'#5'State'#7#9'cbChecked'#8'TabOrder'#2#9
+#0#0#9'TCheckBox'#14'cbAntialiasing'#22'AnchorSideLeft.Control'#7#11'FigureC'
+'ombo'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#11
+'FigureCombo'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#3#247#0#6'Height'
+#2#22#3'Top'#3#187#0#5'Width'#2'a'#11'AllowGrayed'#9#18'BorderSpacing.Left'#2
+#7#7'Caption'#6#12'Antialiasing'#8'OnChange'#7#20'cbAntialiasingChange'#8'Ta'
+'bOrder'#2#10#0#0#0
]);

11
examples/pen_brush/unit1.pas
View File

@ -38,7 +38,6 @@ type
Label5: TLabel;
PaintBox: TPaintBox;
procedure BrushChange(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure cbAntialiasingChange(Sender: TObject);
procedure FigureComboChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
@ -56,16 +55,13 @@ var
implementation
{$R *.lfm}
uses
TypInfo;
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
Monitor;
end;
procedure TForm1.cbAntialiasingChange(Sender: TObject);
const
AntialiasingMode: array[TCheckBoxState] of TAntialiasingMode =
@ -210,8 +206,5 @@ begin
PaintBox.Invalidate;
end;
initialization
{$I unit1.lrs}
end.