rendered paste body// LAB5WIN.cpp : Defines the entry point for the application.
//
#include "stdafx.h"
#include "LAB5WIN.h"
#define MAX_LOADSTRING 100
// Global Variables:
object Data_Sequence data;
object Pop_Rec_Map m;
HINSTANCE hInst; // current instance
TCHAR szTitle[MAX_LOADSTRING]; // The title bar text
TCHAR szWindowClass[MAX_LOADSTRING]; // the main window class name
// Forward declarations of functions included in this code module:
ATOM MyRegisterClass(HINSTANCE hInstance);
BOOL InitInstance(HINSTANCE, int);
LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);
LRESULT CALLBACK About(HWND, UINT, WPARAM, LPARAM);
int APIENTRY _tWinMain(HINSTANCE hInstance,
HINSTANCE hPrevInstance,
LPTSTR lpCmdLine,
int nCmdShow)
{
// TODO: Place code here.
MSG msg;
HACCEL hAccelTable;
// Initialize global strings
LoadString(hInstance, IDS_APP_TITLE, szTitle, MAX_LOADSTRING);
LoadString(hInstance, IDC_LAB5WIN, szWindowClass, MAX_LOADSTRING);
MyRegisterClass(hInstance);
// Perform application initialization:
if (!InitInstance (hInstance, nCmdShow))
{
return FALSE;
}
hAccelTable = LoadAccelerators(hInstance, (LPCTSTR)IDC_LAB5WIN);
// Main message loop:
while (GetMessage(&msg, NULL, 0, 0))
{
if (!TranslateAccelerator(msg.hwnd, hAccelTable, &msg))
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
}
return (int) msg.wParam;
}
//
// FUNCTION: MyRegisterClass()
//
// PURPOSE: Registers the window class.
//
// COMMENTS:
//
// This function and its usage are only necessary if you want this code
// to be compatible with Win32 systems prior to the 'RegisterClassEx'
// function that was added to Windows 95. It is important to call this function
// so that the application will get 'well formed' small icons associated
// with it.
//
ATOM MyRegisterClass(HINSTANCE hInstance)
{
WNDCLASSEX wcex;
wcex.cbSize = sizeof(WNDCLASSEX);
wcex.style = CS_HREDRAW | CS_VREDRAW;
wcex.lpfnWndProc = (WNDPROC)WndProc;
wcex.cbClsExtra = 0;
wcex.cbWndExtra = 0;
wcex.hInstance = hInstance;
wcex.hIcon = LoadIcon(hInstance, (LPCTSTR)IDI_LAB5WIN);
wcex.hCursor = LoadCursor(NULL, IDC_ARROW);
wcex.hbrBackground = (HBRUSH)(COLOR_WINDOW+1);
wcex.lpszMenuName = (LPCTSTR)IDC_LAB5WIN;
wcex.lpszClassName = szWindowClass;
wcex.hIconSm = LoadIcon(wcex.hInstance, (LPCTSTR)IDI_SMALL);
return RegisterClassEx(&wcex);
}
//
// FUNCTION: InitInstance(HANDLE, int)
//
// PURPOSE: Saves instance handle and creates main window
//
// COMMENTS:
//
// In this function, we save the instance handle in a global variable and
// create and display the main program window.
//
BOOL InitInstance(HINSTANCE hInstance, int nCmdShow)
{
HWND hWnd;
hInst = hInstance; // Store instance handle in our global variable
hWnd = CreateWindow(szWindowClass, szTitle, WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT, 0, CW_USEDEFAULT, 0, NULL, NULL, hInstance, NULL);
if (!hWnd)
{
return FALSE;
}
ShowWindow(hWnd, nCmdShow);
UpdateWindow(hWnd);
return TRUE;
}
//-------------------------------------------------------------------
void Do_Paint_Data (
preserves HDC hdc,
alters Data_Sequence& s
)
{
variable SIZE str_size;
object Integer i, z;
object Integer y_loc, x_loc;
object Country_Loc_Record lr;
object Integer spacer = 5;
x_loc = 10;
y_loc = 10;
z = s.Size ();
for (i = 0; i < z; i++) {
s.Remove (i, lr);
GetTextExtentPoint32 (hdc, lr->country, lr->country.Size (), &str_size);
lr->r.top = y_loc - 2;
lr->r.left = x_loc - 2;
lr->r.bottom = y_loc + str_size.cy + 2;
lr->r.right = x_loc + str_size.cx + 2;
Rectangle (hdc, lr->r.left, lr->r.top, lr->r.right, lr->r.bottom);
TextOut (hdc, x_loc, y_loc, lr->country, lr->country.Size ());
s.Add (i, lr);
y_loc += (str_size.cy + spacer);
} // end for
} // Do_Paint_Data
//-------------------------------------------------------------------
void Do_Load_Data (
produces Data_Sequence& s,
alters Pop_Rec_Map& m
)
{
object Boolean successful;
object Integer i, size;
object Text filename, country_name;
object File input;
object Population_Record pop_rec;
object Country_Loc_Record lr;
filename = "pop.dat";
input.Open_File (filename, File::read, successful);
if (!successful) {
MessageBox (NULL, "Could not open data file", "Error: Open", MB_OK);
} else {
s.Clear ();
input.Read (size, successful);
for (i = 0; i < size; i++) {
input.Read (pop_rec->country, successful);
input.Read (pop_rec->continent, successful);
input.Read (pop_rec->pop_2001, successful);
input.Read (pop_rec->births, successful);
input.Read (pop_rec->deaths, successful);
input.Read (pop_rec->rate_increase, successful);
input.Read (pop_rec->pop_change, successful);
input.Read (pop_rec->pop_2025, successful);
input.Read (pop_rec->pop_2050, successful);
input.Read (pop_rec->imr, successful);
input.Read (pop_rec->tfr, successful);
input.Read (pop_rec->area, successful);
input.Read (pop_rec->pop_density, successful);
country_name = pop_rec->country;
m.Define (country_name, pop_rec);
s.Add (0, lr);
} // end for
input.Close_File (successful);
} // end if
} // Do_Load_Data
//-------------------------------------------------------------------
void Do_LButton_Down (
preserves HWND hWnd,
preserves LPARAM lParam,
preserves Data_Sequence& s
)
// pre: lParam contains (x, y) coordinates
// where left mouse button was clicked
// post: if mouse clicked over a word in 's', then a MessageBox
// is displayed on the screen showing which word was clicked
{
} // end Do_LButton_Down
//-------------------------------------------------------------------
void Format_Text (
preserves Population_Record& pr, // you'll need to substitute the name of your Record in for Population_Record
produces Text& formated_text
)
// pre: pr
// post: formatted_text contains Population_Record information for display by MessageBox
{
variable char c_string[200];
sprintf (c_string,
"Continent: %s\n\n2001 Population: %5.1f (M)\n2025 Population: %5.1f (M)\n2050 Population: %5.1f (M)\n\n2001 Density: %d (per sq mi)",
(char *)pr->continent,
(float)pr->pop_2001,
(float)pr->pop_2025,
(float)pr->pop_2050,
(int)pr->pop_density
);
formated_text = c_string;
} // Format_Text
//-------------------------------------------------------------------
//
// FUNCTION: WndProc(HWND, unsigned, WORD, LONG)
//
// PURPOSE: Processes messages for the main window.
//
// WM_COMMAND - process the application menu
// WM_PAINT - Paint the main window
// WM_DESTROY - post a quit message and return
//
//
LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
{
int wmId, wmEvent;
PAINTSTRUCT ps;
HDC hdc;
switch (message)
{
case WM_CREATE:
Do_Load_Data (data, m);
break;
case WM_COMMAND:
wmId = LOWORD(wParam);
wmEvent = HIWORD(wParam);
// Parse the menu selections:
switch (wmId)
{
case IDM_ABOUT:
DialogBox(hInst, (LPCTSTR)IDD_ABOUTBOX, hWnd, (DLGPROC)About);
break;
case IDM_EXIT:
DestroyWindow(hWnd);
break;
default:
return DefWindowProc(hWnd, message, wParam, lParam);
}
break;
case WM_PAINT:
hdc = BeginPaint(hWnd, &ps);
Do_Paint_Data (hdc, data);
EndPaint(hWnd, &ps);
break;
case WM_DESTROY:
PostQuitMessage(0);
break;
default:
return DefWindowProc(hWnd, message, wParam, lParam);
}
return 0;
}
// Message handler for about box.
LRESULT CALLBACK About(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)
{
switch (message)
{
case WM_INITDIALOG:
return TRUE;
case WM_COMMAND:
if (LOWORD(wParam) == IDOK || LOWORD(wParam) == IDCANCEL)
{
EndDialog(hDlg, LOWORD(wParam));
return TRUE;
}
break;
}
return FALSE;
}