Merge pull request #746 from Krypton-Suite/alpha-688-ResizeLock

- Do not allow Top & Bottom anchoring at the same time for height restricted controls

Documents/Help/Changelog.md

@@ -7,6 +7,7 @@
 ## 2022-11-xx - Build 2211 - November 2022 <!--Possible August or September release?-->
 * Implemented [#728](https://github.com/Krypton-Suite/Standard-Toolkit/issues/728), Bring MessageBox `States` inline with latest .Net 6 
 * Made enumeration `SchemeOfficeColors` public, so they can be used to make external themes
+* Resolved [#688](https://github.com/Krypton-Suite/Standard-Toolkit/issues/688), KryptonComboBox / KryptonNumericUpDown / KryptonDomainUpDown Anchor Sizing no as expected when anchored Top & Bottom
 * Resolved [#722](https://github.com/Krypton-Suite/Standard-Toolkit/issues/722), KryptonRichTextBox disabled colour cannot be set
 * Resolved [#662](https://github.com/Krypton-Suite/Standard-Toolkit/issues/662), Can not "Control / Set Disabled" Background Colour Of Comboboxes, in DropDown mode
 * Resolved [#737](https://github.com/Krypton-Suite/Standard-Toolkit/issues/737), `Office 2013 - Dark Grey` for `PaletteMode` in designer causes a crash

Source/Krypton Components/Krypton.Toolkit/Controls Toolkit/KryptonComboBox.cs

@@ -2085,6 +2085,20 @@ public override Size GetPreferredSize(Size proposedSize)
             return base.GetPreferredSize(proposedSize);
         }
 
+        /// <summary>https://github.com/Krypton-Suite/Standard-Toolkit/issues/688</summary>
+        /// <returns>A bitwise combination of the <see cref="T:System.Windows.Forms.AnchorStyles" /> values. The default is <see langword="Top" /> and <see langword="Left" />.</returns>
+        [Category(@"CatLayout")]
+        [DefaultValue(AnchorStyles.Top | AnchorStyles.Left)]
+        [Description(@"Defines the edges of the container to which a certain control is bound. When a control is anchored to an edge, the distance between the control's closest edge and the specified edge will remain constant")]
+        [RefreshProperties(RefreshProperties.Repaint)]
+        public override AnchorStyles Anchor
+        {
+            get => base.Anchor;
+            set => base.Anchor = value.HasFlag(AnchorStyles.Bottom | AnchorStyles.Top)
+                ? value ^ AnchorStyles.Bottom
+                : value;
+        }
+
         /// <summary>
         /// Gets the rectangle that represents the display area of the control.
         /// </summary>

Source/Krypton Components/Krypton.Toolkit/Controls Toolkit/KryptonDomainUpDown.cs

@@ -1403,6 +1403,20 @@ public override Size GetPreferredSize(Size proposedSize)
             }
         }
 
+        /// <summary>https://github.com/Krypton-Suite/Standard-Toolkit/issues/688</summary>
+        /// <returns>A bitwise combination of the <see cref="T:System.Windows.Forms.AnchorStyles" /> values. The default is <see langword="Top" /> and <see langword="Left" />.</returns>
+        [Category(@"CatLayout")]
+        [DefaultValue(AnchorStyles.Top | AnchorStyles.Left)]
+        [Description(@"Defines the edges of the container to which a certain control is bound. When a control is anchored to an edge, the distance between the control's closest edge and the specified edge will remain constant")]
+        [RefreshProperties(RefreshProperties.Repaint)]
+        public override AnchorStyles Anchor
+        {
+            get => base.Anchor;
+            set => base.Anchor = value.HasFlag(AnchorStyles.Bottom | AnchorStyles.Top)
+                ? value ^ AnchorStyles.Bottom
+                : value;
+        }
+
         /// <summary>
         /// Gets the rectangle that represents the display area of the control.
         /// </summary>

Source/Krypton Components/Krypton.Toolkit/Controls Toolkit/KryptonNumericUpDown.cs

@@ -1479,6 +1479,20 @@ public override Size GetPreferredSize(Size proposedSize)
             }
         }
 
+        /// <summary>https://github.com/Krypton-Suite/Standard-Toolkit/issues/688</summary>
+        /// <returns>A bitwise combination of the <see cref="T:System.Windows.Forms.AnchorStyles" /> values. The default is <see langword="Top" /> and <see langword="Left" />.</returns>
+        [Category(@"CatLayout")]
+        [DefaultValue(AnchorStyles.Top | AnchorStyles.Left)]
+        [Description(@"Defines the edges of the container to which a certain control is bound. When a control is anchored to an edge, the distance between the control's closest edge and the specified edge will remain constant")]
+        [RefreshProperties(RefreshProperties.Repaint)]
+        public override AnchorStyles Anchor
+        {
+            get => base.Anchor;
+            set => base.Anchor = value.HasFlag(AnchorStyles.Bottom | AnchorStyles.Top)
+                ? value ^ AnchorStyles.Bottom
+                : value;
+        }
+
         /// <summary>
         /// Gets the rectangle that represents the display area of the control.
         /// </summary>
@@ -1784,12 +1798,13 @@ protected override void SetBoundsCore(int x, int y,
                 // Override the actual height used
                 height = preferredSize.Height;
             }
-            if (specified.HasFlag(BoundsSpecified.Width))
-            {
-                // Override the actual height used
-                width = preferredSize.Width;
-            }
-
+            // Do not do the following otherwise the designer will not allow width to be set!
+            // https://github.com/Krypton-Suite/Standard-Toolkit/issues/724
+            //if (specified.HasFlag(BoundsSpecified.Width))
+            //{
+            //    // Override the actual Width used
+            //    width = preferredSize.Width;
+            //}
             base.SetBoundsCore(x, y, width, height, specified);
         }