paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-01 22:19:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Use word "executable" for selecting program executables in environment options.

Browse Source 
git-svn-id: trunk@46719 -
This commit is contained in:
juha 2014-10-30 19:49:22 +00:00
parent 485bb1b4d6
commit b155443682
4 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
debugger/frames/debugger_general_options.pas
View File

@ -109,7 +109,7 @@ begin
try
InputHistories.ApplyFileDialogSettings(OpenDialog);
OpenDialog.Options:=OpenDialog.Options+[ofPathMustExist];
OpenDialog.Title:=lisChooseDebuggerPath;
OpenDialog.Title:=lisChooseDebuggerExecutable;
if OpenDialog.Execute then begin
AFilename:=CleanAndExpandFilename(OpenDialog.Filename);

2
ide/frames/compiler_compilation_options.pas
View File

@ -87,7 +87,7 @@ begin
// set title
if Sender=BrowseCompilerButton then begin
Combo:=cobCompiler;
OpenDialog.Title:=Format(lisChooseCompilerPath,[GetDefaultCompilerFilename])
OpenDialog.Title:=Format(lisChooseCompilerExecutable,[GetDefaultCompilerFilename])
end else if (Sender=ExecAfterBrowseButton) then begin
Combo:=ExecuteAfterCommandComboBox;
OpenDialog.Title:='Choose an executable';

9
ide/frames/files_options.pas
View File

@ -121,10 +121,9 @@ begin
OpenDialog.Options:=OpenDialog.Options+[ofPathMustExist];
// set title
if Sender=CompilerPathButton then
OpenDialog.Title:=
Format(lisChooseCompilerPath,[GetDefaultCompilerFilename])
OpenDialog.Title:=Format(lisChooseCompilerExecutable,[GetDefaultCompilerFilename])
else if Sender=MakePathButton then
OpenDialog.Title:=lisChooseMakePath
OpenDialog.Title:=lisChooseMakeExecutable
else
exit;
@ -232,9 +231,9 @@ begin
EndUpdate;
end;
CompilerPathLabel.Caption:=Format(dlgFpcPath,[GetDefaultCompilerFilename]);
CompilerPathLabel.Caption:=Format(dlgFpcExecutable,[GetDefaultCompilerFilename]);
FPCSourceDirLabel.Caption:=dlgFpcSrcPath;
MakePathLabel.Caption:=dlgMakePath;
MakePathLabel.Caption:=dlgMakeExecutable;
with MakePathComboBox.Items do
begin
BeginUpdate;

10
ide/lazarusidestrconsts.pas
View File

@ -973,11 +973,11 @@ resourcestring
lisDestinationDirectory = 'Destination directory';
lisCommandAfter = 'Command after';
lisChooseLazarusSourceDirectory = 'Choose Lazarus Directory';
lisChooseCompilerPath = 'Choose compiler filename (%s)';
lisChooseCompilerExecutable = 'Choose compiler executable (%s)';
lisChooseFPCSourceDir = 'Choose FPC source directory';
lisChooseCompilerMessages = 'Choose compiler messages file';
lisChooseMakePath = 'Choose make path';
lisChooseDebuggerPath = 'Choose debugger filename';
lisChooseMakeExecutable = 'Choose "make" executable';
lisChooseDebuggerExecutable = 'Choose debugger executable';
lisChooseTestBuildDir = 'Choose the directory for tests';
lisLazarusDesktopSettings = 'Lazarus Desktop Settings';
lisXMLFiles = 'XML files';
@ -1275,9 +1275,9 @@ resourcestring
dlgMaxRecentProjs = 'Max recent project files';
dlgQOpenLastPrj = 'Open last project at start';
dlgLazarusDir = 'Lazarus directory (default for all projects)';
dlgFpcPath = 'Compiler path (e.g. %s)';
dlgFpcExecutable = 'Compiler executable (e.g. %s)';
dlgFpcSrcPath = 'FPC source directory';
dlgMakePath = 'Make path';
dlgMakeExecutable = '"Make" executable';
dlgCompilerMessages = 'Compiler messages language file (*.msg)';
lisSetThisToTranslateTheCompilerMessagesToAnotherLang = 'Set this to '
+'translate the compiler messages to another language (i.e. not English). '