anchor.diff:  
     TKMListBox = class(TKMControl)
     private
  -    fFont: TKMFont; //Can't be changed from inital value, it will mess up the word wrapping
  -    fAutoHideScrollBar: boolean;
  -    fBackAlpha:single; //Alpha of background (usually 0.5, dropbox 1)
  -    fItemHeight:byte;
  -    fItemIndex:smallint;
  -    fItems:TStringList;
  -    fScrollBar:TKMScrollBar;
  -    fOnChange:TNotifyEvent;
  +    fAutoHideScrollBar: Boolean;
  +    fBackAlpha: Single; //Alpha of background (usually 0.5, dropbox 1)
  +    fFont: TKMFont; //Should not be changed from inital value, it will mess up the word wrapping
  +    fItemHeight: Byte;
  +    fItemIndex: Smallint;
  +    fItems: TStringList;
  +    fScrollBar: TKMScrollBar;
  +    fOnChange: TNotifyEvent;
       procedure SetHeight(aValue:Integer); override;
       procedure SetVisible(aValue:boolean); override;
       function GetTopIndex: Integer;
  
positive.code: procedure TKMScrollBar.SetEnabled(aValue:boolean);
  begin
    Inherited;
    ScrollDec.Enabled := aValue;
    ScrollInc.Enabled := aValue;
  end;
  
  
  
negative.code:   fFont       := aFont;
    fTextAlign  := taCenter; //Thats default everywhere in KaM
    fStyle      := aStyle;
    fMakesSound := True;
  end;
  
  
  