From e8bf2b6e97a229e6816c7bc34c00b58ddbd257f0 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Sun, 27 Dec 2015 17:40:09 +0000
Subject: [PATCH] ideintf: ImageList editior: add replace button. Issue #29252.
 Patch by Janusz Tomczak

git-svn-id: trunk@51054 -
---
 components/ideintf/imagelisteditor.lfm        | 203 ++++++++++--------
 components/ideintf/imagelisteditor.pp         |  70 +++++-
 .../ideintf/languages/objinspstrconsts.ca.po  |  12 ++
 .../ideintf/languages/objinspstrconsts.cs.po  |  12 ++
 .../ideintf/languages/objinspstrconsts.de.po  |  12 ++
 .../ideintf/languages/objinspstrconsts.es.po  |  12 ++
 .../ideintf/languages/objinspstrconsts.fi.po  |  12 ++
 .../ideintf/languages/objinspstrconsts.fr.po  |  12 ++
 .../ideintf/languages/objinspstrconsts.he.po  |  12 ++
 .../ideintf/languages/objinspstrconsts.hu.po  |  12 ++
 .../ideintf/languages/objinspstrconsts.id.po  |  12 ++
 .../ideintf/languages/objinspstrconsts.it.po  |  12 ++
 .../ideintf/languages/objinspstrconsts.ja.po  |  12 ++
 .../ideintf/languages/objinspstrconsts.lt.po  |  12 ++
 .../ideintf/languages/objinspstrconsts.nl.po  |  12 ++
 .../ideintf/languages/objinspstrconsts.pl.po  |  12 ++
 .../ideintf/languages/objinspstrconsts.po     |  12 ++
 .../languages/objinspstrconsts.pt_BR.po       |  12 ++
 .../ideintf/languages/objinspstrconsts.ru.po  |  12 ++
 .../ideintf/languages/objinspstrconsts.sk.po  |  12 ++
 .../ideintf/languages/objinspstrconsts.uk.po  |  12 ++
 .../languages/objinspstrconsts.zh_CN.po       |  12 ++
 components/ideintf/objinspstrconsts.pas       |   3 +
 23 files changed, 416 insertions(+), 100 deletions(-)

diff --git a/components/ideintf/imagelisteditor.lfm b/components/ideintf/imagelisteditor.lfm
index 774e705fdb..1d85de5f32 100644
--- a/components/ideintf/imagelisteditor.lfm
+++ b/components/ideintf/imagelisteditor.lfm
@@ -1,7 +1,7 @@
 object ImageListEditorDlg: TImageListEditorDlg
-  Left = 302
+  Left = 453
   Height = 379
-  Top = 191
+  Top = 144
   Width = 616
   BorderIcons = [biSystemMenu, biHelp]
   Caption = 'ImagesList Editor'
@@ -12,27 +12,27 @@ object ImageListEditorDlg: TImageListEditorDlg
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   Position = poScreenCenter
-  LCLVersion = '1.1'
+  LCLVersion = '1.7'
   object GroupBoxR: TGroupBox
     AnchorSideTop.Control = Owner
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = BtnPanel
     Left = 376
-    Height = 328
+    Height = 335
     Top = 6
     Width = 234
     Anchors = [akTop, akLeft, akRight, akBottom]
     BorderSpacing.Around = 6
     Caption = 'Selected Image'
-    ClientHeight = 310
+    ClientHeight = 315
     ClientWidth = 230
     TabOrder = 1
     object LabelTransparent: TLabel
       Left = 110
       Height = 15
-      Top = 203
-      Width = 92
+      Top = 208
+      Width = 98
       Anchors = [akLeft, akBottom]
       BorderSpacing.Around = 6
       Caption = 'Transparent Color:'
@@ -47,11 +47,11 @@ object ImageListEditorDlg: TImageListEditorDlg
     end
     object Preview: TScrollBox
       Left = 6
-      Height = 162
+      Height = 167
       Top = 32
       Width = 217
-      HorzScrollBar.Page = 213
-      VertScrollBar.Page = 158
+      HorzScrollBar.Page = 1
+      VertScrollBar.Page = 1
       Anchors = [akTop, akLeft, akRight, akBottom]
       BorderSpacing.Around = 6
       Color = clGrayText
@@ -62,7 +62,7 @@ object ImageListEditorDlg: TImageListEditorDlg
     object RadioGroup: TRadioGroup
       Left = 7
       Height = 105
-      Top = 200
+      Top = 205
       Width = 96
       Anchors = [akLeft, akBottom]
       AutoFill = True
@@ -76,7 +76,7 @@ object ImageListEditorDlg: TImageListEditorDlg
       ChildSizing.ShrinkVertical = crsScaleChilds
       ChildSizing.Layout = cclLeftToRightThenTopToBottom
       ChildSizing.ControlsPerLine = 1
-      ClientHeight = 87
+      ClientHeight = 85
       ClientWidth = 92
       Enabled = False
       ItemIndex = 0
@@ -93,8 +93,8 @@ object ImageListEditorDlg: TImageListEditorDlg
       AnchorSideTop.Control = LabelTransparent
       AnchorSideTop.Side = asrBottom
       Left = 110
-      Height = 24
-      Top = 224
+      Height = 22
+      Top = 229
       Width = 96
       Selected = clFuchsia
       Style = [cbStandardColors, cbExtendedColors, cbIncludeDefault, cbCustomColor, cbPrettyNames]
@@ -109,25 +109,25 @@ object ImageListEditorDlg: TImageListEditorDlg
     AnchorSideTop.Control = Owner
     AnchorSideBottom.Control = BtnPanel
     Left = 6
-    Height = 328
+    Height = 335
     Top = 6
     Width = 364
     Anchors = [akTop, akLeft, akBottom]
     BorderSpacing.Around = 6
     Caption = 'Images'
-    ClientHeight = 310
+    ClientHeight = 315
     ClientWidth = 360
     TabOrder = 0
     object TreeView: TTreeView
       AnchorSideLeft.Control = GroupBoxL
       AnchorSideTop.Control = GroupBoxL
       Left = 6
-      Height = 299
+      Height = 304
       Top = 6
       Width = 186
       Anchors = [akTop, akLeft, akRight, akBottom]
       BorderSpacing.Around = 6
-      DefaultItemHeight = 16
+      DefaultItemHeight = 18
       HideSelection = False
       Images = ImageList
       ReadOnly = True
@@ -166,15 +166,102 @@ object ImageListEditorDlg: TImageListEditorDlg
       AnchorSideRight.Side = asrBottom
       Left = 198
       Height = 25
-      Top = 68
+      Top = 99
       Width = 156
       Anchors = [akTop, akLeft, akRight]
       BorderSpacing.Around = 6
       Caption = 'Clear'
       OnClick = BtnClearClick
-      TabOrder = 3
+      TabOrder = 4
     end
     object BtnDelete: TButton
+      AnchorSideLeft.Control = TreeView
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = BtnReplace
+      AnchorSideTop.Side = asrBottom
+      AnchorSideRight.Control = GroupBoxL
+      AnchorSideRight.Side = asrBottom
+      Left = 198
+      Height = 25
+      Top = 68
+      Width = 156
+      Anchors = [akTop, akLeft, akRight]
+      BorderSpacing.Around = 6
+      Caption = '&Delete'
+      OnClick = BtnDeleteClick
+      TabOrder = 3
+    end
+    object BtnMoveUp: TButton
+      Tag = -1
+      AnchorSideLeft.Control = TreeView
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = BtnClear
+      AnchorSideTop.Side = asrBottom
+      AnchorSideRight.Control = GroupBoxL
+      AnchorSideRight.Side = asrBottom
+      Left = 198
+      Height = 25
+      Top = 130
+      Width = 156
+      Anchors = [akTop, akLeft, akRight]
+      BorderSpacing.Around = 6
+      Caption = 'Move Up'
+      OnClick = BtnMoveUpClick
+      TabOrder = 5
+    end
+    object BtnMoveDown: TButton
+      Tag = 1
+      AnchorSideLeft.Control = TreeView
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = BtnMoveUp
+      AnchorSideTop.Side = asrBottom
+      AnchorSideRight.Control = GroupBoxL
+      AnchorSideRight.Side = asrBottom
+      Left = 198
+      Height = 25
+      Top = 161
+      Width = 156
+      Anchors = [akTop, akLeft, akRight]
+      BorderSpacing.Around = 6
+      Caption = 'Move Down'
+      OnClick = BtnMoveUpClick
+      TabOrder = 6
+    end
+    object BtnSave: TButton
+      AnchorSideLeft.Control = TreeView
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = BtnMoveDown
+      AnchorSideTop.Side = asrBottom
+      AnchorSideRight.Control = GroupBoxL
+      AnchorSideRight.Side = asrBottom
+      Left = 198
+      Height = 25
+      Top = 192
+      Width = 156
+      Anchors = [akTop, akLeft, akRight]
+      BorderSpacing.Around = 6
+      Caption = 'Save...'
+      OnClick = BtnSaveClick
+      TabOrder = 7
+    end
+    object btnSaveAll: TButton
+      AnchorSideLeft.Control = TreeView
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = BtnSave
+      AnchorSideTop.Side = asrBottom
+      AnchorSideRight.Control = GroupBoxL
+      AnchorSideRight.Side = asrBottom
+      Left = 198
+      Height = 25
+      Top = 223
+      Width = 156
+      Anchors = [akTop, akLeft, akRight]
+      BorderSpacing.Around = 6
+      Caption = 'Save All...'
+      OnClick = btnSaveAllClick
+      TabOrder = 8
+    end
+    object BtnReplace: TButton
       AnchorSideLeft.Control = TreeView
       AnchorSideLeft.Side = asrBottom
       AnchorSideTop.Control = BtnAdd
@@ -187,83 +274,15 @@ object ImageListEditorDlg: TImageListEditorDlg
       Width = 156
       Anchors = [akTop, akLeft, akRight]
       BorderSpacing.Around = 6
-      Caption = '&Delete'
-      OnClick = BtnDeleteClick
+      Caption = '&Replace...'
+      OnClick = BtnReplaceClick
       TabOrder = 2
     end
-    object BtnMoveUp: TButton
-      Tag = -1
-      AnchorSideLeft.Control = TreeView
-      AnchorSideLeft.Side = asrBottom
-      AnchorSideTop.Control = BtnClear
-      AnchorSideTop.Side = asrBottom
-      AnchorSideRight.Control = GroupBoxL
-      AnchorSideRight.Side = asrBottom
-      Left = 198
-      Height = 25
-      Top = 99
-      Width = 156
-      Anchors = [akTop, akLeft, akRight]
-      BorderSpacing.Around = 6
-      Caption = 'Move Up'
-      OnClick = BtnMoveUpClick
-      TabOrder = 4
-    end
-    object BtnMoveDown: TButton
-      Tag = 1
-      AnchorSideLeft.Control = TreeView
-      AnchorSideLeft.Side = asrBottom
-      AnchorSideTop.Control = BtnMoveUp
-      AnchorSideTop.Side = asrBottom
-      AnchorSideRight.Control = GroupBoxL
-      AnchorSideRight.Side = asrBottom
-      Left = 198
-      Height = 25
-      Top = 130
-      Width = 156
-      Anchors = [akTop, akLeft, akRight]
-      BorderSpacing.Around = 6
-      Caption = 'Move Down'
-      OnClick = BtnMoveUpClick
-      TabOrder = 5
-    end
-    object BtnSave: TButton
-      AnchorSideLeft.Control = TreeView
-      AnchorSideLeft.Side = asrBottom
-      AnchorSideTop.Control = BtnMoveDown
-      AnchorSideTop.Side = asrBottom
-      AnchorSideRight.Control = GroupBoxL
-      AnchorSideRight.Side = asrBottom
-      Left = 198
-      Height = 25
-      Top = 161
-      Width = 156
-      Anchors = [akTop, akLeft, akRight]
-      BorderSpacing.Around = 6
-      Caption = 'Save...'
-      OnClick = BtnSaveClick
-      TabOrder = 6
-    end
-    object btnSaveAll: TButton
-      AnchorSideLeft.Control = TreeView
-      AnchorSideLeft.Side = asrBottom
-      AnchorSideRight.Control = GroupBoxL
-      AnchorSideRight.Side = asrBottom
-      Left = 198
-      Height = 25
-      Top = 194
-      Width = 156
-      Anchors = [akTop, akLeft, akRight]
-      BorderSpacing.Around = 6
-      Caption = 'Save All...'
-      OnClick = btnSaveAllClick
-      TabOrder = 7
-    end
   end
   object BtnPanel: TButtonPanel
     Left = 6
-    Height = 33
-    Top = 340
+    Height = 26
+    Top = 347
     Width = 604
     OKButton.Name = 'OKButton'
     OKButton.DefaultCaption = True
diff --git a/components/ideintf/imagelisteditor.pp b/components/ideintf/imagelisteditor.pp
index 4f0616a7c0..427dfac1af 100644
--- a/components/ideintf/imagelisteditor.pp
+++ b/components/ideintf/imagelisteditor.pp
@@ -47,6 +47,7 @@ type
     BtnAdd: TButton;
     BtnClear: TButton;
     BtnDelete: TButton;
+    BtnReplace: TButton;
     BtnMoveUp: TButton;
     BtnMoveDown: TButton;
     BtnSave: TButton;
@@ -66,6 +67,7 @@ type
     procedure BtnAddClick(Sender: TObject);
     procedure BtnClearClick(Sender: TObject);
     procedure BtnDeleteClick(Sender: TObject);
+    procedure BtnReplaceClick(Sender: TObject);
     procedure BtnMoveUpClick(Sender: TObject);
     procedure btnSaveAllClick(Sender: TObject);
     procedure BtnSaveClick(Sender: TObject);
@@ -85,7 +87,7 @@ type
     procedure LoadFromImageList(AImageList: TImageList);
     procedure SaveToImageList;
 
-    procedure AddImageToList(const FileName: String);
+    procedure AddImageToList(const FileName: String; Insert : Boolean);
   end;
 
   //Editor call by Lazarus with 1 verbe only
@@ -192,6 +194,7 @@ begin
 
   BtnAdd.Caption := sccsILEdtAdd;
   BtnDelete.Caption := sccsILEdtDelete;
+  BtnReplace.Caption := sccsILEdtReplace;
   BtnClear.Caption := sccsILEdtClear;
   BtnMoveUp.Caption := sccsILEdtMoveUp;
   BtnMoveDown.Caption := sccsILEdtMoveDown;
@@ -229,13 +232,15 @@ procedure TImageListEditorDlg.BtnAddClick(Sender: TObject);
 var
   I: Integer;
 begin
+  OpenDialog.Title := sccsILEdtOpenDialog;
+  OpenDialog.Options:=OpenDialog.Options+[ofAllowMultiSelect];
   if OpenDialog.Execute then
   begin
     ImageList.BeginUpdate;
     TreeView.BeginUpdate;
     try
       for I := 0 to OpenDialog.Files.Count - 1 do
-        AddImageToList(TrimRight(OpenDialog.Files[I]));
+        AddImageToList(TrimRight(OpenDialog.Files[I]),False);
     finally
       TreeView.EndUpdate;
       ImageList.EndUpdate;
@@ -246,8 +251,14 @@ end;
 
 procedure TImageListEditorDlg.BtnClearClick(Sender: TObject);
 begin
-  ImageList.Clear;
-  TreeView.Items.Clear;
+  if TreeView.Items.Count=0 then exit;
+  if (IDEQuestionDialog(Caption,
+              s_Confirm_Clear, mtConfirmation,
+              [mrYes, mrNo]) = mrYes) then
+  begin
+    ImageList.Clear;
+    TreeView.Items.Clear;
+  end;
 end;
 
 procedure TImageListEditorDlg.BtnDeleteClick(Sender: TObject);
@@ -280,6 +291,41 @@ begin
   TreeView.SetFocus;
 end;
 
+procedure TImageListEditorDlg.BtnReplaceClick(Sender: TObject);
+var
+  S,N: Integer; Node: TTreeNode;
+begin
+  if Assigned(TreeView.Selected) then
+  begin
+    Node := TreeView.Selected;
+    OpenDialog.Title := sccsILEdtOpenDialogN;
+    OpenDialog.Options:=OpenDialog.Options-[ofAllowMultiSelect];
+    if OpenDialog.Execute then
+    begin
+      ImageList.BeginUpdate;
+      TreeView.BeginUpdate;
+      try
+        AddImageToList(TrimRight(OpenDialog.FileName),True);
+        S:=TreeView.Selected.ImageIndex-1;
+        ImageList.Delete(S);
+        TreeView.Selected.ImageIndex:=S+1;
+        TreeView.Selected.Delete;
+        for N := S to TreeView.Items.Count-1 do
+        begin
+          TreeView.Items[N].Text := IntToStr(N);
+          TreeView.Items[N].ImageIndex := N;
+          TreeView.Items[N].SelectedIndex := N;
+        end;
+        TreeView.Selected:=Node;
+      finally
+        TreeView.EndUpdate;
+        ImageList.EndUpdate;
+      end;
+      TreeView.SetFocus;
+    end;
+  end;
+end;
+
 procedure TImageListEditorDlg.BtnMoveUpClick(Sender: TObject);
 var
   S, D: Integer;
@@ -514,7 +560,7 @@ begin
   FModified := True;
 end;
 
-procedure TImageListEditorDlg.AddImageToList(const FileName: String);
+procedure TImageListEditorDlg.AddImageToList(const FileName: String;Insert:boolean);
 var
   SrcBmp: TBitmap;
   Picture: TPicture;
@@ -557,7 +603,7 @@ begin
       end;
       //Ask the user if wants to split the source image
       if ((ImagesPerRow > 1) or (ImagesPerColumn > 1))
-        and (IDEQuestionDialog(Caption +' - '+ btnAdd.Caption,
+        and (IDEQuestionDialog(Caption,
               s_SuggestSplitImage, mtConfirmation,
               [mrNo, s_AddAsSingle, mrYes, s_SplitImage]) <> mrYes) then
       begin
@@ -576,8 +622,16 @@ begin
           P^.Adjustment := gaNone;
           P^.TransparentColor := clDefault;
 
-          I := ImageList.Add(P^.Bitmap, nil);
-          Node := TreeView.Items.AddObject(nil, IntToStr(I), P);
+          if Insert then
+          begin
+            I := TreeView.Selected.ImageIndex+1;
+            ImageList.Insert(I,P^.Bitmap, nil);
+            Node := TreeView.Items.InsertObjectBehind(TreeView.Selected, IntToStr(I), P);
+          end else
+          begin
+            I := ImageList.Add(P^.Bitmap, nil);
+            Node := TreeView.Items.AddObject(nil, IntToStr(I), P);
+          end;
           Node.ImageIndex := I;
           Node.SelectedIndex := I;
           TreeView.Selected := Node;
diff --git a/components/ideintf/languages/objinspstrconsts.ca.po b/components/ideintf/languages/objinspstrconsts.ca.po
index ea45a873ed..71f053255b 100644
--- a/components/ideintf/languages/objinspstrconsts.ca.po
+++ b/components/ideintf/languages/objinspstrconsts.ca.po
@@ -1349,10 +1349,18 @@ msgstr "Cap"
 msgid "Add Images"
 msgstr "Afegeix imatges"
 
+#: objinspstrconsts.sccsiledtopendialogn
+msgid "New Image"
+msgstr ""
+
 #: objinspstrconsts.sccsiledtransparentcolor
 msgid "Transparent Color:"
 msgstr "Color Transparent:"
 
+#: objinspstrconsts.sccsiledtreplace
+msgid "&Replace ..."
+msgstr ""
+
 #: objinspstrconsts.sccsiledtsave
 #, fuzzy
 #| msgid "Save ..."
@@ -1579,6 +1587,10 @@ msgstr ""
 msgid "Add as single"
 msgstr ""
 
+#: objinspstrconsts.s_confirm_clear
+msgid "Are you sure to clear image list?"
+msgstr ""
+
 #: objinspstrconsts.s_splitimage
 msgid "Split image"
 msgstr ""
diff --git a/components/ideintf/languages/objinspstrconsts.cs.po b/components/ideintf/languages/objinspstrconsts.cs.po
index f40b28429d..585a86c5f1 100644
--- a/components/ideintf/languages/objinspstrconsts.cs.po
+++ b/components/ideintf/languages/objinspstrconsts.cs.po
@@ -1319,10 +1319,18 @@ msgstr "Žádný"
 msgid "Add Images"
 msgstr "Přidat obrázky"
 
+#: objinspstrconsts.sccsiledtopendialogn
+msgid "New Image"
+msgstr ""
+
 #: objinspstrconsts.sccsiledtransparentcolor
 msgid "Transparent Color:"
 msgstr "Průhledná barva:"
 
+#: objinspstrconsts.sccsiledtreplace
+msgid "&Replace ..."
+msgstr ""
+
 #: objinspstrconsts.sccsiledtsave
 msgctxt "objinspstrconsts.sccsiledtsave"
 msgid "&Save ..."
@@ -1543,6 +1551,10 @@ msgstr "Sejmout klávesu"
 msgid "Add as single"
 msgstr "Přidat jako samostatný"
 
+#: objinspstrconsts.s_confirm_clear
+msgid "Are you sure to clear image list?"
+msgstr ""
+
 #: objinspstrconsts.s_splitimage
 msgid "Split image"
 msgstr "Rozdělit obrázek"
diff --git a/components/ideintf/languages/objinspstrconsts.de.po b/components/ideintf/languages/objinspstrconsts.de.po
index 4730044105..e126e49c8f 100644
--- a/components/ideintf/languages/objinspstrconsts.de.po
+++ b/components/ideintf/languages/objinspstrconsts.de.po
@@ -1304,10 +1304,18 @@ msgstr "Keiner"
 msgid "Add Images"
 msgstr "Bilder hinzufügen"
 
+#: objinspstrconsts.sccsiledtopendialogn
+msgid "New Image"
+msgstr ""
+
 #: objinspstrconsts.sccsiledtransparentcolor
 msgid "Transparent Color:"
 msgstr "Transparente Farbe:"
 
+#: objinspstrconsts.sccsiledtreplace
+msgid "&Replace ..."
+msgstr ""
+
 #: objinspstrconsts.sccsiledtsave
 msgctxt "objinspstrconsts.sccsiledtsave"
 msgid "&Save ..."
@@ -1528,6 +1536,10 @@ msgstr "Taste fangen"
 msgid "Add as single"
 msgstr "Als Einzelbild hinzufügen"
 
+#: objinspstrconsts.s_confirm_clear
+msgid "Are you sure to clear image list?"
+msgstr ""
+
 #: objinspstrconsts.s_splitimage
 msgid "Split image"
 msgstr "Bild teilen"
diff --git a/components/ideintf/languages/objinspstrconsts.es.po b/components/ideintf/languages/objinspstrconsts.es.po
index 440bf896d9..bd11b983c4 100644
--- a/components/ideintf/languages/objinspstrconsts.es.po
+++ b/components/ideintf/languages/objinspstrconsts.es.po
@@ -1303,10 +1303,18 @@ msgstr "Ninguno"
 msgid "Add Images"
 msgstr "Añadir imágenes"
 
+#: objinspstrconsts.sccsiledtopendialogn
+msgid "New Image"
+msgstr ""
+
 #: objinspstrconsts.sccsiledtransparentcolor
 msgid "Transparent Color:"
 msgstr "Color transparente:"
 
+#: objinspstrconsts.sccsiledtreplace
+msgid "&Replace ..."
+msgstr ""
+
 #: objinspstrconsts.sccsiledtsave
 msgctxt "objinspstrconsts.sccsiledtsave"
 msgid "&Save ..."
@@ -1527,6 +1535,10 @@ msgstr "Asignar tecla"
 msgid "Add as single"
 msgstr "Añadir como único"
 
+#: objinspstrconsts.s_confirm_clear
+msgid "Are you sure to clear image list?"
+msgstr ""
+
 #: objinspstrconsts.s_splitimage
 msgid "Split image"
 msgstr "Dividir imagen"
diff --git a/components/ideintf/languages/objinspstrconsts.fi.po b/components/ideintf/languages/objinspstrconsts.fi.po
index 72110dda37..7a623efe63 100644
--- a/components/ideintf/languages/objinspstrconsts.fi.po
+++ b/components/ideintf/languages/objinspstrconsts.fi.po
@@ -1296,10 +1296,18 @@ msgstr "Ei mitään"
 msgid "Add Images"
 msgstr "Lisää Kuvat"
 
+#: objinspstrconsts.sccsiledtopendialogn
+msgid "New Image"
+msgstr ""
+
 #: objinspstrconsts.sccsiledtransparentcolor
 msgid "Transparent Color:"
 msgstr "Läpinäkyvä väri:"
 
+#: objinspstrconsts.sccsiledtreplace
+msgid "&Replace ..."
+msgstr ""
+
 #: objinspstrconsts.sccsiledtsave
 msgctxt "objinspstrconsts.sccsiledtsave"
 msgid "&Save ..."
@@ -1520,6 +1528,10 @@ msgstr "Sieppaa näppäin"
 msgid "Add as single"
 msgstr "Lisää yksittäisenä"
 
+#: objinspstrconsts.s_confirm_clear
+msgid "Are you sure to clear image list?"
+msgstr ""
+
 #: objinspstrconsts.s_splitimage
 msgid "Split image"
 msgstr "Jaa kuva"
diff --git a/components/ideintf/languages/objinspstrconsts.fr.po b/components/ideintf/languages/objinspstrconsts.fr.po
index b1e63abaa9..ea51f4df23 100644
--- a/components/ideintf/languages/objinspstrconsts.fr.po
+++ b/components/ideintf/languages/objinspstrconsts.fr.po
@@ -1304,10 +1304,18 @@ msgstr "Aucun"
 msgid "Add Images"
 msgstr "Ajouter des images"
 
+#: objinspstrconsts.sccsiledtopendialogn
+msgid "New Image"
+msgstr ""
+
 #: objinspstrconsts.sccsiledtransparentcolor
 msgid "Transparent Color:"
 msgstr "Couleur de transparence :"
 
+#: objinspstrconsts.sccsiledtreplace
+msgid "&Replace ..."
+msgstr ""
+
 #: objinspstrconsts.sccsiledtsave
 msgctxt "objinspstrconsts.sccsiledtsave"
 msgid "&Save ..."
@@ -1528,6 +1536,10 @@ msgstr "Touche d'accroche"
 msgid "Add as single"
 msgstr "Ajouter comme unique"
 
+#: objinspstrconsts.s_confirm_clear
+msgid "Are you sure to clear image list?"
+msgstr ""
+
 #: objinspstrconsts.s_splitimage
 msgid "Split image"
 msgstr "Diviser l'image"
diff --git a/components/ideintf/languages/objinspstrconsts.he.po b/components/ideintf/languages/objinspstrconsts.he.po
index 1501eac517..ea9a1cdc31 100644
--- a/components/ideintf/languages/objinspstrconsts.he.po
+++ b/components/ideintf/languages/objinspstrconsts.he.po
@@ -1369,10 +1369,18 @@ msgstr "ללא"
 msgid "Add Images"
 msgstr "הוסף דמויות"
 
+#: objinspstrconsts.sccsiledtopendialogn
+msgid "New Image"
+msgstr ""
+
 #: objinspstrconsts.sccsiledtransparentcolor
 msgid "Transparent Color:"
 msgstr "צבע שקוף:"
 
+#: objinspstrconsts.sccsiledtreplace
+msgid "&Replace ..."
+msgstr ""
+
 #: objinspstrconsts.sccsiledtsave
 #, fuzzy
 #| msgid "Save ..."
@@ -1609,6 +1617,10 @@ msgstr "מקש גרירה"
 msgid "Add as single"
 msgstr "הוסף כיחיד"
 
+#: objinspstrconsts.s_confirm_clear
+msgid "Are you sure to clear image list?"
+msgstr ""
+
 #: objinspstrconsts.s_splitimage
 msgid "Split image"
 msgstr "פצל דמות"
diff --git a/components/ideintf/languages/objinspstrconsts.hu.po b/components/ideintf/languages/objinspstrconsts.hu.po
index ab20f10504..1c0a7ca5de 100644
--- a/components/ideintf/languages/objinspstrconsts.hu.po
+++ b/components/ideintf/languages/objinspstrconsts.hu.po
@@ -1303,10 +1303,18 @@ msgstr "Semmi"
 msgid "Add Images"
 msgstr "Képek hozzáadása"
 
+#: objinspstrconsts.sccsiledtopendialogn
+msgid "New Image"
+msgstr ""
+
 #: objinspstrconsts.sccsiledtransparentcolor
 msgid "Transparent Color:"
 msgstr "Átlátszó szín:"
 
+#: objinspstrconsts.sccsiledtreplace
+msgid "&Replace ..."
+msgstr ""
+
 #: objinspstrconsts.sccsiledtsave
 msgctxt "objinspstrconsts.sccsiledtsave"
 msgid "&Save ..."
@@ -1527,6 +1535,10 @@ msgstr "Bekérés"
 msgid "Add as single"
 msgstr "Hozzáadás single-ként"
 
+#: objinspstrconsts.s_confirm_clear
+msgid "Are you sure to clear image list?"
+msgstr ""
+
 #: objinspstrconsts.s_splitimage
 msgid "Split image"
 msgstr "Kép szétvágása"
diff --git a/components/ideintf/languages/objinspstrconsts.id.po b/components/ideintf/languages/objinspstrconsts.id.po
index e36a57667b..f646aa23aa 100644
--- a/components/ideintf/languages/objinspstrconsts.id.po
+++ b/components/ideintf/languages/objinspstrconsts.id.po
@@ -1353,10 +1353,18 @@ msgstr "Tidak ada"
 msgid "Add Images"
 msgstr "Tambah Gambar"
 
+#: objinspstrconsts.sccsiledtopendialogn
+msgid "New Image"
+msgstr ""
+
 #: objinspstrconsts.sccsiledtransparentcolor
 msgid "Transparent Color:"
 msgstr "Warna Transparan:"
 
+#: objinspstrconsts.sccsiledtreplace
+msgid "&Replace ..."
+msgstr ""
+
 #: objinspstrconsts.sccsiledtsave
 #, fuzzy
 #| msgid "Save ..."
@@ -1589,6 +1597,10 @@ msgstr ""
 msgid "Add as single"
 msgstr "Tambah sebagai single"
 
+#: objinspstrconsts.s_confirm_clear
+msgid "Are you sure to clear image list?"
+msgstr ""
+
 #: objinspstrconsts.s_splitimage
 msgid "Split image"
 msgstr "Pisahkan gambar"
diff --git a/components/ideintf/languages/objinspstrconsts.it.po b/components/ideintf/languages/objinspstrconsts.it.po
index d911024b82..1cf7b8a5a2 100644
--- a/components/ideintf/languages/objinspstrconsts.it.po
+++ b/components/ideintf/languages/objinspstrconsts.it.po
@@ -1304,10 +1304,18 @@ msgstr "Nessuno"
 msgid "Add Images"
 msgstr "Aggiungi Immagini"
 
+#: objinspstrconsts.sccsiledtopendialogn
+msgid "New Image"
+msgstr ""
+
 #: objinspstrconsts.sccsiledtransparentcolor
 msgid "Transparent Color:"
 msgstr "Colore di Trasparenza:"
 
+#: objinspstrconsts.sccsiledtreplace
+msgid "&Replace ..."
+msgstr ""
+
 #: objinspstrconsts.sccsiledtsave
 msgctxt "objinspstrconsts.sccsiledtsave"
 msgid "&Save ..."
@@ -1528,6 +1536,10 @@ msgstr "Cattura tasto"
 msgid "Add as single"
 msgstr "Aggiungi come singolo"
 
+#: objinspstrconsts.s_confirm_clear
+msgid "Are you sure to clear image list?"
+msgstr ""
+
 #: objinspstrconsts.s_splitimage
 msgid "Split image"
 msgstr "Taglia immagine"
diff --git a/components/ideintf/languages/objinspstrconsts.ja.po b/components/ideintf/languages/objinspstrconsts.ja.po
index 9f6cc5e17a..c6049cfa2e 100644
--- a/components/ideintf/languages/objinspstrconsts.ja.po
+++ b/components/ideintf/languages/objinspstrconsts.ja.po
@@ -1317,10 +1317,18 @@ msgstr "そのまま"
 msgid "Add Images"
 msgstr "イメージを追加"
 
+#: objinspstrconsts.sccsiledtopendialogn
+msgid "New Image"
+msgstr ""
+
 #: objinspstrconsts.sccsiledtransparentcolor
 msgid "Transparent Color:"
 msgstr "透明色"
 
+#: objinspstrconsts.sccsiledtreplace
+msgid "&Replace ..."
+msgstr ""
+
 #: objinspstrconsts.sccsiledtsave
 msgctxt "objinspstrconsts.sccsiledtsave"
 msgid "&Save ..."
@@ -1541,6 +1549,10 @@ msgstr "キーを掴む"
 msgid "Add as single"
 msgstr "singleとして追加"
 
+#: objinspstrconsts.s_confirm_clear
+msgid "Are you sure to clear image list?"
+msgstr ""
+
 #: objinspstrconsts.s_splitimage
 msgid "Split image"
 msgstr "イメージを分割"
diff --git a/components/ideintf/languages/objinspstrconsts.lt.po b/components/ideintf/languages/objinspstrconsts.lt.po
index aeecbbaae7..0d3428072b 100644
--- a/components/ideintf/languages/objinspstrconsts.lt.po
+++ b/components/ideintf/languages/objinspstrconsts.lt.po
@@ -1319,10 +1319,18 @@ msgstr "Jiokios"
 msgid "Add Images"
 msgstr "Pridėti paveikslų"
 
+#: objinspstrconsts.sccsiledtopendialogn
+msgid "New Image"
+msgstr ""
+
 #: objinspstrconsts.sccsiledtransparentcolor
 msgid "Transparent Color:"
 msgstr "Permatoma spalva:"
 
+#: objinspstrconsts.sccsiledtreplace
+msgid "&Replace ..."
+msgstr ""
+
 #: objinspstrconsts.sccsiledtsave
 msgctxt "objinspstrconsts.sccsiledtsave"
 msgid "&Save ..."
@@ -1543,6 +1551,10 @@ msgstr "Registruoti klavišą"
 msgid "Add as single"
 msgstr "Pridėti vientisą"
 
+#: objinspstrconsts.s_confirm_clear
+msgid "Are you sure to clear image list?"
+msgstr ""
+
 #: objinspstrconsts.s_splitimage
 msgid "Split image"
 msgstr "Perskelti paveikslą"
diff --git a/components/ideintf/languages/objinspstrconsts.nl.po b/components/ideintf/languages/objinspstrconsts.nl.po
index 24f0946c9c..1fb4e61daa 100644
--- a/components/ideintf/languages/objinspstrconsts.nl.po
+++ b/components/ideintf/languages/objinspstrconsts.nl.po
@@ -1340,10 +1340,18 @@ msgstr "Geen"
 msgid "Add Images"
 msgstr "Afbeelding toevoegen"
 
+#: objinspstrconsts.sccsiledtopendialogn
+msgid "New Image"
+msgstr ""
+
 #: objinspstrconsts.sccsiledtransparentcolor
 msgid "Transparent Color:"
 msgstr "Tansparantie kleur"
 
+#: objinspstrconsts.sccsiledtreplace
+msgid "&Replace ..."
+msgstr ""
+
 #: objinspstrconsts.sccsiledtsave
 #, fuzzy
 #| msgid "Save ..."
@@ -1576,6 +1584,10 @@ msgstr ""
 msgid "Add as single"
 msgstr ""
 
+#: objinspstrconsts.s_confirm_clear
+msgid "Are you sure to clear image list?"
+msgstr ""
+
 #: objinspstrconsts.s_splitimage
 msgid "Split image"
 msgstr ""
diff --git a/components/ideintf/languages/objinspstrconsts.pl.po b/components/ideintf/languages/objinspstrconsts.pl.po
index 6776be9a88..4315841b79 100644
--- a/components/ideintf/languages/objinspstrconsts.pl.po
+++ b/components/ideintf/languages/objinspstrconsts.pl.po
@@ -1354,10 +1354,18 @@ msgstr ""
 msgid "Add Images"
 msgstr ""
 
+#: objinspstrconsts.sccsiledtopendialogn
+msgid "New Image"
+msgstr ""
+
 #: objinspstrconsts.sccsiledtransparentcolor
 msgid "Transparent Color:"
 msgstr "Kolor przezroczystości:"
 
+#: objinspstrconsts.sccsiledtreplace
+msgid "&Replace ..."
+msgstr ""
+
 #: objinspstrconsts.sccsiledtsave
 #, fuzzy
 #| msgid "Save ..."
@@ -1588,6 +1596,10 @@ msgstr "Przechwyć klawisz"
 msgid "Add as single"
 msgstr ""
 
+#: objinspstrconsts.s_confirm_clear
+msgid "Are you sure to clear image list?"
+msgstr ""
+
 #: objinspstrconsts.s_splitimage
 msgid "Split image"
 msgstr ""
diff --git a/components/ideintf/languages/objinspstrconsts.po b/components/ideintf/languages/objinspstrconsts.po
index bc31166dbe..c2aaaf2dc3 100644
--- a/components/ideintf/languages/objinspstrconsts.po
+++ b/components/ideintf/languages/objinspstrconsts.po
@@ -1296,10 +1296,18 @@ msgstr ""
 msgid "Add Images"
 msgstr ""
 
+#: objinspstrconsts.sccsiledtopendialogn
+msgid "New Image"
+msgstr ""
+
 #: objinspstrconsts.sccsiledtransparentcolor
 msgid "Transparent Color:"
 msgstr ""
 
+#: objinspstrconsts.sccsiledtreplace
+msgid "&Replace ..."
+msgstr ""
+
 #: objinspstrconsts.sccsiledtsave
 msgctxt "objinspstrconsts.sccsiledtsave"
 msgid "&Save ..."
@@ -1520,6 +1528,10 @@ msgstr ""
 msgid "Add as single"
 msgstr ""
 
+#: objinspstrconsts.s_confirm_clear
+msgid "Are you sure to clear image list?"
+msgstr ""
+
 #: objinspstrconsts.s_splitimage
 msgid "Split image"
 msgstr ""
diff --git a/components/ideintf/languages/objinspstrconsts.pt_BR.po b/components/ideintf/languages/objinspstrconsts.pt_BR.po
index beff596fb4..4b882fb17b 100644
--- a/components/ideintf/languages/objinspstrconsts.pt_BR.po
+++ b/components/ideintf/languages/objinspstrconsts.pt_BR.po
@@ -1318,10 +1318,18 @@ msgstr "Nenhum"
 msgid "Add Images"
 msgstr "Adicionar Imagens"
 
+#: objinspstrconsts.sccsiledtopendialogn
+msgid "New Image"
+msgstr ""
+
 #: objinspstrconsts.sccsiledtransparentcolor
 msgid "Transparent Color:"
 msgstr "Cor Transparente:"
 
+#: objinspstrconsts.sccsiledtreplace
+msgid "&Replace ..."
+msgstr ""
+
 #: objinspstrconsts.sccsiledtsave
 msgctxt "objinspstrconsts.sccsiledtsave"
 msgid "&Save ..."
@@ -1542,6 +1550,10 @@ msgstr "Captura tecla"
 msgid "Add as single"
 msgstr "Adicionar como simples"
 
+#: objinspstrconsts.s_confirm_clear
+msgid "Are you sure to clear image list?"
+msgstr ""
+
 #: objinspstrconsts.s_splitimage
 msgid "Split image"
 msgstr "Separar imagem"
diff --git a/components/ideintf/languages/objinspstrconsts.ru.po b/components/ideintf/languages/objinspstrconsts.ru.po
index 05503b6be6..28a811a8c6 100644
--- a/components/ideintf/languages/objinspstrconsts.ru.po
+++ b/components/ideintf/languages/objinspstrconsts.ru.po
@@ -1303,10 +1303,18 @@ msgstr "Нет"
 msgid "Add Images"
 msgstr "Добавить изображения"
 
+#: objinspstrconsts.sccsiledtopendialogn
+msgid "New Image"
+msgstr ""
+
 #: objinspstrconsts.sccsiledtransparentcolor
 msgid "Transparent Color:"
 msgstr "Прозрачный цвет:"
 
+#: objinspstrconsts.sccsiledtreplace
+msgid "&Replace ..."
+msgstr ""
+
 #: objinspstrconsts.sccsiledtsave
 msgctxt "objinspstrconsts.sccsiledtsave"
 msgid "&Save ..."
@@ -1527,6 +1535,10 @@ msgstr "Захватить клавишу"
 msgid "Add as single"
 msgstr "Добавить как одно"
 
+#: objinspstrconsts.s_confirm_clear
+msgid "Are you sure to clear image list?"
+msgstr ""
+
 #: objinspstrconsts.s_splitimage
 msgid "Split image"
 msgstr "Разбить изображение"
diff --git a/components/ideintf/languages/objinspstrconsts.sk.po b/components/ideintf/languages/objinspstrconsts.sk.po
index 760d241354..14e6f50f9c 100644
--- a/components/ideintf/languages/objinspstrconsts.sk.po
+++ b/components/ideintf/languages/objinspstrconsts.sk.po
@@ -1371,10 +1371,18 @@ msgstr "Žiadny"
 msgid "Add Images"
 msgstr "Pridať obrázky"
 
+#: objinspstrconsts.sccsiledtopendialogn
+msgid "New Image"
+msgstr ""
+
 #: objinspstrconsts.sccsiledtransparentcolor
 msgid "Transparent Color:"
 msgstr "Transparentná farba:"
 
+#: objinspstrconsts.sccsiledtreplace
+msgid "&Replace ..."
+msgstr ""
+
 #: objinspstrconsts.sccsiledtsave
 #, fuzzy
 #| msgid "Save ..."
@@ -1609,6 +1617,10 @@ msgstr "Zachytávací kláves"
 msgid "Add as single"
 msgstr "Pridať jednotlivý"
 
+#: objinspstrconsts.s_confirm_clear
+msgid "Are you sure to clear image list?"
+msgstr ""
+
 #: objinspstrconsts.s_splitimage
 msgid "Split image"
 msgstr "Rozdeliť obrázok"
diff --git a/components/ideintf/languages/objinspstrconsts.uk.po b/components/ideintf/languages/objinspstrconsts.uk.po
index 35ff7ba9ee..f696937c6c 100644
--- a/components/ideintf/languages/objinspstrconsts.uk.po
+++ b/components/ideintf/languages/objinspstrconsts.uk.po
@@ -1320,10 +1320,18 @@ msgstr "Немає"
 msgid "Add Images"
 msgstr "Додати Зображення"
 
+#: objinspstrconsts.sccsiledtopendialogn
+msgid "New Image"
+msgstr ""
+
 #: objinspstrconsts.sccsiledtransparentcolor
 msgid "Transparent Color:"
 msgstr "Прозорий колір:"
 
+#: objinspstrconsts.sccsiledtreplace
+msgid "&Replace ..."
+msgstr ""
+
 #: objinspstrconsts.sccsiledtsave
 msgctxt "objinspstrconsts.sccsiledtsave"
 msgid "&Save ..."
@@ -1544,6 +1552,10 @@ msgstr "Захопити кнопку"
 msgid "Add as single"
 msgstr "Додати як один"
 
+#: objinspstrconsts.s_confirm_clear
+msgid "Are you sure to clear image list?"
+msgstr ""
+
 #: objinspstrconsts.s_splitimage
 msgid "Split image"
 msgstr "Розбити Зображення"
diff --git a/components/ideintf/languages/objinspstrconsts.zh_CN.po b/components/ideintf/languages/objinspstrconsts.zh_CN.po
index 2e5e78f30e..9834f0bd3d 100644
--- a/components/ideintf/languages/objinspstrconsts.zh_CN.po
+++ b/components/ideintf/languages/objinspstrconsts.zh_CN.po
@@ -1370,10 +1370,18 @@ msgstr "无"
 msgid "Add Images"
 msgstr "添加图像"
 
+#: objinspstrconsts.sccsiledtopendialogn
+msgid "New Image"
+msgstr ""
+
 #: objinspstrconsts.sccsiledtransparentcolor
 msgid "Transparent Color:"
 msgstr "透明的颜色"
 
+#: objinspstrconsts.sccsiledtreplace
+msgid "&Replace ..."
+msgstr ""
+
 #: objinspstrconsts.sccsiledtsave
 #, fuzzy
 #| msgid "Save ..."
@@ -1610,6 +1618,10 @@ msgstr ""
 msgid "Add as single"
 msgstr ""
 
+#: objinspstrconsts.s_confirm_clear
+msgid "Are you sure to clear image list?"
+msgstr ""
+
 #: objinspstrconsts.s_splitimage
 msgid "Split image"
 msgstr "分割图片"
diff --git a/components/ideintf/objinspstrconsts.pas b/components/ideintf/objinspstrconsts.pas
index 23e9668e25..8f1078338a 100644
--- a/components/ideintf/objinspstrconsts.pas
+++ b/components/ideintf/objinspstrconsts.pas
@@ -134,6 +134,7 @@ resourcestring
   sccsILEdtGrpLCaption = 'Images';
   sccsILEdtGrpRCaption = 'Selected Image';
   sccsILEdtAdd         = '&Add ...';
+  sccsILEdtReplace     = '&Replace ...';
   sccsILEdtDelete      = '&Delete';
   sccsILEdtApply       = '&Apply';
   sccsILEdtClear       = '&Clear';
@@ -158,6 +159,7 @@ resourcestring
   rscdVisible          = 'Visible';
   rscdAutoSize         = 'Auto Size';
   sccsILEdtOpenDialog  = 'Add Images';
+  sccsILEdtOpenDialogN = 'New Image';
   sccsILEdtSaveDialog  = 'Save Image';
   
   // StringGrid Editor
@@ -379,6 +381,7 @@ resourcestring
 
   // image list editor
   s_SuggestSplitImage = 'Do you want to split the image?';
+  s_Confirm_Clear = 'Are you sure to clear image list?';
   s_AddAsSingle = 'Add as single';
   s_SplitImage = 'Split image';