paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 12:40:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

ideintf: ImageList editior: add replace button. Issue #29252. Patch by Janusz Tomczak

Browse Source 
git-svn-id: trunk@51054 -
This commit is contained in:
ondrej 2015-12-27 17:40:09 +00:00
parent 800d968b77
commit e8bf2b6e97
23 changed files with 416 additions and 100 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

203
components/ideintf/imagelisteditor.lfm
View File

@ -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

70
components/ideintf/imagelisteditor.pp
View File

@ -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;

12
components/ideintf/languages/objinspstrconsts.ca.po
View File

@ -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 ""

12
components/ideintf/languages/objinspstrconsts.cs.po
View File

@ -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"

12
components/ideintf/languages/objinspstrconsts.de.po
View File

@ -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"

12
components/ideintf/languages/objinspstrconsts.es.po
View File

@ -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"

12
components/ideintf/languages/objinspstrconsts.fi.po
View File

@ -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"

12
components/ideintf/languages/objinspstrconsts.fr.po
View File

@ -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"

12
components/ideintf/languages/objinspstrconsts.he.po
View File

@ -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 "פצל דמות"

12
components/ideintf/languages/objinspstrconsts.hu.po
View File

@ -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"

12
components/ideintf/languages/objinspstrconsts.id.po
View File

@ -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"

12
components/ideintf/languages/objinspstrconsts.it.po
View File

@ -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"

12
components/ideintf/languages/objinspstrconsts.ja.po
View File

@ -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 "イメージを分割"

12
components/ideintf/languages/objinspstrconsts.lt.po
View File

@ -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ą"

12
components/ideintf/languages/objinspstrconsts.nl.po
View File

@ -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 ""

12
components/ideintf/languages/objinspstrconsts.pl.po
View File

@ -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 ""

12
components/ideintf/languages/objinspstrconsts.po
View File

@ -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 ""

12
components/ideintf/languages/objinspstrconsts.pt_BR.po
View File

@ -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"

12
components/ideintf/languages/objinspstrconsts.ru.po
View File

@ -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 "Разбить изображение"

12
components/ideintf/languages/objinspstrconsts.sk.po
View File

@ -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"

12
components/ideintf/languages/objinspstrconsts.uk.po
View File

@ -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 "Розбити Зображення"

12
components/ideintf/languages/objinspstrconsts.zh_CN.po
View File

@ -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 "分割图片"

3
components/ideintf/objinspstrconsts.pas
View File

@ -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';