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

lclversion example: extended to show use of lcl_fullversion.

Browse Source 
git-svn-id: trunk@28835 -
This commit is contained in:
vincents 2010-12-30 09:12:10 +00:00
parent d58923f26f
commit 4f67325894
2 changed files with 23 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
examples/lclversion/lclversionexample.lpi
View File

@ -1,18 +1,22 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<Version Value="6"/>
<General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
<Title Value="lclversionexample"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
@ -38,19 +42,20 @@
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<ComponentName Value="VersionForm"/>
<IsPartOfProject Value="True"/>
<ResourceFilename Value="unit1.lrs"/>
<ComponentName Value="VersionForm"/>
<UnitName Value="Unit1"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<Version Value="9"/>
<PathDelim Value="\"/>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Options>
<Win32>

8
examples/lclversion/unit1.pas
View File

@ -41,6 +41,7 @@ begin
Memo1.Append(format('LCL Major: %d', [lcl_major]));
Memo1.Append(format('LCL Minor: %d', [lcl_minor]));
Memo1.Append(format('LCL Release: %d', [lcl_release]));
Memo1.Append(format('LCL Full Version: %d', [lcl_fullversion]));
{$else}
Memo1.Append('No lcl version information available');
{$endif}
@ -56,6 +57,13 @@ begin
Memo1.Append('This program is compiled with lcl version 0.9.26 or later.');
// you can use features available in 0.9.26
{$endif}
{$if (lcl_fullversion) > 93002}
Memo1.Append('This program is compiled with lcl version after 0.9.30.2.');
// you can use features available in 0.9.30.3 and later (e.g. 0.9.31)
{$else}
Memo1.Append('This program is compiled with lcl version 0.9.30.2 or before.');
// you cannot use features introduced after 0.9.30.2
{$endif}
end;
initialization