mbColorLib: Fix flickering and other painting issues of HexaColorPicker

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5510 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/mbColorLib/examples/fulldemo/main.lfm

@@ -42,9 +42,9 @@ object Form1: TForm1
     Height = 363
     Top = 6
     Width = 403
-    ActivePage = TabSheet3
+    ActivePage = TabSheet2
     Anchors = [akTop, akLeft, akRight, akBottom]
-    TabIndex = 2
+    TabIndex = 1
     TabOrder = 0
     OnMouseMove = PageControl1MouseMove
     object TabSheet1: TTabSheet
@@ -56,7 +56,7 @@ object Form1: TForm1
         Height = 287
         Top = 8
         Width = 377
-        SelectedColor = 488454
+        SelectedColor = 553990
         HSPickerHintFormat = 'H: %h S: %s'#13'Hex: %hex'
         LPickerHintFormat = 'Luminance: %l'
         Anchors = [akTop, akLeft, akRight, akBottom]
@@ -67,26 +67,27 @@ object Form1: TForm1
     end
     object TabSheet2: TTabSheet
       Caption = 'HexaColorPicker'
-      ClientHeight = 303
-      ClientWidth = 391
+      ClientHeight = 335
+      ClientWidth = 395
       ImageIndex = 1
       object Label4: TLabel
         AnchorSideTop.Control = ComboBox1
         AnchorSideTop.Side = asrCenter
         Left = 112
         Height = 15
-        Top = 282
+        Top = 314
         Width = 40
         Caption = 'Marker:'
         ParentColor = False
       end
       object HexaColorPicker1: THexaColorPicker
         Left = 48
-        Height = 271
+        Height = 303
         Top = 4
-        Width = 285
+        Width = 289
         Anchors = [akTop, akLeft, akRight, akBottom]
         HintFormat = 'RGB(%r, %g, %b)'#13'Hex: %h'
+        SliderMarker = smRect
         IntensityText = 'Intensity'
         TabOrder = 0
         Constraints.MinHeight = 85
@@ -99,7 +100,7 @@ object Form1: TForm1
         AnchorSideTop.Side = asrCenter
         Left = 4
         Height = 19
-        Top = 280
+        Top = 312
         Width = 83
         Caption = 'SliderVisible'
         Checked = True
@@ -110,7 +111,7 @@ object Form1: TForm1
       object ComboBox1: TComboBox
         Left = 160
         Height = 23
-        Top = 278
+        Top = 310
         Width = 71
         Anchors = [akLeft, akBottom]
         ItemHeight = 15
@@ -129,7 +130,7 @@ object Form1: TForm1
         AnchorSideTop.Side = asrCenter
         Left = 256
         Height = 20
-        Top = 279
+        Top = 311
         Width = 101
         Anchors = [akTop, akLeft, akBottom]
         Caption = 'NewArrowStyle'