コード例 #1
0
        public static void Main(string[] args)
        {
            //System.Diagnostics.Debug.WriteLine(
            //    typeof(Microsoft.FSharp.Core.Operators).AssemblyQualifiedName
            //);

#if DEBUG
            var Spawn = default(Action<Action<Window>>);
            var Session = new List<ApplicationCanvas>();

            Spawn = WindowCreated =>
                {
                    var c = new ApplicationCanvas();

                    Session.Add(c);

                    c.ConnectToSession(Session.Except(new[] { c }));



                    var w = c.ToWindow();

                    w.Title += " | F2 - Spawn, F11 - Fullscreen";

                    w.Closing +=
                        delegate
                        {
                            Session.Remove(c);
                        };

                    w.KeyUp +=
                        (s, e) =>
                        {
                            if (e.Key == Key.F2)
                                Spawn(k => k.Show());
                        };

                    w.KeyDown +=
                        (s, e) =>
                        {

                            if (e.Key == Key.Escape || e.Key == Key.F11)
                                if (w.WindowState == WindowState.Maximized)
                                {
                                    w.WindowState = WindowState.Normal;
                                    return;
                                }

                            if (e.Key == Key.F11)
                                if (w.WindowState == WindowState.Normal)
                                {
                                    w.WindowStyle = WindowStyle.None;
                                    w.WindowState = WindowState.Maximized;
                                    return;
                                }
                        };

                    w.StateChanged +=
                        (s, e) =>
                        {
                            w.WindowStyle = w.WindowState == WindowState.Maximized ? WindowStyle.None : WindowStyle.SingleBorderWindow;
                        };


                    w.Loaded +=
                        delegate
                        {
                            w.SizeToContent = SizeToContent.Manual;
                            w.Focus();
                        };

                    w.SizeChanged +=
                        (s, e) =>
                        {
                            if (e.PreviousSize.Width == 0)
                                return;

                            // Content dictates its size. Yet when we resize the window we want the content to know it has more room.
                            // http://stackoverflow.com/questions/1081580/how-to-set-wpf-windows-startup-clientsize
                            var horizontalBorderHeight = SystemParameters.ResizeFrameHorizontalBorderHeight;
                            var verticalBorderWidth = SystemParameters.ResizeFrameVerticalBorderWidth;
                            var captionHeight = SystemParameters.CaptionHeight;

                            var Width = e.NewSize.Width;

                            var Height = e.NewSize.Height;


                            Width -= 2 * verticalBorderWidth;
                            Height -= 2 * horizontalBorderHeight;


                            if (w.WindowStyle != WindowStyle.None)
                            {
                                Height -= captionHeight;
                            }

                            // where is this function documented?
                            c.SizeTo(Width, Height);

                        };

                    if (WindowCreated != null)
                        WindowCreated(w);
                };

            Spawn(w => w.ShowDialog());
#else

            RewriteToUltraApplication.AsProgram.Launch(typeof(Application));
#endif
        }
コード例 #2
0
        public static void Main(string[] args)
        {
            //System.Diagnostics.Debug.WriteLine(
            //    typeof(Microsoft.FSharp.Core.Operators).AssemblyQualifiedName
            //);

#if DEBUG
            var Spawn   = default(Action <Action <Window> >);
            var Session = new List <ApplicationCanvas>();

            Spawn = WindowCreated =>
            {
                var c = new ApplicationCanvas();

                Session.Add(c);

                c.ConnectToSession(Session.Except(new[] { c }));



                var w = c.ToWindow();

                w.Title += " | F2 - Spawn, F11 - Fullscreen";

                w.Closing +=
                    delegate
                {
                    Session.Remove(c);
                };

                w.KeyUp +=
                    (s, e) =>
                {
                    if (e.Key == Key.F2)
                    {
                        Spawn(k => k.Show());
                    }
                };

                w.KeyDown +=
                    (s, e) =>
                {
                    if (e.Key == Key.Escape || e.Key == Key.F11)
                    {
                        if (w.WindowState == WindowState.Maximized)
                        {
                            w.WindowState = WindowState.Normal;
                            return;
                        }
                    }

                    if (e.Key == Key.F11)
                    {
                        if (w.WindowState == WindowState.Normal)
                        {
                            w.WindowStyle = WindowStyle.None;
                            w.WindowState = WindowState.Maximized;
                            return;
                        }
                    }
                };

                w.StateChanged +=
                    (s, e) =>
                {
                    w.WindowStyle = w.WindowState == WindowState.Maximized ? WindowStyle.None : WindowStyle.SingleBorderWindow;
                };


                w.Loaded +=
                    delegate
                {
                    w.SizeToContent = SizeToContent.Manual;
                    w.Focus();
                };

                w.SizeChanged +=
                    (s, e) =>
                {
                    if (e.PreviousSize.Width == 0)
                    {
                        return;
                    }

                    // Content dictates its size. Yet when we resize the window we want the content to know it has more room.
                    // http://stackoverflow.com/questions/1081580/how-to-set-wpf-windows-startup-clientsize
                    var horizontalBorderHeight = SystemParameters.ResizeFrameHorizontalBorderHeight;
                    var verticalBorderWidth    = SystemParameters.ResizeFrameVerticalBorderWidth;
                    var captionHeight          = SystemParameters.CaptionHeight;

                    var Width = e.NewSize.Width;

                    var Height = e.NewSize.Height;


                    Width  -= 2 * verticalBorderWidth;
                    Height -= 2 * horizontalBorderHeight;


                    if (w.WindowStyle != WindowStyle.None)
                    {
                        Height -= captionHeight;
                    }

                    // where is this function documented?
                    c.SizeTo(Width, Height);
                };

                if (WindowCreated != null)
                {
                    WindowCreated(w);
                }
            };

            Spawn(w => w.ShowDialog());
#else
            RewriteToUltraApplication.AsProgram.Launch(typeof(Application));
#endif
        }