- imageSourceSelection.menuZoom50X.Click.AddHandler(fun obj args -> imageSourceSelection.txtResolution.Text <- "230000")
- imageSourceSelection.menuZoom100X.Click.AddHandler(fun obj args -> imageSourceSelection.txtResolution.Text <- "460000")
+
+ for ppi in Utils.predefinedPPI do
+ let menu = MenuItem()
+ menu.Header <- ppi.ToString()
+ menu.Click.AddHandler(fun obj args -> imageSourceSelection.txtResolution.Text <- ppi.ppi.ToString())
+ imageSourceSelection.predefinedValuesMenu.Items.Add(menu) |> ignore