anchor.diff:      constructor Create(aParent:TKMPanel; aLeft,aTop,aWidth,aHeight:integer; aFont:TKMFont);
       destructor Destroy; override;
   
  -    procedure Add(aItem:string);
  +    property AutoHideScrollBar: boolean read fAutoHideScrollBar write SetAutoHideScrollBar;
  +    property BackAlpha: Single write SetBackAlpha;
  +
  +    procedure Add(aItem: string);
       procedure Clear;
  -    function Count:integer;
  -    procedure SetItems(aText:string);
  -    property AutoHideScrollBar: boolean read fAutoHideScrollBar write SetAutoHideScrollBar;
  -
  -    property BackAlpha:single write SetBackAlpha;
  +    function Count: Integer;
  +    procedure SetItems(aText: string);
   
       property Item[aIndex:integer]:string read GetItem;
  -    property ItemHeight:byte read fItemHeight write SetItemHeight;
  -    property ItemIndex:smallint read fItemIndex write fItemIndex;
  +    property ItemHeight: Byte read fItemHeight write SetItemHeight; //Accessed by DropBox
  +    property ItemIndex: Smallint read fItemIndex write fItemIndex;
       property TopIndex: Integer read GetTopIndex write SetTopIndex;
   
       procedure MouseDown(X,Y:integer; Shift:TShiftState; Button:TMouseButton); override;
  
positive.code:     Position: Word;
      MinValue: Word;
      MaxValue: Word;
      Step: Byte;
      constructor Create(aParent:TKMPanel; aLeft,aTop,aWidth,aHeight,aMin,aMax:integer);
      procedure MouseDown(X,Y:integer; Shift:TShiftState; Button:TMouseButton); override;
      procedure MouseMove(X,Y:Integer; Shift:TShiftState); override;
      property OnChange: TNotifyEvent write fOnChange;
      procedure Paint; override;
    end;
  
  
negative.code:     procedure SetText(aText:string);
      function KeyEventHandled(Key: Word):boolean;
    public
      Masked: Boolean; //Mask entered text as *s
      ReadOnly: Boolean;
      OnChange: TNotifyEvent;
      OnKeyDown: TNotifyEventKey;
      constructor Create(aParent:TKMPanel; aLeft,aTop,aWidth,aHeight:integer; aFont:TKMFont);
      property CursorPos: integer read fCursorPos write SetCursorPos;
      property Text:string read fText write SetText;
  
      function HitTest(X,Y: Integer; aIncludeDisabled:boolean=false): Boolean; override;
      function KeyDown(Key: Word; Shift: TShiftState):boolean; override;
      procedure KeyPress(Key: Char); override;
      function KeyUp(Key: Word; Shift: TShiftState):boolean; override;
  