#region Imports
|
|
using DPumpHydr.WinFrmUI.RLT.Controls;
|
using DPumpHydr.WinFrmUI.RLT.Native;
|
using System;
|
using System.Collections;
|
using System.ComponentModel;
|
using System.ComponentModel.Design;
|
using System.Windows.Forms;
|
using System.Windows.Forms.Design;
|
|
#endregion
|
|
namespace DPumpHydr.WinFrmUI.RLT.Design.Poison
|
{
|
#region PoisonTabControlDesignerDesign
|
|
internal class PoisonTabControlDesigner : ParentControlDesigner
|
{
|
#region Fields
|
|
private readonly DesignerVerbCollection designerVerbs = new();
|
|
private IDesignerHost designerHost;
|
|
private ISelectionService selectionService;
|
|
public override SelectionRules SelectionRules => Control.Dock == DockStyle.Fill ? SelectionRules.Visible : base.SelectionRules;
|
public override DesignerVerbCollection Verbs
|
{
|
get
|
{
|
if (designerVerbs.Count == 2)
|
{
|
PoisonTabControl myControl = (PoisonTabControl)Control;
|
designerVerbs[1].Enabled = myControl.TabCount != 0;
|
}
|
return designerVerbs;
|
}
|
}
|
|
public IDesignerHost DesignerHost => designerHost ??= (IDesignerHost)GetService(typeof(IDesignerHost));
|
|
public ISelectionService SelectionService => selectionService ??= (ISelectionService)GetService(typeof(ISelectionService));
|
|
#endregion
|
|
#region Constructor
|
|
public PoisonTabControlDesigner()
|
{
|
DesignerVerb verb1 = new("Add Tab", OnAddPage);
|
DesignerVerb verb2 = new("Remove Tab", OnRemovePage);
|
designerVerbs.AddRange
|
(
|
new[]
|
{
|
verb1,
|
verb2
|
}
|
);
|
}
|
|
#endregion
|
|
#region Private Methods
|
|
private void OnAddPage(object sender, EventArgs e)
|
{
|
PoisonTabControl parentControl = (PoisonTabControl)Control;
|
Control.ControlCollection oldTabs = parentControl.Controls;
|
|
RaiseComponentChanging(TypeDescriptor.GetProperties(parentControl)["TabPages"]);
|
|
PoisonTabPage p = (PoisonTabPage)DesignerHost.CreateComponent(typeof(PoisonTabPage));
|
p.Text = p.Name;
|
parentControl.TabPages.Add(p);
|
|
RaiseComponentChanged(TypeDescriptor.GetProperties(parentControl)["TabPages"], oldTabs, parentControl.TabPages);
|
parentControl.SelectedTab = p;
|
|
SetVerbs();
|
}
|
|
private void OnRemovePage(object sender, EventArgs e)
|
{
|
PoisonTabControl parentControl = (PoisonTabControl)Control;
|
Control.ControlCollection oldTabs = parentControl.Controls;
|
|
if (parentControl.SelectedIndex < 0)
|
{
|
return;
|
}
|
|
RaiseComponentChanging(TypeDescriptor.GetProperties(parentControl)["TabPages"]);
|
|
DesignerHost.DestroyComponent(parentControl.TabPages[parentControl.SelectedIndex]);
|
|
RaiseComponentChanged(TypeDescriptor.GetProperties(parentControl)["TabPages"], oldTabs, parentControl.TabPages);
|
|
SelectionService.SetSelectedComponents
|
(
|
new IComponent[]
|
{
|
parentControl
|
},
|
SelectionTypes.Auto
|
);
|
|
SetVerbs();
|
}
|
|
private void SetVerbs()
|
{
|
PoisonTabControl parentControl = (PoisonTabControl)Control;
|
|
Verbs[1].Enabled = parentControl.TabPages.Count switch
|
{
|
0 => false,
|
_ => true,
|
};
|
}
|
|
#endregion
|
|
#region Overrides
|
|
protected override void WndProc(ref Message m)
|
{
|
base.WndProc(ref m);
|
switch (m.Msg)
|
{
|
case (int)WinApi.Messages.WM_NCHITTEST:
|
if (m.Result.ToInt32() == (int)WinApi.HitTest.HTTRANSPARENT)
|
{
|
m.Result = (IntPtr)WinApi.HitTest.HTCLIENT;
|
}
|
|
break;
|
}
|
}
|
|
protected override bool GetHitTest(System.Drawing.Point point)
|
{
|
if (SelectionService.PrimarySelection == Control)
|
{
|
WinApi.TCHITTESTINFO hti = new()
|
{
|
pt = Control.PointToClient(point),
|
flags = 0
|
};
|
|
Message m = new()
|
{
|
HWnd = Control.Handle,
|
Msg = WinApi.TCM_HITTEST
|
};
|
|
IntPtr lparam =
|
System.Runtime.InteropServices.Marshal.AllocHGlobal(System.Runtime.InteropServices.Marshal.SizeOf(hti));
|
System.Runtime.InteropServices.Marshal.StructureToPtr(hti, lparam, false);
|
m.LParam = lparam;
|
|
base.WndProc(ref m);
|
System.Runtime.InteropServices.Marshal.FreeHGlobal(lparam);
|
|
if (m.Result.ToInt32() != -1)
|
{
|
return hti.flags != (int)WinApi.TabControlHitTest.TCHT_NOWHERE;
|
}
|
}
|
|
return false;
|
}
|
|
protected override void PreFilterProperties(IDictionary properties)
|
{
|
properties.Remove("ImeMode");
|
properties.Remove("Padding");
|
properties.Remove("FlatAppearance");
|
properties.Remove("FlatStyle");
|
properties.Remove("AutoEllipsis");
|
properties.Remove("UseCompatibleTextRendering");
|
|
properties.Remove("Image");
|
properties.Remove("ImageAlign");
|
properties.Remove("ImageIndex");
|
properties.Remove("ImageKey");
|
properties.Remove("ImageList");
|
properties.Remove("TextImageRelation");
|
|
properties.Remove("BackgroundImage");
|
properties.Remove("BackgroundImageLayout");
|
properties.Remove("UseVisualStyleBackColor");
|
|
properties.Remove("Font");
|
properties.Remove("RightToLeft");
|
|
base.PreFilterProperties(properties);
|
}
|
#endregion
|
}
|
|
#endregion
|
}
|
