;-menu.asm-------------------------------------------------------------------
;          x86 - Dos & Win32 - Assembly Language Programming                ;
;                                                                           ;
; Written by: John A Lyons                                                  ;
; Email     : sysop@megablast.8k.com                                        ;
; Page      : http://www.asmsource.8k.com/                                  ;
; Compiler  : Masm32 v6.13 Microsoft Macro Assembler                        ;
; Date      : 23-Dec-2000                                                   ;
; Purpose   : Demonstrates a simple win32 program. Opens a window           ;
;             with a menu, and show how to accept input form the menu.      ;
;             Show how to incorporate a resource file into out program.     ;
;                                                                           ;
;----------------------------------------------------------------------------
; Compile with nmake
;

.386                    ; 32-Bit when .386 appears before .MODEL
.MODEL  FLAT , STDCALL

include windows.inc
include user32.inc
include kernel32.inc
include gdi32.inc
includelib user32.lib
includelib kernel32.lib
includelib gdi32.lib

EXTRN wsprintfA:PROC

.const
IDM_PICK1       equ 2
IDM_PICK2       equ 3
IDM_EXIT        equ 1
IDM_ABOUT       equ 4

.data
ClassName       db "SimpleWinClass",0
AppName         db "Menu",0
pick1           db "Pick Item 1       ",0
pick2           db "Pick Item 2       ",0
menu            db "Pick menu item",0

MenuName        db "TheMenu",0
about           db "   Menu Example",10,10,"  by John Lyons",10,"http://asmsource.8k.com",0
aboutcap        db "Menu Example",0


.data?
hInstance       HINSTANCE ?
CommandLine     LPSTR ?
hwnd            HWND ?
hdc             HDC ?
temp            db 100 dup(0)

.code

WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:SDWORD
	LOCAL wc:WNDCLASSEX
	LOCAL msg:MSG
        LOCAL hmenu:HWND
;        LOCAL hInst:HINSTANCE

	mov   wc.cbSize,SIZEOF WNDCLASSEX
	mov   wc.style, CS_HREDRAW or CS_VREDRAW
	mov   wc.lpfnWndProc, OFFSET WndProc
	mov   wc.cbClsExtra,NULL
	mov   wc.cbWndExtra,NULL
        push  hInstance
        pop   wc.hInstance
	mov   wc.hbrBackground,COLOR_WINDOW+1
        mov   wc.lpszMenuName,OFFSET MenuName
	mov   wc.lpszClassName,OFFSET ClassName
        invoke LoadIcon,NULL,IDI_APPLICATION

	mov   wc.hIcon,eax
        mov   wc.hIconSm,0
        invoke LoadCursor,NULL,IDC_ARROW

	mov   wc.hCursor,eax
        invoke RegisterClassEx, addr wc


        INVOKE CreateWindowEx,NULL,ADDR ClassName,ADDR AppName,\
           WS_OVERLAPPEDWINDOW,
           CW_USEDEFAULT,CW_USEDEFAULT,           ;postion
          300,100,            ;size
          NULL,NULL,\
           hInst,NULL
        mov   hwnd,eax

        invoke LoadMenu,hInst,OFFSET MenuName ;600
        invoke SetMenu,hwnd,eax

        INVOKE ShowWindow, hwnd,SW_SHOWNORMAL
        INVOKE UpdateWindow, hwnd

        .WHILE TRUE
                INVOKE GetMessage, ADDR msg,NULL,0,0
                .BREAK .IF (!eax)
                INVOKE TranslateMessage, ADDR msg
                INVOKE DispatchMessage, ADDR msg
        .ENDW
        mov     eax,msg.wParam
        ret
WinMain endp
WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
        LOCAL ps:PAINTSTRUCT


	mov   eax,uMsg
	.IF eax==WM_DESTROY
		invoke PostQuitMessage,NULL
        .ELSEIF eax==WM_PAINT
                invoke BeginPaint,hWnd, ADDR ps
                mov    hdc,eax

                invoke TextOut,hdc,0,0,ADDR menu,(SIZEOF menu) -1

                invoke EndPaint,hWnd, ADDR ps

        .ELSEIF eax==WM_COMMAND
                mov eax,wParam
                .IF lParam==0
                        .IF ax==IDM_PICK1
                                invoke GetDC,hWnd
                                mov    hdc,eax
                                invoke TextOut,hdc,0,0,ADDR pick1,(SIZEOF pick1) -1
                                invoke EndPaint,hWnd, ADDR ps

                        .ELSEIF ax==IDM_PICK2
                                invoke GetDC,hWnd
                                mov    hdc,eax
                                invoke TextOut,hdc,0,0,ADDR pick2,(SIZEOF pick2) -1
                                invoke EndPaint,hWnd, ADDR ps

                        .ELSEIF ax==IDM_ABOUT
                                invoke MessageBox,NULL,addr about,addr aboutcap,MB_OK
                        .ELSEIF ax==IDM_EXIT
                                invoke DestroyWindow,hwnd

                        .ENDIF

                .ENDIF

        .ELSE
                invoke DefWindowProc,hWnd,uMsg,wParam,lParam
                ret
	.ENDIF
        xor    eax,eax
	ret
WndProc endp

showtemp proc near
                lea esi,temp
                xor ecx,ecx
loll1:
                inc ecx
                inc esi
                cmp [esi],byte ptr 0
                jne loll1

                invoke TextOut,hdc,0,ebx,ADDR temp,ecx
                ret
showtemp        endp

start:

	invoke GetModuleHandle, NULL
	mov    hInstance,eax
	invoke GetCommandLine
        invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT
	invoke ExitProcess,eax

        end start