#include "std.h"
#include "emul.h"
#include "vars.h"
#include "debug.h"
#include "dbgpaint.h"
#include "dx.h"
#include "draw.h"
#include "dxrframe.h"
#include "font16.h"
#include "util.h"
unsigned char txtscr[80*30*2];
static struct
{
unsigned char x,y,dx,dy,c;
} frames[20];
unsigned nfr;
void debugflip()
{
if(!active)
return;
setpal(0);
unsigned char * const bptr = gdibuf;
if (show_scrshot) {
memcpy(save_buf, rbuf, rb2_offs);
paint_scr((show_scrshot == 1)? 0 : 2);
unsigned char *dst = bptr + wat_y*16*640+wat_x*8;
unsigned char *src = rbuf+temp.scx/4*(temp.b_top+192/2-wat_sz*16/2);
src += temp.scx/8-37/2*2;
for (unsigned y = 0; y < wat_sz*16; y++) {
for (unsigned x = 0; x < 37; x++) {
*(unsigned*)(dst+x*8+0) = t.sctab8[0][(src[x*2] >> 4) + src[2*x+1]*16];
*(unsigned*)(dst+x*8+4) = t.sctab8[0][(src[x*2] & 0xF) + src[2*x+1]*16];
}
src += temp.scx/4, dst += 640;
}
memcpy(rbuf, save_buf, rb2_offs);
}
// print text
int x,y;
unsigned char *tptr = txtscr;
for (y = 0; y < 16*30*640; y+=16*640)
{
for (x = 0; x < 80; x++, tptr++)
{
unsigned ch = *tptr, at = tptr[80*30];
if (at == 0xFF) continue; // transparent color
const unsigned char *fnt = &font16[ch*16];
at <<= 4;
for (int yy = 0; yy < 16; yy++, fnt++)
{
*(unsigned*)(bptr+y+640*yy+x*8+0) = t.sctab8[0][(*fnt >> 4) + at];
*(unsigned*)(bptr+y+640*yy+x*8+4) = t.sctab8[0][(*fnt & 0xF) + at];
}
}
}
// show frames
for (unsigned i = 0; i < nfr; i++)
{
unsigned char a1 = (frames[i].c | 0x08) * 0x11;
y = frames[i].y*16-1;
for (x = 8*frames[i].x-1; x < (frames[i].x+frames[i].dx)*8; x++) bptr[y*640+x] = a1;
y = (frames[i].y+frames[i].dy)*16;
for (x = 8*frames[i].x-1; x < (frames[i].x+frames[i].dx)*8; x++) bptr[y*640+x] = a1;
x = frames[i].x*8-1;
for (y = 16*frames[i].y; y < (frames[i].y+frames[i].dy)*16; y++) bptr[y*640+x] = a1;
x = (frames[i].x+frames[i].dx)*8;
for (y = 16*frames[i].y; y < (frames[i].y+frames[i].dy)*16; y++) bptr[y*640+x] = a1;
}
gdibmp.header.bmiHeader.biBitCount = 8;
if(needclr)
gdi_frame();
SetDIBitsToDevice(temp.gdidc, temp.gx, temp.gy, 640, 480, 0, 0, 0, 480, bptr, &gdibmp.header, DIB_RGB_COLORS);
gdibmp.header.bmiHeader.biBitCount = temp.obpp;
}
void frame(unsigned x, unsigned y, unsigned dx, unsigned dy, unsigned char attr)
{
frames[nfr].x = x;
frames[nfr].y = y;
frames[nfr].dx = dx;
frames[nfr].dy = dy;
frames[nfr].c = attr;
nfr++;
}
void tprint(unsigned x, unsigned y, const char *str, unsigned char attr)
{
for (unsigned ptr = y*80 + x; *str; str++, ptr++) {
txtscr[ptr] = *str; txtscr[ptr+80*30] = attr;
}
}
void tprint_fg(unsigned x, unsigned y, const char *str, unsigned char attr)
{
for (unsigned ptr = y*80 + x; *str; str++, ptr++) {
txtscr[ptr] = *str; txtscr[ptr+80*30] = (txtscr[ptr+80*30] & 0xF0) + attr;
}
}
void filledframe(unsigned x, unsigned y, unsigned dx, unsigned dy, unsigned char color)
{
for (unsigned yy = y; yy < (y+dy); yy++)
for (unsigned xx = x; xx < (x+dx); xx++)
txtscr[yy*80+xx] = ' ',
txtscr[yy*80+xx+30*80] = color;
nfr = 0; // delete other frames while dialog
frame(x,y,dx,dy,FFRAME_FRAME);
}
void fillattr(unsigned x, unsigned y, unsigned dx, unsigned char color)
{
for (unsigned xx = x; xx < (x+dx); xx++)
txtscr[y*80+xx+30*80] = color;
}
char str[0x80];
unsigned inputhex(unsigned x, unsigned y, unsigned sz, bool hex)
{
unsigned cr = 0;
mousepos = 0;
for (;;)
{
str[sz] = 0;
unsigned i;
for (i = strlen(str); i < sz; i++)
str[i] = ' ';
for (i = 0; i < sz; i++)
{
unsigned vl = (unsigned char)str[i];
tprint(x+i,y,(char*)&vl,(i==cr) ? W_INPUTCUR : W_INPUTBG);
}
debugflip();
unsigned key;
for (;;Sleep(20))
{
key = process_msgs();
needclr = 0;
debugflip();
if (mousepos)
return 0;
if (key)
break;
}
switch(key)
{
case VK_ESCAPE: return 0;
case VK_RETURN:
for (char *ptr = str+sz-1; *ptr == ' ' && ptr >= str; *ptr-- = 0);
return 1;
case VK_LEFT:
if (cr)
cr--;
continue;
case VK_BACK:
if (cr)
{
for (i = cr; i < sz; i++)
str[i-1]=str[i];
str[sz-1] = ' ';
--cr;
}
continue;
case VK_RIGHT:
if(cr != sz-1)
cr++;
continue;
case VK_HOME:
cr=0;
continue;
case VK_END:
for (cr=sz-1; cr && str[cr]==' ' && str[cr-1] == ' '; cr--);
continue;
case VK_DELETE:
for (i = cr; i < sz-1; i++)
str[i]=str[i+1];
str[sz-1] = ' ';
continue;
case VK_INSERT:
for (i = sz-1; i > cr; i--)
str[i]=str[i-1];
str[cr] = ' ';
continue;
}
u8 Kbd[256];
GetKeyboardState(Kbd);
unsigned short k = 0;
if (ToAscii(key, 0, Kbd, &k, 0) == 1)
{
char m;
if(CharToOemBuff((char *)&k, &m, 1))
{
int u = toupper(m);
if (hex && ((u >= '0' && u <= '9') || (u >= 'A' && u <= 'F')) || !hex)
{
str[cr++] = hex ? u : m;
}
}
}
if (cr == sz)
cr--;
}
}
unsigned input4(unsigned x, unsigned y, unsigned val)
{
sprintf(str, "%04X", val);
if (inputhex(x,y,4,true))
{
sscanf(str, "%x", &val);
return val;
}
return -1;
}
unsigned input2(unsigned x, unsigned y, unsigned val)
{
sprintf(str, "%02X", val);
if (inputhex(x,y,2,true))
{
sscanf(str, "%x", &val);
return val;
}
return -1;
}
void format_item(char *dst, unsigned width, const char *text, MENUITEM::FLAGS flags)
{
memset(dst, ' ', width+2); dst[width+2] = 0;
unsigned sz = strlen(text), left = 0;
if (sz > width) sz = width;
if (flags & MENUITEM::RIGHT) left = width - sz;
else if (flags & MENUITEM::CENTER) left = (width - sz)/2;
memcpy(dst+left+1, text, sz);
}
void paint_items(MENUDEF *menu)
{
char ln[80]; unsigned item;
unsigned maxlen = strlen(menu->title);
for (item = 0; item < menu->n_items; item++) {
unsigned sz = strlen(menu->items[item].text);
maxlen = max(maxlen, sz);
}
unsigned menu_dx = maxlen+2, menu_dy = menu->n_items + 3;
unsigned menu_x = (80 - menu_dx)/2, menu_y = (30 - menu_dy)/2;
filledframe(menu_x, menu_y, menu_dx, menu_dy, MENU_INSIDE);
format_item(ln, maxlen, menu->title, MENUITEM::CENTER);
tprint(menu_x, menu_y, ln, MENU_HEADER);
for (/*unsigned*/ item = 0; item < menu->n_items; item++) {
unsigned char color = MENU_ITEM;
if (menu->items[item].flags & MENUITEM::DISABLED) color = MENU_ITEM_DIS;
else if (item == menu->pos) color = MENU_CURSOR;
format_item(ln, maxlen, menu->items[item].text, menu->items[item].flags);
tprint(menu_x, menu_y+item+2, ln, color);
}
}
void menu_move(MENUDEF *menu, int dir)
{
unsigned start = menu->pos;
for (;;) {
menu->pos += dir;
if ((int)menu->pos == -1) menu->pos = menu->n_items-1;
if (menu->pos >= menu->n_items) menu->pos = 0;
if (!(menu->items[menu->pos].flags & MENUITEM::DISABLED)) return;
if (menu->pos == start) return;
}
}
char handle_menu(MENUDEF *menu)
{
if (menu->items[menu->pos].flags & MENUITEM::DISABLED)
menu_move(menu, 1);
for (;;)
{
paint_items(menu);
debugflip();
unsigned key;
for (;;Sleep(20))
{
key = process_msgs();
needclr = 0;
debugflip();
if (mousepos)
return 0;
if(key)
break;
}
if (key == VK_ESCAPE)
return 0;
if (key == VK_RETURN || key == VK_SPACE)
return 1;
if (key == VK_UP || key == VK_LEFT)
menu_move(menu, -1);
if (key == VK_DOWN || key == VK_RIGHT)
menu_move(menu, 1);
if (key == VK_HOME || key == VK_PRIOR)
{
menu->pos = -1;
menu_move(menu, 1);
}
if (key == VK_END || key == VK_NEXT)
{
menu->pos = menu->n_items;
menu_move(menu, -1);
}
}
}