jvcllaz: Activate and improve property editor for TJvFullColorList (belongs to TJvFullColorGroup).

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

components/jvcllaz/design/JvMM/jvfullcolorlistform.lfm

@@ -1,192 +1,326 @@
 object JvFullColorListFrm: TJvFullColorListFrm
   Left = 389
+  Height = 394
   Top = 285
+  Width = 457
+  AutoSize = True
   BorderStyle = bsDialog
   Caption = 'Color list editor'
-  ClientHeight = 398
+  ClientHeight = 394
-  ClientWidth = 422
+  ClientWidth = 457
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
-  Font.Height = -11
+  OnCreate = FormCreate
-  Font.Name = 'MS Sans Serif'
+  OnShow = FormShow
-  Font.Style = []
-  OldCreateOrder = False
   Position = poScreenCenter
-  PixelsPerInch = 96
+  LCLVersion = '2.1.0.0'
-  TextHeight = 13
   object ListBoxColors: TListBox
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Owner
+    AnchorSideBottom.Control = Owner
+    AnchorSideBottom.Side = asrBottom
     Left = 8
+    Height = 378
     Top = 8
-    Width = 313
+    Width = 328
-    Height = 377
+    Anchors = [akTop, akLeft, akBottom]
-    Style = lbOwnerDrawFixed
+    BorderSpacing.Around = 8
     ItemHeight = 20
     MultiSelect = True
-    TabOrder = 0
     OnDrawItem = ListBoxColorsDrawItem
+    Style = lbOwnerDrawFixed
+    TabOrder = 0
   end
   object ButtonNew: TButton
-    Left = 336
+    AnchorSideLeft.Control = ButtonModify
-    Top = 8
+    AnchorSideTop.Control = ListBoxColors
-    Width = 75
+    AnchorSideRight.Control = ButtonModify
+    AnchorSideRight.Side = asrBottom
+    Left = 348
     Height = 25
+    Top = 8
+    Width = 76
     Action = ActionNew
+    Anchors = [akTop, akLeft, akRight]
+    AutoSize = True
     TabOrder = 1
   end
   object ButtonModify: TButton
-    Left = 336
+    AnchorSideLeft.Control = ListBoxColors
-    Top = 88
+    AnchorSideLeft.Side = asrBottom
-    Width = 75
+    AnchorSideTop.Control = ButtonInsert
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = ButtonNew
+    AnchorSideRight.Side = asrBottom
+    Left = 348
     Height = 25
+    Top = 82
+    Width = 76
     Action = ActionModify
+    AutoSize = True
+    BorderSpacing.Left = 12
+    BorderSpacing.Top = 12
+    BorderSpacing.Right = 8
     TabOrder = 2
   end
   object ButtonDelete: TButton
-    Left = 336
+    AnchorSideLeft.Control = ButtonModify
-    Top = 128
+    AnchorSideTop.Control = ButtonModify
-    Width = 75
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = ButtonModify
+    AnchorSideRight.Side = asrBottom
+    Left = 348
     Height = 25
+    Top = 119
+    Width = 76
     Action = ActionDelete
+    Anchors = [akTop, akLeft, akRight]
+    AutoSize = True
+    BorderSpacing.Top = 12
     TabOrder = 3
   end
-  object Button4: TButton
+  object ButtonCancel: TButton
-    Left = 336
+    AnchorSideLeft.Control = ButtonNew
-    Top = 320
+    AnchorSideTop.Control = ButtonOK
-    Width = 75
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = ButtonModify
+    AnchorSideRight.Side = asrBottom
+    Left = 348
     Height = 25
+    Top = 306
+    Width = 76
+    Anchors = [akTop, akLeft, akRight]
+    AutoSize = True
+    BorderSpacing.Top = 12
     Cancel = True
     Caption = '&Cancel'
     ModalResult = 2
     TabOrder = 4
   end
   object ButtonOK: TButton
-    Left = 336
+    AnchorSideLeft.Control = ButtonNew
-    Top = 280
+    AnchorSideTop.Control = BitBtnMoveDown
-    Width = 75
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = ButtonModify
+    AnchorSideRight.Side = asrBottom
+    Left = 348
     Height = 25
+    Top = 269
+    Width = 76
+    Anchors = [akTop, akLeft, akRight]
+    AutoSize = True
+    BorderSpacing.Top = 12
     Caption = '&OK'
     ModalResult = 1
     TabOrder = 5
   end
   object BitBtnMoveUp: TBitBtn
-    Left = 336
+    AnchorSideLeft.Control = ButtonNew
-    Top = 208
+    AnchorSideTop.Control = ButtonClear
-    Width = 25
+    AnchorSideTop.Side = asrBottom
-    Height = 25
+    Left = 348
+    Height = 26
+    Top = 193
+    Width = 46
     Action = ActionMoveUp
+    BorderSpacing.Top = 12
+    GlyphShowMode = gsmAlways
+    Spacing = 0
     TabOrder = 6
-    Glyph.Data = {
-      76010000424D7601000000000000760000002800000020000000100000000100
-      04000000000000010000120B0000120B00001000000000000000000000000000
-      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
-      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
-      3333333333777F33333333333309033333333333337F7F333333333333090333
-      33333333337F7F33333333333309033333333333337F7F333333333333090333
-      33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
-      3333333777737777F333333099999990333333373F3333373333333309999903
-      333333337F33337F33333333099999033333333373F333733333333330999033
-      3333333337F337F3333333333099903333333333373F37333333333333090333
-      33333333337F7F33333333333309033333333333337373333333333333303333
-      333333333337F333333333333330333333333333333733333333}
-    NumGlyphs = 2
   end
   object BitBtnMoveDown: TBitBtn
-    Left = 336
+    AnchorSideLeft.Control = ButtonNew
-    Top = 240
+    AnchorSideTop.Control = BitBtnMoveUp
-    Width = 25
+    AnchorSideTop.Side = asrBottom
-    Height = 25
+    Left = 348
+    Height = 26
+    Top = 231
+    Width = 46
     Action = ActionMoveDown
+    BorderSpacing.Top = 12
+    GlyphShowMode = gsmAlways
+    Spacing = 0
     TabOrder = 7
-    Glyph.Data = {
-      76010000424D7601000000000000760000002800000020000000100000000100
-      04000000000000010000120B0000120B00001000000000000000000000000000
-      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
-      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
-      333333333337F33333333333333033333333333333373F333333333333090333
-      33333333337F7F33333333333309033333333333337373F33333333330999033
-      3333333337F337F33333333330999033333333333733373F3333333309999903
-      333333337F33337F33333333099999033333333373333373F333333099999990
-      33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
-      33333333337F7F33333333333309033333333333337F7F333333333333090333
-      33333333337F7F33333333333309033333333333337F7F333333333333090333
-      33333333337F7F33333333333300033333333333337773333333}
-    NumGlyphs = 2
   end
   object ButtonApply: TButton
-    Left = 336
+    AnchorSideLeft.Control = ButtonNew
-    Top = 360
+    AnchorSideTop.Control = ButtonCancel
-    Width = 75
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = ButtonModify
+    AnchorSideRight.Side = asrBottom
+    Left = 348
     Height = 25
+    Top = 343
+    Width = 76
+    Anchors = [akTop, akLeft, akRight]
+    AutoSize = True
+    BorderSpacing.Top = 12
+    BorderSpacing.Bottom = 8
     Caption = '&Apply'
-    TabOrder = 8
     OnClick = ButtonApplyClick
+    TabOrder = 8
   end
-  object Button1: TButton
+  object ButtonClear: TButton
-    Left = 336
+    AnchorSideLeft.Control = ButtonModify
-    Top = 168
+    AnchorSideTop.Control = ButtonDelete
-    Width = 75
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = ButtonModify
+    AnchorSideRight.Side = asrBottom
+    Left = 348
     Height = 25
+    Top = 156
+    Width = 76
     Action = ActionClear
+    Anchors = [akTop, akLeft, akRight]
+    AutoSize = True
+    BorderSpacing.Top = 12
     TabOrder = 9
   end
-  object Button2: TButton
+  object ButtonInsert: TButton
-    Left = 336
+    AnchorSideLeft.Control = ButtonModify
-    Top = 48
+    AnchorSideTop.Control = ButtonNew
-    Width = 75
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = ButtonModify
+    AnchorSideRight.Side = asrBottom
+    Left = 348
     Height = 25
+    Top = 45
+    Width = 76
     Action = ActionInsert
+    Anchors = [akTop, akLeft, akRight]
+    AutoSize = True
+    BorderSpacing.Top = 12
     TabOrder = 10
   end
   object JvFullColorDialog: TJvFullColorDialog
     FullColor = 83886079
-    HelpContext = 0
     OnApply = JvFullColorDialogApply
-    Left = 88
+    left = 88
-    Top = 88
+    top = 88
   end
   object ActionList: TActionList
-    Left = 88
+    left = 88
-    Top = 128
+    top = 160
     object ActionNew: TAction
       Caption = '&New ...'
-      ShortCut = 16462
       OnExecute = ActionNewExecute
       OnUpdate = ActionNewUpdate
+      ShortCut = 16462
     end
     object ActionInsert: TAction
       Caption = '&Insert'
-      ShortCut = 16457
       OnExecute = ActionInsertExecute
       OnUpdate = ActionInsertUpdate
+      ShortCut = 16457
     end
     object ActionModify: TAction
       Caption = '&Modify ...'
-      ShortCut = 16461
       OnExecute = ActionModifyExecute
       OnUpdate = ActionModifyUpdate
+      ShortCut = 16461
     end
     object ActionDelete: TAction
       Caption = 'D&elete'
-      ShortCut = 16453
       OnExecute = ActionDeleteExecute
       OnUpdate = ActionDeleteUpdate
+      ShortCut = 16453
     end
     object ActionClear: TAction
       Caption = '&Clear'
-      ShortCut = 16451
       OnExecute = ActionClearExecute
       OnUpdate = ActionClearUpdate
+      ShortCut = 16451
     end
     object ActionMoveDown: TAction
-      ShortCut = 16452
       OnExecute = ActionMoveDownExecute
       OnUpdate = ActionMoveDownUpdate
+      ShortCut = 16452
     end
     object ActionMoveUp: TAction
-      ShortCut = 16469
       OnExecute = ActionMoveUpExecute
       OnUpdate = ActionMoveUpUpdate
+      ShortCut = 16469
     end
   end
+  object ImageList: TImageList
+    left = 204
+    top = 88
+    Bitmap = {
+      4C69020000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF0042924AFF42924AFFFFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0042924AFF6ABD72FF6ABD72FF42924AFFFFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF002062
+      230642924AFF6ABD72FF93E89AFF93E89AFF6ABD72FF42924AFF3C8A4306FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004292
+      4AFF6ABD72FF93E89AFF93E89AFF93E89AFF93E89AFF6ABD72FF42924AFFFFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0042924AFF4292
+      4AFF42924AFF42924AFF93E89AFF93E89AFF42924AFF42924AFF42924AFF4292
+      4AFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0042924AFF93E89AFF93E89AFF42924AFFFFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0042924AFF93E89AFF93E89AFF42924AFFFFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0042924AFF93E89AFF93E89AFF42924AFFFFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0042924AFF93E89AFF93E89AFF42924AFFFFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0042924AFF93E89AFF93E89AFF42924AFFFFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0042924AFF93E89AFF93E89AFF42924AFFFFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0042924AFF93E89AFF93E89AFF42924AFFFFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0042924AFF93E89AFF93E89AFF42924AFFFFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0042924AFF42924AFF42924AFF42924AFFFFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0042924AFF42924AFF42924AFF42924AFFFFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0042924AFF93E89AFF93E89AFF42924AFFFFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0042924AFF93E89AFF93E89AFF42924AFFFFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0042924AFF93E89AFF93E89AFF42924AFFFFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0042924AFF93E89AFF93E89AFF42924AFFFFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0042924AFF93E89AFF93E89AFF42924AFFFFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0042924AFF93E89AFF93E89AFF42924AFFFFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0042924AFF93E89AFF93E89AFF42924AFFFFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0042924AFF93E89AFF93E89AFF42924AFFFFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0042924AFF4292
+      4AFF42924AFF42924AFF93E89AFF93E89AFF42924AFF42924AFF42924AFF4292
+      4AFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004292
+      4AFF6ABD72FF93E89AFF93E89AFF93E89AFF93E89AFF6ABD72FF42924AFFFFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003C8A
+      430642924AFF6ABD72FF93E89AFF93E89AFF6ABD72FF42924AFF20622306FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0042924AFF6ABD72FF6ABD72FF42924AFFFFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF0042924AFF42924AFFFFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00
+    }
+    BitmapAdv = {
+      4C69010000004C7A020000002000000020000000D30000000000000078DAEDD9
+      410AC2301085E1AE7A0EA1D770A53B8FD1A54B8FE15277DEA5F7F116CA140A12
+      9AD484C94C947F6096E57BB44D68275D4795D6E1767A497BD9E7E932B77586C5
+      BE3F1F735B66086DCB0C31BB6686DD38F4D25B7698617F3DF6D21AFEB7F65A86
+      DAF7BCE6B328B535322C7BCB5AC7BCD4359976AAB7FCE8B55A6B30E55BEC3FF8
+      F8F8F8F8F8F8F6BED6770E45FDDAFBC7FAC7C7C7C7C7C7FF4FBF85F99BE7FCB1
+      85F96B0BF3672999A197CEDF6576AFE1E764F8B435FC9C67E17906E47906E679
+      06E861877B147FA5E5F5068FB5A754
+    }
+  end
 end

components/jvcllaz/design/JvMM/jvfullcolorlistform.pas

@@ -35,7 +35,11 @@ uses
   JvFullColorSpaces, JvFullColorDialogs, JvFullColorCtrls;
 
 type
+
+  { TJvFullColorListFrm }
+
   TJvFullColorListFrm = class(TForm)
+    ImageList: TImageList;
     JvFullColorDialog: TJvFullColorDialog;
     ListBoxColors: TListBox;
     ActionList: TActionList;
@@ -45,16 +49,16 @@ type
     ButtonNew: TButton;
     ButtonModify: TButton;
     ButtonDelete: TButton;
-    Button4: TButton;
+    ButtonCancel: TButton;
     ButtonOK: TButton;
     BitBtnMoveUp: TBitBtn;
     ActionMoveUp: TAction;
     ActionMoveDown: TAction;
     BitBtnMoveDown: TBitBtn;
     ButtonApply: TButton;
-    Button1: TButton;
+    ButtonClear: TButton;
     ActionClear: TAction;
-    Button2: TButton;
+    ButtonInsert: TButton;
     ActionInsert: TAction;
     procedure ActionNewUpdate(Sender: TObject);
     procedure ActionModifyUpdate(Sender: TObject);
@@ -71,6 +75,8 @@ type
     procedure ActionMoveUpExecute(Sender: TObject);
     procedure ActionMoveDownExecute(Sender: TObject);
     procedure ButtonApplyClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
     procedure JvFullColorDialogApply(Sender: TObject;
       AFullColor: TJvFullColor);
     procedure ListBoxColorsDrawItem(Control: TWinControl; Index: Integer;
@@ -94,6 +100,7 @@ var
 implementation
 
 uses
+  Math, LCLType, LCLIntf, LCLVersion,
   JvDsgnConsts;
 
 {$R *.lfm}
@@ -195,8 +202,10 @@ end;
 procedure TJvFullColorListFrm.ActionNewExecute(Sender: TObject);
 begin
   JvFullColorDialog.Options := JvFullColorDialog.Options - [foShowApply];
-  if JvFullColorDialog.Execute then
+  if JvFullColorDialog.Execute then begin
     ListBoxColors.Items.AddObject('', TObject(JvFullColorDialog.FullColor));
+    ListBoxColors.ItemIndex := ListBoxColors.Items.Count-1;
+  end;
 end;
 
 procedure TJvFullColorListFrm.ActionNewUpdate(Sender: TObject);
@@ -209,6 +218,40 @@ begin
   Result := (ShowModal = mrOK);
 end;
 
+procedure TJvFullColorListFrm.FormCreate(Sender: TObject);
+begin
+  BitBtnMoveUp.Width := BitBtnMoveUp.Height;
+  BitBtnMoveDown.Width := BitBtnMoveDown.Height;
+  {$IF LCL_FullVersion >= 2000000}
+  BitBtnMoveUp.Images := ImageList;
+  BitBtnMoveUp.ImageIndex := 0;
+  BitBtnMoveDown.Images := ImageList;
+  BitBtnMoveDown.ImageIndex := 1;
+  {$ELSE}
+  ImageList.GetBitmap(0, BitBtnMoveUp.Glyph);
+  ImageList.GetBitmap(1, BitBtnMoveDown.Glyph);
+  {$IFEND}
+end;
+
+procedure TJvFullColorListFrm.FormShow(Sender: TObject);
+var
+  i, w: Integer;
+  s: string;
+  cs: TJvColorSpace;
+begin
+  w := 0;
+  ListBoxColors.Canvas.Font.Assign(ListboxColors.Font);
+  for i := 0 to ColorSpaceManager.Count-1 do begin;
+    with ColorSpaceManager.ColorSpaceByIndex[i] do
+      if ID <> csDEF then begin
+        s := Format('%s: %s = $FF; %s = $FF; %s = $FF',
+          [ Name, AxisName[axIndex0], AxisName[axIndex1], AxisName[axIndex2] ]);
+        w := Max(w, ListBoxColors.Canvas.TextWidth(s));
+      end;
+  end;
+  ListBoxColors.ClientWidth := w + ListBoxColors.ItemHeight + GetSystemMetrics(SM_CXVSCROLL) + 8;
+end;
+
 function TJvFullColorListFrm.GetColorList: TJvFullColorList;
 var
   Index: Integer;
@@ -257,8 +300,6 @@ var
 begin
   with TListBox(Control), Canvas do
   begin
-    if odSelected in State then
-      Font.Color := clCaptionText;
     Pen.Style := psSolid;
     Pen.Color := Brush.Color;
     Brush.Style := bsSolid;

components/jvcllaz/design/JvMM/jvfullcolorspaceseditors.pas

@@ -137,6 +137,7 @@ type
     procedure RequiresUnits(Proc: TGetStrProc); override;
     procedure PrepareItem(Index: Integer; const AItem: IMenuItem); override;
   end;
+  **********************)
 
   TJvFullColorListEditor = class(TClassProperty)
   public
@@ -145,7 +146,6 @@ type
     function AllEqual: Boolean; override;
     procedure FormApply(Sender: TObject);
   end;
-**********************)
 
 procedure RegisterFullColorSpaceEditor(AColorSpaceID: TJvFullColorSpaceID;
   AEditorClass: TJvFullColorSpacePropertyClass);
@@ -160,7 +160,7 @@ implementation
 
 uses
   Math, SysUtils, TypInfo, Forms,
-  JvFullColorDialogs;
+  JvFullColorCtrls, JvFullColorDialogs, JvFullColorListForm;
 
 const
   COLOR_PREVIEW_RECT = 16;
@@ -639,6 +639,7 @@ begin
     for I := 0 to Count - 1 do
       RequireClass(Proc, ColorSpaceByIndex[I].ClassType);
 end;
+*************************)
 
 //=== { TJvFullColorListEditor } =============================================
 
@@ -678,7 +679,7 @@ begin
             if FullColorList.IndexOf(Items[IndexColor]) = -1 then
               FullColorList.Add(Items[IndexColor]);
 
-      FullColorListForm.OnApply := FormApply;
+      FullColorListForm.OnApply := @FormApply;
       FullColorListForm.ColorList := FullColorList;
       if FullColorListForm.Execute then
         FormApply(FullColorListForm);
@@ -697,9 +698,8 @@ end;
 
 function TJvFullColorListEditor.GetAttributes: TPropertyAttributes;
 begin
-  Result := [paDialog, paVCL, paMultiSelect];
+  Result := [paDialog, {paVCL, } paMultiSelect];
 end;
-********************)
 
 var
   GFullColorSpaceEditorArray: array of TJvFullColorSpacePropertyClass;

components/jvcllaz/design/JvMM/jvmmreg.pas

@@ -25,9 +25,7 @@ uses
 procedure Register;
 begin
   RegisterComponents(RsPaletteJvclVisual, [
-    TJvAnimatedImage,
+    TJvAnimatedImage, TJvBmpAnimator, TJvPicClip,
-    TJvBmpAnimator,
-	TjvPicClip,
     TJvGradient, TJvGradientHeaderPanel,
     TJvSpecialProgress,
     TJvFullColorPanel, TJvFullColorTrackBar, TJvFullColorGroup, TJvFullColorLabel,
@@ -44,8 +42,8 @@ begin
 
   RegisterPropertyEditor(TypeInfo(TJvFullColorSpaceID), nil, '', TJvColorIDEditor);
   RegisterPropertyEditor(TypeInfo(TJvFullColor), nil, '', TJvFullColorProperty);
-  {
   RegisterPropertyEditor(TypeInfo(TJvFullColorList), nil, '', TJvFullColorListEditor);
+  {
   RegisterSelectionEditor(TJvFullColorPanel, TJvFullColorSelection);
   RegisterSelectionEditor(TJvFullColorCircle, TJvFullColorSelection);
   RegisterSelectionEditor(TJvFullColorLabel, TJvFullColorSelection);

components/jvcllaz/packages/jvmmlazd.lpk

@@ -17,7 +17,7 @@
     <Description Value="JVCL Multimedia and image components (Design-time package): 
 bmp animator, id3v1 and id3v2 tags,  full color components and dialogs, gradient, gradient header, special progress bar, animated image"/>
     <Version Major="1" Release="6"/>
-    <Files Count="5">
+    <Files Count="6">
       <Item1>
         <Filename Value="..\design\JvMM\jvmmreg.pas"/>
         <HasRegisterProc Value="True"/>
@@ -39,6 +39,10 @@ bmp animator, id3v1 and id3v2 tags,  full color components and dialogs, gradient
         <Filename Value="..\design\JvMM\jvfullcolorspaceseditors.pas"/>
         <UnitName Value="JvFullColorSpacesEditors"/>
       </Item5>
+      <Item6>
+        <Filename Value="..\design\JvMM\jvfullcolorlistform.pas"/>
+        <UnitName Value="JvFullColorListForm"/>
+      </Item6>
     </Files>
     <RequiredPkgs Count="4">
       <Item1>

components/jvcllaz/run/JvMM/jvfullcolorctrls.pas

@@ -31,7 +31,6 @@ interface
 
 uses
   LCLIntf, LCLType, LMessages,
-  //Windows, Messages,
   SysUtils, Classes, Controls, Graphics,
   ComCtrls, StdCtrls, ExtCtrls, Types,
   //JvJCLUtils,
@@ -681,6 +680,7 @@ type
     procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
     procedure CalcRects(out XPos, YPos, XInc, YInc: Integer);
     procedure InvalidateIndex(AIndex: Integer);
+    class function GetControlClassDefaultSize: TSize; override;
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -708,6 +708,7 @@ type
     property Align;
     property Anchors;
     property BorderSpacing;
+    property BorderStyle default bsSingle;
     property BorderWidth;
     property Color;
     property Constraints;
@@ -3422,11 +3423,15 @@ begin
   FSquareSize := 6;
   FSelectedIndex := -1;
   FMouseIndex := -1;
+
   (*************** NOT CONVERTED ***
   BevelKind := bkTile;
   *********************************)
-  Width := 100;
+  BorderStyle := bsSingle;  // instead of BevelKind
-  Height := 100;
+
+  // setup default sizes
+  with GetControlClassDefaultSize do
+    SetInitialBounds(0, 0, CX, CY);
 end;
 
 destructor TJvFullColorGroup.Destroy;
@@ -3450,6 +3455,12 @@ begin
   YPos := ((YOffset - (YInc * (RowCount - 1))) div 2) + 1;
 end;
 
+class function TJvFullColorGroup.GetControlClassDefaultSize: TSize;
+begin
+  Result.CX := 100;
+  Result.CY := 100;
+end;
+
 procedure TJvFullColorGroup.ItemsChange(Sender: TObject; Index: Integer;
   Operation: TJvFullColorListOperation);
 begin
@@ -3765,7 +3776,7 @@ begin
     else
       Inc(X, XInc + FSquareSize);
   end;
-
+           (* wp: what is this good for? Draws strange borders.
   with Canvas do
   begin
     Brush.Style := bsSolid;
@@ -3780,6 +3791,7 @@ begin
         Min(lClipRect.Right, Self.Width - 2),
         Min(Y, Self.Height - 2)
       );
+
       X := XOffset;
       for IndexX := 0 to ColCount do
       begin
@@ -3798,6 +3810,7 @@ begin
       Inc(Y, YInc + FSquareSize);
     end;
   end;
+  *)
 end;
 
 procedure TJvFullColorGroup.SetEdge(const Value: TJvFullColorEdge);