srcImg.Name <- name
alteredSinceLastSave <- true
- member this.SetResult (imgNum : int) (result : ParasitemiaCore.Types.AnalysisResult) =
- let sourceImage = sourceImages.Find (fun srcImg -> srcImg.Num = imgNum)
+ member this.SetResult (imgId : string) (result : ParasitemiaCore.Types.AnalysisResult) =
+ let sourceImage = sourceImages.Find (fun srcImg -> srcImg.RomanNum = imgId)
let w = sourceImage.Img.Width
let h = sourceImage.Img.Height