Anchor controls to each other.

wp-xyz · Nov 3, 2024 · 0cce7c1 · 0cce7c1
1 parent 85ced84
commit 0cce7c1
Show file tree

Hide file tree

Showing 10 changed files with 237 additions and 80 deletions.
diff --git a/source/dlListViewDialog.lfm b/source/dlListViewDialog.lfm
@@ -6,8 +6,8 @@ object ListViewForm: TListViewForm
   Caption = 'ListViewForm'
   ClientHeight = 327
   ClientWidth = 413
+  LCLVersion = '4.99.0.0'
   OnShow = FormShow
-  LCLVersion = '2.3.0.0'
   object Panel_ListView: TPanel
     Left = 0
     Height = 289

diff --git a/source/dlSerialPortSettings.lfm b/source/dlSerialPortSettings.lfm
@@ -10,12 +10,12 @@ object SerPortForm: TSerPortForm
   Caption = 'Device and serial port settings'
   ClientHeight = 362
   ClientWidth = 326
+  Position = poMainFormCenter
+  LCLVersion = '4.99.0.0'
   OnActivate = FormActivate
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   OnDestroy = FormDestroy
-  Position = poMainFormCenter
-  LCLVersion = '2.3.0.0'
   object MainPanel: TPanel
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = Owner
@@ -260,9 +260,9 @@ object SerPortForm: TSerPortForm
       Items.Strings = (
         ''
       )
-      OnChange = CbDeviceChange
       Style = csDropDownList
       TabOrder = 1
+      OnChange = CbDeviceChange
     end
     object RgHandshake: TRadioGroup
       AnchorSideLeft.Control = CbDevice
@@ -345,7 +345,7 @@ object SerPortForm: TSerPortForm
       Left = 156
       Height = 23
       Top = 217
-      Width = 73
+      Width = 84
       Alignment = taRightJustify
       BorderSpacing.Top = 2
       MaxValue = 6

diff --git a/source/dlSerialPortSettings.pas b/source/dlSerialPortSettings.pas
@@ -67,6 +67,7 @@   TSerPortForm = class(TForm)
     procedure FormDestroy(Sender: TObject);
   private
     { private declarations }
+    FActivated: Boolean;
     FPresets: TSerPresetList;
     FPrevPresetItem: TSerPresetItem;
     FPrevIndex: integer;
@@ -278,7 +279,11 @@ procedure TSerPortForm.CbDeviceChange(Sender: TObject);
 
 procedure TSerPortForm.FormActivate(Sender: TObject);
 begin
-  Constraints.MinHeight := MainPanel.Height + ButtonPanel.Height;
+  if not FActivated then
+  begin
+    FActivated := true;
+    Constraints.MinHeight := MainPanel.Height + ButtonPanel.Height;
+  end;
 end;
 
 procedure TSerPortForm.FormCloseQuery(Sender: TObject; var CanClose: boolean);

diff --git a/source/dlTimeOffsetDialog.lfm b/source/dlTimeOffsetDialog.lfm
@@ -36,10 +36,12 @@ inherited TimeOffsetForm: TTimeOffsetForm
     inherited BtnOK: TBitBtn
       Left = 272
       Default = False
+      TabOrder = 1
     end
     inherited BtnCancel: TBitBtn
       Left = 344
       Cancel = False
+      TabOrder = 2
     end
     object EdOffset: TFloatSpinEdit[2]
       AnchorSideLeft.Control = LblTimeOffset
@@ -54,8 +56,8 @@ inherited TimeOffsetForm: TTimeOffsetForm
       BorderSpacing.Right = 8
       MaxValue = 1E308
       MinValue = -1E308
+      TabOrder = 0
       OnChange = EdOffsetChange
-      TabOrder = 2
     end
     object LblTimeOffset: TLabel[3]
       AnchorSideLeft.Control = Panel_Buttons