resing enclose selection dialog buttons

git-svn-id: trunk@7272 -

ide/encloseselectiondlg.lfm

@@ -3,16 +3,18 @@ object EncloseSelectionDialog: TEncloseSelectionDialog
   ClientHeight = 244
   ClientWidth = 427
   OnCreate = EncloseSelectionDialogCREATE
-  PixelsPerInch = 90
+  OnResize = EncloseSelectionDialogResize
+  PixelsPerInch = 112
   Position = poScreenCenter
-  HorzScrollBar.Page = 428
+  HorzScrollBar.Page = 426
-  VertScrollBar.Page = 245
+  VertScrollBar.Page = 243
   Left = 406
   Height = 244
   Top = 308
   Width = 427
   object OkButton: TButton
     Anchors = [akLeft, akBottom]
+    BorderSpacing.OnChange = nil
     Caption = 'Ok'
     ModalResult = 1
     TabOrder = 0
@@ -23,6 +25,7 @@ object EncloseSelectionDialog: TEncloseSelectionDialog
   end
   object CancelButton: TButton
     Anchors = [akLeft, akBottom]
+    BorderSpacing.OnChange = nil
     Cancel = True
     Caption = 'Cancel'
     ModalResult = 2
@@ -34,6 +37,7 @@ object EncloseSelectionDialog: TEncloseSelectionDialog
   end
   object TypeRadiogroup: TRadioGroup
     Anchors = [akTop, akLeft, akRight, akBottom]
+    BorderSpacing.OnChange = nil
     Caption = 'Type'
     ParentColor = True
     Left = 8

ide/encloseselectiondlg.lrs

@@ -3,15 +3,17 @@
 LazarusResources.Add('TEncloseSelectionDialog','FORMDATA',[
   'TPF0'#23'TEncloseSelectionDialog'#22'EncloseSelectionDialog'#7'Caption'#6#17
   +'Enclose Selection'#12'ClientHeight'#3#244#0#11'ClientWidth'#3#171#1#8'OnCre'
-  +'ate'#7#28'EncloseSelectionDialogCREATE'#13'PixelsPerInch'#2'Z'#8'Position'#7
+  +'ate'#7#28'EncloseSelectionDialogCREATE'#8'OnResize'#7#28'EncloseSelectionDi'
-  +#14'poScreenCenter'#18'HorzScrollBar.Page'#3#172#1#18'VertScrollBar.Page'#3
+  +'alogResize'#13'PixelsPerInch'#2'p'#8'Position'#7#14'poScreenCenter'#18'Horz'
-  +#245#0#4'Left'#3#150#1#6'Height'#3#244#0#3'Top'#3'4'#1#5'Width'#3#171#1#0#7
+  +'ScrollBar.Page'#3#170#1#18'VertScrollBar.Page'#3#243#0#4'Left'#3#150#1#6'He'
-  +'TButton'#8'OkButton'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#2'O'
+  +'ight'#3#244#0#3'Top'#3'4'#1#5'Width'#3#171#1#0#7'TButton'#8'OkButton'#7'Anc'
-  +'k'#11'ModalResult'#2#1#8'TabOrder'#2#0#4'Left'#2'X'#6'Height'#2#25#3'Top'#3
+  +'hors'#11#6'akLeft'#8'akBottom'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6
-  +#208#0#5'Width'#2'k'#0#0#7'TButton'#12'CancelButton'#7'Anchors'#11#6'akLeft'
+  +#2'Ok'#11'ModalResult'#2#1#8'TabOrder'#2#0#4'Left'#2'X'#6'Height'#2#25#3'Top'
-  +#8'akBottom'#0#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabO'
+  +#3#208#0#5'Width'#2'k'#0#0#7'TButton'#12'CancelButton'#7'Anchors'#11#6'akLef'
-  +'rder'#2#1#4'Left'#3#224#0#6'Height'#2#25#3'Top'#3#208#0#5'Width'#2'h'#0#0#11
+  +'t'#8'akBottom'#0#22'BorderSpacing.OnChange'#13#6'Cancel'#9#7'Caption'#6#6'C'
-  +'TRadioGroup'#14'TypeRadiogroup'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
+  +'ancel'#11'ModalResult'#2#2#8'TabOrder'#2#1#4'Left'#3#224#0#6'Height'#2#25#3
-  +#8'akBottom'#0#7'Caption'#6#4'Type'#11'ParentColor'#9#4'Left'#2#8#6'Height'#3
+  +'Top'#3#208#0#5'Width'#2'h'#0#0#11'TRadioGroup'#14'TypeRadiogroup'#7'Anchors'
-  +#189#0#3'Top'#2#8#5'Width'#3#153#1#0#0#0
+  +#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#22'BorderSpacing.OnChange'#13
+  +#7'Caption'#6#4'Type'#11'ParentColor'#9#4'Left'#2#8#6'Height'#3#189#0#3'Top'
+  +#2#8#5'Width'#3#153#1#0#0#0
 ]);

ide/encloseselectiondlg.pas

@@ -51,11 +51,14 @@ type
     estPascalComment
     );
     
+  { TEncloseSelectionDialog }
+
   TEncloseSelectionDialog = class(TForm)
     OkButton: TBUTTON;
     CancelButton: TBUTTON;
     TypeRadiogroup: TRADIOGROUP;
     procedure EncloseSelectionDialogCREATE(Sender: TObject);
+    procedure EncloseSelectionDialogResize(Sender: TObject);
   private
   public
     function GetEncloseType: TEncloseSelectionType;
@@ -415,6 +418,16 @@ begin
   TypeRadiogroup.ItemIndex:=0;
 end;
 
+procedure TEncloseSelectionDialog.EncloseSelectionDialogResize(Sender: TObject);
+var
+  c: Integer;
+begin
+  c:=Width div 2;
+  OkButton.Width:=c-OkButton.Left-15;
+  CancelButton.Left:=c+15;
+  CancelButton.Width:=OkButton.Width;
+end;
+
 function TEncloseSelectionDialog.GetEncloseType: TEncloseSelectionType;
 var
   i: Integer;