-
Notifications
You must be signed in to change notification settings - Fork 2
/
AboutFormUnit.pas
52 lines (41 loc) · 1.13 KB
/
AboutFormUnit.pas
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
unit AboutFormUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, JvExControls, JvScrollText, ExtCtrls;
type
TAboutForm = class(TForm)
Image1: TImage;
Label1: TLabel;
Button1: TButton;
Panel1: TPanel;
JvScrollText1: TJvScrollText;
Label2: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AboutForm: TAboutForm;
implementation
{$R *.dfm}
procedure TAboutForm.FormCreate(Sender: TObject);
begin
Image1.Picture.Icon := Application.Icon;
Self.Font := Application.MainForm.Font;
Label1.Font.Style := [fsBold];
end;
procedure TAboutForm.Button1Click(Sender: TObject);
begin
Close;
end;
procedure TAboutForm.FormActivate(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
Application.BringToFront;
end;
end. D: