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

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

/* Scale integer according to DPI. */
int Dpi(int i)
{
	extern int IDPI;

	if (IDPI == -1) {
		HMODULE hModule;
		FARPROC GetDpiForWindow;
		extern HWND HWnd;
		IDPI = 96;
		hModule = LoadLibrary(TEXT("User32.dll"));
		if (hModule && (GetDpiForWindow = GetProcAddress(hModule, "GetDpiForWindow"))) {
			IDPI = GetDpiForWindow(HWnd);
			FreeLibrary(hModule);
		}
	}

	return MulDiv(i, IDPI, 96);
}

/* Convert normal string to TSTR using given codepage. */
TCHAR *
TszFromSz(const char *sz, int iCp)
{
	TCHAR *tsz;

#ifdef UNICODE
	int cbMultiByte, cchWideChar;

	cbMultiByte = strlen(sz)+1;
	cchWideChar = MultiByteToWideChar(iCp, 0, sz, cbMultiByte, NULL, 0);
	tsz = malloc(cchWideChar*sizeof(WCHAR));
	if (!tsz) return NULL;
	if (!MultiByteToWideChar(iCp, 0, sz, cbMultiByte, tsz, cchWideChar))
		return NULL;
#else
	tsz = malloc(strlen(sz)+1);
	if (!tsz) return NULL;
	strcpy(tsz, sz);
#endif

	return tsz;
}