fix button size in select DataSet for copy field form

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@702 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2009-02-10 19:57:19 +00:00
parent 795438d20c
commit 850a76a157
3 changed files with 67 additions and 68 deletions
--- a/components/rx/seldsfrm.lfm
+++ b/components/rx/seldsfrm.lfm
@ -1,67 +1,64 @@
 object SelectDataSetForm: TSelectDataSetForm
+  Left = 445
+  Height = 315
+  Top = 197
+  Width = 400
+  ActiveControl = CheckBox1
  Caption = 'Select dataset to copy to'
  ClientHeight = 315
  ClientWidth = 400
-  PixelsPerInch = 96
-  HorzScrollBar.Page = 399
-  VertScrollBar.Page = 314
-  Left = 501
-  Height = 315
-  Top = 189
-  Width = 400
+  Position = poDesktopCenter
+  LCLVersion = '0.9.27'
  object Label1: TLabel
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = CheckBox1
+    AnchorSideTop.Side = asrBottom
+    Left = 6
+    Height = 18
+    Top = 34
+    Width = 99
+    BorderSpacing.Around = 6
    Caption = 'Sourse dataset'
-    Color = clNone
    FocusControl = DataSetList
-    Left = 8
-    Height = 13
-    Top = 32
-    Width = 73
+    ParentColor = False
  end
  object CheckBox1: TCheckBox
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Owner
+    Left = 6
+    Height = 22
+    Top = 6
+    Width = 153
+    BorderSpacing.Around = 6
    Caption = 'Copy only metadata'
    OnChange = CheckBox1Change
    TabOrder = 0
-    UseOnChange = True
-    Left = 8
-    Height = 13
-    Top = 8
-    Width = 116
  end
  object DataSetList: TListBox
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Label1
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    AnchorSideBottom.Control = ButtonPanel1
+    Left = 6
+    Height = 195
+    Top = 58
+    Width = 388
    Anchors = [akTop, akLeft, akRight, akBottom]
+    BorderSpacing.Around = 6
+    ItemHeight = 0
    OnDblClick = ListBox1DblClick
    OnKeyPress = ListBox1KeyPress
    TabOrder = 1
-    Left = 8
-    Height = 224
-    Top = 48
+    TopIndex = -1
+  end
+  object ButtonPanel1: TButtonPanel
+    Left = 6
+    Height = 50
+    Top = 259
    Width = 388
-  end
-  object OkBtn: TBitBtn
-    Anchors = [akRight, akBottom]
-    BorderSpacing.InnerBorder = 2
-    Caption = '&��'
-    Default = True
-    Kind = bkOK
-    ModalResult = 1
    TabOrder = 2
-    Left = 240
-    Height = 30
-    Top = 280
-    Width = 75
-  end
-  object BitBtn2: TBitBtn
-    Anchors = [akRight, akBottom]
-    BorderSpacing.InnerBorder = 2
-    Cancel = True
-    Caption = 'Cancel'
-    Kind = bkCancel
-    ModalResult = 2
-    TabOrder = 3
-    Left = 320
-    Height = 30
-    Top = 280
-    Width = 75
+    ShowButtons = [pbOK, pbCancel, pbHelp]
  end
 end
--- a/components/rx/seldsfrm.lrs
+++ b/components/rx/seldsfrm.lrs
@ -1,23 +1,26 @@
 { ��� - ���� ��������, ������������� ��������� lazarus }

 LazarusResources.Add('TSelectDataSetForm','FORMDATA',[
-  'TPF0'#18'TSelectDataSetForm'#17'SelectDataSetForm'#7'Caption'#6#25'Select da'
-  +'taset to copy to'#12'ClientHeight'#3';'#1#11'ClientWidth'#3#144#1#13'Pixels'
-  +'PerInch'#2'`'#18'HorzScrollBar.Page'#3#143#1#18'VertScrollBar.Page'#3':'#1#4
-  +'Left'#3#245#1#6'Height'#3';'#1#3'Top'#3#189#0#5'Width'#3#144#1#0#6'TLabel'#6
-  +'Label1'#7'Caption'#6#14'Sourse dataset'#5'Color'#7#6'clNone'#12'FocusContro'
-  +'l'#7#11'DataSetList'#4'Left'#2#8#6'Height'#2#13#3'Top'#2' '#5'Width'#2'I'#0
-  +#0#9'TCheckBox'#9'CheckBox1'#7'Caption'#6#18'Copy only metadata'#8'OnChange'
-  +#7#15'CheckBox1Change'#8'TabOrder'#2#0#11'UseOnChange'#9#4'Left'#2#8#6'Heigh'
-  +'t'#2#13#3'Top'#2#8#5'Width'#2't'#0#0#8'TListBox'#11'DataSetList'#7'Anchors'
-  +#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#10'OnDblClick'#7#16'ListBox1'
-  +'DblClick'#10'OnKeyPress'#7#16'ListBox1KeyPress'#8'TabOrder'#2#1#4'Left'#2#8
-  +#6'Height'#3#224#0#3'Top'#2'0'#5'Width'#3#132#1#0#0#7'TBitBtn'#5'OkBtn'#7'An'
-  +'chors'#11#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#2#7'Capt'
-  +'ion'#6#3'&'#206#202#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#8'Ta'
-  +'bOrder'#2#2#4'Left'#3#240#0#6'Height'#2#30#3'Top'#3#24#1#5'Width'#2'K'#0#0#7
-  +'TBitBtn'#7'BitBtn2'#7'Anchors'#11#7'akRight'#8'akBottom'#0#25'BorderSpacing'
-  +'.InnerBorder'#2#2#6'Cancel'#9#7'Caption'#6#6'Cancel'#4'Kind'#7#8'bkCancel'
-  +#11'ModalResult'#2#2#8'TabOrder'#2#3#4'Left'#3'@'#1#6'Height'#2#30#3'Top'#3
-  +#24#1#5'Width'#2'K'#0#0#0
+  'TPF0'#18'TSelectDataSetForm'#17'SelectDataSetForm'#4'Left'#3#189#1#6'Height'
+  +#3';'#1#3'Top'#3#197#0#5'Width'#3#144#1#13'ActiveControl'#7#9'CheckBox1'#7'C'
+  +'aption'#6#25'Select dataset to copy to'#12'ClientHeight'#3';'#1#11'ClientWi'
+  +'dth'#3#144#1#8'Position'#7#15'poDesktopCenter'#10'LCLVersion'#6#6'0.9.27'#0
+  +#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.'
+  +'Control'#7#9'CheckBox1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6
+  +'Height'#2#18#3'Top'#2'"'#5'Width'#2'c'#20'BorderSpacing.Around'#2#6#7'Capti'
+  +'on'#6#14'Sourse dataset'#12'FocusControl'#7#11'DataSetList'#11'ParentColor'
+  +#8#0#0#9'TCheckBox'#9'CheckBox1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'An'
+  +'chorSideTop.Control'#7#5'Owner'#4'Left'#2#6#6'Height'#2#22#3'Top'#2#6#5'Wid'
+  +'th'#3#153#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#18'Copy only metadata'
+  +#8'OnChange'#7#15'CheckBox1Change'#8'TabOrder'#2#0#0#0#8'TListBox'#11'DataSe'
+  +'tList'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#6
+  +'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7
+  +#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Contro'
+  +'l'#7#12'ButtonPanel1'#4'Left'#2#6#6'Height'#3#195#0#3'Top'#2':'#5'Width'#3
+  +#132#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderSp'
+  +'acing.Around'#2#6#10'ItemHeight'#2#0#10'OnDblClick'#7#16'ListBox1DblClick'
+  +#10'OnKeyPress'#7#16'ListBox1KeyPress'#8'TabOrder'#2#1#8'TopIndex'#2#255#0#0
+  +#12'TButtonPanel'#12'ButtonPanel1'#4'Left'#2#6#6'Height'#2'2'#3'Top'#3#3#1#5
+  +'Width'#3#132#1#8'TabOrder'#2#2#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#6'pbH'
+  +'elp'#0#0#0#0
 ]);
--- a/components/rx/seldsfrm.pas
+++ b/components/rx/seldsfrm.pas
@ -6,15 +6,14 @@ interface

 uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  Buttons, ComponentEditors, DB;
+  Buttons, ComponentEditors, DB, ButtonPanel;

 type

  { TSelectDataSetForm }

  TSelectDataSetForm = class(TForm)
-    OkBtn: TBitBtn;
-    BitBtn2: TBitBtn;
+    ButtonPanel1: TButtonPanel;
    CheckBox1: TCheckBox;
    Label1: TLabel;
    DataSetList: TListBox;
@ -115,7 +114,7 @@ begin
    begin
      if Items.Count > 0 then ItemIndex := 0;
      Enabled := Items.Count > 0;
-      OkBtn.Enabled := (ItemIndex >= 0);
+      ButtonPanel1.OKButton.Enabled:= (ItemIndex >= 0);
    end;
  finally
    DataSetList.Items.EndUpdate;