Category : Files from Magazines
Archive : BLX11.ZIP
Filename : HELLOW.CPP
Output of file : HELLOW.CPP contained in archive : BLX11.ZIP
#include"winapp.h"
#include"stdwin.h"
#include"winfont.h"
#include
class WHello : public WinAppStdWindow
{
static WinClass wc; // ALL descendants of Window must do this...
char *message;
WinFont myFont;
public:
static long FAR PASCAL _export WHello :: WndProc(HWND hWnd,
unsigned iMsg, WORD wParam, LONG lParam);
WHello(WinApp *myApp, char *winname, char *msg) :
WinAppStdWindow(myApp, &wc, winname) {
// insert calls to change window class info here
message = msg;
if(GetClassName() == NULL) {
SetClassName("Hello");
SetClassWinProc(WHello::WndProc);
}
myFont.SetFontWeight(FW_HEAVY);
myFont.SetFontCharSet(OEM_CHARSET);
myFont.SetFontPitchAndFamily(FF_SCRIPT | VARIABLE_PITCH);
myFont.SetFontHeight(70);
myFont.SetFontWidth(15);
myFont.Create();
}
void Paint(void) {
PAINTSTRUCT ps; HDC hdc = BeginPaint(GetHandle(), &ps);
// set alignment flags for centering
SetTextAlign(ps.hdc, TA_CENTER);
SelectObject(hdc,myFont.GetHandle());
RECT rect;
GetClientRect(GetHandle(),&rect); // new centered rectangle
TextOut(ps.hdc,rect.right/2, rect.bottom/2,message, strlen(message));
EndPaint(GetHandle(), &ps);
}
void SetMessage(char *newmsg) { message = newmsg; }
};
WinClass WHello::wc; // ...and this.
// this should become a winproc for handling app-specific behavior
long FAR PASCAL _export WHello::WndProc(HWND hWnd,
unsigned iMsg, WORD wParam, LONG lParam) {
WHello *pWHello = (WHello *)GetPointer(hWnd);
switch (iMsg) {
case WM_CREATE: // insert the pointer
pWHello = (WHello *)((LPCREATESTRUCT)lParam)->lpCreateParams;
SetPointer(hWnd, pWHello);
break;
case WM_PAINT:
pWHello->Paint(); // call Paint method
break;
case WM_CLOSE:
DestroyWindow(hWnd);
break;
case WM_DESTROY:
PostQuitMessage(0);
break;
default:
return DefWindowProc(hWnd, iMsg, wParam, lParam);
}
return 0L;
}
int PASCAL WinMain(HANDLE hInstance, HANDLE hPrevInstance,
LPSTR lpszCmdLine, int nCmdShow) {
// create an instance of WinApp and initialize it
WinApp MyApp(hInstance, hPrevInstance, lpszCmdLine, nCmdShow);
// create an instance of WHello for MyApp with winname, "Hello!"
WHello MyWin(&MyApp, "Hello!", "Hello, Windows from Borland C++");
MyWin.Display(); // open the window
// create another instance
WHello MyWin2(&MyApp, "Hello2!", "And, another Hello!");
MyWin2.Display(); // open it
return MyApp.MessageLoop(); // process any messages
}
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
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/