#include <windows.h>
#include <string.h>
#include <stdlib.h>
#include <commdlg.h>
#include <math.h>
#include "mswint.h"

/*
 *****************************************************************************
 *
 * Message Boxes
 *
 *****************************************************************************
 */

/**
 * factors by which fonts are resized if nonstandard text height is used
 */

#define SCALE_LARGE 1.6
#define SCALE_SMALL 0.8

struct wMessage_t {
	WOBJ_COMMON
	long flags;
	const char * message;
};

static void repaintMessage(
        HWND hWnd,
        wControl_p b )
{
	wMessage_p bm = (wMessage_p)b;
	HDC hDc;
	RECT rect;
	HFONT hFont;
	LOGFONT msgFont;
	double scale = 1.0;
	TEXTMETRIC textMetrics;

	hDc = GetDC( hWnd );

	hFont = SelectObject( hDc, mswLabelFont );

	switch( wMessageSetFont( ((wMessage_p)b)->flags )) {
	case BM_LARGE:
		scale = SCALE_LARGE;
		break;
	case BM_SMALL:
		scale = SCALE_SMALL;
		break;
	}

	/* is a non-standard text height required? */
	if( scale != 1.0 ) {
		/* if yes, get information about the standard font used */
		GetObject( GetStockObject( DEFAULT_GUI_FONT ), sizeof( LOGFONT ), &msgFont );

		/* change the height */
		msgFont.lfHeight = (long)((double)msgFont.lfHeight * scale);

		/* create and activate the new font */
		hFont = SelectObject( hDc, CreateFontIndirect( &msgFont ) );
	} else {
		hFont = SelectObject( hDc, mswLabelFont );
	}

	GetTextMetrics(hDc, &textMetrics);

	rect.bottom = (long)(bm->y+( bm->h ));
	rect.right = (long)(bm->x+( scale * bm->w ));
	rect.top = bm->y+1;
	rect.left = bm->x;

	SetBkColor( hDc, GetSysColor( COLOR_BTNFACE ) );
	ExtTextOut( hDc, bm->x, bm->y + ((bm->h + 2 - textMetrics.tmHeight) / 2),
	            ETO_CLIPPED|ETO_OPAQUE, &rect, bm->message, (int)(strlen( bm->message )),
	            NULL );

	if( scale != 1.0 )
		/* in case we did create a new font earlier, delete it now */
	{
		DeleteObject( SelectObject( hDc, GetStockObject( DEFAULT_GUI_FONT )));
	} else {
		SelectObject( hDc, hFont );
	}

	ReleaseDC( hWnd, hDc );
}

void wMessageSetValue(
        wMessage_p b,
        const char * arg )
{
	if (b->message) {
		free( CAST_AWAY_CONST b->message );
	}
	if (arg) {
		b->message = mswStrdup( arg );
	} else {
		b->message = NULL;
	}

	repaintMessage( ((wControl_p)(b->parent))->hWnd, (wControl_p)b );

}

void wMessageSetWidth(
        wMessage_p b,
        wWinPix_t width )
{
	b->w = width;

}

wWinPix_t wMessageGetWidth(const char *string)
{
	return(wLabelWidth(string));
}

wWinPix_t wMessageGetHeight( long flags )
{
	double scale = 1.0;

	if( flags & BM_LARGE ) {
		scale = SCALE_LARGE;
	}
	if( flags & BM_SMALL ) {
		scale = SCALE_SMALL;
	}

	return((wWinPix_t)((mswEditHeight) * scale ));

}

static void mswMessageSetBusy(
        wControl_p b,
        BOOL_T busy )
{
}



static callBacks_t messageCallBacks = {
	repaintMessage,
	NULL,
	NULL,
	mswMessageSetBusy
};

wMessage_p wMessageCreateEx(
        wWin_p	parent,
        wWinPix_t	x,
        wWinPix_t	y,
        const char	* helpStr,
        wWinPix_t	width,
        const char	*message,
        long	flags )
{
	wMessage_p b;
	int index;


	b = (wMessage_p)mswAlloc( parent, B_MESSAGE, NULL, sizeof *b, NULL, &index );
	mswComputePos( (wControl_p)b, x, y );
	b->option |= BO_READONLY;
	b->message = mswStrdup( message );
	b->flags = flags;

	b->w = width;
	b->h = wMessageGetHeight( flags ) + 1;

	repaintMessage( ((wControl_p)parent)->hWnd, (wControl_p)b );

	mswAddButton( (wControl_p)b, FALSE, helpStr );
	mswCallBacks[B_MESSAGE] = &messageCallBacks;

	return b;
}