amxmodx/editor/studio/UnitfrmInfo.pas

58 lines
1.8 KiB
ObjectPascal
Raw Normal View History

2005-08-26 22:29:39 +04:00
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;
lblCHelp: TLabel;
lblScintilla1: TLabel;
lblScintilla2: TLabel;
pnlImages: TPanel;
imgDoom4: TImage;
imgHampster: TImage;
2005-08-26 22:29:39 +04:00
imgYams: TImage;
procedure imgHampsterClick(Sender: TObject);
procedure imgDoom4Click(Sender: TObject);
procedure imgYamsClick(Sender: TObject);
2005-08-26 22:29:39 +04:00
end;
var
frmInfo: TfrmInfo;
implementation
{$R *.DFM}
procedure TfrmInfo.imgHampsterClick(Sender: TObject);
2005-08-26 22:29:39 +04:00
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);
2005-08-26 22:29:39 +04:00
end;
procedure TfrmInfo.imgDoom4Click(Sender: TObject);
2005-08-26 22:29:39 +04:00
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);
2005-08-26 22:29:39 +04:00
end;
procedure TfrmInfo.imgYamsClick(Sender: TObject);
2005-08-26 22:29:39 +04:00
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);
2005-08-26 22:29:39 +04:00
end;
end.