anchor.diff:      procedure ListClick(Sender:TObject);
       procedure ListHide(Sender:TObject);
       procedure SetEnabled(aValue:boolean); override;
  +    procedure SetColorIndex(aIndex:integer);
     public
       constructor Create(aParent:TKMPanel; aLeft,aTop,aWidth,aHeight,aCount:integer);
  -    property ColorIndex:integer read fColorIndex write fColorIndex;
  +    property ColorIndex:integer read fColorIndex write SetColorIndex;
       procedure AddColors(aColors:array of TColor4);
       property OnChange: TNotifyEvent write fOnChange;
       procedure Paint; override;
  
positive.code:     exit;
    end;
  
    fSwatch.ColorIndex := fColorIndex; //Update before show
    fSwatch.Show;
    fShape.Show;
  end;
  
negative.code:   Inherited;
    fButton.Enabled := aValue;
    fSwatch.Enabled := aValue;
  end;
  
  
  procedure TKMDropColorBox.SetColorIndex(aIndex:integer);
  begin
    fColorIndex := aIndex;
    fSwatch.ColorIndex := aIndex;
  end;
  
  
  