projects
/
master-thesis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use an absolute value for thickness and font size
[master-thesis.git]
/
Parasitemia
/
ParasitemiaUI
/
DPICalculator.fs
diff --git
a/Parasitemia/ParasitemiaUI/DPICalculator.fs
b/Parasitemia/ParasitemiaUI/DPICalculator.fs
index
2cdc184
..
697bbef
100644
(file)
--- a/
Parasitemia/ParasitemiaUI/DPICalculator.fs
+++ b/
Parasitemia/ParasitemiaUI/DPICalculator.fs
@@
-2,19
+2,15
@@
open System
open System.Windows
open System
open System.Windows
-open System.Windows.Media
-open System.Windows.Markup
-open System.Windows.Shapes
-open System.Windows.Controls
-open System.Diagnostics
+open ParasitemiaUIControls
open ParasitemiaCore.Types
open ParasitemiaCore.UnitsOfMeasure
open Types
let showWindow (parent : Window) : int option =
open ParasitemiaCore.Types
open ParasitemiaCore.UnitsOfMeasure
open Types
let showWindow (parent : Window) : int option =
- let win =
Views.
PPICalculatorWindow ()
+ 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.
win.Owner <- parent
win.Left <- parent.Left + parent.ActualWidth / 2. - win.Width / 2.
win.Top <- parent.Top + parent.ActualHeight / 2. - win.Height / 2.
@@
-30,7
+26,7
@@
let showWindow (parent : Window) : int option =
let { w = w; h = h } = win.cmbSensorSize.SelectedValue :?> SensorSize
let ratio = h / w
let { w = w; h = h } = win.cmbSensorSize.SelectedValue :?> SensorSize
let ratio = h / w
- let parseDouble
txt errorMess
= match Double.TryParse (txt) with true, value -> Success value | _ -> Fail errorMess
+ let parseDouble
(txt : string) (errorMess : string)
= match Double.TryParse (txt) with true, value -> Success value | _ -> Fail errorMess
match
(result {
match
(result {