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

IDE: added macro LazVer, from Mike Thompson

Browse Source 
git-svn-id: trunk@45616 -
This commit is contained in:
mattias 2014-06-22 16:27:51 +00:00
parent e7656175f0
commit 33ebf1adac
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/buildmanager.pas
View File

@ -96,6 +96,8 @@ type
var {%H-}Abort: boolean): string;
function MacroFuncLCLWidgetType(const {%H-}Param: string; const Data: PtrInt;
var {%H-}Abort: boolean): string;
function MacroFuncLazVer(const {%H-}Param: string; const Data: PtrInt;
var {%H-}Abort: boolean): string;
function MacroFuncMake(const {%H-}Param: string; const {%H-}Data: PtrInt;
var {%H-}Abort: boolean): string;// make utility
function MacroFuncMakeExe(const Filename: string; const {%H-}Data: PtrInt;
@ -434,6 +436,8 @@ begin
lisSecondaryConfigPath, @MacroFuncSecondaryConfigPath, []));
GlobalMacroList.Add(TTransferMacro.Create('FallbackOutputRoot','',
lisSecondaryConfigPath, @MacroFuncFallbackOutputRoot, []));
GlobalMacroList.Add(TTransferMacro.Create('LAZVer','',
lisLAZVer, @MacroFuncLazVer, []));
// codetools macro functions
CodeToolBoss.DefineTree.MacroFunctions.AddExtended(
@ -465,6 +469,7 @@ begin
tr('TargetOS',lisTargetOS);
tr('SrcOS',lisSrcOS);
tr('FPCVer',lisFPCVersionEG222);
tr('LAZVer',lisLAZVer);
tr('Params',lisCommandLineParamsOfProgram);
tr('ProjFile',lisProjectFilename);
tr('ProjPath',lisProjectDirectory);
@ -1993,6 +1998,12 @@ begin
Result:=GetLCLWidgetType;
end;
function TBuildManager.MacroFuncLazVer(const Param: string; const Data: PtrInt;
var Abort: boolean): string;
begin
Result:=LazarusVersionStr;
end;
function TBuildManager.MacroFuncTargetCPU(const Param: string;
const Data: PtrInt; var Abort: boolean): string;
begin

1
ide/lazarusidestrconsts.pas
View File

@ -4972,6 +4972,7 @@ resourcestring
lisTheUnitSearchPathOfContainsTheSourceDirectoryOfPac = 'The unit search '
+'path of "%s" contains the source directory "%s" of package %s';
lisFPCVersionEG222 = 'FPC Version (e.g. 2.2.2)';
lisLAZVer = 'Lazarus Version (e.g. 1.2.4)';
lisMissingIdentifiers = 'Missing identifiers';
lisChooseAFPDocLink = 'Choose a FPDoc link';
lisLinkTarget = 'Link target';