path: root/c/main.c

#include <windows.h>
#include <commctrl.h>
#include <uxtheme.h>
#include <SWI-Prolog.h>

#include "resource.h"
#include "defs.h"

HFONT HfNormal;
HFONT HfBold;
HMENU HPopupMenu;
HWND HFocus;
HWND HWnd;
int IDPI = -1;
static LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);
static INT_PTR CALLBACK AboutDlgProc(HWND, UINT, WPARAM, LPARAM);
static int Attach(void);
static void SetupFonts(void);
static void UpdateTheme(void);

int WINAPI
WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
    LPSTR lpCmdLine, INT nCmdShow)
{
	char *argv[2];
	HWND hWnd;
	LPTSTR tszErr;
	MSG msg;
	INITCOMMONCONTROLSEX icc;
	WNDCLASSEX wc;

	/* Initialize Prolog. */

	argv[0] = "EpisodeBrowser";
	argv[1] = NULL;
	tszErr = TEXT("Could not initialize Prolog.");
	if (!PL_initialise(1, argv)) goto f;
	tszErr = TEXT("Could not attach databases.");
	if (!Attach()) goto f;

	/* Initialize common controls, load menu and register window class. */

	icc.dwSize = sizeof(icc);
	icc.dwICC = ICC_WIN95_CLASSES;
	tszErr = TEXT("Could not initialize common controls.");
	if (!InitCommonControlsEx(&icc)) goto f;

	HPopupMenu = LoadMenu(NULL, MAKEINTRESOURCE(IDR_POPUPMENU));
	HPopupMenu = GetSubMenu(HPopupMenu, 0);

	memset(&wc, 0, sizeof(WNDCLASSEX));
	wc.cbSize	 = sizeof(WNDCLASSEX);
	wc.lpfnWndProc	 = WndProc;
	wc.hInstance	 = hInstance;
	wc.hIcon	 = LoadIcon(NULL, IDI_APPLICATION);
	wc.hCursor	 = LoadCursor(NULL, IDC_ARROW);
	wc.hbrBackground = (HBRUSH)(COLOR_WINDOW+1);
	wc.lpszMenuName	 = MAKEINTRESOURCE(IDR_MENU);
	wc.lpszClassName = TEXT("Episode Browser");
	wc.hIconSm	 = LoadIcon(NULL, IDI_APPLICATION);
	tszErr = TEXT("Could not register window class.");
	if (!RegisterClassEx(&wc)) goto f;


	/* Create window. */

	hWnd = CreateWindowEx(
	    0,
	    TEXT("Episode Browser"),
	    TEXT("Episode Browser"),
	    WS_OVERLAPPEDWINDOW,
	    CW_USEDEFAULT, CW_USEDEFAULT, 0, 0,
	    NULL, NULL, hInstance, NULL
	);
	tszErr = TEXT("Could not create main window.");
	if (!hWnd) goto f;
	SetWindowPos(hWnd, NULL, -1, -1, Dpi(510), Dpi(400), SWP_NOMOVE);
	SetupFonts();
	ShowWindow(hWnd, nCmdShow);

	while (GetMessage(&msg, NULL, 0, 0) > 0) {
		if (IsDialogMessage(hWnd, &msg)) continue;
		TranslateMessage(&msg);
		DispatchMessage(&msg);
	}

	PL_halt(0);
	return 0;
f:	MessageBox(NULL, tszErr, TEXT("Error"), MB_ICONERROR);
	PL_halt(1);
	return 1;
}

LRESULT CALLBACK
WndProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
	switch (uMsg) {
	case WM_CLOSE:
		DestroyWindow(hWnd);
		break;
	case WM_DESTROY:
		PostQuitMessage(0);
		break;
	case WM_SIZE:
		UpdateLayout();
		break;
	case WM_GETMINMAXINFO:
	    {
		LPMINMAXINFO lpMMI = (LPMINMAXINFO)lParam;
		extern HWND HDlv;
		lpMMI->ptMinTrackSize.y = LvHeight(HDlv)+80;
		break;
	    }
	case WM_CREATE:
	    {
		extern HWND HElv;
		HWnd = hWnd;
		DlvCreate();
		ElvCreate();
		UpdateTheme();
		SetFocus(HElv);
		break;
	    }
	case WM_THEMECHANGED:
		UpdateTheme();
		break;
	case 0x02E0: /* WM_DPICHANGED */
	    {
		LPRECT lpr;
		lpr = (LPRECT)lParam;
		IDPI = HIWORD(wParam);
		SetWindowPos(hWnd, NULL,
		    lpr->left, lpr->top,
		    lpr->right-lpr->left,
		    lpr->bottom-lpr->top,
		    SWP_NOZORDER | SWP_NOACTIVATE);
		UpdateLayout();
		break;
	    }
	case WM_ACTIVATE:
		switch (wParam) {
		case WA_INACTIVE:
			HFocus = GetFocus();
			break;
		case WA_ACTIVE:
		case WA_CLICKACTIVE:
		    {
			term_t t;
			SetFocus(HFocus);
			t = T(0);
			P("track_episodes","update_tracked_episodes",0,t);
			ElvRedraw();
		    }
		}
		break;
	case WM_NOTIFY:
		switch (((LPNMHDR)lParam)->idFrom) {
		case IDC_EPISODELISTVIEW:
			return ElvHandleNotify(lParam);
		}
		break;
	case WM_COMMAND:
		switch (LOWORD(wParam)) {
		case ID_FILE_EXIT:
			PostMessage(hWnd, WM_CLOSE, 0, 0);
			break;
		case ID_FILE_REFRESH:
			ElvUpdate();
			break;
		case ID_FILE_RESET:
		    {
			extern HWND HElv;
			ListView_SetItemState(HElv, -1, LVIF_STATE, LVIS_SELECTED);
			ElvSelectRecent();
			break;
		    }
		case ID_FILE_ABOUT:
			DialogBox(
			    GetModuleHandle(NULL),
			    MAKEINTRESOURCE(IDD_ABOUT),
			    hWnd,
			    AboutDlgProc
			);
			break;
		case ID_WATCH:
		case ID_TOGGLE:
		case ID_FORGET:
		case ID_LOOKUP:
		    {
			LVITEM lvi;
			term_t t;
			extern HWND HElv;

			/* Look through selected items, applying the
			 * selected command to each one. */

			lvi.mask = LVIF_PARAM;
			lvi.iItem = -1;
			t = T(1);
			while ((lvi.iItem = ListView_GetNextItem(
				    HElv, lvi.iItem, LVNI_SELECTED)) != -1) {
				if (!ListView_GetItem(HElv, &lvi)) goto b;
				PI(t,lvi.lParam) goto b;

				switch (LOWORD(wParam)) {
				case ID_WATCH:
					P("local_episode","open_episode",1,t);
					break;
				case ID_TOGGLE:
					P("track_episodes","toggle_episode",1,t);
					ElvRedraw();
					break;
				case ID_FORGET:
					P("track_episodes","forget_episode",1,t);
					P("track_episodes","update_tracked_episodes",0,t);
					ElvRedraw();
					break;
				case ID_LOOKUP:
					P("episode_data","retract_episode",1,t);
					ElvUpdateName(&lvi);
					ElvRedraw();
					DlvShowEpisode(lvi.lParam);
					break;
				}
			}
		    b:	break;
		    }
		}
		break;
	default:
		return DefWindowProc(hWnd, uMsg, wParam, lParam);
	}

	return 0;
}

INT_PTR CALLBACK
AboutDlgProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
	switch (uMsg) {
	case WM_CLOSE:
		EndDialog(hWnd, IDOK);
		break;
	case WM_COMMAND:
		switch (LOWORD(wParam)) {
		case IDOK:
			EndDialog(hWnd, IDOK);
			break;
		}
		break;
	default:
		return FALSE;
	}

	return TRUE;
}

/***/

/* Attach persistent databases. */
int
Attach()
{
	term_t t;
	t = T(0);
	P("track_episodes","attach",0,t) return 0;
	P("episode_data","attach",0,t) return 0;
	return 1;
}

void
SetupFonts()
{
	HMODULE hModule;
	LOGFONT lf;

	hModule = LoadLibrary(TEXT("User32.dll"));
	if (hModule && GetProcAddress(hModule, "SystemParametersInfoW")) {
		NONCLIENTMETRICS m;
		m.cbSize = sizeof(NONCLIENTMETRICS);
		SystemParametersInfo(SPI_GETNONCLIENTMETRICS,
		    sizeof(NONCLIENTMETRICS), &m, 0);
		HfNormal = CreateFontIndirect(&m.lfMessageFont);
		FreeLibrary(hModule);
	} else
		HfNormal = GetStockObject(DEFAULT_GUI_FONT);

	GetObject(HfNormal, sizeof(LOGFONT), &lf);
	lf.lfWeight = FW_BOLD;
	HfBold = CreateFontIndirect(&lf);
}

/***/

void
UpdateLayout()
{
	HWND hElv, hDlv;
	int cxColumn, cyDlv;
	RECT rc;
	static int cxVScroll = 0;

	GetClientRect(HWnd, &rc);
	if (!cxVScroll)
		cxVScroll = GetSystemMetrics(SM_CXVSCROLL);

	/* Resize data list view. */

	hDlv = GetDlgItem(HWnd, IDC_DATALISTVIEW);
	cyDlv = rc.bottom - LvHeight(hDlv);
	MoveWindow(hDlv, 0, cyDlv, rc.right, rc.bottom, TRUE);

	cxColumn = ListView_GetColumnWidth(hDlv, 0);
	ListView_SetColumnWidth(hDlv, 1, rc.right-cxColumn-cxVScroll-4);

	/* Resize episode list view. */

	hElv = GetDlgItem(HWnd, IDC_EPISODELISTVIEW);
	MoveWindow(hElv, 0, 0, rc.right, cyDlv+1, TRUE);

	cxColumn = ListView_GetColumnWidth(hElv, 0);
	ListView_SetColumnWidth(hElv, 1, rc.right-cxColumn-cxVScroll-4);
}

/* Try to style application according to current Windows theme. */
void
UpdateTheme()
{
	DWORD dwStyle;
	LPTSTR tszTheme;
	WORD wAction;
	extern HWND HElv, HDlv;
	static int bThemes = -1;

	if (bThemes == -1) {
		HMODULE hModule;
		hModule = LoadLibrary(TEXT("uxtheme.dll"));
		bThemes = hModule && GetProcAddress(hModule,"SetWindowTheme");
		FreeLibrary(hModule);
	}
	if (!bThemes) return;

	if (IsThemeActive()) {
		dwStyle = LVS_EX_DOUBLEBUFFER;
		tszTheme = TEXT("Explorer");
		wAction = UIS_SET;
	} else {
		dwStyle = 0;
		tszTheme = NULL;
		wAction = UIS_CLEAR;
	}

	/* Use modern "Explorer" theme. */
	SetWindowTheme(HElv, tszTheme, NULL);
	SetWindowTheme(HDlv, tszTheme, NULL);

	/* The modern theme requires double buffering. */
	ListView_SetExtendedListViewStyleEx(HElv, LVS_EX_DOUBLEBUFFER, dwStyle);
	ListView_SetExtendedListViewStyleEx(HDlv, LVS_EX_DOUBLEBUFFER, dwStyle);

	/* Hide focus rectangles. */
	SendMessage(HWnd, WM_UPDATEUISTATE, MAKEWPARAM(wAction, UISF_HIDEFOCUS), 0);
}