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: 
  { TKMDropColumns }
  constructor TKMDropColumns.Create(aParent: TKMPanel; aLeft, aTop, aWidth, aHeight: Integer; aFont: TKMFont; aDefaultCaption: UnicodeString; aStyle: TKMButtonStyle; aShowHeader: Boolean = True);
  var P: TKMPanel;
  begin
    inherited Create(aParent, aLeft, aTop, aWidth, aHeight, aFont, aStyle);
  
  
negative.code:   fButton.fOnClick := ListShow;
    fButton.MakesSound := false;
  
    MP := MasterParent;
    fShape := TKMShape.Create(MP, 0, 0, MP.Width, MP.Height);
    fShape.fOnClick := ListHide;
  
    Size := Round(Sqrt(aCount)+0.5); //Round up
  
    fSwatch := TKMColorSwatch.Create(MP, 0, 0, Size, Size, aWidth div Size);
    fSwatch.BackAlpha := 0.75;
    fSwatch.fOnClick := ListClick;
  
  