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

IDE: Added optional parameters for the LazVer macro similar to ProjVer

Browse Source
This commit is contained in:
n7800 2024-12-20 14:45:22 +05:00 committed by Juha
parent a4e6f6d2e4
commit 0ae105c41b
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/buildmanager.pas
View File

@ -35,7 +35,7 @@ interface
uses
// RTL + FCL
Classes, SysUtils, Types, AVL_Tree, System.UITypes,
Classes, SysUtils, Types, AVL_Tree, System.UITypes, StrUtils,
// LCL
InterfaceBase, LCLPlatformDef,
// CodeTools
@ -2273,7 +2273,15 @@ end;
function TBuildManager.MacroFuncLazVer(const Param: string; const Data: PtrInt;
var Abort: boolean): string;
begin
Result:=LazarusVersionStr;
if Param = '' then exit(LazarusVersionStr)
else if CompareText(Param, 'major') = 0 then result := ExtractDelimited(1, LazarusVersionStr, ['.'])
else if CompareText(Param, 'minor') = 0 then result := ExtractDelimited(2, LazarusVersionStr, ['.'])
else if CompareText(Param, 'rev' ) = 0 then result := ExtractDelimited(3, LazarusVersionStr, ['.'])
else if CompareText(Param, 'build') = 0 then result := ExtractDelimited(4, LazarusVersionStr, ['.'])
else exit(''); // invalid parameter
if result = '' then
result := '0';
end;
function TBuildManager.MacroFuncTargetCPU(const Param: string;