ASM Community

.486
.model flat,stdcall
option casemap:none

include ListView.inc

.code

start:

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

WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD
	LOCAL	wc:WNDCLASSEX
	LOCAL	msg:MSG

	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,DLGWINDOWEXTRA
	push	hInst
	pop		wc.hInstance
	mov		wc.hbrBackground,COLOR_BTNFACE+1
	mov		wc.lpszMenuName,OFFSET MenuName
	mov		wc.lpszClassName,OFFSET ClassName
	invoke LoadIcon,NULL,IDI_APPLICATION
	mov		wc.hIcon,eax
	mov		wc.hIconSm,eax
	invoke LoadCursor,NULL,IDC_ARROW
	mov		wc.hCursor,eax
	invoke RegisterClassEx,addr wc
	invoke CreateDialogParam,hInstance,addr DlgName,NULL,addr WndProc,NULL
	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 hWin:HWND,uMsg:UINT,wParam:WPARAM,lParam:LPARAM
	LOCAL rDC:DWORD
	LOCAL ps:PAINTSTRUCT
	LOCAL rect:RECT
	
	mov		eax,uMsg
	.if eax==WM_INITDIALOG
		push	hWin
		pop		hWnd
		mov hIDC_LSV1,rv(GetDlgItem,hWin,IDC_LSV1)
		invoke  SendMessage,hIDC_LSV1,LVM_GETNEXTITEM,-1, LVNI_FOCUSED
		invoke SendMessage,hIDC_LSV1,LVM_SETEXTENDEDLISTVIEWSTYLE,0,LVS_EX_FULLROWSELECT or LVS_EX_GRIDLINES

		InsertColumn 60,"Date",0			
		InsertColumn 60,"Time",1			
		InsertColumn 150,"Purpose",2		        
		InsertColumn 150,"Place",3			
		InsertItem 0,0,"New Item0"			
		InsertItem 1,0,"New Item1"			
		SetItemText 0,1,"New subitem0"		
		SetItemText 1,1,"Newer subitem1"	        
	.elseif eax==WM_PAINT
		invoke BeginPaint,hWnd,addr ps
		mov rDC,eax
		invoke GetClientRect,hWnd,addr rect
		RGB 100,100,0
		invoke FillRect,rDC,addr rect,rv(CreateSolidBrush,eax)
		
		ret
	.elseif eax==WM_NOTIFY

	.elseif eax==WM_COMMAND
		mov		eax,wParam
		and		eax,0FFFFh
		.if eax==IDM_FILE_EXIT
			invoke SendMessage,hIDC_LSV1,LVM_GETCOLUMN,1,addr col
; Here is the crash point. Move this line anywhere...
			invoke SendMessage,hIDC_LSV1,LVM_GETITEM,0,addr pitem
			invoke SendMessage,hWin,WM_CLOSE,0,0
		.elseif eax==IDM_HELP_ABOUT
			invoke ShellAbout,hWin,addr AppName,addr AboutMsg,NULL
		.endif
	.elseif uMsg==WM_SIZE
		mov eax,lParam
		mov edx,eax
		and eax,0ffffh
		sub eax,10			
		shr edx,16
		sub edx,30			
		invoke MoveWindow,hIDC_LSV1, 5, 25, eax,edx,TRUE
	.elseif eax==WM_CLOSE
		invoke DestroyWindow,hWin
	.elseif uMsg==WM_DESTROY
		invoke PostQuitMessage,NULL
	.else
		invoke DefWindowProc,hWin,uMsg,wParam,lParam
		ret
	.endif
	xor    eax,eax
	ret
WndProc endp

end start

RGB macro red,green,blue
        xor eax,eax
        mov ah,blue
        shl eax,8
        mov ah,green
        mov al,red
endm

InsertColumn MACRO width,colHeader,colPos
	LOCAL lbl
	LOCAL header
	jmp	lbl
	header db colHeader,0
lbl:
	mov	col.imask,LVCF_TEXT or LVCF_WIDTH or LVCF_FMT
	mov	col.fmt,LVCFMT_LEFT
	mov	col.lx,width
	mov	col.pszText,offset header
	GetTextLen
	invoke	SendMessage,hIDC_LSV1,LVM_INSERTCOLUMN,colPos,addr col
ENDM

InsertItem MACRO itemNum,subitemNum,itemText
	LOCAL lbl
	LOCAL itemTxt
	jmp	lbl
	itemTxt db itemText,0
lbl:
	mov	pitem.imask,LVIF_TEXT
	mov	pitem.iItem,itemNum
	mov	pitem.iSubItem,subitemNum
	mov	pitem.pszText,offset itemTxt
	GetTextLen
	invoke	SendMessage,hIDC_LSV1,LVM_INSERTITEM,0,addr pitem	
ENDM

SetItemText MACRO itemNum,subitemNum,itemText
	LOCAL lbl
	LOCAL itemTxt
	jmp	lbl
	itemTxt db itemText,0
lbl:
	mov	pitem.imask,LVIF_TEXT
	mov	pitem.iItem,itemNum
	mov	pitem.iSubItem,subitemNum
	mov	pitem.pszText,offset itemTxt
	GetTextLen
	invoke	SendMessage,hIDC_LSV1,LVM_SETITEMTEXT,itemNum,addr pitem
ENDM

GetTextLen Macro
	invoke	lstrlen,pitem.pszText
	mov	pitem.cchTextMax,eax
ENDM

col 				LVCOLUMN	<>
pitem 			LVITEM	<>

lResult = SendMessage(      // returns LRESULT in lResult     
(HWND) hWndControl,      // handle to destination control     
(UINT) LVM_GETITEM,      // message ID     
(WPARAM) wParam,      // = 0; not used, must be zero    
(LPARAM) lParam      // = (LPARAM) (LPLVITEM) pitem; 
); 

Parameters

wParam 
       Must be zero.

pitem 
      Pointer to an LVITEM structure that specifies the information to retrieve and receives information about the list-view item. 

Return Value
      Returns TRUE if successful, or FALSE otherwise.

mov pitem.iItem,1
mov pitem.iSubItem,1
mov pitem.imask, LVIF_TEXT
lea eax, szBuff
mov pitem.pszText, eax
mov pitem.cchTextMax, 256
invoke SendMessage,hIDC_LSV1,LVM_GETITEM,0,addr pitem