ActiveMenuImpl.cs

/*=============================================================================
*
*   (C) Copyright 2011, Michael Carlisle (mike.carlisle@thecodeking.co.uk)
*
*   http://www.TheCodeKing.co.uk
*  
*   All rights reserved.
*   The code and information is provided "as-is" without waranty of any kind,
*   either expresed or implied.
*
*-----------------------------------------------------------------------------
*   History:
*       01/09/2007  Michael Carlisle                Version 1.0
*=============================================================================
*/
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Drawing;
using System.Runtime.InteropServices;
using System.Windows.Forms;
using sage.ew.formul.ButtonTittle.Themes;
using sage.ew.formul.ButtonTittle.Utils;

namespace sage.ew.formul.ButtonTittle
{
    internal class ActiveMenuImpl : Form, IActiveMenu 
    {
        private static readonly Dictionary<Form, IActiveMenu> parents;

        //private readonly IContainer components;

        private readonly ActiveItemsImpl items;

        private readonly Size originalMinSize;

        private readonly Form parentForm;

        private readonly SpillOverMode spillOverMode;
        private readonly ThemeFactory themeFactory;

        private int containerMaxWidth;

        private bool isActivated;
        private ITheme theme;
        private ToolTip tooltip;

        // To detect redundant calls
        private bool _disposed = false;

        static ActiveMenuImpl()
        {
            parents = new Dictionary<Form, IActiveMenu>();
        }

        private ActiveMenuImpl(Form form)
        {
            InitializeComponent();
            items = new ActiveItemsImpl();
            items.CollectionModified += ItemsCollectionModified;
            parentForm = form;
            Show(form);
             parentForm.Disposed += ParentFormDisposed;
            Visible = false;
            isActivated = form.WindowState != FormWindowState.Minimized;
            themeFactory = new ThemeFactory(form);
            theme = themeFactory.GetTheme();
            originalMinSize = form.MinimumSize;
            AttachHandlers();
            ToolTip.ShowAlways = true;
            TopMost = form.TopMost;
            TopMost = false;
            spillOverMode = SpillOverMode.IncreaseSize;
        }

        protected override CreateParams CreateParams
        {
            get
            {
                CreateParams p = base.CreateParams;
                p.Style = (int) Win32.WS_CHILD;
                p.Style |= (int) Win32.WS_CLIPSIBLINGS;
                p.ExStyle &= (int) Win32.WS_EX_LAYERED;
                p.Parent = Win32.GetDesktopWindow();
                return p;
            }
        }

        #region IActiveMenu Members

        public IActiveItems Items
        {
            get { return items; }
        }

        public ToolTip ToolTip
        {
            get { return tooltip ?? (tooltip = new ToolTip()); }
            set { tooltip = value; }
        }

        // Color del titulo inactivo
        private Color InactiveTittleColor
        {
            get
            {
                if (inactiveTittleColor == null)
                {
                    Point actmenupos = new Point(Left - 1, Top);
                    inactiveTittleColor = GetPixel(actmenupos);
                }

                return inactiveTittleColor;
            }
        }
        private dynamic inactiveTittleColor = null;

        #endregion

        public static IActiveMenu GetInstance(Form form)
        {
            if (!parents.ContainsKey(form))
            {
                parents.Add(form, new ActiveMenuImpl(form));
            }
            return parents[form];
        }

        protected override void OnLoad(EventArgs e)
        {
            base.OnLoad(e);
            base.BringToFront();
        }

        private void ItemsCollectionModified(object sender, ListModificationEventArgs e)
        {
            Controls.Clear();
            foreach (ActiveButton button in Items)
            {
                Controls.Add(button);
            }
            CalcSize();
            OnPosition();
        }

        private void ParentFormDisposed(object sender, EventArgs e)
        {
            var form = (Form)sender;
            if (form == null)
            {
                return;
            }
            if (parents.ContainsKey(form))
            {
                parents.Remove(form);
            }
        }

        protected void AttachHandlers()
        {
            parentForm.Deactivate += ParentFormDeactivate;
            parentForm.Activated += ParentFormActivated;
            parentForm.SizeChanged += ParentRefresh;
            parentForm.VisibleChanged += ParentRefresh;
            parentForm.Move += ParentRefresh;
            parentForm.SystemColorsChanged += TitleButtonSystemColorsChanged;
            // used to mask the menu control behind the buttons.
            if (Win32.DwmIsCompositionEnabled)
            {
                // PE-103700. Cambiar el Fuchsia por LightGray para que si el botón se refleja en alguna parte que no se vea tan "lila"
                BackColor = Color.LightGray;
                TransparencyKey = Color.LightGray;
            }
            else
            {
                BackColor = Color.FromKnownColor(KnownColor.ActiveCaption);
                TransparencyKey = BackColor;
            }
        }

        private void CancelAttachHandlers()
        {
            if (parentForm == null)
                return;

            parentForm.Deactivate -= ParentFormDeactivate;
            parentForm.Activated -= ParentFormActivated;
            parentForm.SizeChanged -= ParentRefresh;
            parentForm.VisibleChanged -= ParentRefresh;
            parentForm.Move -= ParentRefresh;
            parentForm.SystemColorsChanged -= TitleButtonSystemColorsChanged;
        }

        public bool _ParentFormActivated = true;

        private void ParentFormDeactivate(object sender, EventArgs e)
        {
            ToolTip.ShowAlways = false;
            _ParentFormActivated = false;

            foreach (Control loCtrl in Controls)
                loCtrl.Invalidate();

            OnPosition();
        }

        private void ParentFormActivated(object sender, EventArgs e)
        {
            ToolTip.ShowAlways = true;
            _ParentFormActivated = true;

            foreach (Control loCtrl in Controls)
                loCtrl.Invalidate();

            OnPosition();
        }

        private void TitleButtonSystemColorsChanged(object sender, EventArgs e)
        {
            theme = themeFactory.GetTheme();
            CalcSize();
            OnPosition();
        }

        private void CalcSize()
        {
            int left = 0;
            for (int i = (Items.Count - 1); i >= 0; i--)
            {
                var button = (ThemedItem) Items[i];
                button.Theme = theme;
                button.Left = left;
                left += Items[i].Width;// + theme.ButtonOffset.X;
                button.Top = theme.ButtonOffset.Y;                
            }
            containerMaxWidth = left;

            if (spillOverMode == SpillOverMode.IncreaseSize)
            {
                int w = containerMaxWidth + theme.ControlBoxSize.Width + theme.FrameBorder.Width + theme.FrameBorder.Width;

                parentForm.MinimumSize = originalMinSize;

                if (parentForm.MinimumSize.Width <= w)
                {
                    parentForm.MinimumSize = new Size(w, parentForm.MinimumSize.Height);
                }
            }
        }

        protected void ParentRefresh(object sender, EventArgs e)
        {
            if (parentForm.WindowState == FormWindowState.Minimized || !parentForm.Visible)
            {
                isActivated = false;
                Visible = false;
            }
            else
            {
                isActivated = true;
                OnPosition();
            }
        }

        private Color GetPixel(Point position)
        {
            Color colorpicked = SystemColors.ActiveCaption;

            try
            {
                using (var bitmap = new Bitmap(1, 1))
                {
                    using (var graphics = Graphics.FromImage(bitmap))
                    {
                        graphics.CopyFromScreen(position, new Point(0, 0), new Size(1, 1));
                    }
                    colorpicked = bitmap.GetPixel(0, 0);
                }
            }
            catch (Exception)
            {

            }

            return colorpicked;
        }

        public Color GetChromeColor()
        {
            int hr1 = DwmIsCompositionEnabled(out bool isEnabled);
            if ((hr1 != 0) || !isEnabled) // 0 means S_OK.
            {
                return SystemColors.ActiveCaption;
            }

            DWMCOLORIZATIONPARAMS parameters;
            try
            {
                // This API is undocumented and so may become unusable in future versions of OSes.
                int hr2 = DwmGetColorizationParameters(out parameters);
                if (hr2 != 0) // 0 means S_OK.
                {
                    return SystemColors.ActiveCaption;
                }
            }
            catch
            {
                return SystemColors.ActiveCaption;
            }

            // Convert colorization color parameter to Color ignoring alpha channel.
            Color targetColor = Color.FromArgb(
                (byte)(parameters.colorizationColor >> 16),
                (byte)(parameters.colorizationColor >> 8),
                (byte)parameters.colorizationColor);

            // Prepare base gray color.
            Color baseColor = Color.FromArgb(217, 217, 217);

            // Blend the two colors using colorization color balance parameter.
            return BlendColor(targetColor, baseColor, 100 - parameters.colorizationColorBalance);
        }

        private Color BlendColor(Color color1, Color color2, double color2Perc)
        {
            if ((color2Perc < 0) || (100 < color2Perc))
            {
                throw new ArgumentOutOfRangeException("color2Perc");
            }

            return Color.FromArgb(
                BlendColorChannel(color1.R, color2.R, color2Perc),
                BlendColorChannel(color1.G, color2.G, color2Perc),
                BlendColorChannel(color1.B, color2.B, color2Perc));
        }

        private byte BlendColorChannel(double channel1, double channel2, double channel2Perc)
        {
            var buff = channel1 + (channel2 - channel1) * channel2Perc / 100D;
            return Math.Min((byte)Math.Round(buff), (byte)255);
        }

        [DllImport("Dwmapi.dll")]
        private static extern int DwmIsCompositionEnabled([MarshalAs(UnmanagedType.Bool)] out bool pfEnabled);

        [DllImport("Dwmapi.dll", EntryPoint = "#127")] // Undocumented API
        private static extern int DwmGetColorizationParameters(out DWMCOLORIZATIONPARAMS parameters);

        [StructLayout(LayoutKind.Sequential)]
        private struct DWMCOLORIZATIONPARAMS
        {
            public uint colorizationColor;
            public uint colorizationAfterglow;
            public uint colorizationColorBalance; // Ranging from 0 to 100
            public uint colorizationAfterglowBalance;
            public uint colorizationBlurBalance;
            public uint colorizationGlassReflectionIntensity;
            public uint colorizationOpaqueBlend;
        }

        private void OnPosition()
        {
            if (!IsDisposed)
            {
                if (theme == null || !theme.IsDisplayed)
                {
                    Visible = false;
                    return;
                }

                int top = theme.FrameBorder.Height;
                int left = theme.FrameBorder.Width + theme.ControlBoxSize.Width;

                Top = top + parentForm.Top;
                Left = parentForm.Left + parentForm.Width - containerMaxWidth - left ;

                if (theme is Styled)
                {
                    Top += 1;
                }
                else if (theme is Aero)
                {
                    if (System.Diagnostics.Debugger.IsAttached)
                    {
                        switch (parentForm.FormBorderStyle)
                        {
                            case FormBorderStyle.Sizable:
                                Top += 1;
                                break;
                            case FormBorderStyle.FixedSingle:
                            case FormBorderStyle.FixedDialog:
                                Top += 5;
                                break;
                        }
                    }
                }
                else if (theme is Aero8)
                {
                    switch (parentForm.FormBorderStyle)
                    {
                        case FormBorderStyle.Sizable:
                            Top += 1;
                            break;
                        case FormBorderStyle.FixedSingle:
                        case FormBorderStyle.FixedDialog:
                            Top += 1;  // Para que se vean los botones de ayuda dentro del caption tanto en Windows Server 2012 como Windows 10
                            break;
                    }
                }
                else if (theme is Aero10)
                {
                    switch (parentForm.FormBorderStyle)
                    {
                        case FormBorderStyle.FixedDialog:
                            Top += 5;
                            break;
                    }
                }

                if (!(theme is Aero) && Left - 1 > 0 && Top > 0)
                {
                    Point actmenupos = new Point(Left - 1, Top);
                    Color backColor;

                    if (_ParentFormActivated)
                    {
                        if (theme is Aero10)
                        {
                            backColor = Color.White;
                        }
                        else
                        {
                            backColor = GetChromeColor();
                        }
                    }
                    else
                    {
                        backColor = InactiveTittleColor;
                    }

                    if (Convert.ToInt32(backColor.R) > 0 || Convert.ToInt32(backColor.G) > 0 || Convert.ToInt32(backColor.B) > 0)
                    {
                        this.BackColor = Color.FromArgb(this.BackColor.A,
                                                        Math.Min(255, Convert.ToInt32(backColor.R * 1.01)),
                                                        Math.Min(255, Convert.ToInt32(backColor.G * 1.01f)),
                                                        Math.Min(255, Convert.ToInt32(backColor.B * 1.01f)));
                    }

                    foreach (ActiveButton button in Items)
                    {
                        button.ChangeColors();
                    }
                }

                Visible = theme.IsDisplayed && isActivated;

                if (Visible)
                {
                    if (Items.Count > 0)
                    {
                        if (theme is Aero || theme is Aero8 || theme is Aero10)
                            Opacity = 1;
                        else
                            Opacity = parentForm.Opacity;
                        
                        if (parentForm.Visible)
                        {
                            if (theme is Aero || theme is Aero8 || theme is Aero10)
                                Opacity = 1;
                            else
                                Opacity = parentForm.Opacity;
                        }
                        else
                        {
                            Visible = false;
                        }
                    }
                    if (spillOverMode == SpillOverMode.Hide)
                    {
                        foreach (ActiveButton b in Items)
                        {
                            if (b.Left + Left - theme.FrameBorder.Width + 2 < parentForm.Left)
                            {
                                b.Visible = false;
                            }
                            else
                            {
                                b.Visible = true;
                            }
                        }
                    }
                }
            }
        }

        protected override void Dispose(bool disposing)
        {
            if (_disposed)
                return;

            if (disposing)
                CancelAttachHandlers();

            base.Dispose(disposing);

            _disposed = true;
        }

        private void InitializeComponent()
        {
            this.SuspendLayout();
            // 
            // ActiveMenuImpl
            // 
            this.AutoSize = true;
            this.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink;
            this.ClientSize = new System.Drawing.Size(10, 10);
            this.ControlBox = false;
            this.Font = new System.Drawing.Font("Segoe UI", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(0)));
            this.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None;
            this.MaximizeBox = false;
            this.MinimizeBox = false;
            this.Name = "ActiveMenuImpl";
            this.ShowIcon = false;
            this.ShowInTaskbar = false;
            this.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide;
            this.ResumeLayout(false);

        }
    }
}