Subversion Repositories Kolibri OS

;;================================================================================================;;

;;//// ico.asm //// (c) mike.dld, 2007-2008, (c) diamond, 2009 ///////////////////////////////////;;

;;================================================================================================;;

;;                                                                                                ;;

;; This file is part of Common development libraries (Libs-Dev).                                  ;;

;;                                                                                                ;;

;; Libs-Dev is free software: you can redistribute it and/or modify it under the terms of the GNU ;;

;; Lesser General Public License as published by the Free Software Foundation, either version 2.1 ;;

;; of the License, or (at your option) any later version.                                         ;;

;;                                                                                                ;;

;; Libs-Dev is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without  ;;

;; even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU  ;;

;; Lesser General Public License for more details.                                                ;;

;;                                                                                                ;;

;; You should have received a copy of the GNU Lesser General Public License along with Libs-Dev.  ;;

;; If not, see .                                                    ;;

;;                                                                                                ;;

;;================================================================================================;;

;;                                                                                                ;;

;; References:                                                                                    ;;

;;   1. "Icons in Win32"                                                                          ;;

;;      by John Hornick, Microsoft Corporation                                                    ;;

;;      http://msdn2.microsoft.com/en-us/library/ms997538.aspx                                    ;;

;;                                                                                                ;;

;;================================================================================================;;

include 'ico_cur.inc'

;;================================================================================================;;

;;proc img.is.ico _data, _length ;////////////////////////////////////////////////////////////////;;

img.is.ico:

	mov	edx, 0x00010000	; icon type = 1

	jmp	@f

img.is.cur:

	mov	edx, 0x00020000	; cursor type = 2

@@:

;;------------------------------------------------------------------------------------------------;;

;? Determine if raw data could be decoded (is in ICO format)                                      ;;

;;------------------------------------------------------------------------------------------------;;

;> _data = raw data as read from file/stream                                                      ;;

;> _length = data length                                                                          ;;

;;------------------------------------------------------------------------------------------------;;

;< eax = false / true                                                                             ;;

;;================================================================================================;;

; test 1 (length of data): data must contain FileHeader

	mov	ecx, [esp+8]

	sub	ecx, sizeof.ico.FileHeader

	jb	.nope

; test 2: signature

	mov	eax, [esp+4]

	cmp	dword [eax], edx	; Reserved & Type

	jne	.nope

; test 3: count must be non-zero

	movzx	eax, [eax + ico.FileHeader.Count]

	test	eax, eax

	jz	.nope

; test 4 (length of data): data must containt Count dir entries

	shl	eax, 4

	sub	ecx, eax

	jae	.yep

  .nope:

	xor	eax, eax

	ret	8

  .yep:

	xor	eax, eax

	inc	eax

	ret	8

;endp

;;================================================================================================;;

proc img.decode.ico_cur _data, _length, _options ;////////////////////////////////////////////////;;

;;------------------------------------------------------------------------------------------------;;

;? Decode data into image if it contains correctly formed raw data in ICO/CUR format              ;;

;;------------------------------------------------------------------------------------------------;;

;> _data = raw data as read from file/stream                                                      ;;

;> _length = data length                                                                          ;;

;> _options = options for decoding (e.g. background color)                                        ;;

;;------------------------------------------------------------------------------------------------;;

;< eax = 0 (error) or pointer to image                                                            ;;

;;================================================================================================;;

locals

  count dd ?

  img dd ?

  main_img dd ?

endl

	push	ebx esi edi

; img.is.ico has been already called by img.decode

;	stdcall img.is.ico, [_data], [_length]

;	or	eax, eax

;	jz	.error

	mov	ebx, [_data]

	movzx	eax, [ebx + ico.FileHeader.Count]

	mov	[count], eax

	and	[img], 0

	and	[main_img], 0

.loop:

	mov	ecx, [ebx + sizeof.ico.FileHeader + ico.DirEntry.ByteSize]

	mov	edx, [ebx + sizeof.ico.FileHeader + ico.DirEntry.ImageOffset]

	mov	eax, [_length]

	sub	eax, edx

	jb	.skip

	cmp	eax, ecx

	jb	.skip

	cmp	ecx, 12	; length test, see img.is.bmp

	jb	.skip

	add	edx, [_data]

	push	[_options]

	push	ecx

	push	edx

	call	img.decode.ico._.decode_icon_data

	test	eax, eax

	jz	.skip

	push	0xFFFFFF	; set bgr to white if no given

	mov	edx, [_options]

	test	edx, edx

	jz	@f

	cmp	[edx + ImageDecodeOptions.UsedSize], ImageDecodeOptions.BackgroundColor + 4

	jb	@f

	add	esp, 4

	push	[edx + ImageDecodeOptions.BackgroundColor]

@@:

	call	img.decode.ico._.decode_icon_mask

	test	eax, eax

	jz	.skip

	mov	edx, [img]

	test	edx, edx

	jz	.first

	mov	[edx + Image.Next], eax

	mov	[eax + Image.Previous], edx

	jmp	@f

.first:

	mov	[main_img], eax

@@:

	mov	[img], eax

.skip:

	add	ebx, sizeof.ico.DirEntry

	dec	[count]

	jnz	.loop

	mov	eax, [main_img]

	pop	edi esi ebx

	ret

endp

;;================================================================================================;;

img.encode.cur:

proc img.encode.ico _img, _p_length, _options ;///////////////////////////////////////////////////;;

;;------------------------------------------------------------------------------------------------;;

;? Encode image into raw data in ICO format                                                       ;;

;;------------------------------------------------------------------------------------------------;;

;> _img = pointer to image                                                                        ;;

;;------------------------------------------------------------------------------------------------;;

;< eax = 0 (error) or pointer to encoded data                                                     ;;

;< _p_length = encoded data length                                                                ;;

;;================================================================================================;;

	xor	eax, eax

	ret

endp

;;================================================================================================;;

;;////////////////////////////////////////////////////////////////////////////////////////////////;;

;;================================================================================================;;

;! Below are private procs you should never call directly from your code                          ;;

;;================================================================================================;;

;;////////////////////////////////////////////////////////////////////////////////////////////////;;

;;================================================================================================;;

img.decode.ico._.decode_icon_data:

; create stack frame and jump to common BMP+ICO code

	push	ebp

	mov	ebp, esp

	sub	esp, 12

	mov	byte [ebp - 3], 1	; bIsIco

	jmp	img.decode.bmp.common

img.decode.ico._.decode_icon_mask:

	mov	edx, [eax + Image.Width]

	add	edx, 31

	shr	edx, 3

	and	edx, not 3

	push	edx

	imul	edx, [eax + Image.Height]

	cmp	ecx, edx

	pop	edx

	jb	.error.free

	mov	edi, [eax + Image.Data]

	push	ebp ebx eax

	xor	ebp, ebp

	mov	ebx, [eax + Image.Extended]

	cmp	[ebx + bmp.Image.info.Height], 0

	js	@f

	push	edx

	imul	edx, [eax + Image.Height]

	add	esi, edx

	pop	edx

	lea	ebp, [edx+edx]

	sub	esi, edx

@@:

	mov	ebx, [eax + Image.Height]

	mov	ecx, [eax + Image.Width]

; for now, BMP code produces only 8 and 32 bpp images

	cmp	[eax + Image.Type], Image.bpp8i

	jz	.bpp8

.bpp32:

	mov	edx, [esp+16]	; get background color

.bpp32.extloop:

	push	ecx

.bpp32.innloop:

	lodsd

	bswap	eax

	push	32

.bpp32.dwordloop:

	add	eax, eax

	jnc	@f

	mov	[edi], edx

@@:

	add	edi, 4

	dec	ecx

	jz	@f

	dec	dword [esp]

	jnz	.bpp32.dwordloop

@@:

	pop	eax

	test	ecx, ecx

	jnz	.bpp32.innloop

	sub	esi, ebp

	pop	ecx

	dec	ebx

	jnz	.bpp32.extloop

	pop	eax ebx ebp

	ret	4

.bpp8:

	push	edi

	mov	edi, [eax + Image.Palette]

	mov	eax, [esp+20]	; get background color

; if palette already has index for bgr color, use it

	push	ecx

	mov	ecx, 256

	repnz	scasd

	jnz	.bpp8.notfound

	not	cl	; cl = index

	pop	edx

	pop	edi

.bpp8.extloop:

	push	edx

.bpp8.innloop:

	lodsd

	bswap	eax

	push	32

.bpp8.dwordloop:

	add	eax, eax

	jnc	@f

	mov	[edi], cl

@@:

	inc	edi

	dec	edx

	jz	@f

	dec	dword [esp]

	jnz	.bpp8.dwordloop

@@:

	pop	eax

	test	edx, edx

	jnz	.bpp8.innloop

	sub	esi, ebp

	pop	edx

	dec	ebx

	jnz	.bpp8.extloop

	pop	eax ebx ebp

	ret	4

.bpp8.notfound:

; get maximum used color; if index < 255, then we can add one color to palette

	pop	ecx

	pop	edi

	pop	eax

	mov	edx, [eax + Image.Width]

	imul	edx, ebx

	mov	edi, [eax + Image.Data]

	xor	ecx, ecx

.bpp8.scanloop:

	cmp	[edi], cl

	jb	@f

	mov	cl, [edi]

@@:

	inc	edi

	dec	edx

	jnz	.bpp8.scanloop

	inc	cl

	jz	.bpp8.nospace

	mov	edx, [esp+8]

	mov	edi, [eax + Image.Palette]

	mov	[edi+ecx*4], edx	; set palette color

	mov	edi, [eax + Image.Data]

	mov	edx, [eax + Image.Width]

	push	eax

	jmp	.bpp8.extloop

.bpp8.nospace:

; convert to 24 bpp

	mov	edx, [eax + Image.Width]

	imul	edx, ebx

	lea	edx, [edx*3]

	push	eax

	invoke	mem.alloc, edx

	mov	edi, eax

	pop	eax

	test	edi, edi

	jz	.error.free2

	push	eax esi edi

	mov	esi, eax

	call	img._.do_rgb

	pop	edi esi eax

	xchg	edi, [eax + Image.Data]

	mov	byte [eax + Image.Type], Image.bpp24

	push	eax

	invoke	mem.free, edi

	pop	eax

	push	eax

	mov	ecx, [eax + Image.Width]

	mov	edi, [eax + Image.Data]

.bpp24:

	mov	edx, [esp+16]	; get background color

.bpp24.extloop:

	push	ecx

.bpp24.innloop:

	lodsd

	bswap	eax

	push	32

.bpp24.dwordloop:

	add	eax, eax

	jnc	@f

	mov	[edi], dx

	ror	edx, 16

	mov	[edi+2], dl

	ror	edx, 16

@@:

	add	edi, 3

	dec	ecx

	jz	@f

	dec	dword [esp]

	jnz	.bpp24.dwordloop

@@:

	pop	eax

	test	ecx, ecx

	jnz	.bpp24.innloop

	sub	esi, ebp

	pop	ecx

	dec	ebx

	jnz	.bpp24.extloop

	pop	eax ebx ebp

	ret	4

.error.free2:

	pop	ebx ebp

.error.free:

	stdcall	img._.delete, eax

	xor	eax, eax

	ret	4

;;================================================================================================;;

;;////////////////////////////////////////////////////////////////////////////////////////////////;;

;;================================================================================================;;

;! Below is private data you should never use directly from your code                             ;;

;;================================================================================================;;

;;////////////////////////////////////////////////////////////////////////////////////////////////;;

;;================================================================================================;;

;