anchor.diff:  
   
   procedure TKMControlsCollection.SaveToFile(aFileName:string);
  -var i:integer; ft:textfile;
  +var ft:textfile;
   begin
     AssignFile(ft,aFileName); 
     Rewrite(ft);
   
  -  //fCtrl.SaveToFile; //Will save all the childs as well
  +  //fCtrl.SaveToFile; //Will save all the childs as well, recursively alike Paint or HitControl
     //writeln(ft, ClassName);
     //writeln(ft, Format('[%d %d %d %d]', [fLeft, fTop, fWidth, fHeight]));
   
  
positive.code:     Font: TKMFont;
      FontColor:TColor4;
      TextAlign: KAlign;
    protected
      constructor Create(aParent:TKMPanel; aLeft,aTop,aWidth,aHeight:integer; aPos:integer; aCaption:string; aFont:TKMFont; aColor:TColor4=$FFFFFFFF);
      procedure Paint; override;
  end;
  
  
negative.code:   Inherited;
  
    if (ssLeft in Shift) and
       (InRange(X, Left, Left+Width-fScrollBar.Width)) and
       (InRange(Y, Top, Top+Height div ItemHeight * ItemHeight))
    then begin
      NewIndex := TopIndex + (Y-Top) div ItemHeight;
  