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

IDE: lazconf: clean up

Browse Source 
git-svn-id: trunk@32520 -
This commit is contained in:
mattias 2011-09-26 19:12:39 +00:00
parent a66b61d32c
commit d551fda25d
2 changed files with 15 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/languages/syneditstrconst.fr.po
View File

@ -400,11 +400,11 @@ msgstr ""
#, fuzzy #, fuzzy
#| msgid "Shortcut already exists" #| msgid "Shortcut already exists"
msgid "The keystroke \"%s\" is already assigned to another editor command. (%s)" msgid "The keystroke \"%s\" is already assigned to another editor command. (%s)"
msgstr "La séquence \"%s\" est déjà affectée à une autre commande de l'éditeur. (%s)" msgstr "La s?quence \"%s\" est d?j? affect?e ? une autre commande de l'?diteur. (%s)"
#: syneditstrconst.syns_eduplicateshortcut #: syneditstrconst.syns_eduplicateshortcut
msgid "Mouse-Shortcut already exists" msgid "Mouse-Shortcut already exists"
msgstr "Raccourci déjà existant" msgstr "Raccourci d?j? existant"
#: syneditstrconst.syns_emcbreakpointtoggle #: syneditstrconst.syns_emcbreakpointtoggle
msgid "Toggle Breakpoint" msgid "Toggle Breakpoint"

40
ide/lazconf.pp
View File

@ -84,19 +84,23 @@ procedure CopySecondaryConfigFile(const AFilename: String);
function GetProjectSessionsConfigPath: String; function GetProjectSessionsConfigPath: String;
function GetDefaultTestBuildDirectory: string; function GetDefaultTestBuildDirectory: string;
procedure GetDefaultTestBuildDirs(List: TStrings);
// create a pascal file, which can be used to test the compiler
function CreateCompilerTestPascalFilename: string;
function FindDefaultExecutablePath(const Executable: string): string; function FindDefaultExecutablePath(const Executable: string): string;
function FindDefaultCompilerPath: string; function GetDefaultCompilerFilename: string; // e.g. ppc386.exe
function FindDefaultMakePath: string; procedure GetDefaultCompilerFilenames(List: TStrings); // list of standard paths of compiler on various distributions
function FindDefaultFPCSrcDirectory: string; function FindDefaultCompilerPath: string; // full path of GetDefaultCompilerFilename
function FindDefaultMakePath: string; // full path of "make"
procedure GetDefaultMakeFilenames(List: TStrings); // list of standard paths of "make" on various distributions
function GetDefaultFPCSrcDirectories: TStringList; function GetDefaultFPCSrcDirectories: TStringList;
function FindDefaultLazarusSrcDirectory: string;
function GetDefaultLazarusSrcDirectories: TStringList; function GetDefaultLazarusSrcDirectories: TStringList;
function CheckFPCSourceDir(ADirectory: string): boolean; function CheckFPCSourceDir(ADirectory: string): boolean;
function CheckLazarusDirectory(const ADirectory: string): boolean; function CheckLazarusDirectory(const ADirectory: string): boolean;
// create a pascal file, which can be used to test the compiler function GetDefaultTargetCPU: string;
function CreateCompilerTestPascalFilename: string; function GetDefaultTargetOS: string;
// returns the standard executable extension (e.g '.exe') // returns the standard executable extension (e.g '.exe')
function GetExecutableExt(TargetOS: string = ''): string; function GetExecutableExt(TargetOS: string = ''): string;
@ -112,20 +116,13 @@ function GetDefaultCompiledUnitExt({%H-}FPCVersion, {%H-}FPCRelease: integer): s
function OSLocksExecutables: boolean; function OSLocksExecutables: boolean;
procedure GetDefaultCompilerFilenames(List: TStrings); // returns the default browser
procedure GetDefaultMakeFilenames(List: TStrings); procedure GetDefaultBrowser(var Browser, Params: string);
procedure GetDefaultTestBuildDirs(List: TStrings);
function GetDefaultCompilerFilename: string;
function GetDefaultTargetCPU: string;
function GetDefaultTargetOS: string;
// LCL
function GetDefaultLCLWidgetType: TLCLPlatform; function GetDefaultLCLWidgetType: TLCLPlatform;
function DirNameToLCLPlatform(const ADirName: string): TLCLPlatform; function DirNameToLCLPlatform(const ADirName: string): TLCLPlatform;
// returrns the default browser
procedure GetDefaultBrowser(var Browser, Params: string);
// Replace OnGetApplicationName, so that Application.Title // Replace OnGetApplicationName, so that Application.Title
// doesn't interfere with GetAppConfigDir and related. // doesn't interfere with GetAppConfigDir and related.
function GetLazarusApplicationName: string; function GetLazarusApplicationName: string;
@ -432,17 +429,6 @@ begin
end; end;
end; end;
function FindDefaultFPCSrcDirectory: string;
var
i: integer;
begin
for i:=Low(DefaultFPCSrcDirs) to High(DefaultFPCSrcDirs) do begin
Result:=DefaultFPCSrcDirs[i];
if CheckFPCSourceDir(Result) then exit;
end;
Result:='';
end;
function GetDefaultFPCSrcDirectories: TStringList; function GetDefaultFPCSrcDirectories: TStringList;
var var
i: Integer; i: Integer;