- let sensorSizes = [
- { w = 5.76<mm>; h = 4.29<mm>; txt = "1/2.5″" }
- { w = 7.6<mm>; h = 5.7<mm>; txt = "1/1.7″" }
- { w = 8.6<mm>; h = 6.6<mm>; txt = "2/3″" }
- { w = 13.2<mm>; h = 8.8<mm>; txt = "1″" }
- { w = 17.3<mm>; h = 13.<mm>; txt = "" }
- { w = 20.7<mm>; h = 13.8<mm>; txt = "" }
- { w = 22.2<mm>; h = 14.8<mm>; txt = "" }
- { w = 23.6<mm>; h = 15.7<mm>; txt = "" }
- { w = 28.7<mm>; h = 19.<mm>; txt = "" }
- { w = 28.7<mm>; h = 19.<mm>; txt = "" } ]
+let showWindow (parent : Window) : int option =
+ let win = PPICalculatorWindow ()
+ win.Owner <- parent
+ win.Left <- parent.Left + parent.ActualWidth / 2. - win.Width / 2.
+ win.Top <- parent.Top + parent.ActualHeight / 2. - win.Height / 2.