mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-29 02:43:41 +02:00
39 lines
534 B
ObjectPascal
39 lines
534 B
ObjectPascal
UNIT about;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
INTERFACE
|
|
|
|
USES
|
|
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
|
Buttons;
|
|
|
|
TYPE
|
|
TAboutBox = CLASS(TForm)
|
|
CloseButton: TBUTTON;
|
|
Label1: TLABEL;
|
|
Label2: TLABEL;
|
|
Warn2Label: TLABEL;
|
|
Warn1Label: TLABEL;
|
|
Warn3Label: TLABEL;
|
|
PROCEDURE Button1CLICK(Sender: TObject);
|
|
END;
|
|
|
|
VAR
|
|
AboutBox: TAboutBox;
|
|
|
|
IMPLEMENTATION
|
|
|
|
{ TAboutBox }
|
|
|
|
PROCEDURE TAboutBox.Button1CLICK(Sender: TObject);
|
|
BEGIN
|
|
Close;
|
|
END;
|
|
|
|
INITIALIZATION
|
|
{$I about.lrs}
|
|
|
|
END.
|
|
|