File: unit1.pas

package info (click to toggle)
lazarus 0.9.28.2-12
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 93,096 kB
  • ctags: 89,312
  • sloc: pascal: 820,189; xml: 202,194; makefile: 110,323; sh: 2,460; perl: 395; sql: 174; ansic: 133
file content (65 lines) | stat: -rw-r--r-- 1,514 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, LCLVersion,
  StdCtrls;

type

  { TVersionForm }

  TVersionForm = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  VersionForm: TVersionForm;

implementation

{ TVersionForm }

procedure TVersionForm.FormCreate(Sender: TObject);
begin
  Memo1.Clear;
  // check if lcl_version is declared,
  // then we know if there is support for lcl version information
  {$if declared(lcl_version)}
  Memo1.Append('Example which uses the lcl version information');
  Memo1.Append(format('LCL Version: %s', [lcl_version]));
  Memo1.Append(format('LCL Major: %d', [lcl_major]));
  Memo1.Append(format('LCL Minor: %d', [lcl_minor]));
  Memo1.Append(format('LCL Release: %d', [lcl_release]));
  {$else}
  Memo1.Append('No lcl version information available');
  {$endif}
end;

procedure TVersionForm.Button1Click(Sender: TObject);
begin
  Memo1.Clear;
  {$if (lcl_major=0) and (lcl_minor=9) and (lcl_release<26)}
  Memo1.Append('This program is compiled with lcl version before 0.9.26');
  // you cannot use features introduced in 0.9.26
  {$else}
  Memo1.Append('This program is compiled with lcl version 0.9.26 or later.');
  // you can use features available in 0.9.26
  {$endif}
end;

initialization
  {$I unit1.lrs}

end.