designer (size component dialog):

- fix memory leak
- reanchor dialog buttons

git-svn-id: trunk@13074 -

designer/sizecompsdlg.lfm

@@ -1,100 +1,126 @@
 object SizeComponentsDialog: TSizeComponentsDialog
+  Left = 379
+  Height = 190
+  Top = 745
+  Width = 380
+  HorzScrollBar.Page = 379
+  VertScrollBar.Page = 189
   ActiveControl = OKButton
   BorderStyle = bsSizeToolWin
   Caption = 'SizeComponentsDialog'
   ClientHeight = 190
   ClientWidth = 380
+  OnClose = FormClose
   OnResize = FormResize
-  PixelsPerInch = 96
   Position = poScreenCenter
-  HorzScrollBar.Page = 379
-  VertScrollBar.Page = 189
-  Left = 379
-  Height = 190
-  Top = 779
-  Width = 380
   object OKButton: TBitBtn
+    AnchorSideRight.Control = CancelButton
+    AnchorSideBottom.Control = Owner
+    AnchorSideBottom.Side = asrBottom
+    Left = 230
+    Height = 26
+    Top = 158
+    Width = 60
     Anchors = [akRight, akBottom]
     AutoSize = True
+    BorderSpacing.Right = 6
     BorderSpacing.Bottom = 6
-    
     Caption = '&OK'
     Default = True
     Kind = bkOK
     ModalResult = 1
     NumGlyphs = 0
     TabOrder = 0
-    AnchorSideBottom.Control = Owner
-    AnchorSideBottom.Side = asrBottom
-    Left = 306
-    Height = 34
-    Top = 150
-    Width = 68
   end
   object CancelButton: TBitBtn
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    AnchorSideBottom.Control = Owner
+    AnchorSideBottom.Side = asrBottom
+    Left = 296
+    Height = 26
+    Top = 158
+    Width = 78
     Anchors = [akRight, akBottom]
     AutoSize = True
     BorderSpacing.Right = 6
-    
+    BorderSpacing.Bottom = 6
     Caption = 'Cancel'
     Kind = bkCancel
     ModalResult = 2
     NumGlyphs = 0
     TabOrder = 1
-    AnchorSideRight.Control = OKButton
-    Left = 220
-    Height = 34
-    Top = 150
-    Width = 80
   end
   object WidthRadioGroup: TRadioGroup
-    Anchors = [akTop, akLeft, akBottom]
-    BorderSpacing.Left = 6
-    Caption = 'WidthRadioGroup'
-    TabOrder = 2
     AnchorSideLeft.Control = Owner
     AnchorSideBottom.Control = HeightRadioGroup
     AnchorSideBottom.Side = asrBottom
     Left = 6
-    Height = 138
+    Height = 146
     Top = 6
     Width = 181
+    Anchors = [akTop, akLeft, akBottom]
+    AutoFill = True
+    BorderSpacing.Left = 6
+    Caption = 'WidthRadioGroup'
+    ChildSizing.LeftRightSpacing = 6
+    ChildSizing.TopBottomSpacing = 6
+    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
+    ChildSizing.EnlargeVertical = crsHomogenousChildResize
+    ChildSizing.ShrinkHorizontal = crsScaleChilds
+    ChildSizing.ShrinkVertical = crsScaleChilds
+    ChildSizing.Layout = cclLeftToRightThenTopToBottom
+    ChildSizing.ControlsPerLine = 1
+    ClientHeight = 128
+    ClientWidth = 177
+    TabOrder = 2
     object WidthEdit: TEdit
+      AnchorSideBottom.Control = WidthRadioGroup
+      AnchorSideBottom.Side = asrBottom
+      Left = 86
+      Height = 23
+      Top = 99
+      Width = 80
       Anchors = [akRight, akBottom]
       BorderSpacing.Around = 6
       TabOrder = 0
       Text = 'WidthEdit'
-      AnchorSideBottom.Control = WidthRadioGroup
-      AnchorSideBottom.Side = asrBottom
-      Left = 90
-      Height = 23
-      Top = 91
-      Width = 80
     end
   end
   object HeightRadioGroup: TRadioGroup
-    Anchors = [akTop, akLeft, akRight, akBottom]
-    BorderSpacing.Around = 6
-    Caption = 'HeightRadioGroup'
-    TabOrder = 3
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = OKButton
     Left = 193
-    Height = 138
+    Height = 146
     Top = 6
     Width = 181
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    AutoFill = True
+    BorderSpacing.Around = 6
+    Caption = 'HeightRadioGroup'
+    ChildSizing.LeftRightSpacing = 6
+    ChildSizing.TopBottomSpacing = 6
+    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
+    ChildSizing.EnlargeVertical = crsHomogenousChildResize
+    ChildSizing.ShrinkHorizontal = crsScaleChilds
+    ChildSizing.ShrinkVertical = crsScaleChilds
+    ChildSizing.Layout = cclLeftToRightThenTopToBottom
+    ChildSizing.ControlsPerLine = 1
+    ClientHeight = 128
+    ClientWidth = 177
+    TabOrder = 3
     object HeightEdit: TEdit
+      AnchorSideBottom.Control = HeightRadioGroup
+      AnchorSideBottom.Side = asrBottom
+      Left = 87
+      Height = 23
+      Top = 99
+      Width = 80
       Anchors = [akRight, akBottom]
       BorderSpacing.Around = 6
       TabOrder = 0
       Text = 'HeightEdit'
-      AnchorSideBottom.Control = HeightRadioGroup
-      AnchorSideBottom.Side = asrBottom
-      Left = 91
-      Height = 23
-      Top = 91
-      Width = 80
     end
   end
 end

designer/sizecompsdlg.lrs

@@ -1,34 +1,51 @@
+{ Ýòî - ôàéë ðåñóðñîâ, àâòîìàòè÷åñêè ñîçäàííûé lazarus }
+
 LazarusResources.Add('TSizeComponentsDialog','FORMDATA',[
-  'TPF0'#21'TSizeComponentsDialog'#20'SizeComponentsDialog'#13'ActiveControl'#7
+  'TPF0'#21'TSizeComponentsDialog'#20'SizeComponentsDialog'#4'Left'#3'{'#1#6'He'
-  +#8'OKButton'#11'BorderStyle'#7#13'bsSizeToolWin'#7'Caption'#6#20'SizeCompone'
+  +'ight'#3#190#0#3'Top'#3#233#2#5'Width'#3'|'#1#18'HorzScrollBar.Page'#3'{'#1
-  +'ntsDialog'#12'ClientHeight'#3#190#0#11'ClientWidth'#3'|'#1#8'OnResize'#7#10
+  +#18'VertScrollBar.Page'#3#189#0#13'ActiveControl'#7#8'OKButton'#11'BorderSty'
-  +'FormResize'#13'PixelsPerInch'#2'`'#8'Position'#7#14'poScreenCenter'#18'Horz'
+  +'le'#7#13'bsSizeToolWin'#7'Caption'#6#20'SizeComponentsDialog'#12'ClientHeig'
-  +'ScrollBar.Page'#3'{'#1#18'VertScrollBar.Page'#3#189#0#4'Left'#3'{'#1#6'Heig'
+  +'ht'#3#190#0#11'ClientWidth'#3'|'#1#7'OnClose'#7#9'FormClose'#8'OnResize'#7
-  +'ht'#3#190#0#3'Top'#3#11#3#5'Width'#3'|'#1#0#7'TBitBtn'#8'OKButton'#7'Anchor'
+  +#10'FormResize'#8'Position'#7#14'poScreenCenter'#0#7'TBitBtn'#8'OKButton'#23
-  +'s'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Bottom'#2#6#7
+  +'AnchorSideRight.Control'#7#12'CancelButton'#24'AnchorSideBottom.Control'#7#5
-  +'Caption'#6#3'&OK'#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumG'
+  +'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3#230#0#6'Height'#2
-  +'lyphs'#2#0#8'TabOrder'#2#0#24'AnchorSideBottom.Control'#7#5'Owner'#21'Ancho'
+  +#26#3'Top'#3#158#0#5'Width'#2'<'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'Au'
-  +'rSideBottom.Side'#7#9'asrBottom'#4'Left'#3'2'#1#6'Height'#2'"'#3'Top'#3#150
+  +'toSize'#9#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bottom'#2#6#7'Captio'
-  +#0#5'Width'#2'D'#0#0#7'TBitBtn'#12'CancelButton'#7'Anchors'#11#7'akRight'#8
+  +'n'#6#3'&OK'#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'
-  +'akBottom'#0#8'AutoSize'#9#19'BorderSpacing.Right'#2#6#7'Caption'#6#6'Cancel'
+  +#2#0#8'TabOrder'#2#0#0#0#7'TBitBtn'#12'CancelButton'#23'AnchorSideRight.Cont'
-  +#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#1
+  +'rol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom'
-  +#23'AnchorSideRight.Control'#7#8'OKButton'#4'Left'#3#220#0#6'Height'#2'"'#3
+  +'.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3'('#1
-  +'Top'#3#150#0#5'Width'#2'P'#0#0#11'TRadioGroup'#15'WidthRadioGroup'#7'Anchor'
+  +#6'Height'#2#26#3'Top'#3#158#0#5'Width'#2'N'#7'Anchors'#11#7'akRight'#8'akBo'
-  +'s'#11#5'akTop'#6'akLeft'#8'akBottom'#0#18'BorderSpacing.Left'#2#6#7'Caption'
+  +'ttom'#0#8'AutoSize'#9#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bottom'#2
-  +#6#15'WidthRadioGroup'#8'TabOrder'#2#2#22'AnchorSideLeft.Control'#7#5'Owner'
+  +#6#7'Caption'#6#6'Cancel'#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'NumGly'
-  +#24'AnchorSideBottom.Control'#7#16'HeightRadioGroup'#21'AnchorSideBottom.Sid'
+  +'phs'#2#0#8'TabOrder'#2#1#0#0#11'TRadioGroup'#15'WidthRadioGroup'#22'AnchorS'
-  +'e'#7#9'asrBottom'#4'Left'#2#6#6'Height'#3#138#0#3'Top'#2#6#5'Width'#3#181#0
+  +'ideLeft.Control'#7#5'Owner'#24'AnchorSideBottom.Control'#7#16'HeightRadioGr'
-  +#0#5'TEdit'#9'WidthEdit'#7'Anchors'#11#7'akRight'#8'akBottom'#0#20'BorderSpa'
+  +'oup'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#3#146#0
-  +'cing.Around'#2#6#8'TabOrder'#2#0#4'Text'#6#9'WidthEdit'#24'AnchorSideBottom'
+  +#3'Top'#2#6#5'Width'#3#181#0#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#8
-  +'.Control'#7#15'WidthRadioGroup'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4
+  +'AutoFill'#9#18'BorderSpacing.Left'#2#6#7'Caption'#6#15'WidthRadioGroup'#28
-  +'Left'#2'Z'#6'Height'#2#23#3'Top'#2'['#5'Width'#2'P'#0#0#0#11'TRadioGroup'#16
+  +'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'C'
-  +'HeightRadioGroup'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0
+  +'hildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing'
-  +#20'BorderSpacing.Around'#2#6#7'Caption'#6#16'HeightRadioGroup'#8'TabOrder'#2
+  +'.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHoriz'
-  +#3#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBo'
+  +'ontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChi'
-  +'ttom'#24'AnchorSideBottom.Control'#7#8'OKButton'#4'Left'#3#193#0#6'Height'#3
+  +'lds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSiz'
-  +#138#0#3'Top'#2#6#5'Width'#3#181#0#0#5'TEdit'#10'HeightEdit'#7'Anchors'#11#7
+  +'ing.ControlsPerLine'#2#1#12'ClientHeight'#3#128#0#11'ClientWidth'#3#177#0#8
-  +'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#8'TabOrder'#2#0#4'Text'
+  +'TabOrder'#2#2#0#5'TEdit'#9'WidthEdit'#24'AnchorSideBottom.Control'#7#15'Wid'
-  +#6#10'HeightEdit'#24'AnchorSideBottom.Control'#7#16'HeightRadioGroup'#21'Anc'
+  +'thRadioGroup'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2'V'#6'Heigh'
-  +'horSideBottom.Side'#7#9'asrBottom'#4'Left'#2'['#6'Height'#2#23#3'Top'#2'['#5
+  +'t'#2#23#3'Top'#2'c'#5'Width'#2'P'#7'Anchors'#11#7'akRight'#8'akBottom'#0#20
-  +'Width'#2'P'#0#0#0#0
+  +'BorderSpacing.Around'#2#6#8'TabOrder'#2#0#4'Text'#6#9'WidthEdit'#0#0#0#11'T'
+  +'RadioGroup'#16'HeightRadioGroup'#23'AnchorSideRight.Control'#7#5'Owner'#20
+  +'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#8'OKBut'
+  +'ton'#4'Left'#3#193#0#6'Height'#3#146#0#3'Top'#2#6#5'Width'#3#181#0#7'Anchor'
+  +'s'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#8'AutoFill'#9#20'BorderSp'
+  +'acing.Around'#2#6#7'Caption'#6#16'HeightRadioGroup'#28'ChildSizing.LeftRigh'
+  +'tSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHo'
+  +'rizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7
+  +#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScale'
+  +'Childs'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.'
+  +'Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'
+  +#2#1#12'ClientHeight'#3#128#0#11'ClientWidth'#3#177#0#8'TabOrder'#2#3#0#5'TE'
+  +'dit'#10'HeightEdit'#24'AnchorSideBottom.Control'#7#16'HeightRadioGroup'#21
+  +'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2'W'#6'Height'#2#23#3'Top'#2
+  +'c'#5'Width'#2'P'#7'Anchors'#11#7'akRight'#8'akBottom'#0#20'BorderSpacing.Ar'
+  +'ound'#2#6#8'TabOrder'#2#0#4'Text'#6#10'HeightEdit'#0#0#0#0
 ]);

designer/sizecompsdlg.pp

@@ -42,6 +42,7 @@ type
     HeightRadioGroup: TRadioGroup;
     WidthEdit: TEdit;
     HeightEdit: TEdit;
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormResize(Sender: TObject);
   public
     constructor Create(AOwner: TComponent);  override;
@@ -75,6 +76,12 @@ begin
   HeightRadioGroup.Width := ClientWidth div 2 - 9;
 end;
 
+procedure TSizeComponentsDialog.FormClose(Sender: TObject;
+  var CloseAction: TCloseAction);
+begin
+  CloseAction := caFree;
+end;
+
 constructor TSizeComponentsDialog.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);