MG: started internationalization of IDE

git-svn-id: trunk@1571 -

.gitattributes

@@ -155,6 +155,7 @@ ide/keymapping.pp svneol=native#text/pascal
 ide/lazarus.pp svneol=native#text/pascal
 ide/lazarus.rc svneol=native#text/plain
 ide/lazarus_dci.lrs svneol=native#text/pascal
+ide/lazarusidestrconsts.pas svneol=native#text/pascal
 ide/lazconf.pp svneol=native#text/pascal
 ide/macropromptdlg.pas svneol=native#text/pascal
 ide/main.pp svneol=native#text/pascal

ide/lazarusidestrconsts.pas

@@ -0,0 +1,200 @@
+{  $Id$  }
+{
+ /***************************************************************************
+                          lazarusidestrconsts.pas
+                          -----------------------
+              This unit contains all resource strings of the IDE
+
+
+ ***************************************************************************/
+
+/***************************************************************************
+ *                                                                         *
+ *   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.                                   *
+ *                                                                         *
+ ***************************************************************************/
+}
+unit LazarusIDEStrConsts;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils; 
+  
+ResourceString
+  // component palette
+  lisSelectionTool = 'Selection tool';
+  
+  // macros
+  lisCursorColumnInCurrentEditor = 'Cursor column in current editor';
+  lisCursorRowInCUrrentEditor = 'Cursor row in current editor';
+  lisCompilerFilename = 'Compiler filename';
+  lisWordAtCursorInCurrentEditor = 'Word at cursor in current editor';
+  lisExpandedFilenameOfCurrentEditor = 'Expanded filename of current editor file';
+  lisFreePascalSourceDirectory = 'Freepascal source directory';
+  lisLazarusDirectory = 'Lazarus directory';
+  lisLCLWidgetType = 'LCL Widget Type';
+  lisCommandLineParamsOfProgram = 'Command line parameters of program';
+  lisPromptForValue = 'Prompt for value';
+  lisProjectFilename = 'Project filename';
+  lisProjectDirectory = 'Project directory';
+  lisSaveCurrentEditorFile = 'save current editor file';
+  lisSaveAllModified = 'save all modified files';
+  lisTargetFilenameOfProject = 'Target filename of project';
+  lisTargetFilenamePlusParams = 'Target filename + params';
+  lisLaunchingCmdLine = 'Launching target command line';
+  
+  // main bar menu
+  lisMenuFile = '&File';
+  lisMenuEdit = '&Edit';
+  lisMenuSearch = '&Search';
+  lisMenuView = '&View';
+  lisMenuProject = '&Project';
+  lisMenuRun = '&Run';
+  lisMenuTools = '&Tools';
+  lisMenuEnvironent = 'E&nvironment';
+  lisMenuHelp = '&Help';
+  
+  lisMenuNewUnit = 'New Unit';
+  lisMenuNewForm = 'New Form';
+  lisMenuOpen = 'Open';
+  lisMenuOpenRecent = 'Open Recent';
+  lisMenuSave = 'Save';
+  lisMenuSaveAs = 'Save As';
+  lisMenuSaveAll = 'Save All';
+  lisMenuClose = 'Close';
+  lisMenuCloseAll = 'Close All';
+  lisMenuQuit = 'Quit';
+  
+  lisMenuUndo = 'Undo';
+  lisMenuRedo = 'Redo';
+  lisMenuCut = 'Cut';
+  lisMenuCopy = 'Copy';
+  lisMenuPaste = 'Paste';
+  lisMenuIndentSelection = 'Indent selection';
+  lisMenuUnindentSelection = 'Unindent selection';
+  lisMenuCompleteCode = 'Complete Code';
+  
+  lisMenuFind = 'Find';
+  lisMenuFindNext = 'Find &Next';
+  lisMenuFindPrevious = 'Find &Previous';
+  lisMenuFindInFiles = 'Find &in files';
+  lisMenuReplace = 'Replace';
+  lisMenuGotoLine = 'Goto line';
+  lisMenuJumpBack = 'Jump back';
+  lisMenuJumpForward = 'Jump forward';
+  lisMenuAddJumpPointToHistory = 'Add jump point to history';
+  lisMenuViewJumpHistory = 'View Jump-History';
+  lisMenuFindBlockOtherEndOfCodeBlock = 'Find other end of code block';
+  lisMenuFindCodeBlockStart = 'Find code block start';
+  lisMenuFindDeclarationAtCursor = 'Find Declaration at cursor';
+  lisMenuOpenFilenameAtCursor = 'Open filename at cursor';
+  lisMenuGotoIncludeDirective = 'Goto include directive';
+  
+  lisMenuViewObjectInspector = 'Object Inspector';
+  lisMenuViewProjectExplorer = 'Project Explorer';
+  lisMenuViewCodeExplorer = 'Code Explorer';
+  lisMenuViewUnits = 'Units...';
+  lisMenuViewForms = 'Forms...';
+  lisMenuViewMessages = 'Messages';
+  lisMenuDebugWindows = 'Debug windows';
+  lisMenuViewWatches = 'Watches';
+  lisMenuViewBreakPoints = 'BreakPoints';
+  lisMenuViewLocalVariables = 'Local Variables';
+  lisMenuViewDebugOutput = 'Debug output';
+  lisMenuNewProject = 'New Project';
+  lisMenuOpenProject = 'Open Project';
+  lisMenuOpenRecentProject = 'Open Recent Project';
+  lisMenuSaveProject = 'Save Project';
+  lisMenuSaveProjectAs = 'Save Project As...';
+  lisMenuAddUnitToProject = 'Add active unit to Project';
+  lisMenuRemoveUnitFromProject = 'Remove from Project';
+  lisMenuViewSource = 'View Source';
+  lisMenuProjectOptions = 'Project Options...';
+  
+  lisMenuBuild = 'Build';
+  lisMenuBuildAll = 'Build all';
+  lisMenuProjectRun = 'Run';
+  lisMenuPause = 'Pause';
+  lisMenuStepInto = 'Step into';
+  lisMenuStepOver = 'Step over';
+  lisMenuRunToCursor = 'Run to cursor';
+  lisMenuStop = 'Stop';
+  lisMenuCompilerOptions = 'Compiler Options...';
+  lisMenuRunParameters = 'Run Parameters ...';
+  
+  lisMenuSettings = 'Settings ...';
+  lisMenuQuickSyntaxCheck = 'Quick syntax check';
+  lisMenuGuessUnclosedBlock = 'Guess unclosed block';
+  lisMenuBuildLazarus = 'Build Lazarus';
+  lisMenuConfigureBuildLazarus = 'Configure "Build Lazarus"';
+  
+  lisMenuGeneralOptions = 'General options';
+  lisMenuEditorOptions = 'Editor options';
+  lisMenuCodeToolsOptions = 'CodeTools options';
+  lisMenuCodeToolsDefinesEditor = 'CodeTools defines editor';
+  
+  lisMenuAboutLazarus = 'About Lazarus';
+
+  // resource files
+  lisResourceFileComment =
+    '{ This is an automatically generated lazarus resource file }';
+
+  // file dialogs
+  lisOpenFile = 'Open file';
+  lisOpenProjectFile = 'Open Project File';
+  lisSaveSpace = 'Save ';
+
+  // dialogs
+  lisSaveChangesToProject = 'Save changes to project?';
+  lisProjectChanged = 'Project changed';
+
+  lisFPCSourceDirectoryError = 'FPC Source Directory error';
+  lisPLzCheckTheFPCSourceDirectory = 'Please check the freepascal source directory';
+  lisCompilerError = 'Compiler error';
+  lisPlzCheckTheCmpilerName = 'Please check the compiler name';
+  lisAboutLazarus = 'About Lazarus';
+  lisAboutLazarusMsg =
+     'License: GPL/LGPL'
+    +#13
+    +'Lazarus are the class libraries for Free Pascal that emulate Delphi.'#13
+    +'Free Pascal is a (L)GPL''ed compiler that runs on Linux,'#13
+    +'Win32, OS/2, 68K and more. Free Pascal is designed to be able to'#13
+    +'understand and compile Delphi syntax, which is of course OOP.'#13
+    +'Lazarus is the missing part of the puzzle that will allow you to'#13
+    +'develop Delphi like programs in all of the above platforms.'#13
+    +'The IDE will eventually become a RAD tool like Delphi.'#13
+    +#13
+    +'As Lazarus is growing we need more developers.'#13
+    +'For example: Write a nicer about dialog with a logo.';
+  lsiUnitNameAlreadyExistsCap = 'Unitname already in project';
+  lsiUnitNameAlreadyExistsText = 'The unit "%s" already exists.'#13
+       +'Ignore will force the renaming,'#13
+       +'Cancel will cancel the saving of this source and'#13
+       +'Abort will abort the whole saving.';
+  lsiInvalidPascalIdentifierCap = 'Invalid Pascal Identifier';
+  lsiInvalidPascalIdentifierText = 'The name "%s" is not a valid pascal identifier.';
+
+  // hints
+  lsiHintNewUnit = 'New Unit';
+  lsiHintOpen = 'Open';
+  lsiHintSave = 'Save';
+  lsiHintSaveAll = 'Save all';
+  lsiHintNewForm = 'New Form';
+  lsiHintToggleFormUnit = 'Toggle Form/Unit';
+  lsiHintViewUnits = 'View Units';
+  lsiHintViewForms = 'View Forms';
+  lsiHintRun = 'Run';
+  lsiHintPause = 'Pause';
+  lsiHintStepInto = 'Step Into';
+  lsiHintStepOver = 'Step Over';
+
+implementation
+
+end.
+

ide/main.pp

@@ -32,9 +32,9 @@ uses
 {$IFDEF IDE_MEM_CHECK}
   MemCheck,
 {$ENDIF}
-  Classes, LCLType, LclLinux, Compiler, StdCtrls, Forms, Buttons,
+  Classes, LazarusIDEStrConsts, LCLType, LclLinux, Compiler, StdCtrls, Forms,
-  Menus, ComCtrls, Spin, Project, SysUtils, FileCtrl, Controls, Graphics,
+  Buttons, Menus, ComCtrls, Spin, Project, SysUtils, FileCtrl, Controls,
-  ExtCtrls, Dialogs, LazConf, CompReg, CodeToolManager, CodeCache,
+  Graphics, ExtCtrls, Dialogs, LazConf, CompReg, CodeToolManager, CodeCache,
   DefineTemplates, MsgView, NewProjectDlg, IDEComp, AbstractFormEditor,
   FormEditor, CustomFormEditor, ObjectInspector, PropEdits, ControlSelection,
   UnitEditor, CompilerOptions, EditorOptions, EnvironmentOpts, TransferMacros,
@@ -629,11 +629,11 @@ begin
   FreeThenNil(HintTimer1);
   FreeThenNil(HintWindow1);
 
-writeln('[TMainIDE.Destroy] B  -> inherited Destroy...');
+  writeln('[TMainIDE.Destroy] B  -> inherited Destroy...');
   {$IFDEF IDE_MEM_CHECK}CheckHeap(IntToStr(GetMem_Cnt));{$ENDIF}
   inherited Destroy;
   {$IFDEF IDE_MEM_CHECK}CheckHeap(IntToStr(GetMem_Cnt));{$ENDIF}
-writeln('[TMainIDE.Destroy] END');
+  writeln('[TMainIDE.Destroy] END');
 end;
 
 procedure TMainIDE.OIOnAddAvailableComponent(AComponent:TComponent;
@@ -660,10 +660,10 @@ var ActiveSrcEdit: TSourceEditor;
   ActiveUnitInfo: TUnitInfo;
 begin
   if not BeginCodeTool(ActiveSrcEdit,ActiveUnitInfo,true) then exit;
-{$IFDEF IDE_DEBUG}
+  {$IFDEF IDE_DEBUG}
-writeln('');
+  writeln('');
-writeln('[TMainIDE.OnPropHookGetMethods] ************');
+  writeln('[TMainIDE.OnPropHookGetMethods] ************');
-{$ENDIF}
+  {$ENDIF}
   if not CodeToolBoss.GetCompatiblePublishedMethods(ActiveUnitInfo.Source,
     ActiveUnitInfo.Form.ClassName,TypeData,Proc) then
   begin
@@ -688,11 +688,12 @@ end;
 
 procedure TMainIDE.FormCloseQuery(Sender : TObject; var CanClose: boolean);
 Begin
-writeln('[TMainIDE.FormCloseQuery]');
+  writeln('[TMainIDE.FormCloseQuery]');
   CanClose:=true;
 
   if SomethingOfProjectIsModified then begin
-    if (Application.MessageBox('Save changes to project?','Project changed', MB_IconQuestion+mb_YesNo))=mrYes then
+    if (MessageDlg(lisProjectChanged,lisSaveChangesToProject,
+      mtConfirmation,[mbYes,mbNo],0)=mrYes) then
     begin
       CanClose:=DoSaveProject([])<>mrAbort;
       if CanClose=false then exit;
@@ -717,7 +718,6 @@ procedure TMainIDE.SetupSpeedButtons;
     begin
       Name := AName;
       Parent := pnlSpeedButtons;
-//      Parent := Self;
       Enabled := True;
       Top := ATop;
       Left := ALeft;
@@ -730,7 +730,6 @@ procedure TMainIDE.SetupSpeedButtons;
       if mfLeft in AMoveFlags then Inc(ALeft, Width + 1);
       Hint := AHint;
       OnMouseMove := @MainMouseMoved;
-//writeln('---- W=',Width,',',Height,' Transparent=',Transparent);
       Visible := True;
     end;
   end;
@@ -746,17 +745,15 @@ begin
     Name := 'pnlSpeedButtons';
     Top := 0;
     Left:= 0;
-//    Width:= 160;
-//    Height:= 60;
     Caption:= '';
   end;
 
 
   ButtonTop := 1;
   ButtonLeft := 1;
-  NewUnitSpeedBtn       := CreateButton('NewUnitSpeedBtn'      , 'btn_newunit'   , 1, ButtonLeft, ButtonTop, [mfLeft], @mnuNewUnitClicked, 'New Unit');
+  NewUnitSpeedBtn       := CreateButton('NewUnitSpeedBtn'      , 'btn_newunit'   , 1, ButtonLeft, ButtonTop, [mfLeft], @mnuNewUnitClicked, lsiHintNewUnit);
 
-  OpenFileSpeedBtn      := CreateButton('OpenFileSpeedBtn'     , 'btn_openfile'  , 1, ButtonLeft, ButtonTop, [mfLeft], @mnuOpenClicked, 'Open');
+  OpenFileSpeedBtn      := CreateButton('OpenFileSpeedBtn'     , 'btn_openfile'  , 1, ButtonLeft, ButtonTop, [mfLeft], @mnuOpenClicked, lsiHintOpen);
 
   // store left
   n := ButtonLeft;
@@ -764,21 +761,21 @@ begin
   OpenFileArrowSpeedBtn.Width := 12;
   ButtonLeft := n+12+1;
   
-  SaveSpeedBtn          := CreateButton('SaveSpeedBtn'         , 'btn_save'      , 2, ButtonLeft, ButtonTop, [mfLeft], @mnuSaveClicked, 'Save');
+  SaveSpeedBtn          := CreateButton('SaveSpeedBtn'         , 'btn_save'      , 2, ButtonLeft, ButtonTop, [mfLeft], @mnuSaveClicked, lsiHintSave);
-  SaveAllSpeedBtn       := CreateButton('SaveAllSpeedBtn'      , 'btn_saveall'   , 1, ButtonLeft, ButtonTop, [mfLeft], @mnuSaveAllClicked, 'Save all');
+  SaveAllSpeedBtn       := CreateButton('SaveAllSpeedBtn'      , 'btn_saveall'   , 1, ButtonLeft, ButtonTop, [mfLeft], @mnuSaveAllClicked, lsiHintSaveAll);
-  NewFormSpeedBtn       := CreateButton('NewFormSpeedBtn'      , 'btn_newform'   , 1, ButtonLeft, ButtonTop, [mfLeft], @mnuNewFormClicked, 'New Form');
+  NewFormSpeedBtn       := CreateButton('NewFormSpeedBtn'      , 'btn_newform'   , 1, ButtonLeft, ButtonTop, [mfLeft], @mnuNewFormClicked, lsiHintNewForm);
-  ToggleFormSpeedBtn    := CreateButton('ToggleFormSpeedBtn'   , 'btn_toggleform', 2, ButtonLeft, ButtonTop, [mfLeft, mfTop], @mnuToggleFormUnitCLicked, 'Toggle Form/Unit');
+  ToggleFormSpeedBtn    := CreateButton('ToggleFormSpeedBtn'   , 'btn_toggleform', 2, ButtonLeft, ButtonTop, [mfLeft, mfTop], @mnuToggleFormUnitCLicked, lsiHintToggleFormUnit);
 
-// new row
+  // new row
   ButtonLeft := 1;
-  ViewUnitsSpeedBtn     := CreateButton('ViewUnitsSpeedBtn'    , 'btn_viewunits' , 1, ButtonLeft, ButtonTop, [mfLeft], @mnuViewUnitsClicked, 'View Units');
+  ViewUnitsSpeedBtn     := CreateButton('ViewUnitsSpeedBtn'    , 'btn_viewunits' , 1, ButtonLeft, ButtonTop, [mfLeft], @mnuViewUnitsClicked, lsiHintViewUnits);
-  ViewFormsSpeedBtn     := CreateButton('ViewFormsSpeedBtn'    , 'btn_viewforms' , 1, ButtonLeft, ButtonTop, [mfLeft], @mnuViewFormsClicked, 'View Forms');
+  ViewFormsSpeedBtn     := CreateButton('ViewFormsSpeedBtn'    , 'btn_viewforms' , 1, ButtonLeft, ButtonTop, [mfLeft], @mnuViewFormsClicked, lsiHintViewForms);
   inc(ButtonLeft,13);
-  RunSpeedButton        := CreateButton('RunSpeedButton'       , 'btn_run'       , 2, ButtonLeft, ButtonTop, [mfLeft], @mnuRunProjectClicked, 'Run');
+  RunSpeedButton        := CreateButton('RunSpeedButton'       , 'btn_run'       , 2, ButtonLeft, ButtonTop, [mfLeft], @mnuRunProjectClicked, lsiHintRun);
-  PauseSpeedButton      := CreateButton('PauseSpeedButton'     , 'btn_pause'       , 2, ButtonLeft, ButtonTop, [mfLeft], @mnuPauseProjectClicked, 'Pause');
+  PauseSpeedButton      := CreateButton('PauseSpeedButton'     , 'btn_pause'       , 2, ButtonLeft, ButtonTop, [mfLeft], @mnuPauseProjectClicked, lsiHintPause);
   PauseSpeedButton.Enabled:=false;
-  StepIntoSpeedButton  := CreateButton('StepIntoSpeedButton'   , 'btn_stepinto'       , 1, ButtonLeft, ButtonTop, [mfLeft], @mnuStepIntoProjectClicked, 'Step Into');
+  StepIntoSpeedButton  := CreateButton('StepIntoSpeedButton'   , 'btn_stepinto'       , 1, ButtonLeft, ButtonTop, [mfLeft], @mnuStepIntoProjectClicked, lsiHintStepInto);
-  StepOverSpeedButton  := CreateButton('StepOverpeedButton'   , 'btn_stepover'       , 1, ButtonLeft, ButtonTop, [mfLeft, mfTop], @mnuStepOverProjectClicked, 'Step Over');
+  StepOverSpeedButton  := CreateButton('StepOverpeedButton'   , 'btn_stepover'       , 1, ButtonLeft, ButtonTop, [mfLeft, mfTop], @mnuStepOverProjectClicked, lsiHintStepOver);
   
   pnlSpeedButtons.Width := ButtonLeft+1;
   pnlSpeedButtons.Height := ButtonTop+1;
@@ -788,12 +785,12 @@ begin
   OpenFilePopUpMenu := TPopupMenu.Create(self);
   OpenFilePopupMenu.Name:='OpenFilePopupMenu';
   OpenFilePopupMenu.AutoPopup := False;
-{ 
+  {
-  MenuItem := TMenuItem.Create(Self);
+    MenuItem := TMenuItem.Create(Self);
-  MenuItem.Caption := 'No files have been opened';
+    MenuItem.Caption := 'No files have been opened';
-  MenuItem.OnClick := nil;
+    MenuItem.OnClick := nil;
-  OpenFilePopupMenu.Items.Add(MenuItem);
+    OpenFilePopupMenu.Items.Add(MenuItem);
-}
+  }
 end;
 
 procedure TMainIDE.SetupComponentNoteBook;
@@ -803,9 +800,7 @@ begin
   with ComponentNotebook do begin
     Parent := Self;
     Name := 'ComponentNotebook';
-//    Align := alBottom;
     Left := ToggleFormSpeedBtn.Left + ToggleFormSpeedBtn.Width + 4;
-//    Top :=50+ 2;
     Top := 0;
     Width := Self.ClientWidth - Left;
     Height := 60; //Self.ClientHeight - ComponentNotebook.Top;
@@ -847,7 +842,7 @@ begin
         GroupIndex:= 1;
         Down := True;
         Name := 'GlobalMouseSpeedButton'+IntToStr(PageCount);
-        Hint := 'Selection tool';
+        Hint := lisSelectionTool;
         OnMouseMove := @MainMouseMoved;
       end;
       for x := 0 to RegCompPage.Count-1 do //for every component on the page....
@@ -970,39 +965,39 @@ procedure TMainIDE.SetupTransferMacros;
 begin
   MacroList:=TTransferMacroList.Create;
   MacroList.Add(TTransferMacro.Create('Col','',
-                    'Cursor column in current editor',nil,[]));
+                    lisCursorColumnInCurrentEditor,nil,[]));
   MacroList.Add(TTransferMacro.Create('Row','',
-                    'Cursor row in current editor',nil,[]));
+                    lisCursorRowInCUrrentEditor,nil,[]));
   MacroList.Add(TTransferMacro.Create('CompPath','',
-                    'Compiler filename',nil,[]));
+                    lisCompilerFilename,nil,[]));
   MacroList.Add(TTransferMacro.Create('CurToken','',
-                    'Word at cursor in current editor',nil,[]));
+                    lisWordAtCursorInCurrentEditor,nil,[]));
   MacroList.Add(TTransferMacro.Create('EdFile','',
-                    'Expanded filename of current editor file',nil,[]));
+                    lisExpandedFilenameOfCurrentEditor,nil,[]));
   MacroList.Add(TTransferMacro.Create('FPCSrcDir','',
-                    'Freepascal source directory',nil,[]));
+                    lisFreePascalSourceDirectory,nil,[]));
   MacroList.Add(TTransferMacro.Create('LazarusDir','',
-                    'Lazarus directory',nil,[]));
+                    lisLazarusDirectory,nil,[]));
   MacroList.Add(TTransferMacro.Create('LCLWidgetType','',
-                    'LCL Widget Type',nil,[]));
+                    lisLCLWidgetType,nil,[]));
   MacroList.Add(TTransferMacro.Create('Params','',
-                    'Command line parameters of program',nil,[]));
+                    lisCommandLineParamsOfProgram,nil,[]));
   MacroList.Add(TTransferMacro.Create('Prompt','',
-                    'Prompt for value',@OnMacroPromptFunction,[tmfInteractive]));
+                    lisPromptForValue,@OnMacroPromptFunction,[tmfInteractive]));
   MacroList.Add(TTransferMacro.Create('ProjFile','',
-                    'Project filename',nil,[]));
+                    lisProjectFilename,nil,[]));
   MacroList.Add(TTransferMacro.Create('ProjPath','',
-                    'Project directory',nil,[]));
+                    lisProjectDirectory,nil,[]));
   MacroList.Add(TTransferMacro.Create('Save','',
-                    'save current editor file',nil,[tmfInteractive]));
+                    lisSaveCurrentEditorFile,nil,[tmfInteractive]));
   MacroList.Add(TTransferMacro.Create('SaveAll','',
-                    'save all modified files',nil,[tmfInteractive]));
+                    lisSaveAllModified,nil,[tmfInteractive]));
   MacroList.Add(TTransferMacro.Create('TargetFile','',
-                    'Target filename of project',nil,[]));
+                    lisTargetFilenameOfProject,nil,[]));
   MacroList.Add(TTransferMacro.Create('TargetCmdLine','',
-                    'Target filename + params',nil,[]));
+                    lisTargetFilenamePlusParams,nil,[]));
   MacroList.Add(TTransferMacro.Create('RunCmdLine','',
-                    'Launching target command line',nil,[]));
+                    lisLaunchingCmdLine,nil,[]));
   MacroList.OnSubstitution:=@OnMacroSubstitution;
 end;
 
@@ -1014,9 +1009,9 @@ end;
 
 procedure TMainIDE.SetupStartProject;
 begin
-{$IFDEF IDE_DEBUG}
+  {$IFDEF IDE_DEBUG}
-writeln('TMainIDE.Create A ***********');
+  writeln('TMainIDE.Create A ***********');
-{$ENDIF}
+  {$ENDIF}
   {$IFDEF IDE_MEM_CHECK}CheckHeap(IntToStr(GetMem_Cnt));{$ENDIF}
   // load command line project or last project or create a new project
   if (ParamCount>0) and (ParamStr(ParamCount)[1]<>'-')
@@ -1028,17 +1023,17 @@ writeln('TMainIDE.Create A ***********');
   and (DoOpenProjectFile(EnvironmentOptions.LastSavedProjectFile)=mrOk) then
   begin
     // last project loaded
-{$IFDEF IDE_DEBUG}
+  {$IFDEF IDE_DEBUG}
-writeln('TMainIDE.Create last project loaded successfully');
+  writeln('TMainIDE.Create last project loaded successfully');
-{$ENDIF}
+  {$ENDIF}
   {$IFDEF IDE_MEM_CHECK}CheckHeap(IntToStr(GetMem_Cnt));{$ENDIF}
   end else
     // create new project
     DoNewProject(ptApplication);
 
-{$IFDEF IDE_DEBUG}
+  {$IFDEF IDE_DEBUG}
-writeln('TMainIDE.Create B');
+  writeln('TMainIDE.Create B');
-{$ENDIF}
+  {$ENDIF}
   {$IFDEF IDE_MEM_CHECK}CheckHeap(IntToStr(GetMem_Cnt));{$ENDIF}
 end;
 
@@ -1052,47 +1047,47 @@ begin
 
   mnuFile := TMenuItem.Create(Self);
   mnuFile.Name:='mnuFile';
-  mnuFile.Caption := '&File';
+  mnuFile.Caption := lisMenuFile;
   mnuMain.Items.Add(mnuFile);
 
   mnuEdit := TMenuItem.Create(Self);
   mnuEdit.Name:='mnuEdit';
-  mnuEdit.Caption := '&Edit';
+  mnuEdit.Caption := lisMenuEdit;
   mnuMain.Items.Add(mnuEdit);
 
   mnuSearch := TMenuItem.Create(Self);
   mnuSearch.Name:='mnuSearch';
-  mnuSearch.Caption := '&Search';
+  mnuSearch.Caption := lisMenuSearch;
   mnuMain.Items.Add(mnuSearch);
 
   mnuView := TMenuItem.Create(Self);
   mnuView.Name:='mnuView';
-  mnuView.Caption := '&View';
+  mnuView.Caption := lisMenuView;
   mnuMain.Items.Add(mnuView);
 
   mnuProject := TMenuItem.Create(Self);
   mnuProject.Name:='mnuProject';
-  mnuProject.Caption := '&Project';
+  mnuProject.Caption := lisMenuProject;
   mnuMain.Items.Add(mnuProject);
 
   mnuRun := TMenuItem.Create(Self);
   mnuRun.Name:='mnuRun';
-  mnuRun.Caption := '&Run';
+  mnuRun.Caption := lisMenuRun;
   mnuMain.Items.Add(mnuRun);
 
   mnuTools := TMenuItem.Create(Self);
   mnuTools.Name:='mnuTools';
-  mnuTools.Caption := '&Tools';
+  mnuTools.Caption := lisMenuTools;
   mnuMain.Items.Add(mnuTools);
 
   mnuEnvironment := TMenuItem.Create(Self);
   mnuEnvironment.Name:='mnuEnvironment';
-  mnuEnvironment.Caption := 'E&nvironment';
+  mnuEnvironment.Caption := lisMenuEnvironent;
   mnuMain.Items.Add(mnuEnvironment);
 
   mnuHelp := TMenuItem.Create(Self);
   mnuHelp.Name:='mnuHelp';
-  mnuHelp.Caption := '&Help';
+  mnuHelp.Caption := lisMenuHelp;
   mnuMain.Items.Add(mnuHelp);
 
   SetupFileMenu;
@@ -1124,13 +1119,13 @@ procedure TMainIDE.SetupFileMenu;
 begin
   itmFileNewUnit := TMenuItem.Create(Self);
   itmFileNewUnit.Name:='itmFileNewUnit';
-  itmFileNewUnit.Caption := 'New Unit';
+  itmFileNewUnit.Caption := lisMenuNewUnit;
   itmFileNewUnit.OnClick := @mnuNewUnitClicked; // ToDo:  new dialog
   mnuFile.Add(itmFileNewUnit);
 
   itmFileNewForm := TMenuItem.Create(Self);
   itmFileNewForm.Name:='itmFileNewForm';
-  itmFileNewForm.Caption := 'New Form';
+  itmFileNewForm.Caption := lisMenuNewForm;
   itmFileNewForm.OnClick := @mnuNewFormClicked;
   mnuFile.Add(itmFileNewForm);
 
@@ -1138,13 +1133,13 @@ begin
 
   itmFileOpen := TMenuItem.Create(Self);
   itmFileOpen.Name:='itmFileOpen';
-  itmFileOpen.Caption := 'Open';
+  itmFileOpen.Caption := lisMenuOpen;
   itmFileOpen.OnClick := @mnuOpenClicked;
   mnuFile.Add(itmFileOpen);
 
   itmFileRecentOpen := TMenuItem.Create(Self);
   itmFileRecentOpen.Name:='itmFileRecentOpen';
-  itmFileRecentOpen.Caption := 'Open Recent';
+  itmFileRecentOpen.Caption := lisMenuOpenRecent;
   mnuFile.Add(itmFileRecentOpen);
 
   AddRecentSubMenu(itmFileRecentOpen,EnvironmentOptions.RecentOpenFiles,
@@ -1152,32 +1147,32 @@ begin
 
   itmFileSave := TMenuItem.Create(Self);
   itmFileSave.Name:='itmFileSave';
-  itmFileSave.Caption := 'Save';
+  itmFileSave.Caption := lisMenuSave;
   itmFileSave.OnClick := @mnuSaveClicked;
   mnuFile.Add(itmFileSave);
 
   itmFileSaveAs := TMenuItem.Create(Self);
   itmFileSaveAs.Name:='itmFileSaveAs';
-  itmFileSaveAs.Caption := 'Save As';
+  itmFileSaveAs.Caption := lisMenuSaveAs;
   itmFileSaveAs.OnClick := @mnuSaveAsClicked;
   mnuFile.Add(itmFileSaveAs);
 
   itmFileSaveAll := TMenuItem.Create(Self);
   itmFileSaveAll.Name:='itmFileSaveAll';
-  itmFileSaveAll.Caption := 'Save All';
+  itmFileSaveAll.Caption := lisMenuSaveAll;
   itmFileSaveAll.OnClick := @mnuSaveAllClicked;
   mnuFile.Add(itmFileSaveAll);
 
   itmFileClose := TMenuItem.Create(Self);
   itmFileClose.Name:='itmFileClose';
-  itmFileClose.Caption := 'Close';
+  itmFileClose.Caption := lisMenuClose;
   itmFileClose.Enabled := False;
   itmFileClose.OnClick := @mnuCloseClicked;
   mnuFile.Add(itmFileClose);
 
   itmFileCloseAll := TMenuItem.Create(Self);
   itmFileCloseAll.Name:='itmFileCloseAll';
-  itmFileCloseAll.Caption := 'Close All';
+  itmFileCloseAll.Caption := lisMenuCloseAll;
   itmFileCloseAll.Enabled := False;
   itmFileCloseAll.OnClick := @mnuCloseAllClicked;
   mnuFile.Add(itmFileCloseAll);
@@ -1186,7 +1181,7 @@ begin
 
   itmFileQuit := TMenuItem.Create(Self);
   itmFileQuit.Name:='itmFileQuit';
-  itmFileQuit.Caption := 'Quit';
+  itmFileQuit.Caption := lisMenuQuit;
   itmFileQuit.OnClick := @mnuQuitClicked;
   mnuFile.Add(itmFileQuit);
 
@@ -1196,13 +1191,13 @@ procedure TMainIDE.SetupEditMenu;
 begin
   itmEditUndo := TMenuItem.Create(nil);
   itmEditUndo.Name:='itmEditUndo';
-  itmEditUndo.Caption := 'Undo';
+  itmEditUndo.Caption := lisMenuUndo;
   itmEditUndo.OnClick:=@mnuEditUndoClicked;
   mnuEdit.Add(itmEditUndo);
 
   itmEditRedo := TMenuItem.Create(nil);
   itmEditRedo.Name:='itmEditRedo';
-  itmEditRedo.Caption := 'Redo';
+  itmEditRedo.Caption := lisMenuRedo;
   itmEditRedo.OnClick:=@mnuEditRedoClicked;
   mnuEdit.Add(itmEditRedo);
 
@@ -1210,19 +1205,19 @@ begin
 
   itmEditCut  := TMenuItem.Create(nil);
   itmEditCut.Name:='itmEditCut';
-  itmEditCut.Caption := 'Cut';
+  itmEditCut.Caption := lisMenuCut;
   itmEditCut.OnClick:=@mnuEditCutClicked;
   mnuEdit.Add(itmEditCut);
 
   itmEditCopy := TMenuItem.Create(nil);
   itmEditCopy.Name:='itmEditCopy';
-  itmEditCopy.Caption := 'Copy';
+  itmEditCopy.Caption := lisMenuCopy;
   itmEditCopy.OnClick:=@mnuEditCopyClicked;
   mnuEdit.Add(itmEditCopy);
 
   itmEditPaste := TMenuItem.Create(nil);
   itmEditPaste.Name:='itmEditPaste';
-  itmEditPaste.Caption := 'Paste';
+  itmEditPaste.Caption := lisMenuPaste;
   itmEditPaste.OnClick:=@mnuEditPasteClicked;
   mnuEdit.Add(itmEditPaste);
 
@@ -1230,13 +1225,13 @@ begin
 
   itmEditIndentBlock := TMenuItem.Create(nil);
   itmEditIndentBlock.Name:='itmEditIndentBlock';
-  itmEditIndentBlock.Caption := 'Indent selection';
+  itmEditIndentBlock.Caption := lisMenuIndentSelection;
   itmEditIndentBlock.OnClick:=@mnuEditIndentBlockClicked;
   mnuEdit.Add(itmEditIndentBlock);
 
   itmEditUnindentBlock := TMenuItem.Create(nil);
   itmEditUnindentBlock.Name:='itmEditUnindentBlock';
-  itmEditUnindentBlock.Caption := 'Unindent selection';
+  itmEditUnindentBlock.Caption := lisMenuUnindentSelection;
   itmEditUnindentBlock.OnClick:=@mnuEditUnindentBlockClicked;
   mnuEdit.Add(itmEditUnindentBlock);
 
@@ -1244,7 +1239,7 @@ begin
 
   itmEditCompleteCode := TMenuItem.Create(nil);
   itmEditCompleteCode.Name:='itmEditCompleteCode';
-  itmEditCompleteCode.Caption := 'Complete Code';
+  itmEditCompleteCode.Caption := lisMenuCompleteCode;
   itmEditCompleteCode.OnClick:=@mnuEditCompleteCodeClicked;
   mnuEdit.Add(itmEditCompleteCode);
 end;
@@ -1253,86 +1248,86 @@ procedure TMainIDE.SetupSearchMenu;
 begin
   itmSearchFind := TMenuItem.Create(nil);
   itmSearchFind.Name:='itmSearchFind';
-  itmSearchFind.Caption := 'Find';
+  itmSearchFind.Caption := lisMenuFind;
   mnuSearch.add(itmSearchFind);
 
   itmSearchFindNext := TMenuItem.Create(nil);
   itmSearchFindNext.Name:='itmSearchFindNext';
-  itmSearchFindNext.Caption := 'Find &Next';
+  itmSearchFindNext.Caption := lisMenuFindNext;
   itmSearchFindNext.Enabled := False;
   mnuSearch.add(itmSearchFindNext);
 
   itmSearchFindPrevious := TMenuItem.Create(nil);
   itmSearchFindPrevious.Name:='itmSearchFindPrevious';
-  itmSearchFindPrevious.Caption := 'Find &Previous';
+  itmSearchFindPrevious.Caption := lisMenuFindPrevious;
   itmSearchFindPrevious.Enabled := False;
   mnuSearch.add(itmSearchFindPrevious);
 
   itmSearchFindInFiles := TMenuItem.Create(nil);
   itmSearchFindInFiles.Name:='itmSearchFindInFiles';
-  itmSearchFindInFiles.Caption := 'Find &in files';
+  itmSearchFindInFiles.Caption := lisMenuFindInFiles;
   itmSearchFindInFiles.Enabled := False;
   mnuSearch.add(itmSearchFindInFiles);
 
   itmSearchReplace := TMenuItem.Create(nil);
   itmSearchReplace.Name:='itmSearchReplace';
-  itmSearchReplace.Caption := 'Replace';
+  itmSearchReplace.Caption := lisMenuReplace;
   mnuSearch.add(itmSearchReplace);
 
   mnuSearch.Add(CreateSeperator);
 
   itmGotoLine := TMenuItem.Create(nil);
   itmGotoLine.Name:='itmGotoLine';
-  itmGotoLine.Caption := 'Goto line';
+  itmGotoLine.Caption := lisMenuGotoLine;
   mnuSearch.add(itmGotoLine);
 
   mnuSearch.Add(CreateSeperator);
 
   itmJumpBack := TMenuItem.Create(nil);
   itmJumpBack.Name:='itmJumpBack';
-  itmJumpBack.Caption := 'Jump back';
+  itmJumpBack.Caption := lisMenuJumpBack;
   mnuSearch.add(itmJumpBack);
 
   itmJumpForward := TMenuItem.Create(nil);
   itmJumpForward.Name:='itmJumpForward';
-  itmJumpForward.Caption := 'Jump forward';
+  itmJumpForward.Caption := lisMenuJumpForward;
   mnuSearch.add(itmJumpForward);
 
   itmAddJumpPoint := TMenuItem.Create(nil);
   itmAddJumpPoint.Name:='itmAddJumpPoint';
-  itmAddJumpPoint.Caption := 'Add jump point to history';
+  itmAddJumpPoint.Caption := lisMenuAddJumpPointToHistory;
   mnuSearch.add(itmAddJumpPoint);
 
   itmJumpHistory := TMenuItem.Create(nil);
   itmJumpHistory.Name:='itmJumpHistory';
-  itmJumpHistory.Caption := 'View Jump-History';
+  itmJumpHistory.Caption := lisMenuViewJumpHistory;
   mnuSearch.add(itmJumpHistory);
 
   mnuSearch.Add(CreateSeperator);
 
   itmFindBlockOtherEnd := TMenuItem.Create(nil);
   itmFindBlockOtherEnd.Name:='itmFindBlockOtherEnd';
-  itmFindBlockOtherEnd.Caption := 'Find other end of code block';
+  itmFindBlockOtherEnd.Caption := lisMenuFindBlockOtherEndOfCodeBlock;
   mnuSearch.add(itmFindBlockOtherEnd);
 
   itmFindBlockStart := TMenuItem.Create(nil);
   itmFindBlockStart.Name:='itmFindBlockStart';
-  itmFindBlockStart.Caption := 'Find code block start';
+  itmFindBlockStart.Caption := lisMenuFindCodeBlockStart;
   mnuSearch.add(itmFindBlockStart);
 
   itmFindDeclaration := TMenuItem.Create(nil);
   itmFindDeclaration.Name:='itmFindDeclaration';
-  itmFindDeclaration.Caption := 'Find Declaration at cursor';
+  itmFindDeclaration.Caption := lisMenuFindDeclarationAtCursor;
   mnuSearch.add(itmFindDeclaration);
 
   itmOpenFileAtCursor := TMenuItem.Create(nil);
   itmOpenFileAtCursor.Name:='itmOpenFileAtCursor';
-  itmOpenFileAtCursor.Caption := 'Open filename at cursor';
+  itmOpenFileAtCursor.Caption := lisMenuOpenFilenameAtCursor;
   mnuSearch.add(itmOpenFileAtCursor);
   
   itmGotoIncludeDirective := TMenuItem.Create(nil);
   itmGotoIncludeDirective.Name:='itmGotoIncludeDirective';
-  itmGotoIncludeDirective.Caption := 'Goto include directive';
+  itmGotoIncludeDirective.Caption := lisMenuGotoIncludeDirective;
   itmGotoIncludeDirective.OnClick:=@mnuGotoIncludeDirectiveClicked;
   mnuSearch.add(itmGotoIncludeDirective);
 end;
@@ -1341,20 +1336,20 @@ procedure TMainIDE.SetupViewMenu;
 begin
   itmViewInspector := TMenuItem.Create(Self);
   itmViewInspector.Name:='itmViewInspector';
-  itmViewInspector.Caption := 'Object Inspector';
+  itmViewInspector.Caption := lisMenuViewObjectInspector;
   itmViewInspector.OnClick := @mnuViewInspectorClicked;
   mnuView.Add(itmViewInspector);
 
   itmViewProject  := TMenuItem.Create(Self);
   itmViewProject.Name:='itmViewProject';
-  itmViewProject.Caption := 'Project Explorer';
+  itmViewProject.Caption := lisMenuViewProjectExplorer;
   mnuView.Add(itmViewProject);
 
   mnuView.Add(CreateSeperator);
 
   itmViewCodeExplorer := TMenuItem.Create(Self);
   itmViewCodeExplorer.Name:='itmViewCodeExplorer';
-  itmViewCodeExplorer.Caption := 'Code Explorer';
+  itmViewCodeExplorer.Caption := lisMenuViewCodeExplorer;
   itmViewCodeExplorer.OnClick := @mnuViewCodeExplorerClick;
   mnuView.Add(itmViewCodeExplorer);
 
@@ -1362,13 +1357,13 @@ begin
 
   itmViewUnits := TMenuItem.Create(Self);
   itmViewUnits.Name:='itmViewUnits';
-  itmViewUnits.Caption := 'Units...';
+  itmViewUnits.Caption := lisMenuViewUnits;
   itmViewUnits.OnClick := @mnuViewUnitsClicked;
   mnuView.Add(itmViewUnits);
 
   itmViewForms := TMenuItem.Create(Self);
   itmViewForms.Name:='itmViewForms';
-  itmViewForms.Caption := 'Forms...';
+  itmViewForms.Caption := lisMenuViewForms;
   itmViewForms.OnClick := @mnuViewFormsClicked;
   mnuView.Add(itmViewForms);
 
@@ -1376,33 +1371,33 @@ begin
 
   itmViewMessage := TMenuItem.Create(Self);
   itmViewMessage.Name:='itmViewMessage';
-  itmViewMessage.Caption := 'Messages';
+  itmViewMessage.Caption := lisMenuViewMessages;
   itmViewMessage.OnClick := @mnuViewMessagesClick;
   mnuView.Add(itmViewMessage);
 
   itmViewDebugWindows := TMenuItem.Create(Self);
   itmViewDebugWindows.Name := 'itmViewDebugWindows';
-  itmViewDebugWindows.Caption := 'Debug windows';
+  itmViewDebugWindows.Caption := lisMenuDebugWindows;
   mnuView.Add(itmViewDebugWindows);
   
   itmViewWatches := TMenuItem.Create(Self);
   itmViewWatches.Name:='itmViewWatches';
-  itmViewWatches.Caption := 'Watches';
+  itmViewWatches.Caption := lisMenuViewWatches;
   itmViewDebugWindows.Add(itmViewWatches);
 
   itmViewBreakPoints := TMenuItem.Create(Self);
   itmViewBreakPoints.Name:='itmViewBreakPoints';
-  itmViewBreakPoints.Caption := 'BreakPoints';
+  itmViewBreakPoints.Caption := lisMenuViewBreakPoints;
   itmViewDebugWindows.Add(itmViewBreakPoints);
 
   itmViewLocals := TMenuItem.Create(Self);
   itmViewLocals.Name:='itmViewLocals';
-  itmViewLocals.Caption := 'Local Variables';
+  itmViewLocals.Caption := lisMenuViewLocalVariables;
   itmViewDebugWindows.Add(itmViewLocals);
 
   itmViewDebugOutput := TMenuItem.Create(Self);
   itmViewDebugOutput.Name:='itmViewDebugOutput';
-  itmViewDebugOutput.Caption := 'Debug output';
+  itmViewDebugOutput.Caption := lisMenuViewDebugOutput;
   itmViewDebugWindows.Add(itmViewDebugOutput);
 end;
 
@@ -1410,19 +1405,19 @@ procedure TMainIDE.SetupProjectMenu;
 begin
   itmProjectNew := TMenuItem.Create(Self);
   itmProjectNew.Name:='itmProjectNew';
-  itmProjectNew.Caption := 'New Project';
+  itmProjectNew.Caption := lisMenuNewProject;
   itmProjectNew.OnClick := @mnuNewProjectClicked;
   mnuProject.Add(itmProjectNew);
 
   itmProjectOpen := TMenuItem.Create(Self);
   itmProjectOpen.Name:='itmProjectOpen';
-  itmProjectOpen.Caption := 'Open Project';
+  itmProjectOpen.Caption := lisMenuOpenProject;
   itmProjectOpen.OnClick := @mnuOpenProjectClicked;
   mnuProject.Add(itmProjectOpen);
 
   itmProjectRecentOpen := TMenuItem.Create(Self);
   itmProjectRecentOpen.Name:='itmProjectRecentOpen';
-  itmProjectRecentOpen.Caption := 'Open Recent Project';
+  itmProjectRecentOpen.Caption := lisMenuOpenRecentProject;
   mnuProject.Add(itmProjectRecentOpen);
 
   AddRecentSubMenu(itmProjectRecentOpen,EnvironmentOptions.RecentProjectFiles,
@@ -1430,13 +1425,13 @@ begin
 
   itmProjectSave := TMenuItem.Create(Self);
   itmProjectSave.Name:='itmProjectSave';
-  itmProjectSave.Caption := 'Save Project';
+  itmProjectSave.Caption := lisMenuSaveProject;
   itmProjectSave.OnClick := @mnuSaveProjectClicked;
   mnuProject.Add(itmProjectSave);
 
   itmProjectSaveAs := TMenuItem.Create(Self);
   itmProjectSaveAs.Name:='itmProjectSaveAs';
-  itmProjectSaveAs.Caption := 'Save Project As...';
+  itmProjectSaveAs.Caption := lisMenuSaveProjectAs;
   itmProjectSaveAs.OnClick := @mnuSaveProjectAsClicked;
   mnuProject.Add(itmProjectSaveAs);
 
@@ -1444,13 +1439,13 @@ begin
 
   itmProjectAddTo := TMenuItem.Create(Self);
   itmProjectAddTo.Name:='itmProjectAddTo';
-  itmProjectAddTo.Caption := 'Add active unit to Project';
+  itmProjectAddTo.Caption := lisMenuAddUnitToProject;
   itmProjectAddTo.OnClick := @mnuAddToProjectClicked;
   mnuProject.Add(itmProjectAddTo);
 
   itmProjectRemoveFrom := TMenuItem.Create(Self);
   itmProjectRemoveFrom.Name:='itmProjectRemoveFrom';
-  itmProjectRemoveFrom.Caption := 'Remove from Project';
+  itmProjectRemoveFrom.Caption := lisMenuRemoveUnitFromProject;
   itmProjectRemoveFrom.OnClick := @mnuRemoveFromProjectClicked;
   mnuProject.Add(itmProjectRemoveFrom);
 
@@ -1458,7 +1453,7 @@ begin
 
   itmProjectViewSource := TMenuItem.Create(Self);
   itmProjectViewSource.Name:='itmProjectViewSource';
-  itmProjectViewSource.Caption := 'View Source';
+  itmProjectViewSource.Caption := lisMenuViewSource;
   itmProjectViewSource.OnClick := @mnuViewProjectSourceClicked;
   mnuProject.Add(itmProjectViewSource);
 
@@ -1466,7 +1461,7 @@ begin
 
   itmProjectOptions := TMenuItem.Create(Self);
   itmProjectOptions.Name:='itmProjectOptions';
-  itmProjectOptions.Caption := 'Project Options...';
+  itmProjectOptions.Caption := lisMenuProjectOptions;
   itmProjectOptions.OnClick := @mnuProjectOptionsClicked;
   mnuProject.Add(itmProjectOptions);
 end;
@@ -1475,13 +1470,13 @@ procedure TMainIDE.SetupRunMenu;
 begin
   itmProjectBuild := TMenuItem.Create(Self);
   itmProjectBuild.Name:='itmProjectBuild';
-  itmProjectBuild.Caption := 'Build';
+  itmProjectBuild.Caption := lisMenuBuild;
   itmProjectBuild.OnClick := @mnuBuildProjectClicked;
   mnuRun.Add(itmProjectBuild);
 
   itmProjectBuildAll := TMenuItem.Create(Self);
   itmProjectBuildAll.Name:='itmProjectBuildAll';
-  itmProjectBuildAll.Caption := 'Build all';
+  itmProjectBuildAll.Caption := lisMenuBuildAll;
   itmProjectBuildAll.OnClick := @mnuBuildAllProjectClicked;
   mnuRun.Add(itmProjectBuildAll);
 
@@ -1489,38 +1484,38 @@ begin
 
   itmProjectRun := TMenuItem.Create(Self);
   itmProjectRun.Name:='itmProjectRun';
-  itmProjectRun.Caption := 'Run';
+  itmProjectRun.Caption := lisMenuProjectRun;
   itmProjectRun.OnClick := @mnuRunProjectClicked;
   mnuRun.Add(itmProjectRun);
 
   itmProjectPause := TMenuItem.Create(Self);
   itmProjectPause.Name:='itmProjectPause';
-  itmProjectPause.Caption := 'Pause';
+  itmProjectPause.Caption := lisMenuPause;
   itmProjectPause.OnClick := @mnuPauseProjectClicked;
   itmProjectPause.Enabled := false;
   mnuRun.Add(itmProjectPause);
 
   itmProjectStepInto := TMenuItem.Create(Self);
   itmProjectStepInto.Name:='itmProjectStepInto';
-  itmProjectStepInto.Caption := 'Step into';
+  itmProjectStepInto.Caption := lisMenuStepInto;
   itmProjectStepInto.OnClick := @mnuStepIntoProjectClicked;
   mnuRun.Add(itmProjectStepInto);
 
   itmProjectStepOver := TMenuItem.Create(Self);
   itmProjectStepOver.Name:='itmProjectStepOver';
-  itmProjectStepOver.Caption := 'Step over';
+  itmProjectStepOver.Caption := lisMenuStepOver;
   itmProjectStepOver.OnClick := @mnuStepOverProjectClicked;
   mnuRun.Add(itmProjectStepOver);
 
   itmProjectRunToCursor := TMenuItem.Create(Self);
   itmProjectRunToCursor.Name:='itmProjectRunToCursor';
-  itmProjectRunToCursor.Caption := 'Run to cursor';
+  itmProjectRunToCursor.Caption := lisMenuRunToCursor;
   itmProjectRunToCursor.OnClick := @mnuRunToCursorProjectClicked;
   mnuRun.Add(itmProjectRunToCursor);
 
   itmProjectStop := TMenuItem.Create(Self);
   itmProjectStop.Name:='itmProjectStop';
-  itmProjectStop.Caption := 'Stop';
+  itmProjectStop.Caption := lisMenuStop;
   itmProjectStop.OnClick := @mnuStopProjectClicked;
   mnuRun.Add(itmProjectStop);
 
@@ -1528,13 +1523,13 @@ begin
 
   itmProjectCompilerSettings := TMenuItem.Create(Self);
   itmProjectCompilerSettings.Name:='itmProjectCompilerSettings';
-  itmProjectCompilerSettings.Caption := 'Compiler Options...';
+  itmProjectCompilerSettings.Caption := lisMenuCompilerOptions;
   itmProjectCompilerSettings.OnClick := @mnuProjectCompilerSettingsClicked;
   mnuRun.Add(itmProjectCompilerSettings);
 
   itmProjectRunParameters := TMenuItem.Create(Self);
   itmProjectRunParameters.Name:='itmProjectRunParameters';
-  itmProjectRunParameters.Caption := 'Run Parameters ...';
+  itmProjectRunParameters.Caption := lisMenuRunParameters;
   itmProjectRunParameters.OnClick := @mnuRunParametersClicked;
   mnuRun.Add(itmProjectRunParameters);
 end;
@@ -1543,31 +1538,31 @@ procedure TMainIDE.SetupToolsMenu;
 begin
   itmToolConfigure := TMenuItem.Create(Self);
   itmToolConfigure.Name:='itmToolConfigure';
-  itmToolConfigure.Caption := 'Settings ...';
+  itmToolConfigure.Caption := lisMenuSettings;
   itmToolConfigure.OnClick := @mnuToolConfigureClicked;
   mnuTools.Add(itmToolConfigure);
 
   itmToolSyntaxCheck := TMenuItem.Create(Self);
   itmToolSyntaxCheck.Name:='itmToolSyntaxCheck';
-  itmToolSyntaxCheck.Caption := 'Quick syntax check';
+  itmToolSyntaxCheck.Caption := lisMenuQuickSyntaxCheck;
   itmToolSyntaxCheck.OnClick := @mnuToolSyntaxCheckClicked;
   mnuTools.Add(itmToolSyntaxCheck);
 
   itmToolGuessUnclosedBlockCheck := TMenuItem.Create(Self);
   itmToolGuessUnclosedBlockCheck.Name:='itmToolGuessUnclosedBlockCheck';
-  itmToolGuessUnclosedBlockCheck.Caption := 'Guess unclosed block';
+  itmToolGuessUnclosedBlockCheck.Caption := lisMenuGuessUnclosedBlock;
   itmToolGuessUnclosedBlockCheck.OnClick := @mnuToolGuessUnclosedBlockClicked;
   mnuTools.Add(itmToolGuessUnclosedBlockCheck);
 
   itmToolBuildLazarus := TMenuItem.Create(Self);
   itmToolBuildLazarus.Name:='itmToolBuildLazarus';
-  itmToolBuildLazarus.Caption := 'Build Lazarus';
+  itmToolBuildLazarus.Caption := lisMenuBuildLazarus;
   itmToolBuildLazarus.OnClick := @mnuToolBuildLazarusClicked;
   mnuTools.Add(itmToolBuildLazarus);
 
   itmToolConfigureBuildLazarus := TMenuItem.Create(Self);
   itmToolConfigureBuildLazarus.Name:='itmToolConfigureBuildLazarus';
-  itmToolConfigureBuildLazarus.Caption := 'Configure "Build Lazarus"';
+  itmToolConfigureBuildLazarus.Caption := lisMenuConfigureBuildLazarus;
   itmToolConfigureBuildLazarus.OnClick := @mnuToolConfigBuildLazClicked;
   mnuTools.Add(itmToolConfigureBuildLazarus);
 end;
@@ -1576,25 +1571,25 @@ procedure TMainIDE.SetupEnvironmentMenu;
 begin
   itmEnvGeneralOptions := TMenuItem.Create(nil);
   itmEnvGeneralOptions.Name:='itmEnvGeneralOptions';
-  itmEnvGeneralOptions.Caption := 'General options';
+  itmEnvGeneralOptions.Caption := lisMenuGeneralOptions;
   itmEnvGeneralOptions.OnCLick := @mnuEnvGeneralOptionsClicked;
   mnuEnvironment.Add(itmEnvGeneralOptions);
 
   itmEnvEditorOptions := TMenuItem.Create(nil);
   itmEnvEditorOptions.Name:='itmEnvEditorOptions';
-  itmEnvEditorOptions.Caption := 'Editor options';
+  itmEnvEditorOptions.Caption := lisMenuEditorOptions;
   itmEnvEditorOptions.OnCLick := @mnuEnvEditorOptionsClicked;
   mnuEnvironment.Add(itmEnvEditorOptions);
 
   itmEnvCodeToolsOptions := TMenuItem.Create(nil);
   itmEnvCodeToolsOptions.Name:='itmEnvCodeToolsOptions';
-  itmEnvCodeToolsOptions.Caption := 'CodeTools options';
+  itmEnvCodeToolsOptions.Caption := lisMenuCodeToolsOptions;
   itmEnvCodeToolsOptions.OnCLick := @mnuEnvCodeToolsOptionsClicked;
   mnuEnvironment.Add(itmEnvCodeToolsOptions);
 
   itmEnvCodeToolsDefinesEditor := TMenuItem.Create(nil);
   itmEnvCodeToolsDefinesEditor.Name:='itmEnvCodeToolsDefinesEditor';
-  itmEnvCodeToolsDefinesEditor.Caption := 'CodeTools defines editor';
+  itmEnvCodeToolsDefinesEditor.Caption := lisMenuCodeToolsDefinesEditor;
   itmEnvCodeToolsDefinesEditor.OnCLick := @mnuEnvCodeToolsDefinesEditorClicked;
   mnuEnvironment.Add(itmEnvCodeToolsDefinesEditor);
 end;
@@ -1603,7 +1598,7 @@ procedure TMainIDE.SetupHelpMenu;
 begin
   itmHelpAboutLazarus := TMenuItem.Create(nil);
   itmHelpAboutLazarus.Name:='itmHelpAboutLazarus';
-  itmHelpAboutLazarus.Caption := 'About Lazarus';
+  itmHelpAboutLazarus.Caption := lisMenuAboutLazarus;
   itmHelpAboutLazarus.OnCLick := @mnuHelpAboutLazarusClicked;
   mnuHelp.Add(itmHelpAboutLazarus);
 end;
@@ -1696,7 +1691,7 @@ begin
   or (Sender is TSourceNoteBook) then begin
     OpenDialog:=TOpenDialog.Create(Application);
     try
-      OpenDialog.Title:='Open file';
+      OpenDialog.Title:=lisOpenFile;
       OpenDialog.InitialDir:=EnvironmentOptions.LastOpenDialogDir;
       OpenDialog.Options:=[ofAllowMultiSelect];
       if OpenDialog.Execute and (OpenDialog.Files.Count>0) then begin
@@ -1868,12 +1863,8 @@ var ActiveSrcEdit:TSourceEditor;
 begin
   GetCurrentUnit(ActiveSrcEdit,ActiveUnitInfo);
   if (ActiveSrcEdit=nil) or (ActiveUnitInfo=nil) then exit;
-  ShortUnitName:=ExtractFileName(ActiveUnitInfo.Filename);
+  ShortUnitName:=ActiveSrcEdit.ShortName;
-  if ShortUnitName='' then
-    ShortUnitName:='(unsaved)';
   AFilename:=ActiveUnitInfo.Filename;
-  if AFileName='' then
-    AFileName:='(unsaved)';
   ShowUnitInfoDlg(ShortUnitName,
     LazSyntaxHighlighterNames[ActiveUnitInfo.SyntaxHighlighter],
     ActiveUnitInfo.IsPartOfProject, length(ActiveSrcEdit.Source.Text),
@@ -1891,13 +1882,13 @@ end;
 
 Procedure TMainIDE.SetDefaultsforForm(aForm : TCustomForm);
 Begin
-{$IFDEF IDE_DEBUG}
+  {$IFDEF IDE_DEBUG}
-writeln('[TMainIDE.SetDefaultsforForm] A');
+  writeln('[TMainIDE.SetDefaultsforForm] A');
-{$ENDIF}
+  {$ENDIF}
   aForm.Designer := TDesigner.Create(aForm, TheControlSelection);
-{$IFDEF IDE_DEBUG}
+  {$IFDEF IDE_DEBUG}
-writeln('[TMainIDE.SetDefaultsforForm] B');
+  writeln('[TMainIDE.SetDefaultsforForm] B');
-{$ENDIF}
+  {$ENDIF}
   with TDesigner(aForm.Designer) do begin
     FormEditor := FormEditor1;
     OnGetSelectedComponentClass:=@OnDesignerGetSelectedComponentClass;
@@ -1922,13 +1913,13 @@ var CanClose: boolean;
 begin
   CanClose:=true;
   OnCloseQuery(Sender, CanClose);
-{$IFDEF IDE_DEBUG}
+  {$IFDEF IDE_DEBUG}
-writeln('TMainIDE.mnuQuitClicked 1');
+  writeln('TMainIDE.mnuQuitClicked 1');
-{$ENDIF}
+  {$ENDIF}
   if CanClose then Close;
-{$IFDEF IDE_DEBUG}
+  {$IFDEF IDE_DEBUG}
-writeln('TMainIDE.mnuQuitClicked 2');
+  writeln('TMainIDE.mnuQuitClicked 2');
-{$ENDIF}
+  {$ENDIF}
 end;
 
 {------------------------------------------------------------------------------}
@@ -1977,7 +1968,7 @@ begin
   if Sender=itmProjectOpen then begin
     OpenDialog:=TOpenDialog.Create(Application);
     try
-      OpenDialog.Title:='Open Project File (*.lpi)';
+      OpenDialog.Title:=lisOpenProjectFile+' (*.lpi)';
       OPenDialog.Filter := '*.lpi';
       OpenDialog.InitialDir:=EnvironmentOptions.LastOpenDialogDir;
       if OpenDialog.Execute then begin
@@ -2237,12 +2228,12 @@ Begin
                                                            FPCSrcTemplate.Name);
             FPCSrcTemplate.InsertBehind(CompilerTemplate);
           end else begin
-            MessageDlg('FPC Source Directory error',
+            MessageDlg(lisFPCSourceDirectoryError,
-              'Please check the freepascal source directory',
+              lisPLzCheckTheFPCSourceDirectory,
               mtError,[mbOk],0);
           end;
         end else begin
-          MessageDlg('Compiler error','Please check the compiler name',
+          MessageDlg(lisCompilerError,lisPlzCheckTheCmpilerName,
             mtError,[mbOk],0);
         end;
       end;
@@ -2288,20 +2279,7 @@ end;
 
 procedure TMainIDE.mnuHelpAboutLazarusClicked(Sender : TObject);
 begin
-  MessageDlg('About Lazarus',
+  MessageDlg(lisAboutLazarus,'Lazarus '+Version_String+#13+lisAboutLazarusMsg
-    'Lazarus '+Version_String+#13
-    +'License: GPL/LGPL'
-    +#13
-    +'Lazarus are the class libraries for Free Pascal that emulate Delphi.'#13
-    +'Free Pascal is a (L)GPL''ed compiler that runs on Linux,'#13
-    +'Win32, OS/2, 68K and more. Free Pascal is designed to be able to'#13
-    +'understand and compile Delphi syntax, which is of course OOP.'#13
-    +'Lazarus is the missing part of the puzzle that will allow you to'#13
-    +'develop Delphi like programs in all of the above platforms.'#13
-    +'The IDE will eventually become a RAD tool like Delphi.'#13
-    +#13
-    +'As Lazarus is growing we need more developers.'#13
-    +'For example: Write a nicer about dialog with a logo.'
     ,mtInformation, [mbOk], 0);
 end;
 
@@ -2346,8 +2324,7 @@ begin
   // create a buffer for the new resource file and for the LFM file
   ResourceCode:=
     CodeToolBoss.CreateFile(ChangeFileExt(NewUnitInfo.Filename,ResourceFileExt));
-  ResourceCode.Source:=
+  ResourceCode.Source:=lisResourceFileComment;
-    '{ This is an automatically generated lazarus resource file }';
   CodeToolBoss.CreateFile(ChangeFileExt(NewUnitInfo.Filename,'.lfm'));
 
   // clear formeditor
@@ -2448,7 +2425,7 @@ begin
   SaveDialog:=TSaveDialog.Create(Application);
   try
     // show save dialog
-    SaveDialog.Title:='Save '+SaveAsFilename+' (*'+SaveAsFileExt+')';
+    SaveDialog.Title:=lisSaveSpace+SaveAsFilename+' (*'+SaveAsFileExt+')';
     SaveDialog.FileName:=SaveAsFilename+SaveAsFileExt;
     SaveDialog.InitialDir:=EnvironmentOptions.LastOpenDialogDir;
     if not SaveDialog.Execute then begin
@@ -2468,11 +2445,8 @@ begin
   if NewUnitName='' then exit;
   if Project1.IndexOfUnitWithName(NewUnitName,true,AnUnitInfo)>=0 then
   begin
-    Result:=MessageDlg('Unitname already in project',
+    Result:=MessageDlg(lsiUnitNameAlreadyExistsCap,
-       'The unit "'+NewUnitName+'" already exists.'#13
+       Format(lsiUnitNameAlreadyExistsText,[NewUnitName]),
-       +'Ignore will force the renaming,'#13
-       +'Cancel will cancel the saving of this source and'#13
-       +'Abort will abort the whole saving.',
         mtConfirmation,[mbIgnore,mbCancel,mbAbort],0);
     if Result=mrIgnore then
       Result:=mrCancel
@@ -2481,9 +2455,9 @@ begin
   end;
   if FilenameIsPascalUnit(NewFilename) then begin
     if not IsValidIdent(NewUnitName) then begin
-      Result:=MessageDlg('Invalid Pascal Identifier',
+      Result:=MessageDlg(lsiInvalidPascalIdentifierCap,
-        'The name "'+NewUnitName+'" is not a valid pascal identifier.'
+        Format(lsiInvalidPascalIdentifierText,[NewUnitName]),
-        ,mtWarning,[mbIgnore,mbCancel],0);
+        mtWarning,[mbIgnore,mbCancel],0);
       if Result=mrCancel then exit;
       Result:=mrCancel;
     end;
@@ -6219,6 +6193,9 @@ end.
 
 { =============================================================================
   $Log$
+  Revision 1.266  2002/03/29 23:22:20  lazarus
+  MG: started internationalization of IDE
+
   Revision 1.265  2002/03/29 14:32:46  lazarus
   MG: further internationalization
 

ide/uniteditor.pp

@@ -681,7 +681,8 @@ var a,x,y:integer;
 begin
   if FAOwner<>nil then
     TSourceNotebook(FAOwner).UpdateStatusBar;
-  AText:='Replace this occurrence of '''+ASearch+''' with '''+AReplace+'''?';
+  AText:='Replace this occurrence of "'+ASearch+'"'#13
+         +' with "'+AReplace+'"?';
 
   GetDialogPosition(300,150,X,Y);
   a:=MessageDlgPos(AText,mtconfirmation,