Components panel on Preferences dialog

Source commit: f4170f5925db73e2ed91960c686bda1dd3ff1c95

source/forms/Preferences.cpp

@@ -114,6 +114,8 @@ __fastcall TPreferencesDialog::TPreferencesDialog(
   LoadDialogImage(ExplorerInterfacePicture, L"Explorer");
 
   LinkLabel(UpdatesLink);
+
+  HideComponentsPanel(this);
 }
 //---------------------------------------------------------------------------
 __fastcall TPreferencesDialog::~TPreferencesDialog()

source/forms/Preferences.dfm

@@ -6,7 +6,7 @@ object PreferencesDialog: TPreferencesDialog
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   BorderStyle = bsDialog
   Caption = 'Preferences'
-  ClientHeight = 439
+  ClientHeight = 489
   ClientWidth = 545
   Color = clBtnFace
   ParentFont = True
@@ -16,7 +16,7 @@ object PreferencesDialog: TPreferencesDialog
   OnShow = FormShow
   DesignSize = (
     545
-    439)
+    489)
   PixelsPerInch = 96
   TextHeight = 13
   object OKButton: TButton
@@ -3068,9 +3068,20 @@ object PreferencesDialog: TPreferencesDialog
     TabOrder = 3
     OnClick = HelpButtonClick
   end
+  object ComponentsPanel: TPanel
+    Left = 0
+    Top = 439
+    Width = 545
+    Height = 50
+    Align = alBottom
+    BevelOuter = bvNone
+    Color = clWindow
+    ParentBackground = False
+    TabOrder = 4
+  end
   object RegisterAsUrlHandlerMenu: TPopupMenu
     Left = 56
-    Top = 384
+    Top = 443
     object RegisterAsUrlHandlerItem: TMenuItem
       Caption = 'Register'
       OnClick = RegisterAsUrlHandlerItemClick

source/forms/Preferences.h

@@ -308,6 +308,7 @@ __published:
   TEdit *UpdatesAuthenticationEmailEdit;
   TStaticText *UpdatesLink;
   TCheckBox *ShowTipsCheck;
+  TPanel *ComponentsPanel;
   void __fastcall FormShow(TObject *Sender);
   void __fastcall ControlChange(TObject *Sender);
   void __fastcall EditorFontButtonClick(TObject *Sender);

source/windows/GUITools.cpp

@@ -700,18 +700,26 @@ void __fastcall HideComponentsPanel(TForm * Form)
   Panel->Visible = false;
   Form->Height -= Offset;
 
-  // Shift back bottom-anchored controls
-  // (needed for toolbar panel on Progress window)
   for (int Index = 0; Index < Form->ControlCount; Index++)
   {
     TControl * Control = Form->Controls[Index];
 
+    // Shift back bottom-anchored controls
+    // (needed for toolbar panel on Progress window and butons on Preferences dialog),
     if ((Control->Align == alNone) &&
         Control->Anchors.Contains(akBottom) &&
         !Control->Anchors.Contains(akTop))
     {
       Control->Top += Offset;
     }
+
+    // Resize back all-anchored controls
+    // (needed for main panel on Preferences dialog),
+    if (Control->Anchors.Contains(akBottom) &&
+        Control->Anchors.Contains(akTop))
+    {
+      Control->Height += Offset;
+    }
   }
 }
 //---------------------------------------------------------------------------