* May 18th, 2005: Starting to develop AMXX-Edit v2 as a kind of open source
This commit is contained in:
32
editor/editor2/UnitfrmAbout.pas
Executable file
32
editor/editor2/UnitfrmAbout.pas
Executable file
@ -0,0 +1,32 @@
|
||||
unit UnitfrmAbout;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Windows, Messages, Classes, Graphics, Controls,
|
||||
StdCtrls, ExtCtrls, Forms, ShellAPI, TFlatSpeedButtonUnit;
|
||||
|
||||
type
|
||||
TfrmAbout = class(TForm)
|
||||
pnlInfo: TPanel;
|
||||
imgAMXX: TImage;
|
||||
lblCopyright: TLabel;
|
||||
lblComments: TLabel;
|
||||
lblCoder: TLabel;
|
||||
FlatSpeedButton1: TFlatSpeedButton;
|
||||
procedure imgAMXXClick(Sender: TObject);
|
||||
end;
|
||||
|
||||
var
|
||||
frmAbout: TfrmAbout;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
procedure TfrmAbout.imgAMXXClick(Sender: TObject);
|
||||
begin
|
||||
ShellExecute(Handle, 'open', 'http://www.amxmodx.org/', nil, nil, SW_SHOW);
|
||||
end;
|
||||
|
||||
end.
|
Reference in New Issue
Block a user