TilesetGenerator/u_about.pas at master · marcoslm/TilesetGenerator · GitHub

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
unit u_About;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls;

type

  { TfrmAcerca }

  TfrmAcerca = class(TForm)
    btnCerrar: TButton;
    Image1: TImage;
    lblTitulo: TLabel;
    lblVersion: TLabel;
    lblVersion1: TLabel;
    procedure btnCerrarClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);


  private

  public

    Const
      VERSION         = '0.1a';

  end;

var
  frmAcerca: TfrmAcerca;

implementation

{$R *.lfm}

{ TfrmAcerca }


procedure TfrmAcerca.btnCerrarClick(Sender: TObject);
begin
  frmAcerca.Close;
end;

procedure TfrmAcerca.FormCreate(Sender: TObject);
begin
  lblVersion.Caption:= '2020 ' + VERSION;
end;


end.