UPD: Translate some strings

This commit is contained in:
Alexander Koblov 2009-11-12 12:02:49 +00:00
commit 952de12d6d
2 changed files with 5 additions and 2 deletions

View file

@ -71,7 +71,7 @@ procedure TfrmHotDir.btnAddManClick(Sender: TObject);
var
sDir: String;
begin
if InputQuery('Manually add hot path', 'Enter name and path:', sDir) then
if InputQuery(rsMsgManualAddHotDir, rsMsgManualHotDirQuery, sDir) then
lsHotDir.ItemIndex:= lsHotDir.Items.Add(IncludeTrailingBackSlash(sDir));
btnDelete.Enabled:= (lsHotDir.Items.Count > 0);
btnEdit.Enabled:= (lsHotDir.Items.Count > 0);
@ -83,7 +83,7 @@ var
begin
if lsHotDir.Items.Count < 1 then Exit;
sDir:= lsHotDir.Items[lsHotDir.ItemIndex];
if InputQuery('Manualy edit hot path', 'Enter name and path:', sDir) then
if InputQuery(rsMsgManualEditHotDir, rsMsgManualHotDirQuery, sDir) then
lsHotDir.Items[lsHotDir.ItemIndex]:= IncludeTrailingBackSlash(sDir);
btnDelete.Enabled:= (lsHotDir.Items.Count > 0);
btnEdit.Enabled:= (lsHotDir.Items.Count > 0);

View file

@ -81,6 +81,9 @@ resourcestring
rsMsgInvalidFilename = 'Invalid filename';
rsMsgSelectOnlyCheckSumFiles = 'Please select only check sum files!';
rsMsgPresetAlreadyExists = 'Preset "%s" already exists. Overwrite?';
rsMsgManualAddHotDir = 'Manually add hot path';
rsMsgManualEditHotDir = 'Manualy edit hot path';
rsMsgManualHotDirQuery = 'Enter name and path (format name=path):';
rsMsgMasterPassword = 'Master Password';
rsMsgMasterPasswordEnter = 'Please enter the master password:';
rsMsgErrSetAttribute = 'Can not set attributes for "%s"';