Changeset 464

Timestamp:

Feb 22, 2023, 1:36:03 AM (2 years ago)

Author:

ataylor

Message:

Tweaked ScaleForm routine to better handle radio-button group controls.

File:

• trunk/Components/ControlsUtility.pas (modified) (2 diffs)

trunk/Components/ControlsUtility.pas

@@ -107 +107 @@
 uses
   PMGpi, PMDev, PMShl, DOS, PMWin, BseDos,
-  TabCtrls,
+  TabCtrls, ExtCtrls,
   MultiColumnListBox,
   Graphics;
@@ -678 +678 @@
       Round( TMultiColumnListBox( Control ).HeaderHeight * YFactor );
 
+  // TRadioGroup seems to handle its own children automatically
+  if Control is TRadioGroup then
+    exit;
   if csDetail in Control.ComponentState then
     exit;