diff --git a/Mouse1.fsx b/Mouse1.fsx index 7519657..fc25ac4 100644 --- a/Mouse1.fsx +++ b/Mouse1.fsx @@ -13,7 +13,7 @@ type MovingBox(r:Rectangle) = with get () = box.X and set(v) = box <- Rectangle(v, box.Y, box.Width, box.Height) member this.Y - with get () = box.X + with get () = box.Y and set(v) = box <- Rectangle(box.X, v, box.Width, box.Height) member this.Location with get() = Point(box.X, box.Y) @@ -27,8 +27,8 @@ type MouseTest() as this = inherit UserControl() do -// this.SetStyle(ControlStyles.AllPaintingInWmPaint ||| ControlStyles.OptimizedDoubleBuffer, true) - this.SetStyle(ControlStyles.OptimizedDoubleBuffer, true) + this.SetStyle(ControlStyles.AllPaintingInWmPaint ||| ControlStyles.OptimizedDoubleBuffer, true) + //this.SetStyle(ControlStyles.OptimizedDoubleBuffer, true) let boxes = ResizeArray() let mutable box = Rectangle(50, 50, 100, 100)