diff --git a/components/mbColorLib/examples/fulldemo/main.lfm b/components/mbColorLib/examples/fulldemo/main.lfm
index 0f3513a11..0b28d09c5 100644
--- a/components/mbColorLib/examples/fulldemo/main.lfm
+++ b/components/mbColorLib/examples/fulldemo/main.lfm
@@ -43,9 +43,9 @@ object Form1: TForm1
     Height = 384
     Top = 6
     Width = 403
-    ActivePage = TabSheet3
+    ActivePage = TabSheet9
     Anchors = [akTop, akLeft, akRight, akBottom]
-    TabIndex = 2
+    TabIndex = 9
     TabOrder = 0
     OnChange = PageControl1Change
     OnMouseMove = PageControl1MouseMove
@@ -721,8 +721,8 @@ object Form1: TForm1
         TabOrder = 2
         Hue = 0
         Saturation = 0
-        Luminance = 78
-        SelectedColor = 5131854
+        Luminance = 73
+        SelectedColor = 4802889
       end
       object VColorPicker1: TVColorPicker
         Left = 34
@@ -897,6 +897,7 @@ object Form1: TForm1
         Width = 22
         HintFormat = 'Magenta: %m (selected)'
         ArrowPlacement = spBefore
+        Anchors = [akTop, akLeft, akBottom]
         TabOrder = 1
         SelectedColor = clFuchsia
       end
@@ -907,6 +908,7 @@ object Form1: TForm1
         Width = 31
         HintFormat = 'Yellow: %y (selected)'
         ArrowPlacement = spBoth
+        Anchors = [akTop, akLeft, akBottom]
         TabOrder = 2
         SelectedColor = clYellow
       end
@@ -917,6 +919,7 @@ object Form1: TForm1
         Width = 22
         HintFormat = 'Black: %k (selected)'
         NewArrowStyle = True
+        Anchors = [akTop, akLeft, akBottom]
         TabOrder = 3
         Cyan = 0
         Black = 1
@@ -930,6 +933,7 @@ object Form1: TForm1
         HintFormat = 'Red: %r (selected)'
         ArrowPlacement = spBefore
         NewArrowStyle = True
+        Anchors = [akTop, akLeft, akBottom]
         TabOrder = 4
         Green = 122
         Blue = 122
@@ -943,6 +947,7 @@ object Form1: TForm1
         HintFormat = 'Green: %g (selected)'
         ArrowPlacement = spBoth
         NewArrowStyle = True
+        Anchors = [akTop, akLeft, akBottom]
         TabOrder = 5
         Red = 122
         Blue = 122
@@ -955,6 +960,7 @@ object Form1: TForm1
         Width = 22
         HintFormat = 'Blue: %b (selected)'
         SelectionIndicator = siRect
+        Anchors = [akTop, akLeft, akBottom]
         TabOrder = 6
         Green = 122
         Red = 122
diff --git a/components/mbColorLib/mbTrackBarPicker.pas b/components/mbColorLib/mbTrackBarPicker.pas
index 01a51518e..ed16e075e 100644
--- a/components/mbColorLib/mbTrackBarPicker.pas
+++ b/components/mbColorLib/mbTrackBarPicker.pas
@@ -64,7 +64,7 @@ type
     function YToArrowPos(p: integer): integer;
   protected
     FArrowPos: integer;
-    FBack: TBitmap;
+//    FBack: TBitmap;
     FChange: boolean;
     FManual: boolean;
     FLayout: TTrackBarLayout;
@@ -184,10 +184,10 @@ begin
   FGradientWidth := 256;
   FGradientHeight := 1;
 
-  FBack := TBitmap.Create;
+//  FBack := TBitmap.Create;
 
   FBufferBmp := TBitmap.Create;
-  FBufferBmp.PixelFormat := pf32bit;
+  //FBufferBmp.PixelFormat := pf32bit;
 
   mx := 0;
   my := 0;
@@ -214,7 +214,7 @@ end;
 
 destructor TmbTrackbarPicker.Destroy;
 begin
-  FBack.Free;
+//  FBack.Free;
   inherited;
 end;
 
@@ -301,9 +301,8 @@ end;
 procedure TmbTrackbarPicker.CreateGradient;
 var
   i,j: integer;
-  row: pRGBQuadArray;
-  c: TColor;
-  q: TRGBQuad;
+  col: TColor;
+  fpcol: TFPColor;
   intfimg: TLazIntfImage;
   imgHandle, imgMaskHandle: HBitmap;
 begin
@@ -320,14 +319,11 @@ begin
 
       for i := 0 to FBufferBmp.Width-1 do
       begin
-        c := GetGradientColor(i);
-        if WebSafe then c := GetWebSafe(c);
-        q := RGBToRGBQuad(c);
+        col := GetGradientColor(i);
+        if WebSafe then col := GetWebSafe(col);
+        fpcol := TColorToFPColor(col);
         for j := 0 to FBufferBmp.Height-1 do
-        begin
-          row := intfImg.GetDataLineStart(j);
-          row[i] := q;
-        end;
+          intfImg.Colors[i, j] := fpcol;
       end;
     end
     else
@@ -335,14 +331,13 @@ begin
       FBufferBmp.Width := FGradientHeight;
       FBufferBmp.Height := FGradientWidth;
       intfImg.LoadFromBitmap(FBufferBmp.Handle, FBufferBmp.MaskHandle);
-      for i := 0 to FBufferBmp.Height-1 do
+      for j := 0 to FBufferBmp.Height-1 do
       begin
-        row := intfImg.GetDataLineStart(i);
-        c := GetGradientColor(FBufferBmp.Height - 1 - i);
-        if WebSafe then c := GetWebSafe(c);
-        q := RGBtoRGBQuad(c);
-        for j := 0 to FBufferBmp.Width-1 do
-          row[j] := q;
+        col := GetGradientColor(FBufferBmp.Height - 1 - j);
+        if WebSafe then col := GetWebSafe(col);
+        fpcol := TColorToFPColor(col);
+        for i := 0 to FBufferBmp.Width-1 do
+          intfImg.Colors[i, j] := fpcol;
       end;
     end;