anchor.diff:  begin
     if Count > 0 then
     begin
  -    fList.Height := Math.min(fDropCount, fList.Count) * fList.ItemHeight + fList.SeparatorsCount*fList.SeparatorHeight;
  +    fList.Height := Math.Min(fDropCount, fList.Count) * fList.ItemHeight + fList.SeparatorsCount*fList.SeparatorHeight;
   
       if fDropUp then
         fList.AbsTop := AbsTop - fList.Height
       else
         fList.AbsTop := AbsTop + Height;
   
  -    fList.Left := AbsLeft - MasterParent.AbsLeft;
  +    fList.Left := AbsLeft + Width - DropWidth - MasterParent.AbsLeft;
     end;
   end;
   
  
positive.code:   private
      fCaption: UnicodeString; //Current caption (Default or from list)
      fDefaultCaption: UnicodeString;
      fList: TKMListBox;
      fListTopIndex: Integer;
      procedure UpdateDropPosition; override;
  
negative.code: end;
  
  
  procedure TKMDropList.SetDropWidth(aDropWidth: Integer);
  begin
    fDropWidth := aDropWidth;
    fList.AbsLeft := AbsLeft + Width - aDropWidth;
    fList.Width := aDropWidth;
  end;
  
  
  procedure TKMDropList.SetEnabled(aValue: Boolean);
  begin
    inherited;
  