Tools, GLazRes: i18n + Hungarian translation by Péter Gábor, bug #29777; also added Russian translation.

git-svn-id: trunk@51895 -
This commit is contained in:
maxim 2016-03-09 23:10:15 +00:00
parent 86b0d4f7ed
commit db4dd486f3
8 changed files with 438 additions and 6 deletions

3
.gitattributes vendored
View File

@ -8722,6 +8722,9 @@ tools/glazres/glazres.lpi svneol=native#text/plain
tools/glazres/glazres.lpr svneol=native#text/pascal
tools/glazres/glazresmain.lfm svneol=native#text/plain
tools/glazres/glazresmain.pp svneol=native#text/pascal
tools/glazres/languages/glazres.hu.po svneol=native#text/plain
tools/glazres/languages/glazres.po svneol=native#text/plain
tools/glazres/languages/glazres.ru.po svneol=native#text/plain
tools/iconvtable.lpi svneol=native#text/plain
tools/iconvtable.pas svneol=native#text/plain
tools/iconvtable_dbcs.lpi svneol=native#text/plain

View File

@ -12,7 +12,8 @@
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
<EnableI18N Value="True"/>
<OutDir Value="languages"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>

View File

@ -7,7 +7,7 @@ uses
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, glazresmain;
Forms, glazresmain, DefaultTranslator;
{$R *.res}

View File

@ -184,7 +184,7 @@ object GLazResForm: TGLazResForm
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
LCLVersion = '1.5'
LCLVersion = '1.7'
object LrsLabel: TLabel
Left = 16
Height = 17
@ -376,9 +376,7 @@ object GLazResForm: TGLazResForm
Width = 552
OnAcceptFileName = DestEdtAcceptFileName
DialogKind = dkSave
DialogTitle = 'Save resourcefile as'
DialogOptions = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
Filter = 'Lazarus Resource Files|*.lrs|All Files|*'
FilterIndex = 0
DefaultExt = 'lrs'
HideDirectories = False

View File

@ -95,7 +95,7 @@ implementation
{$R *.lfm}
const
resourcestring
ErrConvertToText = 'ERROR: unable to convert Delphi form to text: "%s"';
ErrFileNotFound = 'ERROR: File not found: "%s"';
ErrFileIsResource = 'ERROR: Cannot add resource file to itself ("%s")';
@ -109,6 +109,15 @@ const
MsgWrongExt = 'Filename does not have the required extension: fix it?';
DESaveResourcefileAs = 'Save resourcefile as';
DEFilter = 'Lazarus Resource Files|*.lrs|All Files|*';
ODOpenExistingFile = 'Open existing file';
OPDOpenExistingPicture = 'Open existing picture';
OPDFilter ='Graphic (*.png;*.xpm;*.bmp;*.cur;*.ico;*.icns;*.jpeg;*.jpg;*.jpe;*.jfif;*.tif;*.tiff;*.gif;*.pbm;*.pgm;*.ppm;*.gif;*.tga)|*.png;*.xpm;*.bmp;*.cur;*.ico;*.icns;*.jpeg;*.jpg;*.jpe;*.jfif;*.tif;*.tiff;*.gif;*.pbm;*.pgm;*.ppm;*.gif;*.tga|Portable Network Graphic (*.png)|*.png|Pixmap (*.xpm)|*.xpm|Bitmaps (*.bmp)|*.bmp|Cursor (*.cur)|*.cur|Icon (*.ico)|*.ico|Mac OS X Icon (*.icns)|*.icns|Joint Picture Expert Group (*.jpeg;*.jpg;*.jpe;*.jfif)|*.jpeg;*.jpg;*.jpe;*.jfif|Tagged Image File Format (*.tif;*.tiff)|*.tif;*.tiff|Graphics Interchange Format (*.gif)|*.gif|Portable PixMap (*.pbm;*.pgm;*.ppm)|*.pbm;*.pgm;*.ppm|Animated GIF (*.gif)|*.gif|TGA Image File (*.tga)|*.tga|';
OPDFilterAll = 'All files';
CBtnCancel = 'Cancel';
const
AppName = 'GLazRes';
IniName = {$ifdef windows}'GLazRes.ini'{$else}'glazres.conf'{$endif};
scPosition = 'Position';
@ -139,6 +148,13 @@ begin
FIniFileName := GetAppConfigDir(False) + IniName;
CreateAnchors;
LoadWindowGeometry;
DestEdt.DialogTitle := DESaveResourcefileAs;
DestEdt.Filter := DEFilter;
OpenDialog.Title := ODOpenExistingFile;
//OpenDialog.Filter := OPDFilterAll + {$IFDEF WINDOWS} ' (*.*)|*.*|' {$ELSE} ' (*)|*|' {$ENDIF} ;
OpenPictureDialog.Title := OPDOpenExistingPicture;
OpenPictureDialog.Filter := OPDFilter + OPDFilterAll + {$IFDEF WINDOWS} ' (*.*)|*.*|' {$ELSE} ' (*)|*|' {$ENDIF} ;
CloseBtn.Caption := CBtnCancel;
end;
procedure TGLazResForm.FormShow(Sender: TObject);

View File

@ -0,0 +1,142 @@
msgid ""
msgstr ""
"Project-Id-Version: \n"
"POT-Creation-Date: \n"
"PO-Revision-Date: \n"
"Last-Translator: Péter Gábor <ptrg@freemail.hu>\n"
"Language-Team: Magyar (Hungarian)\n"
"Language: hu\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"X-Generator: Poedit 1.5.4\n"
#: glazresmain.cbtncancel
msgid "Cancel"
msgstr "Mégse"
#: glazresmain.defilter
msgctxt "glazresmain.defilter"
msgid "Lazarus Resource Files|*.lrs|All Files|*"
msgstr "Lazarus erőforrásfájlok|*.lrs|Minden fájl|*"
#: glazresmain.desaveresourcefileas
msgctxt "glazresmain.desaveresourcefileas"
msgid "Save resourcefile as"
msgstr "Erőforrásfájl mentése"
#: glazresmain.errconverttotext
msgid "ERROR: unable to convert Delphi form to text: \"%s\""
msgstr "HIBA: A Delphi form nem alakítható át szöveggé: \"%s\""
#: glazresmain.errcreate
msgid "ERROR: Cannot create \"%s\""
msgstr "HIBA: Nem hozható létre: \"%s\""
#: glazresmain.errfileisresource
msgid "ERROR: Cannot add resource file to itself (\"%s\")"
msgstr "HIBA: Az erőforrás nem építhető önmagába (\"%s\")"
#: glazresmain.errfilenotfound
msgid "ERROR: File not found: \"%s\""
msgstr "HIBA: a fájl nem található: \"%s\""
#: glazresmain.errnoresourcename
msgid "ERROR: No resourcename found for \"%s\""
msgstr "HIBA: Nem találhatók erőforrások ehhez: \"%s\""
#: glazresmain.errread
msgid "ERROR: Cannot read from \"%s\""
msgstr "HIBA: Nem lehet olvasni innen: \"%s\""
#: glazresmain.msgcreatinglrs
msgid "Creating \"%s\""
msgstr "„%s” létrehozása"
#: glazresmain.msgprocessing
msgid "Processing \"%s\""
msgstr "\"%s\" feldolgozása"
#: glazresmain.msgresourcenametype
msgid " Resource name = \"%s\", Type = \"%s\""
msgstr " Erőforrás neve = \"%s\", típusa = \"%s\""
#: glazresmain.msgsuccess
msgid ""
"Done.\n"
"Number of resources added: %d.\n"
msgstr ""
"Kész.\n"
"Hozzáadott erőforrások száma: %d\n"
#: glazresmain.msgwrongext
msgid "Filename does not have the required extension: fix it?"
msgstr "A fájl kiterjesztése nem megfelelő. Javítás?"
#: glazresmain.odopenexistingfile
msgctxt "glazresmain.odopenexistingfile"
msgid "Open existing file"
msgstr "Létező fájl megnyitása"
#: glazresmain.opdfilter
msgctxt "glazresmain.opdfilter"
msgid "Graphic (*.png;*.xpm;*.bmp;*.cur;*.ico;*.icns;*.jpeg;*.jpg;*.jpe;*.jfif;*.tif;*.tiff;*.gif;*.pbm;*.pgm;*.ppm;*.gif;*.tga)|*.png;*.xpm;*.bmp;*.cur;*.ico;*.icns;*.jpeg;*.jpg;*.jpe;*.jfif;*.tif;*.tiff;*.gif;*.pbm;*.pgm;*.ppm;*.gif;*.tga|Portable Network Graphic (*.png)|*.png|Pixmap (*.xpm)|*.xpm|Bitmaps (*.bmp)|*.bmp|Cursor (*.cur)|*.cur|Icon (*.ico)|*.ico|Mac OS X Icon (*.icns)|*.icns|Joint Picture Expert Group (*.jpeg;*.jpg;*.jpe;*.jfif)|*.jpeg;*.jpg;*.jpe;*.jfif|Tagged Image File Format (*.tif;*.tiff)|*.tif;*.tiff|Graphics Interchange Format (*.gif)|*.gif|Portable PixMap (*.pbm;*.pgm;*.ppm)|*.pbm;*.pgm;*.ppm|Animated GIF (*.gif)|*.gif|TGA Image File (*.tga)|*.tga|"
msgstr "Grafika (*.png;*.xpm;*.bmp;*.cur;*.ico;*.icns;*.jpeg;*.jpg;*.jpe;*.jfif;*.tif;*.tiff;*.gif;*.pbm;*.pgm;*.ppm;*.gif;*.tga)|*.png;*.xpm;*.bmp;*.cur;*.ico;*.icns;*.jpeg;*.jpg;*.jpe;*.jfif;*.tif;*.tiff;*.gif;*.pbm;*.pgm;*.ppm;*.gif;*.tga|Portable Network Graphic (*.png)|*.png|Pixmap (*.xpm)|*.xpm|Bitképek (*.bmp)|*.bmp|Kurzor (*.cur)|*.cur|Ikon (*.ico)|*.ico|Mac OS X Ikon (*.icns)|*.icns|Joint Picture Expert Group (*.jpeg;*.jpg;*.jpe;*.jfif)|*.jpeg;*.jpg;*.jpe;*.jfif|Tagged Image File Format (*.tif;*.tiff)|*.tif;*.tiff|Graphics Interchange Format (*.gif)|*.gif|Portable PixMap (*.pbm;*.pgm;*.ppm)|*.pbm;*.pgm;*.ppm|Animált GIF (*.gif)|*.gif|TGA képfájl (*.tga)|*.tga|"
#: glazresmain.opdfilterall
msgid "All files"
msgstr "Minden fájl"
#: glazresmain.opdopenexistingpicture
msgctxt "glazresmain.opdopenexistingpicture"
msgid "Open existing picture"
msgstr "Létező kép megnyitása"
#: tglazresform.addanybtn.hint
msgid "Add (any kind of) files to the list"
msgstr "Fájlok hozzáadása a listához (bármilyen típusú)"
#: tglazresform.addimgbtn.hint
msgid "Add images to the list"
msgstr "Képek hozzáadása a listához"
#: tglazresform.caption
msgid "LRS Builder"
msgstr "LRS építő"
#: tglazresform.clearbtn.caption
msgid "Clear"
msgstr "Kiürítés"
#: tglazresform.clearbtn.hint
msgid "Cleare the entire list"
msgstr "A lista kiürítése"
#: tglazresform.closebtn.hint
msgid "Exit the program"
msgstr "Kilépés a programból"
#: tglazresform.deletebtn.hint
msgid "Delete selected files from the list"
msgstr "Kiválasztott fájlok törlése a listából"
#: tglazresform.fileslabel.caption
msgid "Files to include"
msgstr "Beemelendő fájlok"
#: tglazresform.lrslabel.caption
msgid "Lazarus Resource Filename"
msgstr "Lazarus erőforrásfájl neve"
#: tglazresform.messageslabel.caption
msgid "Messages"
msgstr "Üzenetek"
#: tglazresform.startbtn.caption
msgid "Create LRS"
msgstr "LRS létrehozása"
#: tglazresform.startbtn.hint
msgid "Create the output LRS file"
msgstr "Az LRS kimeneti fájl létrehozása"

View File

@ -0,0 +1,130 @@
msgid ""
msgstr "Content-Type: text/plain; charset=UTF-8"
#: glazresmain.cbtncancel
msgid "Cancel"
msgstr ""
#: glazresmain.defilter
msgctxt "glazresmain.defilter"
msgid "Lazarus Resource Files|*.lrs|All Files|*"
msgstr ""
#: glazresmain.desaveresourcefileas
msgctxt "glazresmain.desaveresourcefileas"
msgid "Save resourcefile as"
msgstr ""
#: glazresmain.errconverttotext
msgid "ERROR: unable to convert Delphi form to text: \"%s\""
msgstr ""
#: glazresmain.errcreate
msgid "ERROR: Cannot create \"%s\""
msgstr ""
#: glazresmain.errfileisresource
msgid "ERROR: Cannot add resource file to itself (\"%s\")"
msgstr ""
#: glazresmain.errfilenotfound
msgid "ERROR: File not found: \"%s\""
msgstr ""
#: glazresmain.errnoresourcename
msgid "ERROR: No resourcename found for \"%s\""
msgstr ""
#: glazresmain.errread
msgid "ERROR: Cannot read from \"%s\""
msgstr ""
#: glazresmain.msgcreatinglrs
msgid "Creating \"%s\""
msgstr ""
#: glazresmain.msgprocessing
msgid "Processing \"%s\""
msgstr ""
#: glazresmain.msgresourcenametype
msgid " Resource name = \"%s\", Type = \"%s\""
msgstr ""
#: glazresmain.msgsuccess
msgid ""
"Done.\n"
"Number of resources added: %d.\n"
msgstr ""
#: glazresmain.msgwrongext
msgid "Filename does not have the required extension: fix it?"
msgstr ""
#: glazresmain.odopenexistingfile
msgctxt "glazresmain.odopenexistingfile"
msgid "Open existing file"
msgstr ""
#: glazresmain.opdfilter
msgctxt "glazresmain.opdfilter"
msgid "Graphic (*.png;*.xpm;*.bmp;*.cur;*.ico;*.icns;*.jpeg;*.jpg;*.jpe;*.jfif;*.tif;*.tiff;*.gif;*.pbm;*.pgm;*.ppm;*.gif;*.tga)|*.png;*.xpm;*.bmp;*.cur;*.ico;*.icns;*.jpeg;*.jpg;*.jpe;*.jfif;*.tif;*.tiff;*.gif;*.pbm;*.pgm;*.ppm;*.gif;*.tga|Portable Network Graphic (*.png)|*.png|Pixmap (*.xpm)|*.xpm|Bitmaps (*.bmp)|*.bmp|Cursor (*.cur)|*.cur|Icon (*.ico)|*.ico|Mac OS X Icon (*.icns)|*.icns|Joint Picture Expert Group (*.jpeg;*.jpg;*.jpe;*.jfif)|*.jpeg;*.jpg;*.jpe;*.jfif|Tagged Image File Format (*.tif;*.tiff)|*.tif;*.tiff|Graphics Interchange Format (*.gif)|*.gif|Portable PixMap (*.pbm;*.pgm;*.ppm)|*.pbm;*.pgm;*.ppm|Animated GIF (*.gif)|*.gif|TGA Image File (*.tga)|*.tga|"
msgstr ""
#: glazresmain.opdfilterall
msgid "All files"
msgstr ""
#: glazresmain.opdopenexistingpicture
msgctxt "glazresmain.opdopenexistingpicture"
msgid "Open existing picture"
msgstr ""
#: tglazresform.addanybtn.hint
msgid "Add (any kind of) files to the list"
msgstr ""
#: tglazresform.addimgbtn.hint
msgid "Add images to the list"
msgstr ""
#: tglazresform.caption
msgid "LRS Builder"
msgstr ""
#: tglazresform.clearbtn.caption
msgid "Clear"
msgstr ""
#: tglazresform.clearbtn.hint
msgid "Cleare the entire list"
msgstr ""
#: tglazresform.closebtn.hint
msgid "Exit the program"
msgstr ""
#: tglazresform.deletebtn.hint
msgid "Delete selected files from the list"
msgstr ""
#: tglazresform.fileslabel.caption
msgid "Files to include"
msgstr ""
#: tglazresform.lrslabel.caption
msgid "Lazarus Resource Filename"
msgstr ""
#: tglazresform.messageslabel.caption
msgid "Messages"
msgstr ""
#: tglazresform.startbtn.caption
msgid "Create LRS"
msgstr ""
#: tglazresform.startbtn.hint
msgid "Create the output LRS file"
msgstr ""

View File

@ -0,0 +1,142 @@
msgid ""
msgstr ""
"Content-Type: text/plain; charset=UTF-8\n"
"Project-Id-Version: \n"
"POT-Creation-Date: \n"
"PO-Revision-Date: \n"
"Last-Translator: Maxim Ganetsky <maxkill@mail.ru>\n"
"Language-Team: \n"
"MIME-Version: 1.0\n"
"Content-Transfer-Encoding: 8bit\n"
"Language: ru\n"
"X-Generator: Poedit 1.7.7\n"
#: glazresmain.cbtncancel
msgid "Cancel"
msgstr "Отмена"
#: glazresmain.defilter
msgctxt "glazresmain.defilter"
msgid "Lazarus Resource Files|*.lrs|All Files|*"
msgstr "Файлы ресурсов Lazarus|*.lrs|Все файлы|*"
#: glazresmain.desaveresourcefileas
msgctxt "glazresmain.desaveresourcefileas"
msgid "Save resourcefile as"
msgstr "Сохранить файл ресурсов как"
#: glazresmain.errconverttotext
msgid "ERROR: unable to convert Delphi form to text: \"%s\""
msgstr "ОШИБКА: невозможно преобразовать форму Delphi в текст: \"%s\""
#: glazresmain.errcreate
msgid "ERROR: Cannot create \"%s\""
msgstr "ОШИБКА: невозможно создать \"%s\""
#: glazresmain.errfileisresource
msgid "ERROR: Cannot add resource file to itself (\"%s\")"
msgstr "ОШИБКА: невозможно добавить файл ресурсов в него самого (\"%s\")"
#: glazresmain.errfilenotfound
msgid "ERROR: File not found: \"%s\""
msgstr "ОШИБКА: файл не найден: \"%s\""
#: glazresmain.errnoresourcename
msgid "ERROR: No resourcename found for \"%s\""
msgstr "ОШИБКА: не найдено имени ресурса для \"%s\""
#: glazresmain.errread
msgid "ERROR: Cannot read from \"%s\""
msgstr "ОШИБКА: невозможно прочитать \"%s\""
#: glazresmain.msgcreatinglrs
msgid "Creating \"%s\""
msgstr "Создание \"%s\""
#: glazresmain.msgprocessing
msgid "Processing \"%s\""
msgstr "Обработка \"%s\""
#: glazresmain.msgresourcenametype
msgid " Resource name = \"%s\", Type = \"%s\""
msgstr " Имя ресурса = \"%s\", Тип = \"%s\""
#: glazresmain.msgsuccess
msgid ""
"Done.\n"
"Number of resources added: %d.\n"
msgstr ""
"Готово.\n"
"Добавлено ресурсов: %d.\n"
#: glazresmain.msgwrongext
msgid "Filename does not have the required extension: fix it?"
msgstr "Файл не имеет требуемого расширения. Добавить его?"
#: glazresmain.odopenexistingfile
msgctxt "glazresmain.odopenexistingfile"
msgid "Open existing file"
msgstr "Открыть существующий файл"
#: glazresmain.opdfilter
msgctxt "glazresmain.opdfilter"
msgid "Graphic (*.png;*.xpm;*.bmp;*.cur;*.ico;*.icns;*.jpeg;*.jpg;*.jpe;*.jfif;*.tif;*.tiff;*.gif;*.pbm;*.pgm;*.ppm;*.gif;*.tga)|*.png;*.xpm;*.bmp;*.cur;*.ico;*.icns;*.jpeg;*.jpg;*.jpe;*.jfif;*.tif;*.tiff;*.gif;*.pbm;*.pgm;*.ppm;*.gif;*.tga|Portable Network Graphic (*.png)|*.png|Pixmap (*.xpm)|*.xpm|Bitmaps (*.bmp)|*.bmp|Cursor (*.cur)|*.cur|Icon (*.ico)|*.ico|Mac OS X Icon (*.icns)|*.icns|Joint Picture Expert Group (*.jpeg;*.jpg;*.jpe;*.jfif)|*.jpeg;*.jpg;*.jpe;*.jfif|Tagged Image File Format (*.tif;*.tiff)|*.tif;*.tiff|Graphics Interchange Format (*.gif)|*.gif|Portable PixMap (*.pbm;*.pgm;*.ppm)|*.pbm;*.pgm;*.ppm|Animated GIF (*.gif)|*.gif|TGA Image File (*.tga)|*.tga|"
msgstr "Файлы изображений (*.png;*.xpm;*.bmp;*.cur;*.ico;*.icns;*.jpeg;*.jpg;*.jpe;*.jfif;*.tif;*.tiff;*.gif;*.pbm;*.pgm;*.ppm;*.gif;*.tga)|*.png;*.xpm;*.bmp;*.cur;*.ico;*.icns;*.jpeg;*.jpg;*.jpe;*.jfif;*.tif;*.tiff;*.gif;*.pbm;*.pgm;*.ppm;*.gif;*.tga|Файлы Portable Network Graphic (*.png)|*.png|Файлы Pixmap (*.xpm)|*.xpm|Файлы BMP (*.bmp)|*.bmp|Файлы курсоров (*.cur)|*.cur|Файлы значков (*.ico)|*.ico|Файлы значков Mac OS X (*.icns)|*.icns|Файлы Joint Picture Expert Group (*.jpeg;*.jpg;*.jpe;*.jfif)|*.jpeg;*.jpg;*.jpe;*.jfif|Файлы формата Tagged Image File (*.tif;*.tiff)|*.tif;*.tiff|Файлы GIF (*.gif)|*.gif|Файлы Portable PixMap (*.pbm;*.pgm;*.ppm)|*.pbm;*.pgm;*.ppm|Файлы GIF с анимацией (*.gif)|*.gif|Файлы изображений TGA (*.tga)|*.tga|"
#: glazresmain.opdfilterall
msgid "All files"
msgstr "Все файлы"
#: glazresmain.opdopenexistingpicture
msgctxt "glazresmain.opdopenexistingpicture"
msgid "Open existing picture"
msgstr "Открыть существующее изображение"
#: tglazresform.addanybtn.hint
msgid "Add (any kind of) files to the list"
msgstr "Добавить файлы (любого типа) в список"
#: tglazresform.addimgbtn.hint
msgid "Add images to the list"
msgstr "Добавить изображения в список"
#: tglazresform.caption
msgid "LRS Builder"
msgstr "Программа создания ресурсов LRS"
#: tglazresform.clearbtn.caption
msgid "Clear"
msgstr "Очистить"
#: tglazresform.clearbtn.hint
msgid "Cleare the entire list"
msgstr "Очистить весь список"
#: tglazresform.closebtn.hint
msgid "Exit the program"
msgstr "Выйти из программы"
#: tglazresform.deletebtn.hint
msgid "Delete selected files from the list"
msgstr "Удалить выделенные файлы из списка"
#: tglazresform.fileslabel.caption
msgid "Files to include"
msgstr "Файлы для включения"
#: tglazresform.lrslabel.caption
msgid "Lazarus Resource Filename"
msgstr "Имя файла ресурсов Lazarus"
#: tglazresform.messageslabel.caption
msgid "Messages"
msgstr "Сообщения"
#: tglazresform.startbtn.caption
msgid "Create LRS"
msgstr "Создать LRS"
#: tglazresform.startbtn.hint
msgid "Create the output LRS file"
msgstr "Вывести файл ресурсов в формате LRS"