ADD: Load/Save search templates - Next step

This commit is contained in:
Alexander Koblov 2009-04-05 13:17:43 +00:00
commit c3e6d70fdd
14 changed files with 3669 additions and 3437 deletions

View file

@ -679,6 +679,7 @@ object frmFindDlg: TfrmFindDlg
Caption = 'Load/Save'
ClientHeight = 384
ClientWidth = 659
OnShow = tsLoadSaveShow
object lblTemplateHeader: TLabel
AnchorSideLeft.Control = tsLoadSave
AnchorSideTop.Control = tsLoadSave
@ -708,7 +709,6 @@ object frmFindDlg: TfrmFindDlg
BorderSpacing.Top = 6
BorderSpacing.Right = 12
BorderSpacing.Bottom = 12
Sorted = True
TabOrder = 0
end
object lblSearchContents: TPanel

View file

@ -142,6 +142,7 @@ type
procedure meTimeChange(Sender: TObject);
procedure miShowInViewerClick(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure tsLoadSaveShow(Sender: TObject);
private
{ Private declarations }
FFindThread:TFindThread;
@ -245,24 +246,93 @@ begin
end;
procedure TfrmFindDlg.btnSearchLoadClick(Sender: TObject);
var
SearchTemplate: TSearchTemplate;
begin
if lbSearchTemplates.ItemIndex <0 then Exit;
SearchTemplate:= gSearchTemplateList.Templates[lbSearchTemplates.ItemIndex];
with SearchTemplate.SearchRecord do
begin
cmbFindFileMask.Text:= rFileMask;
// attributes
cbAttrib.Checked:= False;
cbDirectory.State:= cbGrayed;
cbSymLink.State:= cbGrayed;
cbMore.Checked:= False;
edtAttrib.Text:= '';
if rAttributes <> faAnyFile then
begin
cbAttrib.Checked:= True;
cbDirectory.Checked:= FPS_ISDIR(rAttributes);
cbSymLink.Checked:= FPS_ISLNK(rAttributes);
end;
if (rAttribStr <> '') and (rAttribStr <> '?????????') then
begin
cbAttrib.Checked:= True;
cbMore.Checked:= True;
edtAttrib.Text:= rAttribStr;
end;
// file date
cbDateFrom.Checked:= rIsDateFrom;
deDateFrom.Text:= '';
deDateTo.Text:= '';
if rIsDateFrom then
deDateFrom.Date:= Trunc(rDateTimeFrom);
if rIsDateTo then
deDateTo.Date:= Trunc(rDateTimeTo);
// file time
cbTimeFrom.Checked:= rIsTimeFrom;
cbTimeTo.Checked:= rIsTimeTo;
edtTimeFrom.Text:= '';
edtTimeTo.Text:= '';
if rIsTimeFrom then
edtTimeFrom.Text:= TimeToStr(rDateTimeFrom);
if rIsTimeTo then
edtTimeTo.Text:= TimeToStr(rDateTimeTo);
// file size
cbFileSizeFrom.Checked:= rIsFileSizeFrom;
cbFileSizeTo.Checked:= rIsFileSizeTo;
seFileSizeFrom.Text:= '';
seFileSizeTo.Text:= '';
if rIsFileSizeFrom then
seFileSizeFrom.Value:= rFileSizeFrom;
if rIsFileSizeTo then
seFileSizeTo.Value:= rFileSizeTo;
// find text
cbNoThisText.Checked:= rIsNoThisText;
cbFindInFile.Checked:= rFindInFiles;
cbCaseSens.Checked:= rCaseSens;
edtFindText.Text:= '';
if rFindInFiles then
edtFindText.Text:= rFindData;
// replace text
cbReplaceText.Checked:= rReplaceInFiles;
edtReplaceText.Text:= '';
if rReplaceInFiles then
edtReplaceText.Text:= rReplaceData;
end;
end;
procedure TfrmFindDlg.btnSearchDeleteClick(Sender: TObject);
begin
if lbSearchTemplates.ItemIndex <0 then Exit;
gSearchTemplateList.DeleteTemplate(lbSearchTemplates.ItemIndex);
tsLoadSaveShow(nil);
end;
procedure TfrmFindDlg.btnSearchSaveClick(Sender: TObject);
var
sName: UTF8String;
SearchTemplate: TSearchTemplate;
begin
if not InputQuery(rsFindSaveTemplateCaption, rsFindSaveTemplateTitle, sName) then Exit;
SearchTemplate:= TSearchTemplate.Create;
SearchTemplate.TemplateName:= sName;
PrepareSearch;
FFindThread.FillSearchRecord(SearchTemplate.SearchRecord);
gSearchTemplateList.Add(SearchTemplate);
FreeAndNil(FFindThread);
tsLoadSaveShow(nil);
end;
procedure TfrmFindDlg.btnSelDirClick(Sender: TObject);
@ -736,9 +806,14 @@ begin
end;
end;
procedure TfrmFindDlg.tsLoadSaveShow(Sender: TObject);
begin
gSearchTemplateList.LoadToStringList(lbSearchTemplates.Items);
end;
initialization
{$I fFindDlg.lrs}
finalization
if assigned(frmFindDlg) then
if Assigned(frmFindDlg) then
FreeAndNil(frmFindDlg);
end.

View file

@ -164,6 +164,7 @@ msgid "Add S&ubbar >>"
msgstr "Добавяне на &подлента >>"
#: TFRMCONFIGTOOLBAR.BTNDELETEBUTTON.CAPTION
msgctxt "TFRMCONFIGTOOLBAR.BTNDELETEBUTTON.CAPTION"
msgid "&Delete"
msgstr "Из&триване"
@ -254,6 +255,7 @@ msgid "Edit comment for:"
msgstr "Промяна на бележката за:"
#: TFRMDESCREDIT.LBLENCODING.CAPTION
msgctxt "TFRMDESCREDIT.LBLENCODING.CAPTION"
msgid "Encoding:"
msgstr "Знаков набор:"
@ -742,6 +744,7 @@ msgid "Write"
msgstr "Четене"
#: TFRMFILEPROPERTIES.TSATTRIBUTES.CAPTION
msgctxt "TFRMFILEPROPERTIES.TSATTRIBUTES.CAPTION"
msgid "Attributes"
msgstr "Принадлежности"
@ -758,8 +761,9 @@ msgid "&New search"
msgstr "&Ново търсене"
#: TFRMFINDDLG.BTNSEARCHDELETE.CAPTION
msgctxt "TFRMFINDDLG.BTNSEARCHDELETE.CAPTION"
msgid "&Delete"
msgstr ""
msgstr "Из&триване"
#: TFRMFINDDLG.BTNSEARCHLOAD.CAPTION
msgid "L&oad"
@ -776,7 +780,7 @@ msgstr "&Начало"
#: TFRMFINDDLG.BTNSTOP.CAPTION
msgctxt "TFRMFINDDLG.BTNSTOP.CAPTION"
msgid "Cancel"
msgstr ""
msgstr "Отказ"
#: TFRMFINDDLG.BTNVIEW.CAPTION
msgid "&View"
@ -791,8 +795,9 @@ msgid "Find files"
msgstr "Търсене на файлове"
#: TFRMFINDDLG.CBATTRIB.CAPTION
msgctxt "TFRMFINDDLG.CBATTRIB.CAPTION"
msgid "Attributes"
msgstr ""
msgstr "Принадлежности"
#: TFRMFINDDLG.CBCASESENS.CAPTION
msgid "Case sensitive"
@ -811,6 +816,7 @@ msgid "Day(s)"
msgstr "Ден/ дни"
#: TFRMFINDDLG.CBDIRECTORY.CAPTION
msgctxt "TFRMFINDDLG.CBDIRECTORY.CAPTION"
msgid "Directory"
msgstr ""
@ -839,8 +845,9 @@ msgid "Not older than:"
msgstr "Не по- стар от:"
#: TFRMFINDDLG.CBREGEXP.CAPTION
msgctxt "TFRMFINDDLG.CBREGEXP.CAPTION"
msgid "&Regular expressions"
msgstr ""
msgstr "&Обичайни изрази"
#: TFRMFINDDLG.CBREPLACETEXT.CAPTION
msgid "Replace text"
@ -874,22 +881,22 @@ msgstr "*"
#: TFRMFINDDLG.DEDATEFROM.CANCELCAPTION
msgctxt "TFRMFINDDLG.DEDATEFROM.CANCELCAPTION"
msgid "Cancel"
msgstr ""
msgstr "Отказ"
#: TFRMFINDDLG.DEDATEFROM.OKCAPTION
msgctxt "TFRMFINDDLG.DEDATEFROM.OKCAPTION"
msgid "OK"
msgstr ""
msgstr "Добре"
#: TFRMFINDDLG.DEDATETO.CANCELCAPTION
msgctxt "TFRMFINDDLG.DEDATETO.CANCELCAPTION"
msgid "Cancel"
msgstr ""
msgstr "Отказ"
#: TFRMFINDDLG.DEDATETO.OKCAPTION
msgctxt "TFRMFINDDLG.DEDATETO.OKCAPTION"
msgid "OK"
msgstr ""
msgstr "Добре"
#: TFRMFINDDLG.EDTATTRIB.HINT
msgid "Use '-' to off attribute and '?' to any"
@ -904,8 +911,9 @@ msgid "Current"
msgstr "Текущ"
#: TFRMFINDDLG.LBLENCODING.CAPTION
msgctxt "TFRMFINDDLG.LBLENCODING.CAPTION"
msgid "Encoding:"
msgstr ""
msgstr "Знаков набор:"
#: TFRMFINDDLG.LBLFINDFILEMASK.CAPTION
msgid "FileMask"
@ -2885,6 +2893,14 @@ msgstr "само текущата папка"
msgid "Directory %s does not exist!"
msgstr "Не съществува папка %s!"
#: ulng.rsfindsavetemplatecaption
msgid "Save search template"
msgstr ""
#: ulng.rsfindsavetemplatetitle
msgid "Template name:"
msgstr ""
#: ulng.rsfindscaned
msgid "Scanned: %d"
msgstr "Обходени: %d"
@ -3295,6 +3311,7 @@ msgid "File"
msgstr "Файл"
#: ulng.rspropsfolder
msgctxt "ulng.rspropsfolder"
msgid "Directory"
msgstr "Папка"

View file

@ -164,6 +164,7 @@ msgid "Add S&ubbar >>"
msgstr "添加子栏"
#: TFRMCONFIGTOOLBAR.BTNDELETEBUTTON.CAPTION
msgctxt "TFRMCONFIGTOOLBAR.BTNDELETEBUTTON.CAPTION"
msgid "&Delete"
msgstr "删除(&D)"
@ -254,6 +255,7 @@ msgid "Edit comment for:"
msgstr "编辑注释:"
#: TFRMDESCREDIT.LBLENCODING.CAPTION
msgctxt "TFRMDESCREDIT.LBLENCODING.CAPTION"
msgid "Encoding:"
msgstr "编码:"
@ -742,6 +744,7 @@ msgid "Write"
msgstr "写"
#: TFRMFILEPROPERTIES.TSATTRIBUTES.CAPTION
msgctxt "TFRMFILEPROPERTIES.TSATTRIBUTES.CAPTION"
msgid "Attributes"
msgstr "属性"
@ -758,8 +761,9 @@ msgid "&New search"
msgstr "搜索(&N)"
#: TFRMFINDDLG.BTNSEARCHDELETE.CAPTION
msgctxt "TFRMFINDDLG.BTNSEARCHDELETE.CAPTION"
msgid "&Delete"
msgstr ""
msgstr "删除(&D)"
#: TFRMFINDDLG.BTNSEARCHLOAD.CAPTION
msgid "L&oad"
@ -776,7 +780,7 @@ msgstr "开始(&S)"
#: TFRMFINDDLG.BTNSTOP.CAPTION
msgctxt "TFRMFINDDLG.BTNSTOP.CAPTION"
msgid "Cancel"
msgstr ""
msgstr "取消"
#: TFRMFINDDLG.BTNVIEW.CAPTION
msgid "&View"
@ -791,8 +795,9 @@ msgid "Find files"
msgstr "查找文件"
#: TFRMFINDDLG.CBATTRIB.CAPTION
msgctxt "TFRMFINDDLG.CBATTRIB.CAPTION"
msgid "Attributes"
msgstr ""
msgstr "属性"
#: TFRMFINDDLG.CBCASESENS.CAPTION
msgid "Case sensitive"
@ -811,6 +816,7 @@ msgid "Day(s)"
msgstr "天"
#: TFRMFINDDLG.CBDIRECTORY.CAPTION
msgctxt "TFRMFINDDLG.CBDIRECTORY.CAPTION"
msgid "Directory"
msgstr ""
@ -839,8 +845,9 @@ msgid "Not older than:"
msgstr "不早于:"
#: TFRMFINDDLG.CBREGEXP.CAPTION
msgctxt "TFRMFINDDLG.CBREGEXP.CAPTION"
msgid "&Regular expressions"
msgstr ""
msgstr "正则表达式(&R)"
#: TFRMFINDDLG.CBREPLACETEXT.CAPTION
msgid "Replace text"
@ -874,22 +881,22 @@ msgstr "*"
#: TFRMFINDDLG.DEDATEFROM.CANCELCAPTION
msgctxt "TFRMFINDDLG.DEDATEFROM.CANCELCAPTION"
msgid "Cancel"
msgstr ""
msgstr "取消"
#: TFRMFINDDLG.DEDATEFROM.OKCAPTION
msgctxt "TFRMFINDDLG.DEDATEFROM.OKCAPTION"
msgid "OK"
msgstr ""
msgstr "确定"
#: TFRMFINDDLG.DEDATETO.CANCELCAPTION
msgctxt "TFRMFINDDLG.DEDATETO.CANCELCAPTION"
msgid "Cancel"
msgstr ""
msgstr "取消"
#: TFRMFINDDLG.DEDATETO.OKCAPTION
msgctxt "TFRMFINDDLG.DEDATETO.OKCAPTION"
msgid "OK"
msgstr ""
msgstr "确定"
#: TFRMFINDDLG.EDTATTRIB.HINT
msgid "Use '-' to off attribute and '?' to any"
@ -904,8 +911,9 @@ msgid "Current"
msgstr "当前"
#: TFRMFINDDLG.LBLENCODING.CAPTION
msgctxt "TFRMFINDDLG.LBLENCODING.CAPTION"
msgid "Encoding:"
msgstr ""
msgstr "编码:"
#: TFRMFINDDLG.LBLFINDFILEMASK.CAPTION
msgid "FileMask"
@ -2885,6 +2893,14 @@ msgstr "仅当前目录"
msgid "Directory %s does not exist!"
msgstr "目录 %s 不存在!"
#: ulng.rsfindsavetemplatecaption
msgid "Save search template"
msgstr ""
#: ulng.rsfindsavetemplatetitle
msgid "Template name:"
msgstr ""
#: ulng.rsfindscaned
msgid "Scanned: %d"
msgstr "已扫描: %d"
@ -3295,6 +3311,7 @@ msgid "File"
msgstr "文件"
#: ulng.rspropsfolder
msgctxt "ulng.rspropsfolder"
msgid "Directory"
msgstr "目录"

View file

@ -2901,6 +2901,14 @@ msgstr "pouze aktuální adresář"
msgid "Directory %s does not exist!"
msgstr "Adreář %s neexistuje!"
#: ulng.rsfindsavetemplatecaption
msgid "Save search template"
msgstr ""
#: ulng.rsfindsavetemplatetitle
msgid "Template name:"
msgstr ""
#: ulng.rsfindscaned
msgid "Scanned: %d"
msgstr "Prohledáno: %d"

View file

@ -164,6 +164,7 @@ msgid "Add S&ubbar >>"
msgstr "Unter&leiste einfügen"
#: TFRMCONFIGTOOLBAR.BTNDELETEBUTTON.CAPTION
msgctxt "TFRMCONFIGTOOLBAR.BTNDELETEBUTTON.CAPTION"
msgid "&Delete"
msgstr "L&öschen"
@ -254,6 +255,7 @@ msgid "Edit comment for:"
msgstr "Bearbeite Kommentar für:"
#: TFRMDESCREDIT.LBLENCODING.CAPTION
msgctxt "TFRMDESCREDIT.LBLENCODING.CAPTION"
msgid "Encoding:"
msgstr "Kodiere:"
@ -734,6 +736,7 @@ msgid "Write"
msgstr "Schreiben"
#: TFRMFILEPROPERTIES.TSATTRIBUTES.CAPTION
msgctxt "TFRMFILEPROPERTIES.TSATTRIBUTES.CAPTION"
msgid "Attributes"
msgstr "Attribute"
@ -750,8 +753,9 @@ msgid "&New search"
msgstr "&Neue Suche"
#: TFRMFINDDLG.BTNSEARCHDELETE.CAPTION
msgctxt "TFRMFINDDLG.BTNSEARCHDELETE.CAPTION"
msgid "&Delete"
msgstr ""
msgstr "L&öschen"
#: TFRMFINDDLG.BTNSEARCHLOAD.CAPTION
msgid "L&oad"
@ -768,7 +772,7 @@ msgstr "&Starten"
#: TFRMFINDDLG.BTNSTOP.CAPTION
msgctxt "TFRMFINDDLG.BTNSTOP.CAPTION"
msgid "Cancel"
msgstr ""
msgstr "Abbruch"
#: TFRMFINDDLG.BTNVIEW.CAPTION
msgid "&View"
@ -783,8 +787,9 @@ msgid "Find files"
msgstr "Suche Datei(en)"
#: TFRMFINDDLG.CBATTRIB.CAPTION
msgctxt "TFRMFINDDLG.CBATTRIB.CAPTION"
msgid "Attributes"
msgstr ""
msgstr "Attribute"
#: TFRMFINDDLG.CBCASESENS.CAPTION
msgid "Case sensitive"
@ -803,6 +808,7 @@ msgid "Day(s)"
msgstr "Tag(e)"
#: TFRMFINDDLG.CBDIRECTORY.CAPTION
msgctxt "TFRMFINDDLG.CBDIRECTORY.CAPTION"
msgid "Directory"
msgstr ""
@ -831,8 +837,9 @@ msgid "Not older than:"
msgstr "Nicht älter als:"
#: TFRMFINDDLG.CBREGEXP.CAPTION
msgctxt "TFRMFINDDLG.CBREGEXP.CAPTION"
msgid "&Regular expressions"
msgstr ""
msgstr "&Reguläre Ausdrücke"
#: TFRMFINDDLG.CBREPLACETEXT.CAPTION
msgid "Replace text"
@ -866,22 +873,22 @@ msgstr "*"
#: TFRMFINDDLG.DEDATEFROM.CANCELCAPTION
msgctxt "TFRMFINDDLG.DEDATEFROM.CANCELCAPTION"
msgid "Cancel"
msgstr ""
msgstr "Abbruch"
#: TFRMFINDDLG.DEDATEFROM.OKCAPTION
msgctxt "TFRMFINDDLG.DEDATEFROM.OKCAPTION"
msgid "OK"
msgstr ""
msgstr "OK"
#: TFRMFINDDLG.DEDATETO.CANCELCAPTION
msgctxt "TFRMFINDDLG.DEDATETO.CANCELCAPTION"
msgid "Cancel"
msgstr ""
msgstr "Abbruch"
#: TFRMFINDDLG.DEDATETO.OKCAPTION
msgctxt "TFRMFINDDLG.DEDATETO.OKCAPTION"
msgid "OK"
msgstr ""
msgstr "OK"
#: TFRMFINDDLG.EDTATTRIB.HINT
msgid "Use '-' to off attribute and '?' to any"
@ -896,8 +903,9 @@ msgid "Current"
msgstr "Aktuell"
#: TFRMFINDDLG.LBLENCODING.CAPTION
msgctxt "TFRMFINDDLG.LBLENCODING.CAPTION"
msgid "Encoding:"
msgstr ""
msgstr "Kodiere:"
#: TFRMFINDDLG.LBLFINDFILEMASK.CAPTION
msgid "FileMask"
@ -2877,6 +2885,14 @@ msgstr "Nur das aktuelle Verzeichnis"
msgid "Directory %s does not exist!"
msgstr "Verzeichnis %s existiert nicht!"
#: ulng.rsfindsavetemplatecaption
msgid "Save search template"
msgstr ""
#: ulng.rsfindsavetemplatetitle
msgid "Template name:"
msgstr ""
#: ulng.rsfindscaned
msgid "Scanned: %d"
msgstr "Gelesen: %d"
@ -3287,6 +3303,7 @@ msgid "File"
msgstr "Datei"
#: ulng.rspropsfolder
msgctxt "ulng.rspropsfolder"
msgid "Directory"
msgstr "Verzeichnis"

View file

@ -164,6 +164,7 @@ msgid "Add S&ubbar >>"
msgstr "Añadir S&ubbarra >>"
#: TFRMCONFIGTOOLBAR.BTNDELETEBUTTON.CAPTION
msgctxt "TFRMCONFIGTOOLBAR.BTNDELETEBUTTON.CAPTION"
msgid "&Delete"
msgstr "&Borrar"
@ -254,6 +255,7 @@ msgid "Edit comment for:"
msgstr ""
#: TFRMDESCREDIT.LBLENCODING.CAPTION
msgctxt "TFRMDESCREDIT.LBLENCODING.CAPTION"
msgid "Encoding:"
msgstr ""
@ -742,6 +744,7 @@ msgid "Write"
msgstr "Escritura"
#: TFRMFILEPROPERTIES.TSATTRIBUTES.CAPTION
msgctxt "TFRMFILEPROPERTIES.TSATTRIBUTES.CAPTION"
msgid "Attributes"
msgstr "Atributos"
@ -758,8 +761,9 @@ msgid "&New search"
msgstr "&Nueva búsqueda"
#: TFRMFINDDLG.BTNSEARCHDELETE.CAPTION
msgctxt "TFRMFINDDLG.BTNSEARCHDELETE.CAPTION"
msgid "&Delete"
msgstr ""
msgstr "&Borrar"
#: TFRMFINDDLG.BTNSEARCHLOAD.CAPTION
msgid "L&oad"
@ -776,7 +780,7 @@ msgstr "&Empezar"
#: TFRMFINDDLG.BTNSTOP.CAPTION
msgctxt "TFRMFINDDLG.BTNSTOP.CAPTION"
msgid "Cancel"
msgstr ""
msgstr "Cancelar"
#: TFRMFINDDLG.BTNVIEW.CAPTION
msgid "&View"
@ -791,8 +795,9 @@ msgid "Find files"
msgstr "Buscar ficheros"
#: TFRMFINDDLG.CBATTRIB.CAPTION
msgctxt "TFRMFINDDLG.CBATTRIB.CAPTION"
msgid "Attributes"
msgstr ""
msgstr "Atributos"
#: TFRMFINDDLG.CBCASESENS.CAPTION
msgid "Case sensitive"
@ -811,6 +816,7 @@ msgid "Day(s)"
msgstr "Día(s)"
#: TFRMFINDDLG.CBDIRECTORY.CAPTION
msgctxt "TFRMFINDDLG.CBDIRECTORY.CAPTION"
msgid "Directory"
msgstr ""
@ -839,6 +845,7 @@ msgid "Not older than:"
msgstr "No más de:"
#: TFRMFINDDLG.CBREGEXP.CAPTION
msgctxt "TFRMFINDDLG.CBREGEXP.CAPTION"
msgid "&Regular expressions"
msgstr ""
@ -874,12 +881,12 @@ msgstr "*"
#: TFRMFINDDLG.DEDATEFROM.CANCELCAPTION
msgctxt "TFRMFINDDLG.DEDATEFROM.CANCELCAPTION"
msgid "Cancel"
msgstr ""
msgstr "Cancelar"
#: TFRMFINDDLG.DEDATEFROM.OKCAPTION
msgctxt "TFRMFINDDLG.DEDATEFROM.OKCAPTION"
msgid "OK"
msgstr ""
msgstr "Aceptar"
#: TFRMFINDDLG.DEDATETO.CANCELCAPTION
msgctxt "TFRMFINDDLG.DEDATETO.CANCELCAPTION"
@ -889,7 +896,7 @@ msgstr ""
#: TFRMFINDDLG.DEDATETO.OKCAPTION
msgctxt "TFRMFINDDLG.DEDATETO.OKCAPTION"
msgid "OK"
msgstr ""
msgstr "Aceptar"
#: TFRMFINDDLG.EDTATTRIB.HINT
msgid "Use '-' to off attribute and '?' to any"
@ -904,6 +911,7 @@ msgid "Current"
msgstr "Actual"
#: TFRMFINDDLG.LBLENCODING.CAPTION
msgctxt "TFRMFINDDLG.LBLENCODING.CAPTION"
msgid "Encoding:"
msgstr ""
@ -1801,7 +1809,7 @@ msgstr ""
#: TFRMOPTIONS.BTNCONFIGEDIT.CAPTION
msgctxt "TFRMOPTIONS.BTNCONFIGEDIT.CAPTION"
msgid "Edit"
msgstr ""
msgstr "Editar"
#: TFRMOPTIONS.BTNCONFIGPLUGIN.CAPTION
msgid "Configure"
@ -2885,6 +2893,14 @@ msgstr ""
msgid "Directory %s does not exist!"
msgstr "El directorio %s no existe!"
#: ulng.rsfindsavetemplatecaption
msgid "Save search template"
msgstr ""
#: ulng.rsfindsavetemplatetitle
msgid "Template name:"
msgstr ""
#: ulng.rsfindscaned
msgid "Scanned: %d"
msgstr "Buscados: %d"
@ -3295,6 +3311,7 @@ msgid "File"
msgstr "Archivo"
#: ulng.rspropsfolder
msgctxt "ulng.rspropsfolder"
msgid "Directory"
msgstr "Directorio"

View file

@ -164,6 +164,7 @@ msgid "Add S&ubbar >>"
msgstr "Voeg S&ubbalk toe >>"
#: TFRMCONFIGTOOLBAR.BTNDELETEBUTTON.CAPTION
msgctxt "TFRMCONFIGTOOLBAR.BTNDELETEBUTTON.CAPTION"
msgid "&Delete"
msgstr "Verwijder"
@ -254,6 +255,7 @@ msgid "Edit comment for:"
msgstr "Bewerk commentaar voor:"
#: TFRMDESCREDIT.LBLENCODING.CAPTION
msgctxt "TFRMDESCREDIT.LBLENCODING.CAPTION"
msgid "Encoding:"
msgstr "Koderen:"
@ -742,6 +744,7 @@ msgid "Write"
msgstr "Schrijf"
#: TFRMFILEPROPERTIES.TSATTRIBUTES.CAPTION
msgctxt "TFRMFILEPROPERTIES.TSATTRIBUTES.CAPTION"
msgid "Attributes"
msgstr "Attributen"
@ -758,8 +761,9 @@ msgid "&New search"
msgstr "&Nieuwe zoekopdracht"
#: TFRMFINDDLG.BTNSEARCHDELETE.CAPTION
msgctxt "TFRMFINDDLG.BTNSEARCHDELETE.CAPTION"
msgid "&Delete"
msgstr ""
msgstr "Verwijder"
#: TFRMFINDDLG.BTNSEARCHLOAD.CAPTION
msgid "L&oad"
@ -776,7 +780,7 @@ msgstr "&Start"
#: TFRMFINDDLG.BTNSTOP.CAPTION
msgctxt "TFRMFINDDLG.BTNSTOP.CAPTION"
msgid "Cancel"
msgstr ""
msgstr "Afbreken"
#: TFRMFINDDLG.BTNVIEW.CAPTION
msgid "&View"
@ -791,8 +795,9 @@ msgid "Find files"
msgstr "Vindt bestanden"
#: TFRMFINDDLG.CBATTRIB.CAPTION
msgctxt "TFRMFINDDLG.CBATTRIB.CAPTION"
msgid "Attributes"
msgstr ""
msgstr "Attributen"
#: TFRMFINDDLG.CBCASESENS.CAPTION
msgid "Case sensitive"
@ -811,6 +816,7 @@ msgid "Day(s)"
msgstr "Dag(en)"
#: TFRMFINDDLG.CBDIRECTORY.CAPTION
msgctxt "TFRMFINDDLG.CBDIRECTORY.CAPTION"
msgid "Directory"
msgstr ""
@ -839,8 +845,9 @@ msgid "Not older than:"
msgstr "Niet ouder dan:"
#: TFRMFINDDLG.CBREGEXP.CAPTION
msgctxt "TFRMFINDDLG.CBREGEXP.CAPTION"
msgid "&Regular expressions"
msgstr ""
msgstr "Reguliere expressies"
#: TFRMFINDDLG.CBREPLACETEXT.CAPTION
msgid "Replace text"
@ -874,22 +881,22 @@ msgstr "*"
#: TFRMFINDDLG.DEDATEFROM.CANCELCAPTION
msgctxt "TFRMFINDDLG.DEDATEFROM.CANCELCAPTION"
msgid "Cancel"
msgstr ""
msgstr "Afbreken"
#: TFRMFINDDLG.DEDATEFROM.OKCAPTION
msgctxt "TFRMFINDDLG.DEDATEFROM.OKCAPTION"
msgid "OK"
msgstr ""
msgstr "OK"
#: TFRMFINDDLG.DEDATETO.CANCELCAPTION
msgctxt "TFRMFINDDLG.DEDATETO.CANCELCAPTION"
msgid "Cancel"
msgstr ""
msgstr "Afbreken"
#: TFRMFINDDLG.DEDATETO.OKCAPTION
msgctxt "TFRMFINDDLG.DEDATETO.OKCAPTION"
msgid "OK"
msgstr ""
msgstr "OK"
#: TFRMFINDDLG.EDTATTRIB.HINT
msgid "Use '-' to off attribute and '?' to any"
@ -904,8 +911,9 @@ msgid "Current"
msgstr "Huidig"
#: TFRMFINDDLG.LBLENCODING.CAPTION
msgctxt "TFRMFINDDLG.LBLENCODING.CAPTION"
msgid "Encoding:"
msgstr ""
msgstr "Koderen:"
#: TFRMFINDDLG.LBLFINDFILEMASK.CAPTION
msgid "FileMask"
@ -2885,6 +2893,14 @@ msgstr "alleen huidige map"
msgid "Directory %s does not exist!"
msgstr "Map %s bestaat niet!"
#: ulng.rsfindsavetemplatecaption
msgid "Save search template"
msgstr ""
#: ulng.rsfindsavetemplatetitle
msgid "Template name:"
msgstr ""
#: ulng.rsfindscaned
msgid "Scanned: %d"
msgstr "Gescand: %d"
@ -3295,6 +3311,7 @@ msgid "File"
msgstr "Bestand"
#: ulng.rspropsfolder
msgctxt "ulng.rspropsfolder"
msgid "Directory"
msgstr "Directory"

View file

@ -2893,6 +2893,14 @@ msgstr ""
msgid "Directory %s does not exist!"
msgstr ""
#: ulng.rsfindsavetemplatecaption
msgid "Save search template"
msgstr ""
#: ulng.rsfindsavetemplatetitle
msgid "Template name:"
msgstr ""
#: ulng.rsfindscaned
msgid "Scanned: %d"
msgstr ""

File diff suppressed because it is too large Load diff

View file

@ -164,6 +164,7 @@ msgid "Add S&ubbar >>"
msgstr "Додати панель..."
#: TFRMCONFIGTOOLBAR.BTNDELETEBUTTON.CAPTION
msgctxt "TFRMCONFIGTOOLBAR.BTNDELETEBUTTON.CAPTION"
msgid "&Delete"
msgstr "Видалити"
@ -254,6 +255,7 @@ msgid "Edit comment for:"
msgstr "Редагувати коментар для:"
#: TFRMDESCREDIT.LBLENCODING.CAPTION
msgctxt "TFRMDESCREDIT.LBLENCODING.CAPTION"
msgid "Encoding:"
msgstr "Кодування:"
@ -750,6 +752,7 @@ msgid "Write"
msgstr "Запис"
#: TFRMFILEPROPERTIES.TSATTRIBUTES.CAPTION
msgctxt "TFRMFILEPROPERTIES.TSATTRIBUTES.CAPTION"
msgid "Attributes"
msgstr "Атрибути"
@ -766,8 +769,9 @@ msgid "&New search"
msgstr "Н&овий пошук"
#: TFRMFINDDLG.BTNSEARCHDELETE.CAPTION
msgctxt "TFRMFINDDLG.BTNSEARCHDELETE.CAPTION"
msgid "&Delete"
msgstr ""
msgstr "Видалити"
#: TFRMFINDDLG.BTNSEARCHLOAD.CAPTION
msgid "L&oad"
@ -784,7 +788,7 @@ msgstr "&Старт"
#: TFRMFINDDLG.BTNSTOP.CAPTION
msgctxt "TFRMFINDDLG.BTNSTOP.CAPTION"
msgid "Cancel"
msgstr ""
msgstr "Відміна"
#: TFRMFINDDLG.BTNVIEW.CAPTION
msgctxt "TFRMFINDDLG.BTNVIEW.CAPTION"
@ -800,8 +804,9 @@ msgid "Find files"
msgstr "Пошук файлів"
#: TFRMFINDDLG.CBATTRIB.CAPTION
msgctxt "TFRMFINDDLG.CBATTRIB.CAPTION"
msgid "Attributes"
msgstr ""
msgstr "Атрибути"
#: TFRMFINDDLG.CBCASESENS.CAPTION
msgid "Case sensitive"
@ -820,6 +825,7 @@ msgid "Day(s)"
msgstr "День"
#: TFRMFINDDLG.CBDIRECTORY.CAPTION
msgctxt "TFRMFINDDLG.CBDIRECTORY.CAPTION"
msgid "Directory"
msgstr ""
@ -848,8 +854,9 @@ msgid "Not older than:"
msgstr "Не старші ніж:"
#: TFRMFINDDLG.CBREGEXP.CAPTION
msgctxt "TFRMFINDDLG.CBREGEXP.CAPTION"
msgid "&Regular expressions"
msgstr ""
msgstr "Регулярні вирази"
#: TFRMFINDDLG.CBREPLACETEXT.CAPTION
msgid "Replace text"
@ -883,22 +890,22 @@ msgstr ""
#: TFRMFINDDLG.DEDATEFROM.CANCELCAPTION
msgctxt "TFRMFINDDLG.DEDATEFROM.CANCELCAPTION"
msgid "Cancel"
msgstr ""
msgstr "Скасувати"
#: TFRMFINDDLG.DEDATEFROM.OKCAPTION
msgctxt "TFRMFINDDLG.DEDATEFROM.OKCAPTION"
msgid "OK"
msgstr ""
msgstr "Так"
#: TFRMFINDDLG.DEDATETO.CANCELCAPTION
msgctxt "TFRMFINDDLG.DEDATETO.CANCELCAPTION"
msgid "Cancel"
msgstr ""
msgstr "Скасувати"
#: TFRMFINDDLG.DEDATETO.OKCAPTION
msgctxt "TFRMFINDDLG.DEDATETO.OKCAPTION"
msgid "OK"
msgstr ""
msgstr "Так"
#: TFRMFINDDLG.EDTATTRIB.HINT
msgid "Use '-' to off attribute and '?' to any"
@ -913,8 +920,9 @@ msgid "Current"
msgstr "Поточний"
#: TFRMFINDDLG.LBLENCODING.CAPTION
msgctxt "TFRMFINDDLG.LBLENCODING.CAPTION"
msgid "Encoding:"
msgstr ""
msgstr "Кодування:"
#: TFRMFINDDLG.LBLFINDFILEMASK.CAPTION
msgid "FileMask"
@ -2897,6 +2905,14 @@ msgstr "Тільки поточний каталог "
msgid "Directory %s does not exist!"
msgstr "Каталог %s не існує!"
#: ulng.rsfindsavetemplatecaption
msgid "Save search template"
msgstr ""
#: ulng.rsfindsavetemplatetitle
msgid "Template name:"
msgstr ""
#: ulng.rsfindscaned
msgid "Scanned: %d"
msgstr "Проглянуто: %d"
@ -3308,6 +3324,7 @@ msgid "File"
msgstr "Файл"
#: ulng.rspropsfolder
msgctxt "ulng.rspropsfolder"
msgid "Directory"
msgstr "Каталог"

View file

@ -442,6 +442,14 @@ ulng.rsfinddepthcurdir='current dir only'
ulng.rsfinddepth='%s level(s)'
# hash value = 201978661
ulng.rsfindsavetemplatecaption='Save search template'
# hash value = 187920010
ulng.rsfindsavetemplatetitle='Template name:'
# hash value = 48267678
ulng.rssymerrcreate='Error creating symlink.'

View file

@ -153,6 +153,8 @@ resourcestring
rsFindDepthAll = 'all (unlimited depth)';
rsFindDepthCurDir = 'current dir only';
rsFindDepth = '%s level(s)';
rsFindSaveTemplateCaption = 'Save search template';
rsFindSaveTemplateTitle = 'Template name:';
// Symlink dialog
rsSymErrCreate = 'Error creating symlink.';
// Hardlink dialog

View file

@ -49,7 +49,8 @@ type
function GetTemplate(Index: Integer): TSearchTemplate;
public
function Add(SearchTemplate: TSearchTemplate): Integer;
procedure Delete(Index: Integer);
procedure DeleteTemplate(Index: Integer);
procedure LoadToStringList(StringList: TStrings);
procedure LoadFromIni(IniFile: TIniFileEx);
procedure SaveToIni(IniFile: TIniFileEx);
property Templates[Index: Integer]: TSearchTemplate read GetTemplate;
@ -77,12 +78,21 @@ begin
Result:= inherited Add(SearchTemplate);
end;
procedure TSearchTemplateList.Delete(Index: Integer);
procedure TSearchTemplateList.DeleteTemplate(Index: Integer);
begin
Templates[Index].Free;
Delete(Index);
end;
procedure TSearchTemplateList.LoadToStringList(StringList: TStrings);
var
I: Integer;
begin
StringList.Clear;
for I:= 0 to Count - 1 do
StringList.Add(Templates[I].TemplateName);
end;
const
cSection = 'SearchTemplates';
@ -99,6 +109,7 @@ begin
with SearchTemplate.SearchRecord do
begin
sTemplate:= 'Template' + IntToStr(I+1);
SearchTemplate.TemplateName:= IniFile.ReadString(cSection, sTemplate+'Name', '');
rFileMask:= strnew(PChar(IniFile.ReadString(cSection, sTemplate+'FileMask', '*')));
rAttributes:= IniFile.ReadInteger(cSection, sTemplate+'Attributes', faAnyFile);
rAttribStr:= strnew(PChar(IniFile.ReadString(cSection, sTemplate+'AttribStr', '*')));
@ -144,6 +155,7 @@ begin
with Templates[I].SearchRecord do
begin
sTemplate:= 'Template' + IntToStr(I+1);
IniFile.WriteString(cSection, sTemplate+'Name', Templates[I].TemplateName);
IniFile.WriteString(cSection, sTemplate+'FileMask', StrPas(rFileMask));
IniFile.WriteInteger(cSection, sTemplate+'Attributes', rAttributes);
IniFile.WriteString(cSection, sTemplate+'AttribStr', StrPas(rAttribStr));