kIRC/qAbout.pas at master · corecoding/kIRC · 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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
unit qAbout;

interface

uses
  Windows, SysUtils, Classes, Graphics, Forms, Controls,
  StdCtrls, Buttons, qIRCMain, Messages, Dialogs, ExtCtrls,
  lmdctrl, lmdbtn, lmdextcA;

type
  TAboutBox = class(TForm)
    Comments: TLabel;
    ProgramIcon: TImage;
    ScrollWindow: TLMDGraphicLabel;
    Timer1: TTimer;
    CloseBtn: TLMDExplorerButton;
    procedure OKButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CloseMe;
    procedure CloseBtnClick(Sender: TObject);
  private
    Count   : Integer;
    Str     : String;
  public
  end;

var
  AboutBox: TAboutBox;

implementation

{$R *.DFM}

procedure TAboutBox.OKButtonClick(Sender: TObject);
begin
  Self.Release;
end;

procedure TAboutBox.FormCreate(Sender: TObject);
begin
  IRCMain.About.Enabled := False;
  IRCMain.About1.Enabled := False;
//  SetWindowRgn(AboutBox.Handle, CreateEllipticRgn(10, 10, 300, 200), True);
  Str := '                    ' + Application.Title + ' ' + IRCMain.VER + ' by Christopher Monahan ';
  Count := 0;
end;

procedure TAboutBox.Timer1Timer(Sender: TObject);
begin
  Inc(Count);
  If (Count = Length(Str)) Then
  Begin
    Count := 1;
    Randomize;
    ScrollWindow.Font.Color := RGB(Random(200), Random(200), Random(200));
  End;
  ScrollWindow.Caption := Copy(Str, Count, 20);
end;

procedure TAboutBox.FormDestroy(Sender: TObject);
begin
  CloseMe;
end;

procedure TAboutBox.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  CloseMe;
end;

procedure TAboutBox.CloseMe;
begin
  IRCMain.About.Enabled := True;
  IRCMain.About1.Enabled := True;
end;

procedure TAboutBox.CloseBtnClick(Sender: TObject);
begin
  Self.Release;
end;

end.