open-demo-bitmap

\ ---------------------------------------------------------------

\ Open image file support

\ ---------------------------------------------------------------

: open-demo-bitmap { \ open$ hbm hdcMem -- }

max-path LocalAlloc: open$

GetHandle: DEMOW

Start: ViewBitmap dup c@ \ -- a1 n1

open$ dup c@

IF count

LR_LOADFROMFILE

LR_CREATEDIBSECTION or

NULL

IMAGE_BITMAP

open$ dup +NULL 1+

NULL

Call LoadImage to hbm

GetHandle: demo-dc

Call CreateCompatibleDC to hdcMem

hbm hdcMem Call SelectObject drop

SRCCOPY \

0 0 \ y,x origin

hdcMem \ from memory dc

SCREEN-HEIGHT \ height of dest rect

SCREEN-WIDTH \ width of dest rect

0 0 \ y,x dest

GetHandle: demo-dc \ to screen

Call BitBlt ?win-error \

hdcMem Call DeleteDC ?win-error

ELSE DROP

THEN

;