ASM Community

;##################################################################
; ODStatusBar.Asm
;##################################################################
.386
.model flat,stdcall
option casemap:none
DlgProc					PROTO :DWORD,:DWORD,:DWORD,:DWORD
DrawStatusParts			PROTO :DWORD,:DWORD

include WINDOWS.inc
include Comctl32.inc
include user32.inc
include kernel32.inc
include gdi32.inc

includelib comctl32.lib
includelib user32.lib
includelib kernel32.lib
includelib gdi32.lib



STATUSPARAM struct
	pszText		DD	?
	dwColor		DD	?
	hIcon		DD	?
STATUSPARAM ends

IDD_DLG1	EQU	1000
IDC_SBR1	EQU	1001

.data?
	hInstance	DD 	?
	hStatus		DD	?
	sbParams	DB	(SIZEOF STATUSPARAM * 3) DUP (?)

.data
	sbparts		DD	60,120,-1,0,0
	sbText1		DB	"Part 1",0
	sbText2		DB	"Part 2",0
	sbText3		DB	"Part 3",0

.code
start:
	invoke GetModuleHandleA, 0
	mov hInstance,eax
	invoke InitCommonControls
	invoke DialogBoxParam,hInstance,IDD_DLG1,0,offset DlgProc,0
	invoke ExitProcess,0

DlgProc proc hwnd,uMsg,wParam,lParam
;	mov		eax,uMsg
	.if uMsg==WM_INITDIALOG
		invoke GetDlgItem,hwnd,IDC_SBR1
		mov hStatus,eax

		invoke SendMessage,hStatus,SB_SETPARTS,3,offset sbparts
		push ebx

		mov ebx,offset sbParams
		mov ,offset sbText1
		mov DWORD PTR ,00C08080h
		invoke LoadIcon,NULL,IDI_ASTERISK
		mov DWORD PTR ,eax
		invoke SendMessage,hStatus,SB_SETTEXT,SBT_OWNERDRAW or 0,ebx

		add ebx, SIZEOF STATUSPARAM
		mov ,offset sbText2
		mov DWORD PTR ,0080FFFFh
		invoke LoadIcon,NULL,IDI_APPLICATION
		mov DWORD PTR ,eax
		invoke SendMessage,hStatus,SB_SETTEXT,SBT_OWNERDRAW or 1,ebx

		add ebx, SIZEOF STATUSPARAM
		mov ,offset sbText3
		mov DWORD PTR ,008080FFh
		invoke LoadIcon,NULL,IDI_WINLOGO
		mov DWORD PTR ,eax
		invoke SendMessage,hStatus,SB_SETTEXT,SBT_OWNERDRAW or 2,ebx
		pop ebx
	.elseif uMsg==WM_DRAWITEM
		mov eax,wParam
		xor eax,IDC_SBR1
		.if ZERO?
			invoke DrawStatusParts,wParam,lParam
		.endif
	.elseif uMsg==WM_CLOSE
		INVOKE EndDialog,hwnd,0
		mov eax,FALSE
		ret
	.else 
	mov eax,FALSE
	ret
	.endif
	mov eax, TRUE
	ret
DlgProc endp

DrawStatusParts proc uses ebx edi esi, wParam,lParam
	mov ebx, lParam ; Pointer to DRAWITEMSTRUCT
	mov edi, ; Pointer to STATUSPARAM for this part
	or edi,edi
	.if !ZERO?
		invoke CreateSolidBrush,
		push eax
		mov esi,ebx
		add esi,DRAWITEMSTRUCT.rcItem
		invoke FillRect,,esi,eax
		mov eax,
		or eax,eax
		.if !ZERO?
			invoke DrawIconEx,,,,eax,16,16,NULL,NULL,DI_NORMAL
			add DWORD PTR ,18
		.endif
		invoke SetBkMode,,TRANSPARENT
		invoke SetTextColor,,0
		invoke lstrlen,
		invoke DrawText,,,eax,esi,DT_LEFT
		pop eax
		invoke DeleteObject,eax
	.endif
	ret
DrawStatusParts endp
end start