anchor.diff:  function ConvertTwoPointsToDiffPoint(APrevPnt, ANewPnt: TPoint): TPoint;
   function ConvertShiftStateToString(const Shift: TShiftState): string;
   function KeyboardStateToShiftState: TShiftState; //like VCL
  -function UpdateImagelistWithIconFromFile(AImagelist: TCustomImagelist;
  -         const AFilename: string; const AIndex: integer = -1): integer;
  +function UpdateImagelistWithIconFromFile(AImagelist: TCustomImagelist; const AFilename: string): integer;
   function FormatFileDateAsNiceString(const AFilename: string): string;
   function FormatFilenameForMenu(const fn: string): string;
   
  
positive.code:       bmp.LoadFromFile(AFilename);
        bmp.Transparent:= true;
  
        if AIndex >= 0 then
        begin
          AImagelist.Replace(AIndex, bmp, nil);
          Result:= AIndex;
        end
        else
        begin
          AImagelist.Add(bmp, nil);
          Result:= AImageList.Count-1;
        end;
      finally
        FreeAndNil(bmp);
      end;
  
negative.code: end;
  
  function UpdateImagelistWithIconFromFile(AImagelist: TCustomImagelist;
    const AFilename: string): integer;
  var
    bmp: TCustomBitmap;
  begin
  