anchor.diff:  
   
   procedure TKMDropColors.Paint;
  -var Col: TColor4; P: TKMPanel;
  -begin
  -  inherited;
  -
  -  //Hacky solution to keep the swatch at the right place
  -  P := MasterParent;
  -  fSwatch.Left := AbsLeft-P.AbsLeft;
  -  fSwatch.Top := AbsTop+Height-P.AbsTop;
  +var
  +  Col: TColor4;
  +begin
  +  inherited;
  +
  +  UpdateDropPosition;
   
     TKMRenderUI.WriteBevel(AbsLeft, AbsTop, Width-fButton.Width, Height);
     TKMRenderUI.WriteShape(AbsLeft+2, AbsTop+1, Width-fButton.Width-3, Height-2, fSwatch.GetColor);
  +
     if (fRandomCaption <> '') and (fSwatch.ColorIndex = 0) then
     begin
       if fEnabled then Col:=$FFFFFFFF else Col:=$FF888888;
  
positive.code: 
  { TKMDropColorBox }
  constructor TKMDropColors.Create(aParent: TKMPanel; aLeft, aTop, aWidth, aHeight,aCount: Integer);
  var P: TKMPanel; Size: Integer;
  begin
    inherited Create(aParent, aLeft, aTop, aWidth, aHeight);
  
  
negative.code: end;
  
  
  procedure TKMDropColors.UpdateDropPosition;
  begin
    fSwatch.Left := AbsLeft;
    fSwatch.Top := AbsTop + Height;
  end;
  
  
  procedure TKMDropColors.SetColors(const aColors: array of TColor4; aRandomCaption: UnicodeString = '');
  begin
    //Store local copy of flag to substitute 0 color with "Random" text
  