anchor.diff:  
   
   procedure TKMDropColumns.Paint;
  -var Col: TColor4;
  -begin
  -  inherited;
  -
  -  if fEnabled then Col:=$FFFFFFFF else Col:=$FF888888;
  -
  -  if ItemIndex <> -1 then
  -    fList.DoPaintLine(ItemIndex, AbsLeft, AbsTop, Width - fButton.Width, fColumnsToShowWhenListHidden, False)
  +var
  +  Col: TColor4;
  +begin
  +  inherited;
  +
  +  if fEnabled then
  +    Col := icWhite
     else
  -    TKMRenderUI.WriteText(AbsLeft + 4, AbsTop + 4, Width - 8 - fButton.Width, fDefaultCaption, fFont, taLeft, Col);
  +    Col := icGray2;
  +
  +  if ItemIndex = -1 then
  +    TKMRenderUI.WriteText(AbsLeft + 4, AbsTop + 4, Width - 8 - fButton.Width, fDefaultCaption, fFont, taLeft, Col)
  +  else
  +    fList.DoPaintLine(ItemIndex, AbsLeft, AbsTop, Width - fButton.Width, fColumnsToShowWhenListHidden, False);
   end;
   
   
  
positive.code: end;
  
  
  procedure TKMColumnBox.DoPaintLine(aIndex: Integer; X, Y: Integer; PaintWidth: Integer; aColumnsToShow: array of Boolean; aAllowHighlight: Boolean = True);
    function IsHighlightOverCell(aCellIndex: Integer): Boolean;
    begin
      Result := aAllowHighlight
  
negative.code: 
  
  procedure TKMDropList.Paint;
  var
    Col: TColor4;
  begin
    inherited;
  
    if fEnabled then
      Col := icWhite
    else
      Col := icGray2;
  
    TKMRenderUI.WriteText(AbsLeft+4, AbsTop+4, Width-8, fCaption, fFont, taLeft, Col);
  end;
  
  