amxmodx/editor/studio/UnitfrmInfo.pas
2005-12-11 16:45:02 +00:00

62 lines
2.2 KiB
ObjectPascal
Executable File

unit UnitfrmInfo;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls,
StdCtrls, ExtCtrls, Forms, TBXDkPanels, SpTBXDkPanels, JvExControls,
JvComponent, JvScrollText, ShellAPI, IdHTTP, jpeg, Dialogs;
type
TfrmInfo = class(TForm)
lblInfo3: TLabel;
lblInfo2: TLabel;
lblInfo1: TLabel;
imgAMXXLarge: TImage;
cmdClose: TSpTBXButton;
lblDonations: TLabel;
lblScintilla1: TLabel;
lblScintilla2: TLabel;
pnlImages: TPanel;
imgDoom4: TImage;
imgHampster: TImage;
imgYams: TImage;
procedure imgHampsterClick(Sender: TObject);
procedure imgDoom4Click(Sender: TObject);
procedure imgYamsClick(Sender: TObject);
end;
var
frmInfo: TfrmInfo;
implementation
{$R *.DFM}
procedure TfrmInfo.imgHampsterClick(Sender: TObject);
begin
MessageBox(Handle, 'Hampster!', 'Your computer! wtf', MB_ICONERROR);
MessageBox(Handle, 'ZOMG YES it''s a hampster!', 'zomg', MB_ICONINFORMATION);
MessageBox(Handle, 'hampster hampster hampster hampster hampster hampster hampster hampster hampster hampster hampster hampster hampster hampster hampster hampster!', 'ham ham hampster', MB_ICONWARNING);
MessageBox(Handle, 'hampsters eat gaben.', 'oh noes', MB_ICONWARNING);
MessageBox(Handle, 'or gaben eats hampsters.', 'gabenbla', MB_ICONERROR);
end;
procedure TfrmInfo.imgDoom4Click(Sender: TObject);
begin
MessageBox(Handle, 'gaben', 'doom', MB_ICONWARNING);
MessageBox(Handle, 'gaben gaben gaben gaben gaben gaben!', 'doom', MB_ICONERROR);
MessageBox(Handle, 'gab gab gab gab gab GABEN GABEN GABEN GAAGAGAGABEN! gabenygabgab gaben da gaben0r gabbagaben >_<', 'doom', MB_ICONINFORMATION);
MessageBox(Handle, 'oh noes gaben eats hampsters!', 'dooo oo oo o om!', MB_ICONWARNING);
end;
procedure TfrmInfo.imgYamsClick(Sender: TObject);
begin
MessageBox(Handle, 'mmm.. yams', 'personal farmer', MB_ICONINFORMATION);
MessageBox(Handle, 'yam yam yam.. oh a yam! yaaaam yaaaam yayayammm yaaamamamamam and some yaaams', 'gran farmer', MB_ICONERROR);
MessageBox(Handle, 'yams? deadly yams? >:(', 'not a farmer', MB_ICONQUESTION);
MessageBox(Handle, 'no, no DEADLY YAMS! but DEADLY GABEN eats NOT-DEADLY YAMS AND HAMPSTERS!', 'gaben', MB_ICONWARNING);
end;
end.