mbColorLib: Set version number to 2.2 for release version.

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

components/mbColorLib/HSLColorPicker.pas

@@ -509,6 +509,9 @@ begin
     FHSPicker.RelHue := H;
     FHSPicker.RelSaturation := S;
     FLVPicker.SelectedColor := Value;
+    FRed := GetRValue(Value);
+    FGreen := GetGValue(Value);
+    FBlue := GetBValue(Value);
   end;
 end;
 

components/mbColorLib/examples/fulldemo/main.lfm

@@ -3,7 +3,7 @@ object Form1: TForm1
   Height = 416
   Top = 197
   Width = 594
-  Caption = 'mbColor Lib v2.1 Demo'
+  Caption = 'mbColor Lib v2.2 Demo'
   ClientHeight = 416
   ClientWidth = 594
   Font.Color = clWindowText
@@ -31,12 +31,10 @@ object Form1: TForm1
         Height = 360
         Top = 8
         Width = 454
-        SelectedColor = 3552968
-        Saturation = 147
+        Luminance = 128
         HSPickerHintFormat = 'H: %h S: %s'#13'Hex: #%hex'
         LPickerHintFormat = 'Luminance: %l'
         VPickerHintFormat = 'Value: %value (selected)'
-        MaxLuminance = 255
         Anchors = [akTop, akLeft, akRight, akBottom]
         TabOrder = 0
         OnChange = HSLColorPicker1Change
@@ -498,7 +496,6 @@ object Form1: TForm1
             'clBlack'
           )
           HintFormat = 'RGB(%r, %g, %b)'#13'Hex: #%hex'
-          AutoHeight = True
           TabOrder = 0
           OnSelColorChange = mbColorPalette1SelColorChange
           OnMouseMove = mbColorPalette1MouseMove
@@ -907,13 +904,10 @@ object Form1: TForm1
         Height = 155
         Top = 6
         Width = 211
-        SelectedColor = 15406357
         HintFormat = 'H: %h S: %s'#13'Hex: %hex'
         TabOrder = 0
         OnMouseMove = HSColorPicker1MouseMove
-        Hue = 240
         Luminance = 128
-        Saturation = 215
         MarkerStyle = msSquare
         OnChange = HSColorPicker1Change
       end

components/mbColorLib/examples/fulldemo/main.pas

@@ -336,7 +336,7 @@ begin
     WriteString('InternetShortcut','IconFile', '"' + Application.ExeName + '"');
   finally
     Free;
-  end; 
+  end;
 end;
 
 procedure TForm1.HColorPicker1GetHintStr(Sender: TObject; X, Y: Integer;

components/mbColorLib/mbcolorliblaz.lpk

@@ -14,7 +14,7 @@
     </CompilerOptions>
     <Description Value="Comprehensive color selection library with more than 30 components"/>
     <License Value="License is granted to use, modify and redistribute these units in your applications as you see fit. You are given COMPLETE FREEDOM with the sources found in this pack; you're free to use it in ANY kind of app without even mentioning my name, my site or any other stuff, that depends on your good will and nothing else. I will accept any modifications and incorporate them in this pack if they'll help make it better. You are under NO obligation to pay for these components to neither me nor anyone else trying to sell them in their current form. If you wish to support development of these components you can do so by contributing some source or making a donation, again this solely depends on your good will."/>
-    <Version Major="2" Minor="1"/>
+    <Version Major="2" Minor="2"/>
     <Files Count="46">
       <Item1>
         <Filename Value="PalUtils.pas"/>