MG: added internationalization, started with german

git-svn-id: trunk@1773 -
This commit is contained in:
lazarus 2002-07-04 14:48:24 +00:00
parent a338121bd9
commit f665e24da1
8 changed files with 1271 additions and 12 deletions

2
.gitattributes vendored
View File

@ -408,6 +408,8 @@ images/sourceeditor/bookmark9.xpm -text svneol=native#image/x-xpixmap
images/splash_logo.xpm -text svneol=native#image/x-xpixmap
images/uparrow.ico -text svneol=unset#image/x-icon
images/uparrow.xpm -text svneol=native#image/x-xpixmap
languages/lazaruside.de.po svneol=native#text/plain
languages/lazaruside.po svneol=native#text/plain
lcl/allunits.pp svneol=native#text/pascal
lcl/arrow.pp svneol=native#text/pascal
lcl/buttons.pp svneol=native#text/pascal

View File

@ -65,12 +65,22 @@ type
TDebuggerType = (dtNone, dtGnuDebugger);
TPascalExtType = (petNone, petPAS, petPP);
TLazarusLanguage = (llAutomatic, llEnglish, llGerman);
const
DebuggerName : array[TDebuggerType] of string = (
'(None)','GNU debugger (gdb)'
);
LazarusLanguageNames: array[TLazarusLanguage] of string = (
'Automatic (default is english)', 'English', 'Deutsch'
);
LazarusLanguageIDs: array[TLazarusLanguage] of string = (
'', 'en', 'de'
);
PascalExtension: array[TPascalExtType] of string = ('', '.pas', '.pp');
type
@ -141,6 +151,8 @@ type
fPascalFileExtension: TPascalExtType;
fPascalFileLowerCase: boolean;
// language
fLanguage: TLazarusLanguage;
procedure SetOnApplyWindowLayout(const AValue: TOnApplyIDEWindowLayout);
@ -251,6 +263,9 @@ type
read fPascalFileExtension write fPascalFileExtension;
property PascalFileLowerCase: boolean
read fPascalFileLowerCase write fPascalFileLowerCase;
// language
property Language: TLazarusLanguage read fLanguage write fLanguage;
end;
//----------------------------------------------------------------------------
@ -263,6 +278,10 @@ type
{ form for environment options }
TEnvironmentOptionsDialog = class(TForm)
NoteBook: TNoteBook;
// language
LanguageGroupBox: TGroupBox;
LanguageComboBox: TComboBox;
// auto save
AutoSaveGroupBox: TGroupBox;
@ -464,6 +483,9 @@ begin
FFilename:='';
// language
Language:=llAutomatic;
// auto save
FAutoSaveEditorFiles:=true;
FAutoSaveProject:=true;
@ -614,11 +636,26 @@ var XMLConfig: TXMLConfig;
if fPascalFileExtension=petNone then
fPascalFileExtension:=petPAS;
end;
procedure LoadLanguage;
var l: TLazarusLanguage;
s: string;
begin
s:=XMLConfig.GetValue(
'EnvironmentOptions/Language/ID',LazarusLanguageIDs[fLanguage]);
for l:=Low(TLazarusLanguage) to High(TLazarusLanguage) do begin
if LazarusLanguageIDs[l]=s then
fLanguage:=l;
end;
end;
begin
try
XMLConfig:=TXMLConfig.Create(FFileName);
FileVersion:=XMLConfig.GetValue('EnvironmentOptions/Version/Value',0);
// language
LoadLanguage;
// auto save
FAutoSaveEditorFiles:=XMLConfig.GetValue(
@ -801,6 +838,10 @@ begin
XMLConfig:=TXMLConfig.Create(FFileName);
XMLConfig.SetValue('EnvironmentOptions/Version/Value',EnvOptsVersion);
// language
XMLConfig.SetValue('EnvironmentOptions/Language/ID'
,LazarusLanguageIDs[fLanguage]);
// auto save
XMLConfig.SetValue('EnvironmentOptions/AutoSave/EditorFiles'
,FAutoSaveEditorFiles);
@ -1059,17 +1100,48 @@ end;
procedure TEnvironmentOptionsDialog.SetupDesktopPage(Page: integer);
var MaxX:integer;
l: TLazarusLanguage;
begin
MaxX:=ClientWidth-5;
// language
LanguageGroupBox:=TGroupBox.Create(Self);
with LanguageGroupBox do begin
Name:='LanguageGroupBox';
Parent:=NoteBook.Page[Page];
Left:=8;
Top:=2;
Width:=(MaxX div 2) - 15;
Height:=50;
Caption:='Language';
Visible:=true;
end;
LanguageComboBox:=TComboBox.Create(Self);
with LanguageComboBox do begin
Name:='LanguageComboBox';
Parent:=LanguageGroupBox;
Left:=5;
Top:=3;
Width:=LanguageGroupBox.ClientWidth-2*Left;
with Items do begin
BeginUpdate;
for l:=Low(TLazarusLanguage) to High(TLazarusLanguage) do begin
Add(LazarusLanguageNames[l]+' ['+LazarusLanguageIDs[l]+']');
end;
EndUpdate;
end;
Visible:=true;
end;
// auto save
AutoSaveGroupBox:=TGroupBox.Create(Self);
with AutoSaveGroupBox do begin
Name:='AutoSaveGroupBox';
Parent:=NoteBook.Page[Page];
Left:=8;
Top:=2;
Width:=(MaxX div 2) - 15;
Left:=LanguageGroupBox.Left;
Top:=LanguageGroupBox.Top+LanguageGroupBox.Height+5;
Width:=LanguageGroupBox.Width;
Height:=108;
Caption:='Auto save';
Visible:=true;
@ -1205,7 +1277,7 @@ begin
Name:='WindowPositionsGroupBox';
Parent:=NoteBook.Page[Page];
Caption:='Window Positions';
SetBounds(MaxX div 2,AutoSaveGroupBox.Top,(MaxX div 2)-5,290);
SetBounds(MaxX div 2,LanguageGroupBox.Top,(MaxX div 2)-5,290);
OnResize:=@WindowPositionsGroupBoxResize;
Visible:=true;
end;
@ -2067,11 +2139,20 @@ var MaxX:integer;
begin
MaxX:=ClientWidth-5;
// language
with LanguageGroupBox do begin
SetBounds(8,2,(MaxX div 2) - 15,50);
end;
with LanguageComboBox do begin
SetBounds(5,3,LanguageGroupBox.ClientWidth-2*Left,Height);
end;
// auto save
with AutoSaveGroupBox do begin
Left:=8;
Top:=2;
Width:=(MaxX div 2) - 15;
Left:=LanguageGroupBox.Left;
Top:=LanguageGroupBox.Top+LanguageGroupBox.Height+5;
Width:=LanguageGroupBox.Width;
Height:=108;
end;
@ -2143,7 +2224,7 @@ begin
// Window Positions
with WindowPositionsGroupBox do begin
SetBounds(MaxX div 2,AutoSaveGroupBox.Top,(MaxX div 2)-5,290);
SetBounds(MaxX div 2,LanguageGroupBox.Top,(MaxX div 2)-5,290);
end;
end;
@ -2699,6 +2780,9 @@ procedure TEnvironmentOptionsDialog.ReadSettings(
var i: integer;
begin
with AnEnvironmentOptions do begin
// language
LanguageComboBox.ItemIndex:=ord(Language);
// auto save
AutoSaveEditorFilesCheckBox.Checked:=AutoSaveEditorFiles;
AutoSaveProjectCheckBox.Checked:=AutoSaveProject;
@ -2803,8 +2887,15 @@ end;
procedure TEnvironmentOptionsDialog.WriteSettings(
AnEnvironmentOptions: TEnvironmentOptions);
var
l: TLazarusLanguage;
begin
with AnEnvironmentOptions do begin
// language
for l:=low(TLazarusLanguage) to High(TLazarusLanguage) do
if ord(l)=LanguageComboBox.ItemIndex then
Language:=l;
// auto save
AutoSaveEditorFiles:=AutoSaveEditorFilesCheckBox.Checked;
AutoSaveProject:=AutoSaveProjectCheckBox.Checked;

View File

@ -30,7 +30,7 @@ unit IDEProcs;
interface
uses
Classes, SysUtils, XMLCfg;
Classes, SysUtils, XMLCfg, GetText;
//
const
@ -69,7 +69,7 @@ procedure SaveRect(XMLConfig: TXMLConfig; const Path:string; var ARect:TRect);
// miscellaneous
procedure FreeThenNil(var Obj: TObject);
function TabsToSpaces(const s: string; TabWidth: integer): string;
procedure TranslateResourceStrings(const BaseDirectory, CustomLang: string);
implementation
@ -567,4 +567,102 @@ begin
end;
end;
procedure TranslateUnitResourceStrings(const ResUnitName, AFilename: string);
var
mo: TMOFile;
TableID, StringID, TableCount: Integer;
s: String;
begin
if (ResUnitName='') or (AFilename='') then exit;
try
mo := TMOFile.Create(AFilename);
try
for TableID:=0 to ResourceStringTableCount - 1 do
begin
TableCount := ResourceStringCount(TableID);
// check if this table belongs to the ResUnitName
if TableCount=0 then continue;
s:=GetResourceStringName(TableID,0);
if AnsiCompareText(ResUnitName+'.',LeftStr(s,length(ResUnitName)+1))<>0
then continue;
// translate all resource strings of the unit
for StringID := 0 to TableCount - 1 do begin
s := mo.Translate(GetResourceStringDefaultValue(TableID,StringID),
GetResourceStringHash(TableID,StringID));
if Length(s) > 0 then begin
SetResourceStringValue(TableID,StringID,s);
end;
end;
end;
finally
mo.Free;
end;
except
on e: Exception do;
end;
end;
procedure TranslateUnitResourceStrings(const ResUnitName, BaseFilename,
Lang, FallbackLang: string);
begin
if (ResUnitName='') or (BaseFilename='')
or ((Lang='') and (FallbackLang='')) then exit;
if FallbackLang<>'' then
TranslateUnitResourceStrings(ResUnitName,Format(BaseFilename,[FallbackLang]));
if Lang<>'' then
TranslateUnitResourceStrings(ResUnitName,Format(BaseFilename,[Lang]));
end;
procedure GetLanguageIDs(var Lang, FallbackLang: string);
begin
Lang := GetEnv('LC_ALL');
FallbackLang:='';
if Length(Lang) = 0 then
begin
Lang := GetEnv('LC_MESSAGES');
if Length(Lang) = 0 then
begin
Lang := GetEnv('LANG');
if Length(Lang) = 0 then
exit; // no language defined via environment variables
end;
end;
FallbackLang := Copy(Lang, 1, 2);
Lang := Copy(Lang, 1, 5);
end;
{-------------------------------------------------------------------------------
TranslateResourceStrings
Params: none
Result: none
Translates all resourcestrings of the resource string files:
- lclstrconsts.pas
- codetoolsstrconsts.pas
- lazarusstrconsts.pas
-------------------------------------------------------------------------------}
procedure TranslateResourceStrings(const BaseDirectory, CustomLang: string);
var
Lang, FallbackLang: String;
begin
if CustomLang='' then begin
GetLanguageIDs(Lang,FallbackLang);
end else begin
Lang:=CustomLang;
FallbackLang:='';
end;
TranslateUnitResourceStrings('LclStrConsts',
AppendPathDelim(BaseDirectory)+'lcl/languages/lcl.%s.mo',
Lang,FallbackLang);
TranslateUnitResourceStrings('LazarusIDEStrConsts',
AppendPathDelim(BaseDirectory)+'languages/lazaruside.%s.mo',
Lang,FallbackLang);
end;
end.

View File

@ -586,6 +586,9 @@ begin
with EnvironmentOptions do begin
SetLazarusDefaultFilename;
Load(false);
TranslateResourceStrings(ExtractFilePath(ExpandFilename(ParamStr(0))),
LazarusLanguageIDs[EnvironmentOptions.Language]);
if EnvironmentOptions.CompilerFilename='' then
EnvironmentOptions.CompilerFilename:=FindDefaultCompilerPath;
ExternalTools.OnNeedsOutputFilter:=@OnExtToolNeedsOutputFilter;
@ -593,7 +596,7 @@ begin
OnApplyWindowLayout:=@Self.OnApplyWindowLayout;
end;
UpdateDefaultPascalFileExtensions;
EditorOpts:=TEditorOptions.Create;
EditorOpts.Load;
@ -6566,6 +6569,9 @@ end.
{ =============================================================================
$Log$
Revision 1.320 2002/07/04 14:48:22 lazarus
MG: added internationalization, started with german
Revision 1.319 2002/07/04 10:44:50 lazarus
MG: added comment for MainIDE:=Self;

26
languages/README Normal file
View File

@ -0,0 +1,26 @@
The <lazarusdir>/languages directory contains all the stuff for
internationalization of lazarus IDE.
All text and messages used in the IDE should be placed into the unit
lazarusidestrconsts.pas. This unit uses a resourcestring section, so that the
compiler will create the <lazarusdir>/lazarusidestrconsts.rst file.
Since this is a fpc-only format it must be converted with the rstconv program:
cd <lazarusdir>/languages
rstconv -i ../lazarusidestrconsts.rst -o lazaruside.po
This will create the file lazaruside.po, which should be translated in all
required languages to a lazaruside.xx.po file. For the xx see the gettext unit
in the procedure TranslateResourceStrings.
german: lazaruside.de.po
After the translation, the lazaruside.xx.po file is converted to an .mo file
with the msgfmt program:
msgfmt -v -o lazaruside.xx.mo lazaruside.xx.po
where xx is the language id.

504
languages/lazaruside.de.po Normal file
View File

@ -0,0 +1,504 @@
#: lazarusidestrconsts:lisselectiontool
msgid "Selection tool"
msgstr "Auswahlwerkzeug"
#: lazarusidestrconsts:liscursorcolumnincurrenteditor
msgid "Cursor column in current editor"
msgstr "Cursor Spalte im aktuellem Editor"
#: lazarusidestrconsts:liscursorrowincurrenteditor
msgid "Cursor row in current editor"
msgstr "Cursor Zeile im aktuellem Editor"
#: lazarusidestrconsts:liscompilerfilename
msgid "Compiler filename"
msgstr "Dateiname des compilers"
#: lazarusidestrconsts:liswordatcursorincurrenteditor
msgid "Word at cursor in current editor"
msgstr "Wort an der aktuellen editor position"
#: lazarusidestrconsts:lisexpandedfilenameofcurrenteditor
msgid "Expanded filename of current editor file"
msgstr "Vollstaendiger Dateiname des aktuellen editor"
#: lazarusidestrconsts:lisfreepascalsourcedirectory
msgid "Freepascal source directory"
msgstr "FreePascal Quellen Verzeichnis"
#: lazarusidestrconsts:lislazarusdirectory
msgid "Lazarus directory"
msgstr "Lazarus Verzeichnis"
#: lazarusidestrconsts:lislclwidgettype
msgid "LCL Widget Type"
msgstr "LCL Widget Art"
#: lazarusidestrconsts:liscommandlineparamsofprogram
msgid "Command line parameters of program"
msgstr "Kommandozeilen Parameter des Programms"
#: lazarusidestrconsts:lispromptforvalue
msgid "Prompt for value"
msgstr "Benutzer nach Daten fragen"
#: lazarusidestrconsts:lisprojectfilename
msgid "Project filename"
msgstr "Projektdateiname"
#: lazarusidestrconsts:lisprojectdirectory
msgid "Project directory"
msgstr "Projektverzeichnis"
#: lazarusidestrconsts:lissavecurrenteditorfile
msgid "save current editor file"
msgstr "Speichern des aktuellen editors"
#: lazarusidestrconsts:lissaveallmodified
msgid "save all modified files"
msgstr "Alles speichern"
#: lazarusidestrconsts:listargetfilenameofproject
msgid "Target filename of project"
msgstr "Zieldateiname des Projektes"
#: lazarusidestrconsts:listargetfilenameplusparams
msgid "Target filename + params"
msgstr "Zieldateiname+Parameter des Projektes"
#: lazarusidestrconsts:lislaunchingcmdline
msgid "Launching target command line"
msgstr "Startkommando des Projektes"
#: lazarusidestrconsts:lismenufile
msgid "&File"
msgstr "&Datei"
#: lazarusidestrconsts:lismenuedit
msgid "&Edit"
msgstr "&Edit"
#: lazarusidestrconsts:lismenusearch
msgid "&Search"
msgstr "&Suche"
#: lazarusidestrconsts:lismenuview
msgid "&View"
msgstr "&Anzeige"
#: lazarusidestrconsts:lismenuproject
msgid "&Project"
msgstr "&Projekt"
#: lazarusidestrconsts:lismenurun
msgid "&Run"
msgstr "&Starten"
#: lazarusidestrconsts:lismenutools
msgid "&Tools"
msgstr "&Werkzeuge"
#: lazarusidestrconsts:lismenuenvironent
msgid "E&nvironment"
msgstr "Ei&nstellungen"
#: lazarusidestrconsts:lismenuhelp
msgid "&Help"
msgstr "&Hilfe"
#: lazarusidestrconsts:lismenunewunit
msgid "New Unit"
msgstr "Neue Unit"
#: lazarusidestrconsts:lismenunewform
msgid "New Form"
msgstr "Neues Formular"
#: lazarusidestrconsts:lismenuopen
msgid "Open"
msgstr "Oeffne"
#: lazarusidestrconsts:lismenuopenrecent
msgid "Open Recent"
msgstr "Oeffne wieder"
#: lazarusidestrconsts:lismenusave
msgid "Save"
msgstr "Speichern"
#: lazarusidestrconsts:lismenusaveas
msgid "Save As"
msgstr "Speichern als"
#: lazarusidestrconsts:lismenusaveall
msgid "Save All"
msgstr "Alles speichern"
#: lazarusidestrconsts:lismenuclose
msgid "Close"
msgstr "Schliessen"
#: lazarusidestrconsts:lismenucloseall
msgid "Close All"
msgstr "Alles Schliessen"
#: lazarusidestrconsts:lismenuquit
msgid "Quit"
msgstr "Quit"
#: lazarusidestrconsts:lismenuundo
msgid "Undo"
msgstr "Rueckgaengig"
#: lazarusidestrconsts:lismenuredo
msgid "Redo"
msgstr "Wiederholen"
#: lazarusidestrconsts:lismenucut
msgid "Cut"
msgstr "Ausschneiden"
#: lazarusidestrconsts:lismenucopy
msgid "Copy"
msgstr "Kopieren"
#: lazarusidestrconsts:lismenupaste
msgid "Paste"
msgstr "Einfuegen"
#: lazarusidestrconsts:lismenuindentselection
msgid "Indent selection"
msgstr "Block einruecken"
#: lazarusidestrconsts:lismenuunindentselection
msgid "Unindent selection"
msgstr "Block rausruecken"
#: lazarusidestrconsts:lismenuuppercaseselection
msgid "Uppercase selection"
msgstr "Block gross schreiben"
#: lazarusidestrconsts:lismenulowercaseselection
msgid "Lowercase selection"
msgstr "Block klein schreiben"
#: lazarusidestrconsts:lismenutabstospacesselection
msgid "Tabs to spaces in selection"
msgstr "Konvertiere Tabs in Leerzeichen"
#: lazarusidestrconsts:lismenucompletecode
msgid "Complete Code"
msgstr "Vervollstaendige Code"
#: lazarusidestrconsts:lismenufind
msgid "Find"
msgstr "Suche"
#: lazarusidestrconsts:lismenufindnext
msgid "Find &Next"
msgstr "Suche weiter"
#: lazarusidestrconsts:lismenufindprevious
msgid "Find &Previous"
msgstr "Suche rueckwaerts"
#: lazarusidestrconsts:lismenufindinfiles
msgid "Find &in files"
msgstr "Suche in Dateien"
#: lazarusidestrconsts:lismenureplace
msgid "Replace"
msgstr "Ersetze"
#: lazarusidestrconsts:lismenugotoline
msgid "Goto line"
msgstr "Gehe zu Zeilennummer"
#: lazarusidestrconsts:lismenujumpback
msgid "Jump back"
msgstr "Spring zurueck"
#: lazarusidestrconsts:lismenujumpforward
msgid "Jump forward"
msgstr "Spring vorwaerts"
#: lazarusidestrconsts:lismenuaddjumppointtohistory
msgid "Add jump point to history"
msgstr "Speicher Cursorposition"
#: lazarusidestrconsts:lismenuviewjumphistory
msgid "View Jump-History"
msgstr "Zur Sprungliste"
#: lazarusidestrconsts:lismenufindblockotherendofcodeblock
msgid "Find other end of code block"
msgstr "Gehe zu anderem Ende des Codeblocks"
#: lazarusidestrconsts:lismenufindcodeblockstart
msgid "Find code block start"
msgstr "Gehe zu Codeblockanfang"
#: lazarusidestrconsts:lismenufinddeclarationatcursor
msgid "Find Declaration at cursor"
msgstr "Finde Deklaration unter Cursor"
#: lazarusidestrconsts:lismenuopenfilenameatcursor
msgid "Open filename at cursor"
msgstr "Oeffne Dateiname unter Cursor"
#: lazarusidestrconsts:lismenugotoincludedirective
msgid "Goto include directive"
msgstr "Gehe zur Include Direktiven"
#: lazarusidestrconsts:lismenuviewobjectinspector
msgid "Object Inspector"
msgstr "Object Inspector"
#: lazarusidestrconsts:lismenuviewprojectexplorer
msgid "Project Explorer"
msgstr "Project Explorer"
#: lazarusidestrconsts:lismenuviewcodeexplorer
msgid "Code Explorer"
msgstr "Code Explorer"
#: lazarusidestrconsts:lismenuviewunits
msgid "Units..."
msgstr "Units..."
#: lazarusidestrconsts:lismenuviewforms
msgid "Forms..."
msgstr "Forms..."
#: lazarusidestrconsts:lismenuviewmessages
msgid "Messages"
msgstr "Messages..."
#: lazarusidestrconsts:lismenudebugwindows
msgid "Debug windows"
msgstr "Debugger Fenster..."
#: lazarusidestrconsts:lismenuviewwatches
msgid "Watches"
msgstr "Watches"
#: lazarusidestrconsts:lismenuviewbreakpoints
msgid "BreakPoints"
msgstr "Haltepunkte"
#: lazarusidestrconsts:lismenuviewlocalvariables
msgid "Local Variables"
msgstr "Lokale Variablen"
#: lazarusidestrconsts:lismenuviewcallstack
msgid "Call Stack"
msgstr "Stack"
#: lazarusidestrconsts:lismenuviewdebugoutput
msgid "Debug output"
msgstr "Debugger Ausgaben"
#: lazarusidestrconsts:lismenunewproject
msgid "New Project"
msgstr "Neues Projekt"
#: lazarusidestrconsts:lismenuopenproject
msgid "Open Project"
msgstr "Oeffne Projekt"
#: lazarusidestrconsts:lismenuopenrecentproject
msgid "Open Recent Project"
msgstr "Oeffne bekanntes Projekt"
#: lazarusidestrconsts:lismenusaveproject
msgid "Save Project"
msgstr "Projekt speichern"
#: lazarusidestrconsts:lismenusaveprojectas
msgid "Save Project As..."
msgstr "Projekt speichern unter..."
#: lazarusidestrconsts:lismenuaddunittoproject
msgid "Add active unit to Project"
msgstr "Fuege Unit zum Projekt hinzu"
#: lazarusidestrconsts:lismenuremoveunitfromproject
msgid "Remove from Project"
msgstr "Entferne aus Projekt"
#: lazarusidestrconsts:lismenuviewsource
msgid "View Source"
msgstr "Zeige Projektcode"
#: lazarusidestrconsts:lismenuprojectoptions
msgid "Project Options..."
msgstr "Projektoptionen..."
#: lazarusidestrconsts:lismenubuild
msgid "Build"
msgstr "Kompiliere"
#: lazarusidestrconsts:lismenubuildall
msgid "Build all"
msgstr "Kompilere Alles"
#: lazarusidestrconsts:lismenuprojectrun
msgid "Run"
msgstr "Start"
#: lazarusidestrconsts:lismenupause
msgid "Pause"
msgstr "Stop"
#: lazarusidestrconsts:lismenustepinto
msgid "Step into"
msgstr "Einen Schritt hinein"
#: lazarusidestrconsts:lismenustepover
msgid "Step over"
msgstr "Einen Schritt weiter"
#: lazarusidestrconsts:lismenuruntocursor
msgid "Run to cursor"
msgstr "Start bis cursor"
#: lazarusidestrconsts:lismenustop
msgid "Stop"
msgstr "Halt"
#: lazarusidestrconsts:lismenucompileroptions
msgid "Compiler Options..."
msgstr "Compileroptionen..."
#: lazarusidestrconsts:lismenurunparameters
msgid "Run Parameters ..."
msgstr "Startparameter ..."
#: lazarusidestrconsts:lismenusettings
msgid "Settings ..."
msgstr "Einstellungen ..."
#: lazarusidestrconsts:lismenuquicksyntaxcheck
msgid "Quick syntax check"
msgstr "Schneller Syntaxcheck"
#: lazarusidestrconsts:lismenuguessunclosedblock
msgid "Guess unclosed block"
msgstr "Errate offene codeblocks"
#: lazarusidestrconsts:lismenuguessmisplacedifdef
msgid "Guess misplaced IFDEF/ENDIF"
msgstr "Errate offene IFDEF/ENDIF"
#: lazarusidestrconsts:lismenubuildlazarus
msgid "Build Lazarus"
msgstr "Kompiliere Lazarus"
#: lazarusidestrconsts:lismenuconfigurebuildlazarus
msgid "Configure \"Build Lazarus\""
msgstr "Einstellungen fuer \"Kompiliere Lazarus\""
#: lazarusidestrconsts:lismenugeneraloptions
msgid "General options"
msgstr "Generelle Einstellungen"
#: lazarusidestrconsts:lismenueditoroptions
msgid "Editor options"
msgstr "Editoreinstellungen"
#: lazarusidestrconsts:lismenucodetoolsoptions
msgid "CodeTools options"
msgstr "CodeTools Einstellungen"
#: lazarusidestrconsts:lismenucodetoolsdefineseditor
msgid "CodeTools defines editor"
msgstr "CodeTools Defines Editor"
#: lazarusidestrconsts:lismenuaboutlazarus
msgid "About Lazarus"
msgstr "Ueber Lazarus"
#: lazarusidestrconsts:lisresourcefilecomment
msgid "{ This is an automatically generated lazarus resource file }"
msgstr "{ Dies ist eine automatisch erzeugtes resource Datei }"
#: lazarusidestrconsts:lisopenfile
msgid "Open file"
msgstr "Oeffne Datei"
#: lazarusidestrconsts:lisopenprojectfile
msgid "Open Project File"
msgstr "Oeffne Projekt Datei"
#: lazarusidestrconsts:lissavespace
msgid "Save "
msgstr "Speichere "
#: lazarusidestrconsts:lissavechangestoproject
msgid "Save changes to project?"
msgstr "Sollen die Aenderungen am Projekt gespeichert werden?"
#: lazarusidestrconsts:lisprojectchanged
msgid "Project changed"
msgstr "Projekt veraendert"
#: lazarusidestrconsts:lisfpcsourcedirectoryerror
msgid "FPC Source Directory error"
msgstr "FPC Source Verzeichnis Fehler"
#: lazarusidestrconsts:lisplzcheckthefpcsourcedirectory
msgid "Please check the freepascal source directory"
msgstr "Bitte ueberpruefen Sie das FreePascal Source Verzeichnis"
#: lazarusidestrconsts:liscompilererror
msgid "Compiler error"
msgstr "Compiler Fehler"
#: lazarusidestrconsts:lisplzcheckthecmpilername
msgid "Please check the compiler name"
msgstr "Bitte ueberpruefen Sie den Compilerdateiname"
#: lazarusidestrconsts:lisaboutlazarusmsg
msgid "License: GPL/LGPL\015Lazarus are the class libraries for Free Pascal that emulate Delphi.\015Free Pascal is a (L)GPL'ed compiler that runs on Linux,\015Win32, OS/2, 68K and more. Free Pascal is designed to be able to\015understand and compile Delphi syntax, which is of course OOP.\015Lazarus is the missing part of the puzzle that will allow you to\015develop Delphi like programs in all of the above platforms.\015The IDE will eventually become a RAD tool like Delphi.\015\015As Lazarus is growing we need more developers.\015For example: Write a nicer about dialog with a logo."
msgstr "License: GPL/LGPL\015Lazarus are the class libraries for Free Pascal that emulate Delphi.\015Free Pascal is a (L)GPL'ed compiler that runs on Linux,\015Win32, OS/2, 68K and more. Free Pascal is designed to be able to\015understand and compile Delphi syntax, which is of course OOP.\015Lazarus is the missing part of the puzzle that will allow you to\015develop Delphi like programs in all of the above platforms.\015The IDE will eventually become a RAD tool like Delphi.\015\015As Lazarus is growing we need more developers.\015For example: Write a nicer about dialog with a logo."
#: lazarusidestrconsts:lsiunitnamealreadyexistscap
msgid "Unitname already in project"
msgstr "Unitname existiert bereits im Projekt"
#: lazarusidestrconsts:lsiunitnamealreadyexiststext
msgid "The unit \"%s\" already exists.\015Ignore will force the renaming,\015Cancel will cancel the saving of this source and\015Abort will abort the whole saving."
msgstr "The unit \"%s\" already exists.\015Ignore will force the renaming,\015Cancel will cancel the saving of this source and\015Abort will abort the whole saving."
#: lazarusidestrconsts:lsiinvalidpascalidentifiercap
msgid "Invalid Pascal Identifier"
msgstr "Ungueltiger Pascal Identifier"
#: lazarusidestrconsts:lsiinvalidpascalidentifiertext
msgid "The name \"%s\" is not a valid pascal identifier."
msgstr "The name \"%s\" is not a valid pascal identifier."
#: lazarusidestrconsts:lsihintsaveall
msgid "Save all"
msgstr "Alles Speichern"
#: lazarusidestrconsts:lsihinttoggleformunit
msgid "Toggle Form/Unit"
msgstr "Wechsle Form/Unit"
#: lazarusidestrconsts:lsihintviewunits
msgid "View Units"
msgstr "Zeig Units"
#: lazarusidestrconsts:lsihintviewforms
msgid "View Forms"
msgstr "Zieg Forms"
#: lazarusidestrconsts:lsihintstepinto
msgid "Step Into"
msgstr "Einen Schritt hinein"
#: lazarusidestrconsts:lsihintstepover
msgid "Step Over"
msgstr "Einen Schritt weiter"

532
languages/lazaruside.po Normal file
View File

@ -0,0 +1,532 @@
#: lazarusidestrconsts:lisselectiontool
msgid "Selection tool"
msgstr ""
#: lazarusidestrconsts:liscursorcolumnincurrenteditor
msgid "Cursor column in current editor"
msgstr ""
#: lazarusidestrconsts:liscursorrowincurrenteditor
msgid "Cursor row in current editor"
msgstr ""
#: lazarusidestrconsts:liscompilerfilename
msgid "Compiler filename"
msgstr ""
#: lazarusidestrconsts:liswordatcursorincurrenteditor
msgid "Word at cursor in current editor"
msgstr ""
#: lazarusidestrconsts:lisexpandedfilenameofcurrenteditor
msgid "Expanded filename of current editor file"
msgstr ""
#: lazarusidestrconsts:lisfreepascalsourcedirectory
msgid "Freepascal source directory"
msgstr ""
#: lazarusidestrconsts:lislazarusdirectory
msgid "Lazarus directory"
msgstr ""
#: lazarusidestrconsts:lislclwidgettype
msgid "LCL Widget Type"
msgstr ""
#: lazarusidestrconsts:liscommandlineparamsofprogram
msgid "Command line parameters of program"
msgstr ""
#: lazarusidestrconsts:lispromptforvalue
msgid "Prompt for value"
msgstr ""
#: lazarusidestrconsts:lisprojectfilename
msgid "Project filename"
msgstr ""
#: lazarusidestrconsts:lisprojectdirectory
msgid "Project directory"
msgstr ""
#: lazarusidestrconsts:lissavecurrenteditorfile
msgid "save current editor file"
msgstr ""
#: lazarusidestrconsts:lissaveallmodified
msgid "save all modified files"
msgstr ""
#: lazarusidestrconsts:listargetfilenameofproject
msgid "Target filename of project"
msgstr ""
#: lazarusidestrconsts:listargetfilenameplusparams
msgid "Target filename + params"
msgstr ""
#: lazarusidestrconsts:lislaunchingcmdline
msgid "Launching target command line"
msgstr ""
#: lazarusidestrconsts:lismenufile
msgid "&File"
msgstr ""
#: lazarusidestrconsts:lismenuedit
msgid "&Edit"
msgstr ""
#: lazarusidestrconsts:lismenusearch
msgid "&Search"
msgstr ""
#: lazarusidestrconsts:lismenuview
msgid "&View"
msgstr ""
#: lazarusidestrconsts:lismenuproject
msgid "&Project"
msgstr ""
#: lazarusidestrconsts:lismenurun
msgid "&Run"
msgstr ""
#: lazarusidestrconsts:lismenutools
msgid "&Tools"
msgstr ""
#: lazarusidestrconsts:lismenuenvironent
msgid "E&nvironment"
msgstr ""
#: lazarusidestrconsts:lismenuhelp
msgid "&Help"
msgstr ""
#: lazarusidestrconsts:lismenunewunit
msgid "New Unit"
msgstr ""
#: lazarusidestrconsts:lismenunewform
msgid "New Form"
msgstr ""
#: lazarusidestrconsts:lismenuopen
msgid "Open"
msgstr ""
#: lazarusidestrconsts:lismenuopenrecent
msgid "Open Recent"
msgstr ""
#: lazarusidestrconsts:lismenusave
msgid "Save"
msgstr ""
#: lazarusidestrconsts:lismenusaveas
msgid "Save As"
msgstr ""
#: lazarusidestrconsts:lismenusaveall
msgid "Save All"
msgstr ""
#: lazarusidestrconsts:lismenuclose
msgid "Close"
msgstr ""
#: lazarusidestrconsts:lismenucloseall
msgid "Close All"
msgstr ""
#: lazarusidestrconsts:lismenuquit
msgid "Quit"
msgstr ""
#: lazarusidestrconsts:lismenuundo
msgid "Undo"
msgstr ""
#: lazarusidestrconsts:lismenuredo
msgid "Redo"
msgstr ""
#: lazarusidestrconsts:lismenucut
msgid "Cut"
msgstr ""
#: lazarusidestrconsts:lismenucopy
msgid "Copy"
msgstr ""
#: lazarusidestrconsts:lismenupaste
msgid "Paste"
msgstr ""
#: lazarusidestrconsts:lismenuindentselection
msgid "Indent selection"
msgstr ""
#: lazarusidestrconsts:lismenuunindentselection
msgid "Unindent selection"
msgstr ""
#: lazarusidestrconsts:lismenuuppercaseselection
msgid "Uppercase selection"
msgstr ""
#: lazarusidestrconsts:lismenulowercaseselection
msgid "Lowercase selection"
msgstr ""
#: lazarusidestrconsts:lismenutabstospacesselection
msgid "Tabs to spaces in selection"
msgstr ""
#: lazarusidestrconsts:lismenucompletecode
msgid "Complete Code"
msgstr ""
#: lazarusidestrconsts:lismenufind
msgid "Find"
msgstr ""
#: lazarusidestrconsts:lismenufindnext
msgid "Find &Next"
msgstr ""
#: lazarusidestrconsts:lismenufindprevious
msgid "Find &Previous"
msgstr ""
#: lazarusidestrconsts:lismenufindinfiles
msgid "Find &in files"
msgstr ""
#: lazarusidestrconsts:lismenureplace
msgid "Replace"
msgstr ""
#: lazarusidestrconsts:lismenugotoline
msgid "Goto line"
msgstr ""
#: lazarusidestrconsts:lismenujumpback
msgid "Jump back"
msgstr ""
#: lazarusidestrconsts:lismenujumpforward
msgid "Jump forward"
msgstr ""
#: lazarusidestrconsts:lismenuaddjumppointtohistory
msgid "Add jump point to history"
msgstr ""
#: lazarusidestrconsts:lismenuviewjumphistory
msgid "View Jump-History"
msgstr ""
#: lazarusidestrconsts:lismenufindblockotherendofcodeblock
msgid "Find other end of code block"
msgstr ""
#: lazarusidestrconsts:lismenufindcodeblockstart
msgid "Find code block start"
msgstr ""
#: lazarusidestrconsts:lismenufinddeclarationatcursor
msgid "Find Declaration at cursor"
msgstr ""
#: lazarusidestrconsts:lismenuopenfilenameatcursor
msgid "Open filename at cursor"
msgstr ""
#: lazarusidestrconsts:lismenugotoincludedirective
msgid "Goto include directive"
msgstr ""
#: lazarusidestrconsts:lismenuviewobjectinspector
msgid "Object Inspector"
msgstr ""
#: lazarusidestrconsts:lismenuviewprojectexplorer
msgid "Project Explorer"
msgstr ""
#: lazarusidestrconsts:lismenuviewcodeexplorer
msgid "Code Explorer"
msgstr ""
#: lazarusidestrconsts:lismenuviewunits
msgid "Units..."
msgstr ""
#: lazarusidestrconsts:lismenuviewforms
msgid "Forms..."
msgstr ""
#: lazarusidestrconsts:lismenuviewmessages
msgid "Messages"
msgstr ""
#: lazarusidestrconsts:lismenudebugwindows
msgid "Debug windows"
msgstr ""
#: lazarusidestrconsts:lismenuviewwatches
msgid "Watches"
msgstr ""
#: lazarusidestrconsts:lismenuviewbreakpoints
msgid "BreakPoints"
msgstr ""
#: lazarusidestrconsts:lismenuviewlocalvariables
msgid "Local Variables"
msgstr ""
#: lazarusidestrconsts:lismenuviewcallstack
msgid "Call Stack"
msgstr ""
#: lazarusidestrconsts:lismenuviewdebugoutput
msgid "Debug output"
msgstr ""
#: lazarusidestrconsts:lismenunewproject
msgid "New Project"
msgstr ""
#: lazarusidestrconsts:lismenuopenproject
msgid "Open Project"
msgstr ""
#: lazarusidestrconsts:lismenuopenrecentproject
msgid "Open Recent Project"
msgstr ""
#: lazarusidestrconsts:lismenusaveproject
msgid "Save Project"
msgstr ""
#: lazarusidestrconsts:lismenusaveprojectas
msgid "Save Project As..."
msgstr ""
#: lazarusidestrconsts:lismenuaddunittoproject
msgid "Add active unit to Project"
msgstr ""
#: lazarusidestrconsts:lismenuremoveunitfromproject
msgid "Remove from Project"
msgstr ""
#: lazarusidestrconsts:lismenuviewsource
msgid "View Source"
msgstr ""
#: lazarusidestrconsts:lismenuprojectoptions
msgid "Project Options..."
msgstr ""
#: lazarusidestrconsts:lismenubuild
msgid "Build"
msgstr ""
#: lazarusidestrconsts:lismenubuildall
msgid "Build all"
msgstr ""
#: lazarusidestrconsts:lismenuprojectrun
msgid "Run"
msgstr ""
#: lazarusidestrconsts:lismenupause
msgid "Pause"
msgstr ""
#: lazarusidestrconsts:lismenustepinto
msgid "Step into"
msgstr ""
#: lazarusidestrconsts:lismenustepover
msgid "Step over"
msgstr ""
#: lazarusidestrconsts:lismenuruntocursor
msgid "Run to cursor"
msgstr ""
#: lazarusidestrconsts:lismenustop
msgid "Stop"
msgstr ""
#: lazarusidestrconsts:lismenucompileroptions
msgid "Compiler Options..."
msgstr ""
#: lazarusidestrconsts:lismenurunparameters
msgid "Run Parameters ..."
msgstr ""
#: lazarusidestrconsts:lismenusettings
msgid "Settings ..."
msgstr ""
#: lazarusidestrconsts:lismenuquicksyntaxcheck
msgid "Quick syntax check"
msgstr ""
#: lazarusidestrconsts:lismenuguessunclosedblock
msgid "Guess unclosed block"
msgstr ""
#: lazarusidestrconsts:lismenuguessmisplacedifdef
msgid "Guess misplaced IFDEF/ENDIF"
msgstr ""
#: lazarusidestrconsts:lismenubuildlazarus
msgid "Build Lazarus"
msgstr ""
#: lazarusidestrconsts:lismenuconfigurebuildlazarus
msgid "Configure \"Build Lazarus\""
msgstr ""
#: lazarusidestrconsts:lismenugeneraloptions
msgid "General options"
msgstr ""
#: lazarusidestrconsts:lismenueditoroptions
msgid "Editor options"
msgstr ""
#: lazarusidestrconsts:lismenucodetoolsoptions
msgid "CodeTools options"
msgstr ""
#: lazarusidestrconsts:lismenucodetoolsdefineseditor
msgid "CodeTools defines editor"
msgstr ""
#: lazarusidestrconsts:lismenuaboutlazarus
msgid "About Lazarus"
msgstr ""
#: lazarusidestrconsts:lisresourcefilecomment
msgid "{ This is an automatically generated lazarus resource file }"
msgstr ""
#: lazarusidestrconsts:lisopenfile
msgid "Open file"
msgstr ""
#: lazarusidestrconsts:lisopenprojectfile
msgid "Open Project File"
msgstr ""
#: lazarusidestrconsts:lissavespace
msgid "Save "
msgstr ""
#: lazarusidestrconsts:lissavechangestoproject
msgid "Save changes to project?"
msgstr ""
#: lazarusidestrconsts:lisprojectchanged
msgid "Project changed"
msgstr ""
#: lazarusidestrconsts:lisfpcsourcedirectoryerror
msgid "FPC Source Directory error"
msgstr ""
#: lazarusidestrconsts:lisplzcheckthefpcsourcedirectory
msgid "Please check the freepascal source directory"
msgstr ""
#: lazarusidestrconsts:liscompilererror
msgid "Compiler error"
msgstr ""
#: lazarusidestrconsts:lisplzcheckthecmpilername
msgid "Please check the compiler name"
msgstr ""
#: lazarusidestrconsts:lisaboutlazarus
msgid "About Lazarus"
msgstr ""
#: lazarusidestrconsts:lisaboutlazarusmsg
msgid "License: GPL/LGPL\015Lazarus are the class libraries for Free Pascal that emulate Delphi.\015Free Pascal is a (L)GPL'ed compiler that runs on Linux,\015Win32, OS/2, 68K and more. Free Pascal is designed to be able to\015understand and compile Delphi syntax, which is of course OOP.\015Lazarus is the missing part of the puzzle that will allow you to\015develop Delphi like programs in all of the above platforms.\015The IDE will eventually become a RAD tool like Delphi.\015\015As Lazarus is growing we need more developers.\015For example: Write a nicer about dialog with a logo."
msgstr ""
#: lazarusidestrconsts:lsiunitnamealreadyexistscap
msgid "Unitname already in project"
msgstr ""
#: lazarusidestrconsts:lsiunitnamealreadyexiststext
msgid "The unit \"%s\" already exists.\015Ignore will force the renaming,\015Cancel will cancel the saving of this source and\015Abort will abort the whole saving."
msgstr ""
#: lazarusidestrconsts:lsiinvalidpascalidentifiercap
msgid "Invalid Pascal Identifier"
msgstr ""
#: lazarusidestrconsts:lsiinvalidpascalidentifiertext
msgid "The name \"%s\" is not a valid pascal identifier."
msgstr ""
#: lazarusidestrconsts:lsihintnewunit
msgid "New Unit"
msgstr ""
#: lazarusidestrconsts:lsihintopen
msgid "Open"
msgstr ""
#: lazarusidestrconsts:lsihintsave
msgid "Save"
msgstr ""
#: lazarusidestrconsts:lsihintsaveall
msgid "Save all"
msgstr ""
#: lazarusidestrconsts:lsihintnewform
msgid "New Form"
msgstr ""
#: lazarusidestrconsts:lsihinttoggleformunit
msgid "Toggle Form/Unit"
msgstr ""
#: lazarusidestrconsts:lsihintviewunits
msgid "View Units"
msgstr ""
#: lazarusidestrconsts:lsihintviewforms
msgid "View Forms"
msgstr ""
#: lazarusidestrconsts:lsihintrun
msgid "Run"
msgstr ""
#: lazarusidestrconsts:lsihintpause
msgid "Pause"
msgstr ""
#: lazarusidestrconsts:lsihintstepinto
msgid "Step Into"
msgstr ""
#: lazarusidestrconsts:lsihintstepover
msgid "Step Over"
msgstr ""

View File

@ -9,7 +9,7 @@ Since this is a fpc-only format it must be converted with the rstconv program:
cd lcl/languages
rstconv -i ../units/lclstrconsts.rst -o lcl.po
This will create the lcl.po, which should be translated in all required
This will create the file lcl.po, which should be translated in all required
languages to a lcl.xx.po file. For the xx see the gettext unit in the procedure
TranslateResourceStrings.