Subversion Repositories eduke32

#ifndef RENDERTYPEWIN

#error Only for Windows

#endif

#include "duke3d.h"

#include "sounds.h"

#include "build.h"

#include "winlayer.h"

#include "compat.h"

#include "grpscan.h"

#define WIN32_LEAN_AND_MEAN

#include <windows.h>

#include <windowsx.h>

#ifndef _WIN32_IE

#define _WIN32_IE 0x0300

#endif

#include <commctrl.h>

#include <stdio.h>

#include "startwin.game.h"

#define TAB_CONFIG 0

// #define TAB_GAME 1

#define TAB_MESSAGES 1

static struct audioenumdrv *wavedevs = NULL;

static struct

{

    int32_t fullscreen;

    int32_t xdim, ydim, bpp;

    int32_t forcesetup;

    int32_t usemouse, usejoy;

    char selectedgrp[BMAX_PATH+1];

    int32_t game;

    int32_t crcval; // for finding the grp in the list again

    char *gamedir;

}

settings;

static HWND startupdlg = NULL;

static HWND pages[3] =

{

    NULL, NULL, NULL

};

static int32_t done = -1, mode = TAB_CONFIG;

static CACHE1D_FIND_REC *finddirs=NULL;

static int32_t numdirs=0;

static void clearfilenames(void)

{

    klistfree(finddirs);

    finddirs = NULL;

    numdirs = 0;

}

static int32_t getfilenames(char *path)

{

    CACHE1D_FIND_REC *r;

    clearfilenames();

    finddirs = klistpath(path,"*",CACHE1D_FIND_DIR);

    for (r = finddirs; r; r=r->next) numdirs++;

    return(0);

}

#define POPULATE_VIDEO 1

#define POPULATE_CONFIG 2

#define POPULATE_GAME 4

#define POPULATE_GAMEDIRS 8

#if defined(POLYMOST)

extern char TEXCACHEFILE[];

#endif

extern int32_t g_noSetup;

static void PopulateForm(int32_t pgs)

{

    HWND hwnd;

    char buf[256];

    int32_t i,j;

    if (pgs & POPULATE_VIDEO)

    {

        int32_t mode;

        hwnd = GetDlgItem(pages[TAB_CONFIG], IDCVMODE);

        mode = checkvideomode(&settings.xdim, &settings.ydim, settings.bpp, settings.fullscreen, 1);

        if (mode < 0)

        {

            int32_t cd[] = { 32, 24, 16, 15, 8, 0 };

            for (i=0; cd[i];)

            {

                if (cd[i] >= settings.bpp) i++;

                else break;

            }

            for (; cd[i]; i++)

            {

                mode = checkvideomode(&settings.xdim, &settings.ydim, cd[i], settings.fullscreen, 1);

                if (mode < 0) continue;

                settings.bpp = cd[i];

                break;

            }

        }

        Button_SetCheck(GetDlgItem(pages[TAB_CONFIG], IDCFULLSCREEN), (settings.fullscreen ? BST_CHECKED : BST_UNCHECKED));

        (void)ComboBox_ResetContent(hwnd);

        for (i=0; i<validmodecnt; i++)

        {

            if (validmode[i].fs != settings.fullscreen) continue;

            // all modes get added to the 3D mode list

            Bsprintf(buf, "%d x %d %dbpp", validmode[i].xdim, validmode[i].ydim, validmode[i].bpp);

            j = ComboBox_AddString(hwnd, buf);

            (void)ComboBox_SetItemData(hwnd, j, i);

            if (i == mode)(void)ComboBox_SetCurSel(hwnd, j);

        }

    }

    if (pgs & POPULATE_CONFIG)

    {

        struct audioenumdev *d;

        char *n;

        hwnd = GetDlgItem(pages[TAB_CONFIG], IDCSOUNDDRV);

        (void)ComboBox_ResetContent(hwnd);

        if (wavedevs)

        {

            d = wavedevs->devs;

            for (i=0; wavedevs->drvs[i]; i++)

            {

                strcpy(buf, wavedevs->drvs[i]);

                if (d->devs)

                {

                    strcat(buf, ":");

                    n = buf + strlen(buf);

                    for (j=0; d->devs[j]; j++)

                    {

                        strcpy(n, d->devs[j]);

                        (void)ComboBox_AddString(hwnd, buf);

                    }

                }

                else

                {

                    (void)ComboBox_AddString(hwnd, buf);

                }

                d = d->next;

            }

        }

        Button_SetCheck(GetDlgItem(pages[TAB_CONFIG], IDCALWAYSSHOW), (settings.forcesetup ? BST_CHECKED : BST_UNCHECKED));

        Button_SetCheck(GetDlgItem(pages[TAB_CONFIG], IDCINPUTMOUSE), (settings.usemouse ? BST_CHECKED : BST_UNCHECKED));

        Button_SetCheck(GetDlgItem(pages[TAB_CONFIG], IDCINPUTJOY), (settings.usejoy ? BST_CHECKED : BST_UNCHECKED));

    }

    if (pgs & POPULATE_GAME)

    {

        struct grpfile *fg;

        int32_t i, j;

        char buf[128+BMAX_PATH];

        hwnd = GetDlgItem(pages[TAB_CONFIG], IDCDATA);

        for (fg = foundgrps; fg; fg=fg->next)

        {

            for (i = 0; i<numgrpfiles; i++) if (fg->crcval == grpfiles[i].crcval) break;

            if (i == numgrpfiles) continue;     // unrecognised grp file

            Bsprintf(buf, "%s\t%s", grpfiles[i].name, fg->name);

            j = ListBox_AddString(hwnd, buf);

            (void)ListBox_SetItemData(hwnd, j, (LPARAM)fg);

            if (!Bstrcasecmp(fg->name, settings.selectedgrp))(void)ListBox_SetCurSel(hwnd, j);

        }

    }

    if (pgs & POPULATE_GAMEDIRS)

    {

        CACHE1D_FIND_REC *dirs = NULL;

        hwnd = GetDlgItem(pages[TAB_CONFIG], IDCGAMEDIR);

        getfilenames("/");

        (void)ComboBox_ResetContent(hwnd);

        j = ComboBox_AddString(hwnd, "None");

        (void)ComboBox_SetItemData(hwnd, j, 0);

        (void)ComboBox_SetCurSel(hwnd, j);

        for (dirs=finddirs,i=1; dirs != NULL; dirs=dirs->next,i++)

        {

#if defined(POLYMOST) && defined(USE_OPENGL)

            if (Bstrcasecmp(TEXCACHEFILE,dirs->name) == 0) continue;

#endif

            j = ComboBox_AddString(hwnd, dirs->name);

            (void)ComboBox_SetItemData(hwnd, j, i);

            if (Bstrcasecmp(dirs->name,settings.gamedir) == 0)

                (void)ComboBox_SetCurSel(hwnd, j);

        }

    }

}

static INT_PTR CALLBACK ConfigPageProc(HWND hwndDlg, UINT uMsg, WPARAM wParam, LPARAM lParam)

{

    switch (uMsg)

    {

    case WM_COMMAND:

        switch (LOWORD(wParam))

        {

        case IDCFULLSCREEN:

            settings.fullscreen = !settings.fullscreen;

            PopulateForm(POPULATE_VIDEO);

            return TRUE;

        case IDCVMODE:

            if (HIWORD(wParam) == CBN_SELCHANGE)

            {

                int32_t i;

                i = ComboBox_GetCurSel((HWND)lParam);

                if (i != CB_ERR) i = ComboBox_GetItemData((HWND)lParam, i);

                if (i != CB_ERR)

                {

                    settings.xdim = validmode[i].xdim;

                    settings.ydim = validmode[i].ydim;

                    settings.bpp  = validmode[i].bpp;

                }

            }

            return TRUE;

        case IDCALWAYSSHOW:

            settings.forcesetup = IsDlgButtonChecked(hwndDlg, IDCALWAYSSHOW) == BST_CHECKED;

            return TRUE;

        case IDCINPUTMOUSE:

            settings.usemouse = IsDlgButtonChecked(hwndDlg, IDCINPUTMOUSE) == BST_CHECKED;

            return TRUE;

        case IDCINPUTJOY:

            settings.usejoy = IsDlgButtonChecked(hwndDlg, IDCINPUTJOY) == BST_CHECKED;

            return TRUE;

        case IDCGAMEDIR:

            if (HIWORD(wParam) == CBN_SELCHANGE)

            {

                int32_t i,j;

                CACHE1D_FIND_REC *dir = NULL;

                i = ComboBox_GetCurSel((HWND)lParam);

                if (i != CB_ERR) i = ComboBox_GetItemData((HWND)lParam, i);

                if (i != CB_ERR)

                {

                    if (i==0)

                        settings.gamedir = NULL;

                    else

                    {

                        for (j=1,dir=finddirs;dir != NULL;dir=dir->next,j++)

                            if (j == i)

                            {

                                settings.gamedir = dir->name;

                                break;

                            }

                    }

                }

            }

            return TRUE;

        case IDCDATA:

        {

            int32_t i;

            if (HIWORD(wParam) != LBN_SELCHANGE) break;

            i = ListBox_GetCurSel((HWND)lParam);

            if (i != CB_ERR) i = ListBox_GetItemData((HWND)lParam, i);

            if (i != CB_ERR)

            {

                strcpy(settings.selectedgrp, ((struct grpfile*)i)->name);

                settings.game = ((struct grpfile*)i)->game;

                settings.crcval = ((struct grpfile*)i)->crcval;

            }

            return TRUE;

        }

        default:

            break;

        }

        break;

    default:

        break;

    }

    return FALSE;

}

static void SetPage(int32_t n)

{

    HWND tab;

    int32_t cur;

    tab = GetDlgItem(startupdlg, WIN_STARTWIN_TABCTL);

    cur = (int32_t)SendMessage(tab, TCM_GETCURSEL,0,0);

    ShowWindow(pages[cur],SW_HIDE);

    SendMessage(tab, TCM_SETCURSEL, n, 0);

    ShowWindow(pages[n],SW_SHOW);

    mode = n;

    SetFocus(GetDlgItem(startupdlg, WIN_STARTWIN_TABCTL));

}

static void EnableConfig(int32_t n)

{

    //EnableWindow(GetDlgItem(startupdlg, WIN_STARTWIN_CANCEL), n);

    EnableWindow(GetDlgItem(startupdlg, WIN_STARTWIN_START), n);

    EnableWindow(GetDlgItem(pages[TAB_CONFIG], IDCFULLSCREEN), n);

    EnableWindow(GetDlgItem(pages[TAB_CONFIG], IDCVMODE), n);

    EnableWindow(GetDlgItem(pages[TAB_CONFIG], IDCINPUTMOUSE), n);

    EnableWindow(GetDlgItem(pages[TAB_CONFIG], IDCINPUTJOY), n);

    EnableWindow(GetDlgItem(pages[TAB_CONFIG], IDCDATA), n);

    EnableWindow(GetDlgItem(pages[TAB_CONFIG], IDCGAMEDIR), n);

}

static INT_PTR CALLBACK startup_dlgproc(HWND hwndDlg, UINT uMsg, WPARAM wParam, LPARAM lParam)

{

    static HBITMAP hbmp = NULL;

    HDC hdc;

    switch (uMsg)

    {

    case WM_INITDIALOG:

    {

        HWND hwnd;

        RECT r, rdlg, chrome, rtab, rcancel, rstart;

        int32_t xoffset = 0, yoffset = 0;

        // Fetch the positions (in screen coordinates) of all the windows we need to tweak

        ZeroMemory(&chrome, sizeof(chrome));

        AdjustWindowRect(&chrome, GetWindowLong(hwndDlg, GWL_STYLE), FALSE);

        GetWindowRect(hwndDlg, &rdlg);

        GetWindowRect(GetDlgItem(hwndDlg, WIN_STARTWIN_TABCTL), &rtab);

        GetWindowRect(GetDlgItem(hwndDlg, WIN_STARTWIN_CANCEL), &rcancel);

        GetWindowRect(GetDlgItem(hwndDlg, WIN_STARTWIN_START), &rstart);

        // Knock off the non-client area of the main dialogue to give just the client area

        rdlg.left -= chrome.left;

        rdlg.top -= chrome.top;

        rdlg.right -= chrome.right;

        rdlg.bottom -= chrome.bottom;

        // Translate them to client-relative coordinates wrt the main dialogue window

        rtab.right -= rtab.left - 1;

        rtab.bottom -= rtab.top - 1;

        rtab.left  -= rdlg.left;

        rtab.top -= rdlg.top;

        rcancel.right -= rcancel.left - 1;

        rcancel.bottom -= rcancel.top - 1;

        rcancel.left -= rdlg.left;

        rcancel.top -= rdlg.top;

        rstart.right -= rstart.left - 1;

        rstart.bottom -= rstart.top - 1;

        rstart.left -= rdlg.left;

        rstart.top -= rdlg.top;

        // And then convert the main dialogue coordinates to just width/length

        rdlg.right -= rdlg.left - 1;

        rdlg.bottom -= rdlg.top - 1;

        rdlg.left = 0;

        rdlg.top = 0;

        // Load the bitmap into the bitmap control and fetch its dimensions

        hbmp = LoadBitmap((HINSTANCE)win_gethinstance(), MAKEINTRESOURCE(RSRC_BMP));

        hwnd = GetDlgItem(hwndDlg,WIN_STARTWIN_BITMAP);

        SendMessage(hwnd, STM_SETIMAGE, IMAGE_BITMAP, (LPARAM)hbmp);

        GetClientRect(hwnd, &r);

        xoffset = r.right;

        yoffset = r.bottom - rdlg.bottom;

        // Shift and resize the controls that require it

        rtab.left += xoffset;

        rtab.bottom += yoffset;

        rcancel.left += xoffset;

        rcancel.top += yoffset;

        rstart.left += xoffset;

        rstart.top += yoffset;

        rdlg.right += xoffset;

        rdlg.bottom += yoffset;

        // Move the controls to their new positions

        MoveWindow(GetDlgItem(hwndDlg, WIN_STARTWIN_TABCTL), rtab.left, rtab.top, rtab.right, rtab.bottom, FALSE);

        MoveWindow(GetDlgItem(hwndDlg, WIN_STARTWIN_CANCEL), rcancel.left, rcancel.top, rcancel.right, rcancel.bottom, FALSE);

        MoveWindow(GetDlgItem(hwndDlg, WIN_STARTWIN_START), rstart.left, rstart.top, rstart.right, rstart.bottom, FALSE);

        // Move the main dialogue to the centre of the screen

        hdc = GetDC(NULL);

        rdlg.left = (GetDeviceCaps(hdc, HORZRES) - rdlg.right) / 2;

        rdlg.top = (GetDeviceCaps(hdc, VERTRES) - rdlg.bottom) / 2;

        ReleaseDC(NULL, hdc);

        MoveWindow(hwndDlg, rdlg.left + chrome.left, rdlg.top + chrome.left,

                   rdlg.right + (-chrome.left+chrome.right), rdlg.bottom + (-chrome.top+chrome.bottom), TRUE);

        // Add tabs to the tab control

        {

            TCITEM tab;

            hwnd = GetDlgItem(hwndDlg, WIN_STARTWIN_TABCTL);

            ZeroMemory(&tab, sizeof(tab));

            tab.mask = TCIF_TEXT;

            tab.pszText = TEXT("Setup");

            SendMessage(hwnd, TCM_INSERTITEM, (WPARAM)TAB_CONFIG, (LPARAM)&tab);

            tab.mask = TCIF_TEXT;

            tab.pszText = TEXT("Message Log");

            SendMessage(hwnd, TCM_INSERTITEM, (WPARAM)TAB_MESSAGES, (LPARAM)&tab);

            // Work out the position and size of the area inside the tab control for the pages

            ZeroMemory(&r, sizeof(r));

            GetClientRect(hwnd, &r);

            SendMessage(hwnd, TCM_ADJUSTRECT, FALSE, (LPARAM)&r);

            r.right -= r.left-1;

            r.bottom -= r.top-1;

            r.top += rtab.top;

            r.left += rtab.left;

            // Create the pages and position them in the tab control, but hide them

            pages[TAB_CONFIG] = CreateDialog((HINSTANCE)win_gethinstance(),

                                             MAKEINTRESOURCE(WIN_STARTWINPAGE_CONFIG), hwndDlg, ConfigPageProc);

            pages[TAB_MESSAGES] = GetDlgItem(hwndDlg, WIN_STARTWIN_MESSAGES);

            SetWindowPos(pages[TAB_CONFIG], hwnd,r.left,r.top,r.right,r.bottom,SWP_HIDEWINDOW);

            SetWindowPos(pages[TAB_MESSAGES], hwnd,r.left,r.top,r.right,r.bottom,SWP_HIDEWINDOW);

            // Tell the editfield acting as the console to exclude the width of the scrollbar

            GetClientRect(pages[TAB_MESSAGES],&r);

            r.right -= GetSystemMetrics(SM_CXVSCROLL)+4;

            r.left = r.top = 0;

            SendMessage(pages[TAB_MESSAGES], EM_SETRECTNP,0,(LPARAM)&r);

            // Set a tab stop in the game data listbox

            {

                DWORD tabs[1] = { 150 };

                (void)ListBox_SetTabStops(GetDlgItem(pages[TAB_CONFIG], IDCDATA), 1, tabs);

            }

            SetFocus(GetDlgItem(hwndDlg, WIN_STARTWIN_START));

            SetWindowText(hwndDlg, apptitle);

        }

        return FALSE;

    }

    case WM_NOTIFY:

    {

        LPNMHDR nmhdr = (LPNMHDR)lParam;

        int32_t cur;

        if (nmhdr->idFrom != WIN_STARTWIN_TABCTL) break;

        cur = (int32_t)SendMessage(nmhdr->hwndFrom, TCM_GETCURSEL,0,0);

        switch (nmhdr->code)

        {

        case TCN_SELCHANGING:

        {

            if (cur < 0 || !pages[cur]) break;

            ShowWindow(pages[cur],SW_HIDE);

            return TRUE;

        }

        case TCN_SELCHANGE:

        {

            if (cur < 0 || !pages[cur]) break;

            ShowWindow(pages[cur],SW_SHOW);

            return TRUE;

        }

        }

        break;

    }

    case WM_CLOSE:

        if (mode == TAB_CONFIG) done = 0;

        else quitevent++;

        return TRUE;

    case WM_DESTROY:

        if (hbmp)

        {

            DeleteObject(hbmp);

            hbmp = NULL;

        }

        if (pages[TAB_CONFIG])

        {

            DestroyWindow(pages[TAB_CONFIG]);

            pages[TAB_CONFIG] = NULL;

        }

        startupdlg = NULL;

        return TRUE;

    case WM_COMMAND:

        switch (LOWORD(wParam))

        {

        case WIN_STARTWIN_CANCEL:

            if (mode == TAB_CONFIG) done = 0;

            else quitevent++;

            return TRUE;

        case WIN_STARTWIN_START:

            done = 1;

            return TRUE;

        }

        return FALSE;

    case WM_CTLCOLORSTATIC:

        if ((HWND)lParam == pages[TAB_MESSAGES])

            return (BOOL)GetSysColorBrush(COLOR_WINDOW);

        break;

    default:

        break;

    }

    return FALSE;

}

int32_t startwin_open(void)

{

    INITCOMMONCONTROLSEX icc;

    if (startupdlg) return 1;

    icc.dwSize = sizeof(icc);

    icc.dwICC = ICC_TAB_CLASSES;

    InitCommonControlsEx(&icc);

    startupdlg = CreateDialog((HINSTANCE)win_gethinstance(), MAKEINTRESOURCE(WIN_STARTWIN), NULL, startup_dlgproc);

    if (startupdlg)

    {

        SetPage(TAB_MESSAGES);

        EnableConfig(0);

        return 0;

    }

    return -1;

}

int32_t startwin_close(void)

{

    if (!startupdlg) return 1;

    DestroyWindow(startupdlg);

    startupdlg = NULL;

    return 0;

}

int32_t startwin_puts(const char *buf)

{

    const char *p = NULL, *q = NULL;

    static char workbuf[1024];

    static int32_t newline = 0;

    int32_t curlen, linesbefore, linesafter;

    HWND edctl;

    int32_t vis;

    static HWND dactrl = NULL;

    if (!startupdlg) return 1;

    edctl = pages[TAB_MESSAGES];

    if (!edctl) return -1;

    if (!dactrl) dactrl = GetDlgItem(startupdlg, WIN_STARTWIN_TABCTL);

    vis = ((int32_t)SendMessage(dactrl, TCM_GETCURSEL,0,0) == TAB_MESSAGES);

    if (vis) SendMessage(edctl, WM_SETREDRAW, FALSE,0);

    curlen = SendMessage(edctl, WM_GETTEXTLENGTH, 0,0);

    SendMessage(edctl, EM_SETSEL, (WPARAM)curlen, (LPARAM)curlen);

    linesbefore = SendMessage(edctl, EM_GETLINECOUNT, 0,0);

    p = buf;

    while (*p)

    {

        if (newline)

        {

            SendMessage(edctl, EM_REPLACESEL, 0, (LPARAM)"\r\n");

            newline = 0;

        }

        q = p;

        while (*q && *q != '\n') q++;

        memcpy(workbuf, p, q-p);

        if (*q == '\n')

        {

            if (!q[1])

            {

                newline = 1;

                workbuf[q-p] = 0;

            }

            else

            {

                workbuf[q-p] = '\r';

                workbuf[q-p+1] = '\n';

                workbuf[q-p+2] = 0;

            }

            p = q+1;

        }

        else

        {

            workbuf[q-p] = 0;

            p = q;

        }

        SendMessage(edctl, EM_REPLACESEL, 0, (LPARAM)workbuf);

    }

    linesafter = SendMessage(edctl, EM_GETLINECOUNT, 0,0);

    SendMessage(edctl, EM_LINESCROLL, 0, linesafter-linesbefore);

    if (vis) SendMessage(edctl, WM_SETREDRAW, TRUE,0);

    return 0;

}

int32_t startwin_settitle(const char *str)

{

    if (!startupdlg) return 1;

    SetWindowText(startupdlg, str);

    return 0;

}

int32_t startwin_idle(void *v)

{

    if (!startupdlg || !IsWindow(startupdlg)) return 0;

    if (IsDialogMessage(startupdlg, (MSG*)v)) return 1;

    return 0;

}

int32_t startwin_run(void)

{

    MSG msg;

    if (!startupdlg) return 1;

    done = -1;

#ifdef JFAUD

    EnumAudioDevs(&wavedevs, NULL, NULL);

#endif

    SetPage(TAB_CONFIG);

    EnableConfig(1);

    settings.fullscreen = ud.config.ScreenMode;

    settings.xdim = ud.config.ScreenWidth;

    settings.ydim = ud.config.ScreenHeight;

    settings.bpp = ud.config.ScreenBPP;

    settings.forcesetup = ud.config.ForceSetup;

    settings.usemouse = ud.config.UseMouse;

    settings.usejoy = ud.config.UseJoystick;

    settings.game = g_gameType;

//    settings.crcval = 0;

    strncpy(settings.selectedgrp, duke3dgrp, BMAX_PATH);

    settings.gamedir = mod_dir;

    PopulateForm(-1);

    while (done < 0)

    {

        switch (GetMessage(&msg, NULL, 0,0))

        {

        case 0:

            done = 1;

            break;

        case -1:

            return -1;

        default:

            if (IsWindow(startupdlg) && IsDialogMessage(startupdlg, &msg)) break;

            TranslateMessage(&msg);

            DispatchMessage(&msg);

            break;

        }

    }

    SetPage(TAB_MESSAGES);

    EnableConfig(0);

    if (done)

    {

        int32_t i;

        ud.config.ScreenMode = settings.fullscreen;

        ud.config.ScreenWidth = settings.xdim;

        ud.config.ScreenHeight = settings.ydim;

        ud.config.ScreenBPP = settings.bpp;

        ud.config.ForceSetup = settings.forcesetup;

        ud.config.UseMouse = settings.usemouse;

        ud.config.UseJoystick = settings.usejoy;

        duke3dgrp = settings.selectedgrp;

        g_gameType = settings.game;

        if (g_noSetup == 0 && settings.gamedir != NULL)

            Bstrcpy(mod_dir,settings.gamedir);

        else Bsprintf(mod_dir,"/");

        for (i = 0; i<numgrpfiles; i++) if (settings.crcval == grpfiles[i].crcval) break;

        if (i != numgrpfiles)

            duke3dgrpstring = (char *)grpfiles[i].name;

    }

    if (wavedevs)

    {

        struct audioenumdev *d, *e;

        free(wavedevs->drvs);

        for (e=wavedevs->devs; e; e=d)

        {

            d = e->next;

            if (e->devs) free(e->devs);

            free(e);

        }

        free(wavedevs);

    }

    return done;

}