Category : Files from Magazines
Archive   : V12N10.ZIP
Filename : VBMBTEST.PAS

 
Output of file : VBMBTEST.PAS contained in archive : V12N10.ZIP
Program VbMbTest; {By Kurt Herzog, 6/10/92}
{$R VBMB.RES}
USES
VerbosMB, {Verbose MessageBox Unit}
Strings, {Nul-terminated string support}
WinTypes, {Defines Windows API for Pascal}
WinProcs, {Defines Func/Proc headers for API}
{$IFDEF VER70}
OWindows, {Defines standard window Object types}
ODialogs; {Defines standard dialog Object types}
{$ELSE}
WObjects; {Defines all standard Object types}
{$ENDIF}

CONST
id_Tfirst = 001; {String table IDs}
id_Tlast = 015;

TYPE
ThisApplication = OBJECT(TApplication)
PROCEDURE InitMainWindow; virtual;
END;

PTestWindow = ^TestWindow;
TestWindow = OBJECT(TWindow)
PROCEDURE wmLButtonUp(VAR Msg : TMessage); Virtual
wm_First + wm_LButtonUp;
END;


PROCEDURE TestWindow.wmLButtonUp(VAR msg : TMessage);
VAR
args : RECORD
StringArg : PChar;
LongIntArg : LongInt;
AnotherStr : PChar;
CharArg : Char;
filler : Char;
IntArg : integer;
END;
BEGIN
args.StringArg := '<< Insert this String >>';
args.LongIntArg := GetTickCount;
args.AnotherStr := 'Another string';
args.CharArg := 'r';
args.IntArg := -256;
VerboseMessage (HWindow, id_Tfirst, id_Tlast, args, mb_Ok);
END;

PROCEDURE ThisApplication.InitMainWindow;
BEGIN
MainWindow := New(PTestWindow, Init(nil,
'Click for VerboseMB Test'));
END;

VAR ThisApp: ThisApplication;
BEGIN
ThisApp.Init('VbMbTest');
Thisapp.Run;
ThisApp.Done;
END.

  3 Responses to “Category : Files from Magazines
Archive   : V12N10.ZIP
Filename : VBMBTEST.PAS

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/