mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Drive context menu for Linux

Browse source
This commit is contained in:
Alexander Koblov 2008-07-09 16:33:41 +00:00
commit 83496a948c
13 changed files with 3889 additions and 3687 deletions
Download patch file Download diff file Expand all files Collapse all files

5697
fmain.pas
View file

File diff suppressed because it is too large Load diff

12
language/doublecmd.bg.po
View file

@ -875,6 +875,10 @@ msgstr "Настройка на обработчика"
msgid "Editor font"
msgstr "Шрифт на обработчика"
#: ulng.rsmnueject
msgid "Eject"
msgstr ""
#: TFRMOPTIONS.CBEXACTENDING.CAPTION
msgid "En&ding (last character before a typed dot . must match)"
msgstr "&Край (последният знак преди точката . трябва да съвпада)"
@ -1395,6 +1399,10 @@ msgstr ""
msgid "More"
msgstr "Още"
#: ulng.rsmnumount
msgid "Mount"
msgstr ""
#: ulng.rsconfcolmove
msgid "Move"
msgstr ""
@ -2067,6 +2075,10 @@ msgstr "Опит за отваряне на файл"
msgid "Type:"
msgstr "Вид:"
#: ulng.rsmnuumount
msgid "Umount"
msgstr ""
#: ulng.rsspliterrdirectory
msgid "Unable to create target directory!"
msgstr "Създаването на целевата папка е невъзможно!"

12
language/doublecmd.chs.po
View file

@ -875,6 +875,10 @@ msgstr "编辑器配置"
msgid "Editor font"
msgstr "编辑器字体"
#: ulng.rsmnueject
msgid "Eject"
msgstr ""
#: TFRMOPTIONS.CBEXACTENDING.CAPTION
msgid "En&ding (last character before a typed dot . must match)"
msgstr "结束(&D)(匹配句点号前一字母)"
@ -1395,6 +1399,10 @@ msgstr "模式:"
msgid "More"
msgstr "更多"
#: ulng.rsmnumount
msgid "Mount"
msgstr ""
#: ulng.rsconfcolmove
msgid "Move"
msgstr ""
@ -2067,6 +2075,10 @@ msgstr "尝试打开归档"
msgid "Type:"
msgstr "类型:"
#: ulng.rsmnuumount
msgid "Umount"
msgstr ""
#: ulng.rsspliterrdirectory
msgid "Unable to create target directory!"
msgstr "无法创建目标目录!"

12
language/doublecmd.cs.po
View file

@ -877,6 +877,10 @@ msgstr "Konfigurace editoru"
msgid "Editor font"
msgstr "Písmo editoru"
#: ulng.rsmnueject
msgid "Eject"
msgstr ""
#: TFRMOPTIONS.CBEXACTENDING.CAPTION
msgid "En&ding (last character before a typed dot . must match)"
msgstr "&Konec (poslední znak před . musí odpovídat zadanému)"
@ -1397,6 +1401,10 @@ msgstr ""
msgid "More"
msgstr "Více"
#: ulng.rsmnumount
msgid "Mount"
msgstr ""
#: ulng.rsconfcolmove
msgid "Move"
msgstr ""
@ -2069,6 +2077,10 @@ msgstr "Zkusit otevřít archív"
msgid "Type:"
msgstr "Typ:"
#: ulng.rsmnuumount
msgid "Umount"
msgstr ""
#: ulng.rsspliterrdirectory
msgid "Unable to create target directory!"
msgstr "Nelze vytvořit cílový adrresář!"

12
language/doublecmd.de.po
View file

@ -875,6 +875,10 @@ msgstr "Editor konfigurieren"
msgid "Editor font"
msgstr "Schrift für Editor"
#: ulng.rsmnueject
msgid "Eject"
msgstr ""
#: TFRMOPTIONS.CBEXACTENDING.CAPTION
msgid "En&ding (last character before a typed dot . must match)"
msgstr "Ende des Namens (letztes Zeichen vor einem . soll passen)"
@ -1395,6 +1399,10 @@ msgstr ""
msgid "More"
msgstr "Mehr"
#: ulng.rsmnumount
msgid "Mount"
msgstr ""
#: ulng.rsconfcolmove
msgid "Move"
msgstr ""
@ -2067,6 +2075,10 @@ msgstr ""
msgid "Type:"
msgstr "Typ:"
#: ulng.rsmnuumount
msgid "Umount"
msgstr ""
#: ulng.rsspliterrdirectory
msgid "Unable to create target directory!"
msgstr "Kann Zielordner nicht erstellen"

12
language/doublecmd.es.po
View file

@ -875,6 +875,10 @@ msgstr "Configuración del editor"
msgid "Editor font"
msgstr "Fuente del editor"
#: ulng.rsmnueject
msgid "Eject"
msgstr ""
#: TFRMOPTIONS.CBEXACTENDING.CAPTION
msgid "En&ding (last character before a typed dot . must match)"
msgstr "Fi&nal (debe coincidir el último caracter antes de un punto . )"
@ -1395,6 +1399,10 @@ msgstr ""
msgid "More"
msgstr "Más"
#: ulng.rsmnumount
msgid "Mount"
msgstr ""
#: ulng.rsconfcolmove
msgid "Move"
msgstr ""
@ -2067,6 +2075,10 @@ msgstr "Intentar abrir archivo"
msgid "Type:"
msgstr "Tipo:"
#: ulng.rsmnuumount
msgid "Umount"
msgstr ""
#: ulng.rsspliterrdirectory
msgid "Unable to create target directory!"
msgstr "No se pudo crear directorio destino"

12
language/doublecmd.nl.po
View file

@ -875,6 +875,10 @@ msgstr "Editor configuratie"
msgid "Editor font"
msgstr "Editor lettertype"
#: ulng.rsmnueject
msgid "Eject"
msgstr ""
#: TFRMOPTIONS.CBEXACTENDING.CAPTION
msgid "En&ding (last character before a typed dot . must match)"
msgstr "Einde (laatste karakter voor een getypte punt . moet overeenkomene"
@ -1395,6 +1399,10 @@ msgstr ""
msgid "More"
msgstr "Meer"
#: ulng.rsmnumount
msgid "Mount"
msgstr ""
#: ulng.rsconfcolmove
msgid "Move"
msgstr ""
@ -2067,6 +2075,10 @@ msgstr "Probeer archief te openen"
msgid "Type:"
msgstr "Type:"
#: ulng.rsmnuumount
msgid "Umount"
msgstr ""
#: ulng.rsspliterrdirectory
msgid "Unable to create target directory!"
msgstr "Kan doeldirectorie niet maken!"

12
language/doublecmd.po
View file

@ -2283,6 +2283,18 @@ msgstr ""
msgid "&Replace with:"
msgstr ""
#: ulng.rsmnueject
msgid "Eject"
msgstr ""
#: ulng.rsmnumount
msgid "Mount"
msgstr ""
#: ulng.rsmnuumount
msgid "Umount"
msgstr ""
#: TFRMEDITOR.ACTEDITFINDNEXT.CAPTION
msgid "Find next"
msgstr ""

12
language/doublecmd.ru.po
View file

@ -874,6 +874,10 @@ msgstr "Настройки редактора"
msgid "Editor font"
msgstr "Редактора"
#: ulng.rsmnueject
msgid "Eject"
msgstr "Извлечь"
#: TFRMOPTIONS.CBEXACTENDING.CAPTION
msgid "En&ding (last character before a typed dot . must match)"
msgstr "Конец (последние символы до набранной точки '.' должны совпадать)"
@ -1394,6 +1398,10 @@ msgstr "Режим:"
msgid "More"
msgstr "Больше"
#: ulng.rsmnumount
msgid "Mount"
msgstr "Смонтировать"
#: ulng.rsconfcolmove
msgid "Move"
msgstr "Переместить"
@ -2066,6 +2074,10 @@ msgstr ""
msgid "Type:"
msgstr "Тип:"
#: ulng.rsmnuumount
msgid "Umount"
msgstr "Отмонтировать"
#: ulng.rsspliterrdirectory
msgid "Unable to create target directory!"
msgstr "Не могу создать каталог назначения!"

12
language/doublecmd.uk.po
View file

@ -874,6 +874,10 @@ msgstr "Настройки редактора"
msgid "Editor font"
msgstr "Шрифт редактора"
#: ulng.rsmnueject
msgid "Eject"
msgstr ""
#: TFRMOPTIONS.CBEXACTENDING.CAPTION
msgid "En&ding (last character before a typed dot . must match)"
msgstr "Кінець (останні символи до набраної крапки '.' повинні співпадати)"
@ -1394,6 +1398,10 @@ msgstr ""
msgid "More"
msgstr "Більше"
#: ulng.rsmnumount
msgid "Mount"
msgstr ""
#: ulng.rsconfcolmove
msgid "Move"
msgstr ""
@ -2066,6 +2074,10 @@ msgstr ""
msgid "Type:"
msgstr "Тип:"
#: ulng.rsmnuumount
msgid "Umount"
msgstr ""
#: ulng.rsspliterrdirectory
msgid "Unable to create target directory!"
msgstr "Не можу створити каталог призначення!"

12
uLng.rst
View file

@ -113,6 +113,18 @@ ulng.rsmsgnofreespaceretry='No enough free space on target drive, Retry?'
ulng.rsmnuactions='Actions'
# hash value = 5532756
ulng.rsmnumount='Mount'
# hash value = 96758868
ulng.rsmnuumount='Umount'
# hash value = 4983716
ulng.rsmnueject='Eject'
# hash value = 61082373
ulng.rsmsgsellocnextvol='Please select location of next volume'

529
ulng.pas
View file

@ -1,263 +1,266 @@
{
Double Commander
-------------------------------------------------------------------------
Localization core unit
Copyright (C) 2007 Koblov Alexander (Alexx2000@mail.ru)
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
}
unit uLng;
{$mode objfpc}{$H+}
interface
uses
LResources;
resourcestring
rsMsgNotDelete = 'Can not delete file %s';
rsMsgFileExistsRwrt = 'File %s exists, overwrite?';
rsMsgFileChangedSave = 'File %s changed, save?';
rsMsgNewFile = 'New file';
rsMsgDelFlDr = 'Delete %d selected files/directories?';
rsMsgDelSel = 'Delete selected "%s"?';
rsMsgCpFlDr = 'Copy %d selected files/directories?';
rsMsgCpSel = 'Copy selected "%s"?';
rsMsgRenFlDr = 'Rename/move %d selected files/directories?';
rsMsgRenSel = 'Rename/move selected "%s"?';
rsMsgErrForceDir = 'Can not create directory %s!';
rsMsgSelected = 'Selected %s of %s in %d of %d files';
rsMsgPopUpHotAdd = '&Add %s';
rsMsgPopUpHotCnf = '&Configure';
rsDlgButtons = '&OK;&No;&Yes;&Cancel;&None;&Append;&Rewrite;Rewrite &All;&Skip;S&kip All;All;';
rsSpaceMsg = 'Files:%d, Dirs:%d, Size: %d bytes';
rsSelectDir = 'Select a directory';
rsMarkPlus = 'Select mask';
rsMarkMinus = 'Unselect mask';
rsMaskInput = 'Input mask:';
rsFreeMsg = 'Free %s from %s bytes';
rsMsgErrDirExists = 'Directory %s exists!';
rsMsgPopUpHotDelete = '&Delete %s';
rsMsgDiskNotAvail = 'Disk is not available';
rsMsgChDirFailed = 'ChDir to [%s] failed!';
rsMsgNoFreeSpaceCont = 'No enough free space on target drive, Continue?';
rsMsgNoFreeSpaceRetry = 'No enough free space on target drive, Retry?';
// for context menu
rsMnuActions = 'Actions';
// wcx module messages
rsMsgSelLocNextVol = 'Please select location of next volume';
rsMsgNextVolUnpack = 'Next volume will be unpacked';
// wcx module errors messages
rsMsgErrEndArchive = 'No more files in archive';
rsMsgErrNoMemory = 'Not enough memory';
rsMsgErrBadData = 'Data is bad';
rsMsgErrBadArchive = 'CRC error in archive data';
rsMsgErrUnknownFormat = 'Archive format unknown';
rsMsgErrEOpen = 'Cannot open existing file';
rsMsgErrECreate = 'Cannot create file';
rsMsgErrEClose = 'Error closing file';
rsMsgErrERead = 'Error reading from file';
rsMsgErrEWrite = 'Error writing to file';
rsMsgErrSmallBuf = 'Buffer too small';
rsMsgErrEAborted = 'Function aborted by user';
rsMsgErrNoFiles = 'No files found';
rsMsgErrTooManyFiles = 'Too many files to pack';
rsMsgErrNotSupported = 'Function not supported!';
// Log file
rsMsgLogSuccess = 'Done: ';
rsMsgLogError = 'Error: ';
rsMsgLogInfo = 'Info: ';
rsMsgLogCopy = 'Copy file %s';
rsMsgLogMove = 'Move file %s';
rsMsgLogDelete = 'Delete file %s';
rsMsgLogLink = 'Create link %s';
rsMsgLogSymLink = 'Create symlink %s';
rsMsgLogMkDir = 'Create directory %s';
rsMsgLogRmDir = 'Remove directory %s';
rsMsgLogPack = 'Pack to file %s';
rsMsgLogExtract = 'Extract file %s';
rsSavePosition = '&Save position';
rsPositionSaved = 'Position saved.';
// File operations dialog
rsDlgDel = 'Delete file(s)';
rsDlgCp = 'Copy file(s)';
rsDlgMv = 'Move file(s)';
rsDlgPack = 'Packing...';
rsDlgExtract = 'Extracting...';
// Viewer
rsViewAboutText = 'Internal Viewer of Double Commander.';
// Columns in file panel
rsColName = 'Name';
rsColExt = 'Ext';
rsColSize = 'Size';
rsColDate = 'Date';
rsColAttr = 'Attr';
// Configure custom columns dialog
rsConfColDelete = 'Delete';
rsConfColCaption = 'Caption';
rsConfColWidth = 'Width';
rsConfColAlign = 'Align';
rsConfColFieldCont = 'Field contents';
rsConfColMove='Move';
rsConfColConfig='Config';
rsConfCustHeader='Customize column: ';
// File properties dialog
rsPropsYes = 'Yes (%s)';
rsPropsNo = 'No';
rsPropsFolder = 'Directory';
rsPropsFile = 'File';
rsPropsSpChrDev = 'Special character device';
rsPropsSpBlkDev = 'Special block device';
rsPropsNmdPipe = 'Named pipe';
rsPropsSymLink = 'Symbolic link';
rsPropsSocket = 'Socket';
rsPropsUnknownType = 'Unknown type';
//Compare by content Dialog
rsCompareDiffs = 'Number of changes:';
// Find files dialog
rsFindScaned = 'Scanned: %d';
rsFindWhereBeg = 'Begin at';
rsFindDirNoEx = 'Directory %s does not exist!';
// Symlink dialog
rsSymErrCreate = 'Error creating symlink.';
// Hardlink dialog
rsHardErrCreate = 'Error creating hardlink.';
// Linker dialog
rsLinkMsgOK = 'Linker complete';
// Splitter dialog
rsSplitSelDir = 'Select directory:';
rsSplitErrFileSize = 'Incorrect file size format!';
rsSplitErrDirectory = 'Unable to create target directory!';
rsSplitErrSplitFile = 'Unable to split the file!';
rsSplitMsgCreated = 'Created:';
rsSplitMsgSize = 'size:';
// MultiRename dialog
rsMulRenFileNameStyleList = 'No change;UPPERCASE;lowercase;First Char Big;';
// Edit
rsEditNewFile = 'new.txt';
rsEditNewOpen = 'Open file';
rsEditNewFileName = 'Filename:';
// Edit search
rsEditSearchCaption = 'Search';
rsEditSearchForLbl = '&Search for:';
rsEditSearchFrw = '&Forward';
rsEditSearchBack = '&Backward';
rsEditSearchCase = 'C&ase sensitivity';
rsEditSearchWholeWord ='&Whole words only';
rsEditSearchCaret ='Search from &caret';
rsEditSearchSelect ='Selected &text only';
rsEditSearchOptions ='Option';
rsEditSearchDirection = 'Direction';
rsEditSearchReplace ='Replace';
rsEditSearchReplaceWith ='&Replace with:';
// Options dialog
rsOptLanguage = 'Language';
rsOptBehav = 'Behaviors';
rsOptTools = 'Tools';
rsOptFonts = 'Fonts';
rsOptColors = 'Colors';
rsOptFilePanels = 'File panels';
rsOptFileTypes = 'File types';
rsOptHotKeys = 'Hot keys';
rsOptPlugins = 'Plugins';
rsOptLayout = 'Layout';
rsOptFileOp = 'File operations';
rsOptFolderTabs = 'Folder tabs';
rsOptLog = 'Log';
rsOptConfig = 'Configuration';
rsOptQuickSearch = 'Quick search';
rsOptColumns = 'Columns';
//-------------------------------
rsOptLineByLineCursor = 'Line by line with cursor movement';
rsOptLineByLine = 'Line by line';
rsOptPageByPage = 'Page by page';
//Columns Menu
rsMenuConfigureCustomColumns= 'Configure custom columns';
rsMenuConfigureThisCustomColumn= 'Configure this custom columns view';
function GetLanguageName(poFileName : String) : String;
procedure lngLoadLng(const sFileName:String);
procedure DoLoadLng;
implementation
uses
Classes, SysUtils, GetText, Translations, uGlobs, uGlobsPaths, uTranslator,
LCLProc, uFileProcs, uOSUtils;
function GetLanguageName(poFileName : String) : String;
var
poFile : Integer;
sLine : String;
iPos1,
iPos2 : Integer;
begin
poFile:= mbFileOpen(poFileName, fmOpenRead);
// find first msgid line
FileReadLn(poFile, sLine);
while Pos('msgid', sLine) = 0 do
FileReadLn(poFile, sLine);
// read msgstr line
FileReadLn(poFile, sLine);
repeat
FileReadLn(poFile, sLine);
// find language name line
if Pos('X-Poedit-Language:', sLine) <> 0 then
begin
iPos1 := Pos(':', sLine) + 2;
iPos2 := Pos('\n', sLine) - 1;
Result := Copy(sLine, iPos1, (iPos2 - iPos1) + 1);
FileClose(poFile);
Exit;
end;
until Pos('msgid', sLine) = 1;
FileClose(poFile);
Result := 'Language name not found';
end;
procedure lngLoadLng(const sFileName:String);
var
Lang, FallbackLang : String;
begin
{ Localization }
if sFileName = 'doublecmd.po' then Exit; // default english interface
DebugLn('Loading lng file: ' + gpLngDir + sFileName);
gPOFileName := sFileName;
if not FileExists(gpLngDir + gPOFileName) then
begin
gPOFileName := 'doublecmd.%s.po';
GetLanguageIDs(Lang, FallbackLang);
gPOFileName := Format(gPOFileName,[FallbackLang]);
end;
if not FileExists(gpLngDir + gPOFileName) then
begin
gPOFileName := Format(gPOFileName,[Lang]);
end;
if FileExists(gpLngDir + gPOFileName) then
begin
Translations.TranslateUnitResourceStrings('uLng', gpLngDir + gPOFileName);
LRSTranslator := TTranslator.Create(gpLngDir + gPOFileName);
end;
end;
procedure DoLoadLng;
begin
lngLoadLng(gPOFileName);
end;
end.
{
Double Commander
-------------------------------------------------------------------------
Localization core unit
Copyright (C) 2007 Koblov Alexander (Alexx2000@mail.ru)
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
}
unit uLng;
{$mode objfpc}{$H+}
interface
uses
LResources;
resourcestring
rsMsgNotDelete = 'Can not delete file %s';
rsMsgFileExistsRwrt = 'File %s exists, overwrite?';
rsMsgFileChangedSave = 'File %s changed, save?';
rsMsgNewFile = 'New file';
rsMsgDelFlDr = 'Delete %d selected files/directories?';
rsMsgDelSel = 'Delete selected "%s"?';
rsMsgCpFlDr = 'Copy %d selected files/directories?';
rsMsgCpSel = 'Copy selected "%s"?';
rsMsgRenFlDr = 'Rename/move %d selected files/directories?';
rsMsgRenSel = 'Rename/move selected "%s"?';
rsMsgErrForceDir = 'Can not create directory %s!';
rsMsgSelected = 'Selected %s of %s in %d of %d files';
rsMsgPopUpHotAdd = '&Add %s';
rsMsgPopUpHotCnf = '&Configure';
rsDlgButtons = '&OK;&No;&Yes;&Cancel;&None;&Append;&Rewrite;Rewrite &All;&Skip;S&kip All;All;';
rsSpaceMsg = 'Files:%d, Dirs:%d, Size: %d bytes';
rsSelectDir = 'Select a directory';
rsMarkPlus = 'Select mask';
rsMarkMinus = 'Unselect mask';
rsMaskInput = 'Input mask:';
rsFreeMsg = 'Free %s from %s bytes';
rsMsgErrDirExists = 'Directory %s exists!';
rsMsgPopUpHotDelete = '&Delete %s';
rsMsgDiskNotAvail = 'Disk is not available';
rsMsgChDirFailed = 'ChDir to [%s] failed!';
rsMsgNoFreeSpaceCont = 'No enough free space on target drive, Continue?';
rsMsgNoFreeSpaceRetry = 'No enough free space on target drive, Retry?';
// for context menu
rsMnuActions = 'Actions';
rsMnuMount = 'Mount';
rsMnuUmount = 'Umount';
rsMnuEject = 'Eject';
// wcx module messages
rsMsgSelLocNextVol = 'Please select location of next volume';
rsMsgNextVolUnpack = 'Next volume will be unpacked';
// wcx module errors messages
rsMsgErrEndArchive = 'No more files in archive';
rsMsgErrNoMemory = 'Not enough memory';
rsMsgErrBadData = 'Data is bad';
rsMsgErrBadArchive = 'CRC error in archive data';
rsMsgErrUnknownFormat = 'Archive format unknown';
rsMsgErrEOpen = 'Cannot open existing file';
rsMsgErrECreate = 'Cannot create file';
rsMsgErrEClose = 'Error closing file';
rsMsgErrERead = 'Error reading from file';
rsMsgErrEWrite = 'Error writing to file';
rsMsgErrSmallBuf = 'Buffer too small';
rsMsgErrEAborted = 'Function aborted by user';
rsMsgErrNoFiles = 'No files found';
rsMsgErrTooManyFiles = 'Too many files to pack';
rsMsgErrNotSupported = 'Function not supported!';
// Log file
rsMsgLogSuccess = 'Done: ';
rsMsgLogError = 'Error: ';
rsMsgLogInfo = 'Info: ';
rsMsgLogCopy = 'Copy file %s';
rsMsgLogMove = 'Move file %s';
rsMsgLogDelete = 'Delete file %s';
rsMsgLogLink = 'Create link %s';
rsMsgLogSymLink = 'Create symlink %s';
rsMsgLogMkDir = 'Create directory %s';
rsMsgLogRmDir = 'Remove directory %s';
rsMsgLogPack = 'Pack to file %s';
rsMsgLogExtract = 'Extract file %s';
rsSavePosition = '&Save position';
rsPositionSaved = 'Position saved.';
// File operations dialog
rsDlgDel = 'Delete file(s)';
rsDlgCp = 'Copy file(s)';
rsDlgMv = 'Move file(s)';
rsDlgPack = 'Packing...';
rsDlgExtract = 'Extracting...';
// Viewer
rsViewAboutText = 'Internal Viewer of Double Commander.';
// Columns in file panel
rsColName = 'Name';
rsColExt = 'Ext';
rsColSize = 'Size';
rsColDate = 'Date';
rsColAttr = 'Attr';
// Configure custom columns dialog
rsConfColDelete = 'Delete';
rsConfColCaption = 'Caption';
rsConfColWidth = 'Width';
rsConfColAlign = 'Align';
rsConfColFieldCont = 'Field contents';
rsConfColMove='Move';
rsConfColConfig='Config';
rsConfCustHeader='Customize column: ';
// File properties dialog
rsPropsYes = 'Yes (%s)';
rsPropsNo = 'No';
rsPropsFolder = 'Directory';
rsPropsFile = 'File';
rsPropsSpChrDev = 'Special character device';
rsPropsSpBlkDev = 'Special block device';
rsPropsNmdPipe = 'Named pipe';
rsPropsSymLink = 'Symbolic link';
rsPropsSocket = 'Socket';
rsPropsUnknownType = 'Unknown type';
//Compare by content Dialog
rsCompareDiffs = 'Number of changes:';
// Find files dialog
rsFindScaned = 'Scanned: %d';
rsFindWhereBeg = 'Begin at';
rsFindDirNoEx = 'Directory %s does not exist!';
// Symlink dialog
rsSymErrCreate = 'Error creating symlink.';
// Hardlink dialog
rsHardErrCreate = 'Error creating hardlink.';
// Linker dialog
rsLinkMsgOK = 'Linker complete';
// Splitter dialog
rsSplitSelDir = 'Select directory:';
rsSplitErrFileSize = 'Incorrect file size format!';
rsSplitErrDirectory = 'Unable to create target directory!';
rsSplitErrSplitFile = 'Unable to split the file!';
rsSplitMsgCreated = 'Created:';
rsSplitMsgSize = 'size:';
// MultiRename dialog
rsMulRenFileNameStyleList = 'No change;UPPERCASE;lowercase;First Char Big;';
// Edit
rsEditNewFile = 'new.txt';
rsEditNewOpen = 'Open file';
rsEditNewFileName = 'Filename:';
// Edit search
rsEditSearchCaption = 'Search';
rsEditSearchForLbl = '&Search for:';
rsEditSearchFrw = '&Forward';
rsEditSearchBack = '&Backward';
rsEditSearchCase = 'C&ase sensitivity';
rsEditSearchWholeWord ='&Whole words only';
rsEditSearchCaret ='Search from &caret';
rsEditSearchSelect ='Selected &text only';
rsEditSearchOptions ='Option';
rsEditSearchDirection = 'Direction';
rsEditSearchReplace ='Replace';
rsEditSearchReplaceWith ='&Replace with:';
// Options dialog
rsOptLanguage = 'Language';
rsOptBehav = 'Behaviors';
rsOptTools = 'Tools';
rsOptFonts = 'Fonts';
rsOptColors = 'Colors';
rsOptFilePanels = 'File panels';
rsOptFileTypes = 'File types';
rsOptHotKeys = 'Hot keys';
rsOptPlugins = 'Plugins';
rsOptLayout = 'Layout';
rsOptFileOp = 'File operations';
rsOptFolderTabs = 'Folder tabs';
rsOptLog = 'Log';
rsOptConfig = 'Configuration';
rsOptQuickSearch = 'Quick search';
rsOptColumns = 'Columns';
//-------------------------------
rsOptLineByLineCursor = 'Line by line with cursor movement';
rsOptLineByLine = 'Line by line';
rsOptPageByPage = 'Page by page';
//Columns Menu
rsMenuConfigureCustomColumns= 'Configure custom columns';
rsMenuConfigureThisCustomColumn= 'Configure this custom columns view';
function GetLanguageName(poFileName : String) : String;
procedure lngLoadLng(const sFileName:String);
procedure DoLoadLng;
implementation
uses
Classes, SysUtils, GetText, Translations, uGlobs, uGlobsPaths, uTranslator,
LCLProc, uFileProcs, uOSUtils;
function GetLanguageName(poFileName : String) : String;
var
poFile : Integer;
sLine : String;
iPos1,
iPos2 : Integer;
begin
poFile:= mbFileOpen(poFileName, fmOpenRead);
// find first msgid line
FileReadLn(poFile, sLine);
while Pos('msgid', sLine) = 0 do
FileReadLn(poFile, sLine);
// read msgstr line
FileReadLn(poFile, sLine);
repeat
FileReadLn(poFile, sLine);
// find language name line
if Pos('X-Poedit-Language:', sLine) <> 0 then
begin
iPos1 := Pos(':', sLine) + 2;
iPos2 := Pos('\n', sLine) - 1;
Result := Copy(sLine, iPos1, (iPos2 - iPos1) + 1);
FileClose(poFile);
Exit;
end;
until Pos('msgid', sLine) = 1;
FileClose(poFile);
Result := 'Language name not found';
end;
procedure lngLoadLng(const sFileName:String);
var
Lang, FallbackLang : String;
begin
{ Localization }
if sFileName = 'doublecmd.po' then Exit; // default english interface
DebugLn('Loading lng file: ' + gpLngDir + sFileName);
gPOFileName := sFileName;
if not FileExists(gpLngDir + gPOFileName) then
begin
gPOFileName := 'doublecmd.%s.po';
GetLanguageIDs(Lang, FallbackLang);
gPOFileName := Format(gPOFileName,[FallbackLang]);
end;
if not FileExists(gpLngDir + gPOFileName) then
begin
gPOFileName := Format(gPOFileName,[Lang]);
end;
if FileExists(gpLngDir + gPOFileName) then
begin
Translations.TranslateUnitResourceStrings('uLng', gpLngDir + gPOFileName);
LRSTranslator := TTranslator.Create(gpLngDir + gPOFileName);
end;
end;
procedure DoLoadLng;
begin
lngLoadLng(gPOFileName);
end;
end.

1230
uosforms.pas
View file

File diff suppressed because it is too large Load diff