This repository has been archived on 2024-12-16. You can view files and clone it, but cannot push or open issues or pull requests.
CodeBlocksPortable/WATCOM/samples/win/watzee/wdlg.c

248 lines
8 KiB
C
Raw Normal View History

#include <windows.h>
#include <stdio.h>
#include "watzee.h"
/*
* AboutDlgProc -- About Box dialog
*/
extern BOOL _EXPORT FAR PASCAL AboutDialogProc( HWND hdlg, UINT message,
WPARAM wparam, LPARAM lparam )
/************************************************************************/
{
lparam = lparam; /* shut compiler up */
switch( message ) {
case WM_INITDIALOG :
return( TRUE );
case WM_CLOSE :
EndDialog( hdlg, 0 );
return( TRUE );
case WM_COMMAND :
switch( LOWORD( wparam ) ) {
case IDD_OK :
EndDialog( hdlg, 0 );
return( TRUE );
}
break;
}
return( FALSE );
}
/*
* GetNumPlayersDlgProc -- dialog box to get the number of players
*/
extern BOOL _EXPORT FAR PASCAL GetNumPlayersDialogProc( HWND hdlg,
UINT message,
WPARAM wparam,
LPARAM lparam )
/********************************************************************/
{
WORD cmd;
lparam = lparam; /* shut compiler up*/
switch( message ) {
case WM_INITDIALOG :
return( TRUE );
case WM_COMMAND :
cmd = LOWORD( wparam );
if( cmd >= '1' && cmd <= '5' ) {
NumberOfPlayers = (short) (wparam - '0');
EndDialog( hdlg, 0 );
return( TRUE );
}
}
return( FALSE );
}
/*
* GetInitialsDialogProc -- dialog box to get the players' initials
*/
extern BOOL _EXPORT FAR PASCAL GetInitialsDialogProc( HWND hdlg,
UINT message,
WPARAM wparam,
LPARAM lparam )
/******************************************************************/
{
static short player;
static short initial;
static RECT rect;
char numberstring[4];
PAINTSTRUCT ps;
HDC hdc;
WORD cmd;
SIZE sz;
lparam = lparam; /* shut compiler up*/
switch( message ) {
case WM_INITDIALOG :
EnableWindow( GetDlgItem( hdlg, IDD_OK ), FALSE );
player = 0;
initial = 0;
rect.top = 8 * SysHeight / 3 + 2;
rect.bottom = rect.top + SysHeight + SysHeight / 2 - 4;
rect.left = CharWidth * 10;
rect.right = rect.left + CharWidth * 5;
SetFocus( hdlg );
return( TRUE );
case WM_COMMAND :
hdc = GetDC( hdlg );
cmd = LOWORD( wparam );
SelectObject( hdc, GetStockObject( SYSTEM_FONT ) );
if( cmd >= 'A' && cmd <= 'Z' ) {
EnableWindow( GetDlgItem( hdlg, IDD_OK ), TRUE );
EnableWindow( GetDlgItem( hdlg, IDD_PC ), FALSE );
PlayerName[player][initial] = (char) cmd;
if( initial < 2 ) {
initial++;
PlayerName[player][initial] = '\0';
}
Rectangle( hdc, rect.left, rect.top-2, rect.right, rect.bottom );
DrawText( hdc,PlayerName[player],-1,&rect,DT_CENTER|DT_VCENTER );
} else {
switch( cmd ) {
case IDD_CLEAR :
EnableWindow( GetDlgItem( hdlg, IDD_OK ), FALSE );
EnableWindow( GetDlgItem( hdlg, IDD_PC), TRUE );
sprintf( PlayerName[player], " " );
initial = 0;
Rectangle( hdc,rect.left,rect.top-2,rect.right,rect.bottom );
break;
case IDD_PC :
EnableWindow( GetDlgItem( hdlg, IDD_OK ), TRUE );
sprintf( PlayerName[player], "PC" );
Player[player][IS_COMPUTER] = TRUE;
DrawText( hdc, "PC", 2, &rect, DT_CENTER|DT_VCENTER );
SendMessage( hdlg, WM_COMMAND,
GET_WM_COMMAND_MPS( IDD_OK, 0, 0 ) );
break;
case IDD_OK :
if( player+1 == NumberOfPlayers ) {
EndDialog( hdlg, 0 );
} else {
EnableWindow( GetDlgItem( hdlg, IDD_OK ), FALSE );
EnableWindow( GetDlgItem( hdlg, IDD_PC ), TRUE );
GetTextExtentPoint( hdc, PlayerName[player], initial, &sz );
if( sz.cx > 24 ) {
PlayerName[player][1] = PlayerName[player][2];
PlayerName[player][2] = '\0';
}
player++;
initial = 0;
sprintf( numberstring, "%d :", player+1 );
TextOut(hdc, 17*CharWidth/2, 11*SysHeight/4,
numberstring, 3);
Rectangle(hdc,rect.left,rect.top-2,rect.right,rect.bottom);
}
SetFocus( hdlg );
break;
default :
return( FALSE );
}
}
ReleaseDC( hdlg, hdc );
return( TRUE );
case WM_PAINT :
hdc = BeginPaint( hdlg, &ps );
SelectObject( hdc, GetStockObject( SYSTEM_FONT ) );
sprintf( numberstring, "%d :", player+1 );
TextOut( hdc, 17*CharWidth/2, 11*SysHeight/4, numberstring, 3 );
Rectangle( hdc, rect.left, rect.top-2, rect.right, rect.bottom );
DrawText( hdc, PlayerName[player], -1, &rect, DT_CENTER|DT_VCENTER );
EndPaint( hdlg, &ps );
return( TRUE );
}
return( FALSE );
}
/*
* HelpDialogProc -- dialog to display the scoring rules
*/
extern BOOL _EXPORT FAR PASCAL HelpDialogProc( HWND hdlg, UINT message,
WPARAM wparam, LPARAM lparam )
/***********************************************************************/
{
lparam = lparam; /* shut compiler up*/
switch( message ) {
case WM_INITDIALOG :
return( TRUE );
case WM_CLOSE :
EndDialog( hdlg, 0 );
return( TRUE );
case WM_COMMAND :
switch( LOWORD( wparam ) ) {
case IDD_OK :
EndDialog( hdlg, 0 );
return( TRUE );
}
break;
}
return( FALSE );
}
/*
* OptionsDialogProc -- options dialog box
*/
extern BOOL _EXPORT FAR PASCAL OptionsDialogProc( HWND hdlg, UINT message,
WPARAM wparam, LPARAM lparam )
/*************************************************************************/
{
static BOOL old_diecheck;
static BOOL old_resetdiechecks;
WORD cmd;
lparam = lparam; /* shut compiler up*/
switch( message ) {
case WM_INITDIALOG :
old_diecheck = DieCheckMeansRoll;
old_resetdiechecks = ResetDieChecks;
if( DieCheckMeansRoll ) {
CheckRadioButton( hdlg, IDD_ROLL, IDD_KEEP, IDD_ROLL );
} else {
CheckRadioButton( hdlg, IDD_ROLL, IDD_KEEP, IDD_KEEP );
}
CheckDlgButton( hdlg, IDD_RESET, (UINT) ResetDieChecks );
return( TRUE );
case WM_CLOSE :
SendMessage( hdlg, WM_COMMAND,
GET_WM_COMMAND_MPS( IDD_CANCEL, 0, 0 ) );
return( 0 );
case WM_COMMAND :
cmd = LOWORD( wparam );
switch( cmd ) {
case IDD_CANCEL :
DieCheckMeansRoll = old_diecheck;
ResetDieChecks = old_resetdiechecks; // fall through
case IDD_OK :
EndDialog( hdlg, 0 );
return( TRUE );
case IDD_ROLL :
DieCheckMeansRoll = TRUE;
CheckRadioButton( hdlg, IDD_ROLL, IDD_KEEP, cmd );
return( TRUE );
case IDD_KEEP :
DieCheckMeansRoll = FALSE;
CheckRadioButton( hdlg, IDD_ROLL, IDD_KEEP, cmd );
return( TRUE );
case IDD_RESET :
ResetDieChecks = !ResetDieChecks;
CheckDlgButton( hdlg, IDD_RESET, (UINT)ResetDieChecks );
return( TRUE );
}
return( FALSE );
}
return( FALSE );
}