function GetValue(bitmap: IImageAdapter; x: integer; y: integer): byte; override;

procedure Thresholder.GetBlackAndWhiteBitmapEx(const bwMap: BitmapBW); var w, h: integer; val: byte; begin for h := 0 to bm.GetSize.Height - 1 do for w := 0 to bm.GetSize.Width - 1 do begin val := GetValue(bm, w, h); bwMap.SetPixel(w,h,val); end; end;