1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
| //Author: Scott Brown
//10/10/2010
//This code is licensed under the Code Project Open License (CPOL)
// #r "WindowsBase"
// #r "PresentationCore"
// #r "PresentationFramework"
open System
open System.Windows
open System.Windows.Markup
open System.Windows.Controls
open System.Windows.Shapes
open System.Windows.Media
open System.Xml
open System.Collections.Generic
//Make a Canvas subclass which supports ScrollViewer
type ScrollableCanvas() =
inherit Canvas()
override canvas.MeasureOverride limit: Size =
let availableSize = new Size(1000000., 1000000.)
let mutable maxHeight = 0.
let mutable maxWidth = 0.
for element : UIElement in base.InternalChildren do
if element <> null then
element.Measure(availableSize) |> ignore
let mutable left = Canvas.GetLeft(element)
let mutable top = Canvas.GetTop(element)
left <- left + element.DesiredSize.Width
top <- top + element.DesiredSize.Height
maxWidth <- if maxWidth < left then left else maxWidth
maxHeight <- if maxHeight < top then top else maxHeight
let newSize = new Size(Width=maxWidth, Height=maxHeight)
newSize
let w = new Window(Topmost=true) |
