procCEdit		proc	ptHEdit:dword,hwnd:dword,dtx:dword,dty:dword,dtcx:dword,dtcy:dword,style:dword

			mov	eax,WS_BORDER or WS_CHILD or WS_VISIBLE or ES_AUTOHSCROLL
			or	eax,style

			invoke	CreateWindowEx,0,addr szEditClass,0,eax,dtx,dty,dtcx,dtcy,hwnd,0,hInstance,0
			mov	edi,ptHEdit
			mov	dword ptr [edi],eax

			ret

procCEdit		endp

procCBmp		proc	ptStBmp:dword,hwnd:dword,dtx:dword,dty:dword,idBmp:dword

			invoke	CreateWindowEx,0,addr szStaticClass,0,SS_BITMAP or WS_CHILD or WS_VISIBLE,dtx,dty,0,0,hwnd,0,\
				hInstance,0
			mov	edi,ptStBmp
			assume	edi:ptr BMPCONTROL
			mov	[edi].hWnd,eax

			invoke	LoadBitmap,hInstance,idBmp
			mov	[edi].hBmp,eax

			invoke	SendMessage,[edi].hWnd,STM_SETIMAGE,IMAGE_BITMAP,eax

			mov	eax,[edi].hBmp

			ret

procCBmp		endp

procCButton		proc	ptStBtn:dword,hwnd:dword,dtx:dword,dty:dword,dtcx:dword,dtcy:dword,idBmpUp:dword,idBmpDown:dword

			invoke	CreateWindowEx,0,addr szButtonClass,0,BS_OWNERDRAW or WS_CHILD or WS_VISIBLE,dtx,dty,dtcx,dtcy,\
				hwnd,0,hInstance,0
			mov	edi,ptStBtn
			assume	edi:ptr BTNCONTROL
			mov	[edi].hWnd,eax

			invoke	LoadBitmap,hInstance,idBmpUp
			mov	[edi].hBmpUp,eax

			invoke	LoadBitmap,hInstance,idBmpDown
			mov	[edi].hBmpDown,eax

			mov	ebx,[edi].hBmpUp

			ret

procCButton		endp
