ideintf: reanchor imagelist editor, use buttonpanel

git-svn-id: trunk@19741 -

ideintf/imagelisteditor.lfm

@@ -3,7 +3,6 @@ object ImageListEditorDlg: TImageListEditorDlg
   Height = 379
   Top = 191
   Width = 616
-  ActiveControl = BtnOK
   BorderIcons = [biSystemMenu, biHelp]
   Caption = 'ImagesList Editor'
   ClientHeight = 379
@@ -15,21 +14,25 @@ object ImageListEditorDlg: TImageListEditorDlg
   Position = poScreenCenter
   LCLVersion = '0.9.27'
   object GroupBoxR: TGroupBox
+    AnchorSideTop.Control = Owner
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    AnchorSideBottom.Control = BtnPanel
     Left = 375
-    Height = 313
+    Height = 335
     Top = 6
     Width = 235
     Anchors = [akTop, akLeft, akRight, akBottom]
     BorderSpacing.Around = 6
     Caption = 'Selected Image'
-    ClientHeight = 294
+    ClientHeight = 317
     ClientWidth = 231
-    TabOrder = 5
+    TabOrder = 1
     object LabelTransparent: TLabel
       Left = 110
-      Height = 18
+      Height = 14
-      Top = 184
+      Top = 211
-      Width = 117
+      Width = 92
       Anchors = [akLeft, akBottom]
       BorderSpacing.Around = 6
       Caption = 'Transparent Color:'
@@ -37,14 +40,14 @@ object ImageListEditorDlg: TImageListEditorDlg
     end
     object LabelSize: TLabel
       Left = 6
-      Height = 15
+      Height = 14
       Top = 6
-      Width = 2
+      Width = 1
       ParentColor = False
     end
     object Preview: TScrollBox
       Left = 6
-      Height = 146
+      Height = 169
       Top = 32
       Width = 218
       Anchors = [akTop, akLeft, akRight, akBottom]
@@ -57,7 +60,7 @@ object ImageListEditorDlg: TImageListEditorDlg
     object RadioGroup: TRadioGroup
       Left = 6
       Height = 105
-      Top = 184
+      Top = 207
       Width = 96
       Anchors = [akLeft, akBottom]
       AutoFill = True
@@ -71,7 +74,7 @@ object ImageListEditorDlg: TImageListEditorDlg
       ChildSizing.ShrinkVertical = crsScaleChilds
       ChildSizing.Layout = cclLeftToRightThenTopToBottom
       ChildSizing.ControlsPerLine = 1
-      ClientHeight = 86
+      ClientHeight = 87
       ClientWidth = 92
       Enabled = False
       ItemIndex = 0
@@ -88,8 +91,8 @@ object ImageListEditorDlg: TImageListEditorDlg
       AnchorSideTop.Control = LabelTransparent
       AnchorSideTop.Side = asrBottom
       Left = 110
-      Height = 31
+      Height = 22
-      Top = 208
+      Top = 231
       Width = 96
       Selected = clFuchsia
       Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames]
@@ -101,80 +104,30 @@ object ImageListEditorDlg: TImageListEditorDlg
       TabOrder = 2
     end
   end
-  object BtnOK: TBitBtn
-    AnchorSideRight.Control = BtnCancel
-    Left = 230
-    Height = 35
-    Top = 334
-    Width = 90
-    Anchors = [akRight, akBottom]
-    BorderSpacing.Around = 6
-    Caption = '&OK'
-    Kind = bkOK
-    ModalResult = 1
-    NumGlyphs = 0
-    TabOrder = 0
-  end
-  object BtnCancel: TBitBtn
-    AnchorSideRight.Control = BtnApply
-    Left = 326
-    Height = 35
-    Top = 334
-    Width = 90
-    Anchors = [akRight, akBottom]
-    Cancel = True
-    Caption = 'Cancel'
-    Kind = bkCancel
-    ModalResult = 2
-    NumGlyphs = 0
-    TabOrder = 1
-  end
-  object BtnApply: TBitBtn
-    AnchorSideRight.Control = BtnHelp
-    Left = 422
-    Height = 35
-    Top = 334
-    Width = 90
-    Anchors = [akRight, akBottom]
-    BorderSpacing.Around = 6
-    Caption = '&Apply'
-    NumGlyphs = 0
-    OnClick = btnApplyClick
-    TabOrder = 2
-  end
-  object BtnHelp: TBitBtn
-    Left = 518
-    Height = 35
-    Top = 334
-    Width = 90
-    Anchors = [akRight, akBottom]
-    BorderSpacing.Around = 6
-    Caption = '&Help'
-    Kind = bkHelp
-    NumGlyphs = 0
-    TabOrder = 3
-  end
   object GroupBoxL: TGroupBox
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Owner
+    AnchorSideBottom.Control = BtnPanel
     Left = 6
-    Height = 313
+    Height = 335
     Top = 6
     Width = 364
     Anchors = [akTop, akLeft, akBottom]
     BorderSpacing.Around = 6
     Caption = 'Images'
-    ClientHeight = 294
+    ClientHeight = 317
     ClientWidth = 360
-    TabOrder = 4
+    TabOrder = 0
     object TreeView: TTreeView
       AnchorSideLeft.Control = GroupBoxL
       AnchorSideTop.Control = GroupBoxL
       Left = 6
-      Height = 283
+      Height = 306
       Top = 6
       Width = 186
       Anchors = [akTop, akLeft, akRight, akBottom]
       BorderSpacing.Around = 6
-      DefaultItemHeight = 19
+      DefaultItemHeight = 16
       HideSelection = False
       Images = ImageList
       ReadOnly = True
@@ -308,8 +261,15 @@ object ImageListEditorDlg: TImageListEditorDlg
       TabOrder = 7
     end
   end
+  object BtnPanel: TButtonPanel
+    Left = 6
+    Height = 26
+    Top = 347
+    Width = 604
+    TabOrder = 2
+    ShowBevel = False
+  end
   object ImageList: TImageList
-    Masked = False
     left = 216
     top = 246
   end

ideintf/imagelisteditor.lrs

@@ -2,60 +2,49 @@
 
 LazarusResources.Add('TImageListEditorDlg','FORMDATA',[
   'TPF0'#19'TImageListEditorDlg'#18'ImageListEditorDlg'#4'Left'#3'.'#1#6'Height'
-  +#3'{'#1#3'Top'#3#191#0#5'Width'#3'h'#2#13'ActiveControl'#7#5'BtnOK'#11'Borde'
+  +#3'{'#1#3'Top'#3#191#0#5'Width'#3'h'#2#11'BorderIcons'#11#12'biSystemMenu'#6
-  +'rIcons'#11#12'biSystemMenu'#6'biHelp'#0#7'Caption'#6#17'ImagesList Editor'
+  +'biHelp'#0#7'Caption'#6#17'ImagesList Editor'#12'ClientHeight'#3'{'#1#11'Cli'
-  +#12'ClientHeight'#3'{'#1#11'ClientWidth'#3'h'#2#21'Constraints.MinHeight'#3
+  +'entWidth'#3'h'#2#21'Constraints.MinHeight'#3'Y'#1#20'Constraints.MinWidth'#3
-  +'Y'#1#20'Constraints.MinWidth'#3#8#2#8'OnCreate'#7#10'FormCreate'#9'OnDestro'
+  +#8#2#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#8'Position'
-  +'y'#7#11'FormDestroy'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.'
+  +#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#9'TGroupBox'#9'GroupBoxR'
-  +'9.27'#0#9'TGroupBox'#9'GroupBoxR'#4'Left'#3'w'#1#6'Height'#3'9'#1#3'Top'#2#6
+  +#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'
-  +#5'Width'#3#235#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0
+  +#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#8'Bt'
-  +#20'BorderSpacing.Around'#2#6#7'Caption'#6#14'Selected Image'#12'ClientHeigh'
+  +'nPanel'#4'Left'#3'w'#1#6'Height'#3'O'#1#3'Top'#2#6#5'Width'#3#235#0#7'Ancho'
-  +'t'#3'&'#1#11'ClientWidth'#3#231#0#8'TabOrder'#2#5#0#6'TLabel'#16'LabelTrans'
-  +'parent'#4'Left'#2'n'#6'Height'#2#18#3'Top'#3#184#0#5'Width'#2'u'#7'Anchors'
-  +#11#6'akLeft'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#18'Tra'
-  +'nsparent Color:'#11'ParentColor'#8#0#0#6'TLabel'#9'LabelSize'#4'Left'#2#6#6
-  +'Height'#2#15#3'Top'#2#6#5'Width'#2#2#11'ParentColor'#8#0#0#10'TScrollBox'#7
-  +'Preview'#4'Left'#2#6#6'Height'#3#146#0#3'Top'#2' '#5'Width'#3#218#0#7'Ancho'
   +'rs'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'
-  +#2#6#5'Color'#7#10'clGrayText'#11'ParentColor'#8#8'TabOrder'#2#0#7'OnPaint'#7
+  +#2#6#7'Caption'#6#14'Selected Image'#12'ClientHeight'#3'='#1#11'ClientWidth'
-  +#12'PreviewPaint'#0#0#11'TRadioGroup'#10'RadioGroup'#4'Left'#2#6#6'Height'#2
+  +#3#231#0#8'TabOrder'#2#1#0#6'TLabel'#16'LabelTransparent'#4'Left'#2'n'#6'Hei'
-  +'i'#3'Top'#3#184#0#5'Width'#2'`'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'Aut'
+  +'ght'#2#14#3'Top'#3#211#0#5'Width'#2'\'#7'Anchors'#11#6'akLeft'#8'akBottom'#0
-  +'oFill'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#10'Adjustment'#28'ChildS'
+  +#20'BorderSpacing.Around'#2#6#7'Caption'#6#18'Transparent Color:'#11'ParentC'
-  +'izing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSi'
+  +'olor'#8#0#0#6'TLabel'#9'LabelSize'#4'Left'#2#6#6'Height'#2#14#3'Top'#2#6#5
-  +'zing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enlar'
+  +'Width'#2#1#11'ParentColor'#8#0#0#10'TScrollBox'#7'Preview'#4'Left'#2#6#6'He'
-  +'geVertical'#7#24'crsHomogenousSpaceResize'#28'ChildSizing.ShrinkHorizontal'
+  +'ight'#3#169#0#3'Top'#2' '#5'Width'#3#218#0#7'Anchors'#11#5'akTop'#6'akLeft'
-  +#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18
+  +#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#5'Color'#7#10'clGrayT'
-  +'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Cont'
+  +'ext'#11'ParentColor'#8#8'TabOrder'#2#0#7'OnPaint'#7#12'PreviewPaint'#0#0#11
-  +'rolsPerLine'#2#1#12'ClientHeight'#2'V'#11'ClientWidth'#2'\'#7'Enabled'#8#9
+  +'TRadioGroup'#10'RadioGroup'#4'Left'#2#6#6'Height'#2'i'#3'Top'#3#207#0#5'Wid'
-  +'ItemIndex'#2#0#13'Items.Strings'#1#6#4'None'#6#7'Stretch'#6#4'Crop'#6#6'Cen'
+  +'th'#2'`'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoFill'#9#20'BorderSpaci'
-  +'ter'#0#7'OnClick'#7#24'ColorBoxTransparentClick'#8'TabOrder'#2#1#0#0#9'TCol'
+  +'ng.Around'#2#6#7'Caption'#6#10'Adjustment'#28'ChildSizing.LeftRightSpacing'
-  +'orBox'#19'ColorBoxTransparent'#21'AnchorSideTop.Control'#7#16'LabelTranspar'
+  +#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7
-  +'ent'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'n'#6'Height'#2#31#3'To'
+  +#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomoge'
-  +'p'#3#208#0#5'Width'#2'`'#8'Selected'#7#9'clFuchsia'#5'Style'#11#16'cbStanda'
+  +'nousSpaceResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'C'
-  +'rdColors'#16'cbExtendedColors'#13'cbCustomColor'#13'cbPrettyNames'#0#12'Aut'
+  +'hildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29
-  +'oComplete'#8#7'Enabled'#8#10'ItemHeight'#2#16#9'ItemWidth'#2#0#8'OnChange'#7
+  +'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'Clien'
-  +#24'ColorBoxTransparentClick'#8'TabOrder'#2#2#0#0#0#7'TBitBtn'#5'BtnOK'#23'A'
+  +'tHeight'#2'W'#11'ClientWidth'#2'\'#7'Enabled'#8#9'ItemIndex'#2#0#13'Items.S'
-  +'nchorSideRight.Control'#7#9'BtnCancel'#4'Left'#3#230#0#6'Height'#2'#'#3'Top'
+  +'trings'#1#6#4'None'#6#7'Stretch'#6#4'Crop'#6#6'Center'#0#7'OnClick'#7#24'Co'
-  +#3'N'#1#5'Width'#2'Z'#7'Anchors'#11#7'akRight'#8'akBottom'#0#20'BorderSpacin'
+  +'lorBoxTransparentClick'#8'TabOrder'#2#1#0#0#9'TColorBox'#19'ColorBoxTranspa'
-  +'g.Around'#2#6#7'Caption'#6#3'&OK'#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'N'
+  +'rent'#21'AnchorSideTop.Control'#7#16'LabelTransparent'#18'AnchorSideTop.Sid'
-  +'umGlyphs'#2#0#8'TabOrder'#2#0#0#0#7'TBitBtn'#9'BtnCancel'#23'AnchorSideRigh'
+  +'e'#7#9'asrBottom'#4'Left'#2'n'#6'Height'#2#22#3'Top'#3#231#0#5'Width'#2'`'#8
-  +'t.Control'#7#8'BtnApply'#4'Left'#3'F'#1#6'Height'#2'#'#3'Top'#3'N'#1#5'Widt'
+  +'Selected'#7#9'clFuchsia'#5'Style'#11#16'cbStandardColors'#16'cbExtendedColo'
-  +'h'#2'Z'#7'Anchors'#11#7'akRight'#8'akBottom'#0#6'Cancel'#9#7'Caption'#6#6'C'
+  +'rs'#13'cbCustomColor'#13'cbPrettyNames'#0#12'AutoComplete'#8#7'Enabled'#8#10
-  +'ancel'#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrde'
+  +'ItemHeight'#2#16#9'ItemWidth'#2#0#8'OnChange'#7#24'ColorBoxTransparentClick'
-  +'r'#2#1#0#0#7'TBitBtn'#8'BtnApply'#23'AnchorSideRight.Control'#7#7'BtnHelp'#4
+  +#8'TabOrder'#2#2#0#0#0#9'TGroupBox'#9'GroupBoxL'#22'AnchorSideLeft.Control'#7
-  +'Left'#3#166#1#6'Height'#2'#'#3'Top'#3'N'#1#5'Width'#2'Z'#7'Anchors'#11#7'ak'
+  +#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#24'AnchorSideBottom.Control'#7
-  +'Right'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#6'&Apply'#9
+  +#8'BtnPanel'#4'Left'#2#6#6'Height'#3'O'#1#3'Top'#2#6#5'Width'#3'l'#1#7'Ancho'
-  +'NumGlyphs'#2#0#7'OnClick'#7#13'btnApplyClick'#8'TabOrder'#2#2#0#0#7'TBitBtn'
+  +'rs'#11#5'akTop'#6'akLeft'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Capt'
-  +#7'BtnHelp'#4'Left'#3#6#2#6'Height'#2'#'#3'Top'#3'N'#1#5'Width'#2'Z'#7'Ancho'
+  +'ion'#6#6'Images'#12'ClientHeight'#3'='#1#11'ClientWidth'#3'h'#1#8'TabOrder'
-  +'rs'#11#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#5
+  +#2#0#0#9'TTreeView'#8'TreeView'#22'AnchorSideLeft.Control'#7#9'GroupBoxL'#21
-  +'&Help'#4'Kind'#7#6'bkHelp'#9'NumGlyphs'#2#0#8'TabOrder'#2#3#0#0#9'TGroupBox'
+  +'AnchorSideTop.Control'#7#9'GroupBoxL'#4'Left'#2#6#6'Height'#3'2'#1#3'Top'#2
-  +#9'GroupBoxL'#4'Left'#2#6#6'Height'#3'9'#1#3'Top'#2#6#5'Width'#3'l'#1#7'Anch'
-  +'ors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Cap'
-  +'tion'#6#6'Images'#12'ClientHeight'#3'&'#1#11'ClientWidth'#3'h'#1#8'TabOrder'
-  +#2#4#0#9'TTreeView'#8'TreeView'#22'AnchorSideLeft.Control'#7#9'GroupBoxL'#21
-  +'AnchorSideTop.Control'#7#9'GroupBoxL'#4'Left'#2#6#6'Height'#3#27#1#3'Top'#2
   +#6#5'Width'#3#186#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0
-  +#20'BorderSpacing.Around'#2#6#17'DefaultItemHeight'#2#19#13'HideSelection'#8
+  +#20'BorderSpacing.Around'#2#6#17'DefaultItemHeight'#2#16#13'HideSelection'#8
   +#6'Images'#7#9'ImageList'#8'ReadOnly'#9#9'RowSelect'#9#11'ShowButtons'#8#9'S'
   +'howLines'#8#8'ShowRoot'#8#8'TabOrder'#2#0#10'OnDeletion'#7#16'TreeViewDelet'
   +'ion'#18'OnSelectionChanged'#7#24'TreeViewSelectionChanged'#7'Options'#11#17
@@ -65,7 +54,7 @@ LazarusResources.Add('TImageListEditorDlg','FORMDATA',[
   +'Top.Control'#7#9'GroupBoxL'#23'AnchorSideRight.Control'#7#9'GroupBoxL'#20'A'
   +'nchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#198#0#6'Height'#2#25#3'Top'#2
   +#6#5'Width'#3#156#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderS'
-  ,'pacing.Around'#2#6#7'Caption'#6#6'Add...'#7'Default'#9#7'OnClick'#7#11'BtnA'
+  +'pacing.Around'#2#6#7'Caption'#6#6'Add...'#7'Default'#9#7'OnClick'#7#11'BtnA'
   +'ddClick'#8'TabOrder'#2#1#0#0#7'TButton'#8'BtnClear'#22'AnchorSideLeft.Contr'
   +'ol'#7#8'TreeView'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.C'
   +'ontrol'#7#9'BtnDelete'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideR'
@@ -76,7 +65,7 @@ LazarusResources.Add('TImageListEditorDlg','FORMDATA',[
   +'AnchorSideLeft.Control'#7#8'TreeView'#19'AnchorSideLeft.Side'#7#9'asrBottom'
   +#21'AnchorSideTop.Control'#7#6'BtnAdd'#18'AnchorSideTop.Side'#7#9'asrBottom'
   +#23'AnchorSideRight.Control'#7#9'GroupBoxL'#20'AnchorSideRight.Side'#7#9'asr'
-  +'Bottom'#4'Left'#3#198#0#6'Height'#2#25#3'Top'#2'%'#5'Width'#3#156#0#7'Ancho'
+  ,'Bottom'#4'Left'#3#198#0#6'Height'#2#25#3'Top'#2'%'#5'Width'#3#156#0#7'Ancho'
   +'rs'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Capti'
   +'on'#6#7'&Delete'#7'OnClick'#7#14'BtnDeleteClick'#8'TabOrder'#2#3#0#0#7'TBut'
   +'ton'#9'BtnMoveUp'#3'Tag'#2#255#22'AnchorSideLeft.Control'#7#8'TreeView'#19
@@ -103,12 +92,13 @@ LazarusResources.Add('TImageListEditorDlg','FORMDATA',[
   +'Control'#7#9'GroupBoxL'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3
   +#198#0#6'Height'#2#25#3'Top'#3#194#0#5'Width'#3#156#0#7'Anchors'#11#5'akTop'
   +#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#11'Save Al'
-  +'l...'#7'OnClick'#7#15'btnSaveAllClick'#8'TabOrder'#2#7#0#0#0#10'TImageList'
+  +'l...'#7'OnClick'#7#15'btnSaveAllClick'#8'TabOrder'#2#7#0#0#0#12'TButtonPane'
-  +#9'ImageList'#6'Masked'#8#4'left'#3#216#0#3'top'#3#246#0#0#0#18'TOpenPicture'
+  +'l'#8'BtnPanel'#4'Left'#2#6#6'Height'#2#26#3'Top'#3'['#1#5'Width'#3'\'#2#8'T'
-  +'Dialog'#10'OpenDialog'#11'FilterIndex'#2#0#7'Options'#11#18'ofAllowMultiSel'
+  +'abOrder'#2#2#9'ShowBevel'#8#0#0#10'TImageList'#9'ImageList'#4'left'#3#216#0
-  +'ect'#15'ofFileMustExist'#14'ofEnableSizing'#12'ofViewDetail'#13'ofAutoPrevi'
+  +#3'top'#3#246#0#0#0#18'TOpenPictureDialog'#10'OpenDialog'#11'FilterIndex'#2#0
-  +'ew'#0#4'left'#3#216#0#3'top'#3#209#0#0#0#18'TSavePictureDialog'#10'SaveDial'
+  +#7'Options'#11#18'ofAllowMultiSelect'#15'ofFileMustExist'#14'ofEnableSizing'
-  +'og'#5'Title'#6#12'Save file as'#11'FilterIndex'#2#0#7'Options'#11#14'ofEnab'
+  +#12'ofViewDetail'#13'ofAutoPreview'#0#4'left'#3#216#0#3'top'#3#209#0#0#0#18
-  +'leSizing'#12'ofViewDetail'#13'ofAutoPreview'#0#4'left'#3#252#0#3'top'#3#209
+  +'TSavePictureDialog'#10'SaveDialog'#5'Title'#6#12'Save file as'#11'FilterInd'
-  +#0#0#0#0
+  +'ex'#2#0#7'Options'#11#14'ofEnableSizing'#12'ofViewDetail'#13'ofAutoPreview'
+  +#0#4'left'#3#252#0#3'top'#3#209#0#0#0#0
 ]);

ideintf/imagelisteditor.pp

@@ -35,7 +35,7 @@ interface
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, LResources, ComCtrls,
   StdCtrls, Buttons, ExtCtrls, Menus, LCLProc, ColorBox, ExtDlgs,
-  IDEDialogs, PropEdits, ComponentEditors, ObjInspStrConsts;
+  IDEDialogs, PropEdits, ComponentEditors, ObjInspStrConsts, ButtonPanel;
 
 type
   TGlyphAdjustment = (gaNone, gaStretch, gaCrop, gaCenter);
@@ -50,10 +50,6 @@ type
   { TImageListEditorDlg }
 
   TImageListEditorDlg = class(TForm)
-    BtnOK: TBitBtn;
-    BtnCancel: TBitBtn;
-    BtnApply: TBitBtn;
-    BtnHelp: TBitBtn;
     BtnAdd: TButton;
     BtnClear: TButton;
     BtnDelete: TButton;
@@ -61,6 +57,7 @@ type
     BtnMoveDown: TButton;
     BtnSave: TButton;
     btnSaveAll: TButton;
+    BtnPanel: TButtonPanel;
     ColorBoxTransparent: TColorBox;
     GroupBoxL: TGroupBox;
     GroupBoxR: TGroupBox;
@@ -185,13 +182,17 @@ begin
 
   BtnAdd.Caption := sccsILEdtAdd;
   BtnDelete.Caption := sccsILEdtDelete;
-  BtnApply.Caption := sccsILEdtApply;
   BtnClear.Caption := sccsILEdtClear;
   BtnMoveUp.Caption := sccsILEdtMoveUp;
   BtnMoveDown.Caption := sccsILEdtMoveDown;
   BtnSave.Caption := sccsILEdtSave;
   BtnSaveAll.Caption := sccsILEdtSaveAll;
 
+  BtnPanel.CloseButton.Caption := sccsILEdtApply;
+  BtnPanel.CloseButton.Glyph := nil;
+  BtnPanel.CloseButton.ModalResult := mrNone;
+  BtnPanel.CloseButton.OnClick := @btnApplyClick;
+
   LabelTransparent.Caption := sccsILEdtransparentColor;
 
   RadioGroup.Caption := sccsILEdtAdjustment;