Designer, SizeCompsDlg: Autocheck radiobutton when entering a value in HeightEdit / WidthEdit. Issue #23398, patch from Alexander Strokach

git-svn-id: trunk@39405 -

designer/sizecompsdlg.lfm

@@ -9,13 +9,13 @@ object SizeComponentsDialog: TSizeComponentsDialog
   ClientWidth = 380
   OnClose = FormClose
   Position = poScreenCenter
-  LCLVersion = '0.9.27'
+  LCLVersion = '1.1'
   object PosLabel: TLabel
     AnchorSideLeft.Control = Owner
     AnchorSideLeft.Side = asrCenter
     AnchorSideTop.Control = Owner
     Left = 190
-    Height = 14
+    Height = 1
     Top = 0
     Width = 1
     ParentColor = False
@@ -27,7 +27,7 @@ object SizeComponentsDialog: TSizeComponentsDialog
     AnchorSideBottom.Control = HeightRadioGroup
     AnchorSideBottom.Side = asrBottom
     Left = 6
-    Height = 146
+    Height = 141
     Top = 6
     Width = 181
     Anchors = [akTop, akLeft, akRight, akBottom]
@@ -44,18 +44,19 @@ object SizeComponentsDialog: TSizeComponentsDialog
     ChildSizing.ShrinkVertical = crsScaleChilds
     ChildSizing.Layout = cclLeftToRightThenTopToBottom
     ChildSizing.ControlsPerLine = 1
-    ClientHeight = 128
+    ClientHeight = 122
-    ClientWidth = 177
+    ClientWidth = 173
     TabOrder = 0
     object WidthEdit: TEdit
       AnchorSideBottom.Control = WidthRadioGroup
       AnchorSideBottom.Side = asrBottom
-      Left = 86
+      Left = 82
       Height = 23
-      Top = 99
+      Top = 93
       Width = 80
       Anchors = [akRight, akBottom]
       BorderSpacing.Around = 6
+      OnChange = WidthEditChange
       TabOrder = 0
       Text = 'WidthEdit'
     end
@@ -67,7 +68,7 @@ object SizeComponentsDialog: TSizeComponentsDialog
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = ButtonPanel1
     Left = 193
-    Height = 146
+    Height = 141
     Top = 6
     Width = 181
     Anchors = [akTop, akLeft, akRight, akBottom]
@@ -84,27 +85,36 @@ object SizeComponentsDialog: TSizeComponentsDialog
     ChildSizing.ShrinkVertical = crsScaleChilds
     ChildSizing.Layout = cclLeftToRightThenTopToBottom
     ChildSizing.ControlsPerLine = 1
-    ClientHeight = 128
+    ClientHeight = 122
-    ClientWidth = 177
+    ClientWidth = 173
     TabOrder = 1
     object HeightEdit: TEdit
       AnchorSideBottom.Control = HeightRadioGroup
       AnchorSideBottom.Side = asrBottom
-      Left = 87
+      Left = 83
       Height = 23
-      Top = 99
+      Top = 93
       Width = 80
       Anchors = [akRight, akBottom]
       BorderSpacing.Around = 6
+      OnChange = HeightEditChange
       TabOrder = 0
       Text = 'HeightEdit'
     end
   end
   object ButtonPanel1: TButtonPanel
     Left = 6
-    Height = 26
+    Height = 31
-    Top = 158
+    Top = 153
     Width = 368
+    OKButton.Name = 'OKButton'
+    OKButton.DefaultCaption = True
+    HelpButton.Name = 'HelpButton'
+    HelpButton.DefaultCaption = True
+    CloseButton.Name = 'CloseButton'
+    CloseButton.DefaultCaption = True
+    CancelButton.Name = 'CancelButton'
+    CancelButton.DefaultCaption = True
     TabOrder = 2
     ShowButtons = [pbOK, pbCancel]
     ShowBevel = False

designer/sizecompsdlg.pp

@@ -43,6 +43,12 @@ type
     WidthEdit: TEdit;
     HeightEdit: TEdit;
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure HeightEditChange(Sender: TObject);
+    procedure WidthEditChange(Sender: TObject);
+  private
+    IsAutoChangeWidth, IsAutoChangeHeight: boolean;
+    SaveItemIndexWidth, NumberItemWidth: Integer;
+    SaveItemIndexHeight, NumberItemHeight: Integer;
   public
     constructor Create(AOwner: TComponent);  override;
   end;
@@ -81,6 +87,36 @@ begin
   CloseAction := caFree;
 end;
 
+procedure TSizeComponentsDialog.HeightEditChange(Sender: TObject);
+begin
+  if HeightEdit.Text = '' then
+  begin
+    HeightRadioGroup.ItemIndex := SaveItemIndexHeight;
+    IsAutoChangeHeight := false;
+  end
+  else if not IsAutoChangeHeight then
+  begin
+    SaveItemIndexHeight := HeightRadioGroup.ItemIndex;
+    HeightRadioGroup.ItemIndex := NumberItemHeight;
+    IsAutoChangeHeight := true;
+  end;
+end;
+
+procedure TSizeComponentsDialog.WidthEditChange(Sender: TObject);
+begin
+  if WidthEdit.Text = '' then
+  begin
+    WidthRadioGroup.ItemIndex := SaveItemIndexWidth;
+    IsAutoChangeWidth := false;
+  end
+  else if not IsAutoChangeWidth then
+  begin
+    SaveItemIndexWidth := WidthRadioGroup.ItemIndex;
+    WidthRadioGroup.ItemIndex := NumberItemWidth;
+    IsAutoChangeWidth := true;
+  end;
+end;
+
 constructor TSizeComponentsDialog.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
@@ -96,7 +132,7 @@ begin
       Add(lisNoChange);
       Add(lisShrinkToSmal);
       Add(lisGrowToLarges);
-      Add(dlgWidthPos);
+      NumberItemWidth := Add(dlgWidthPos);
       EndUpdate;
     end;
     ItemIndex:=0;
@@ -111,7 +147,7 @@ begin
       Add(lisNoChange);
       Add(lisShrinkToSmal);
       Add(lisGrowToLarges);
-      Add(DlgHeightPos);
+      NumberItemHeight := Add(DlgHeightPos);
       EndUpdate;
     end;
     ItemIndex:=0;
@@ -119,6 +155,11 @@ begin
 
   WidthEdit.Text:='';
   HeightEdit.Text:='';
+
+  IsAutoChangeWidth := false;
+  IsAutoChangeHeight := false;
+  SaveItemIndexWidth := WidthRadioGroup.ItemIndex;
+  SaveItemIndexHeight := HeightRadioGroup.ItemIndex;
 end;
 
 end.