home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
PASCAL
/
ABOUTBOX.ZIP
/
ABOUTDEM.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-19
|
1KB
|
53 lines
{ test of the aboutbox unit }
program AboutDemo;
uses WInProcs, WinTypes, OWindows, BWCC, AboutBox;
{$R ABOUTDEM.RES }
const
cmAbout = 101;
idBitMap = 200;
CreditText : array[1..7] of pChar =
('',
'This is where you would',
'put the list of text for',
'the programmers and sources',
'of the program in question.',
'','');
type
pMainWin = ^tMainWin;
tMainWin = object(tMDIWIndow)
procedure cmAbout(var Msg : Tmessage);
virtual cm_First + cmAbout;
end;
tDemoApp = object(TApplication)
procedure InitMainWindow; virtual;
end;
procedure tMainWin.cmAbout;
begin
Application^.Execdialog(new(pAboutBox,Init(@Self,'Demo Box',pChar(idBitmap),CreditText)));
end;
procedure tDemoApp.InitmainWindow;
begin
MainWindow := new(pMainWin,Init('About Box Demo',LoadMenu(hInstance,'MainMenu')));
end;
var
TheApp : tDemoApp;
begin
TheApp.Init('Demo');
TheApp.Run;
TheApp.Done;
end.