examples: update pen and brush example

git-svn-id: trunk@17331 -

examples/pen_brush/unit1.lfm

@@ -213,34 +213,10 @@ object Form1: TForm1
     Height = 22
     Top = 192
     Width = 96
+    Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
     BorderSpacing.Top = 7
     ItemHeight = 16
-    ItemIndex = 0
-    Items.Strings = (
-      'clBlack'
-      'clMaroon'
-      'clGreen'
-      'clOlive'
-      'clNavy'
-      'clPurple'
-      'clTeal'
-      'clGray'
-      'clSilver'
-      'clRed'
-      'clLime'
-      'clYellow'
-      'clBlue'
-      'clFuchsia'
-      'clAqua'
-      'clSilver'
-      'clGray'
-      'clWhite'
-      'clCream'
-      'clNone'
-      'clDefault'
-    )
-    TabOrder = 5
-    Text = 'clBlack'
     OnChange = WidthComboChange
+    TabOrder = 5
   end
 end

examples/pen_brush/unit1.lrs

@@ -64,11 +64,7 @@ LazarusResources.Add('TForm1','FORMDATA',[
   +'on'#6#9'Geometric'#8'OnChange'#7#16'WidthComboChange'#14'ParentBidiMode'#8#8
   +'TabOrder'#2#4#0#0#9'TColorBox'#11'PenColorBox'#21'AnchorSideTop.Control'#7#6
   +'PenBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3'P'#1#6'Height'#2#22
-  +#3'Top'#3#192#0#5'Width'#2'`'#17'BorderSpacing.Top'#2#7#10'ItemHeight'#2#16#9
+  +#3'Top'#3#192#0#5'Width'#2'`'#5'Style'#11#16'cbStandardColors'#16'cbExtended'
-  ,'ItemIndex'#2#0#13'Items.Strings'#1#6#7'clBlack'#6#8'clMaroon'#6#7'clGreen'#6
+  ,'Colors'#14'cbSystemColors'#13'cbPrettyNames'#0#17'BorderSpacing.Top'#2#7#10
-  +#7'clOlive'#6#6'clNavy'#6#8'clPurple'#6#6'clTeal'#6#6'clGray'#6#8'clSilver'#6
+  +'ItemHeight'#2#16#8'OnChange'#7#16'WidthComboChange'#8'TabOrder'#2#5#0#0#0
-  +#5'clRed'#6#6'clLime'#6#8'clYellow'#6#6'clBlue'#6#9'clFuchsia'#6#6'clAqua'#6
-  +#8'clSilver'#6#6'clGray'#6#7'clWhite'#6#7'clCream'#6#6'clNone'#6#9'clDefault'
-  +#0#8'TabOrder'#2#5#4'Text'#6#7'clBlack'#8'OnChange'#7#16'WidthComboChange'#0
-  +#0#0
 ]);