Subversion Repositories Kolibri OS

;������ ����୮ ��।������ �ਭ� ����誨

ICONS_DAT	equ '/rd/1/icons.dat'

ICON_STRIP	equ '/rd/1/iconstrp.png'

ICON_SIZE	equ 68

IMG_SIZE	equ 32

TEXT_BOTTOM_Y	equ 14

IMAGE_TOP_Y	equ 10	  ;>=1

ALIGN_SIZE	equ 68

NAME_LENGTH	equ 11

MIN_NO_MOVING	equ 8

			   ;��� ������� ᮧ�����/।���஢����

ICONSX		equ 20

ICONSY		equ 80

ICONS_DRAW_COUNTW equ 10  ;������⢮ ������ � �ਭ�

ICONS_DRAW_COUNTH equ 2   ;������⢮ ������ � �����

SPCW		equ 3	  ;�஡�� ����� �������� �� ��ਧ��⠫�

SPCH		equ 3

END_ICONS_AREAW equ ICONSX+(IMG_SIZE+SPCW)*ICONS_DRAW_COUNTW-SPCW

END_ICONS_AREAH equ ICONSY+(IMG_SIZE+SPCH)*ICONS_DRAW_COUNTH-SPCH

SizeData	equ bufStdIco+32

BegData 	equ fiStdIco.point

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

	use32

	org 0x0

	db 'MENUET01'	; 8 byte id

	dd 0x01 	; header version

	dd START	; start of code

	dd I_END	; size of image

	dd ENDMEM	; memory for app

	dd stack_main	; esp

	dd 0		; boot parameters

	dd 0		; path

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

include 'lang.inc'

include '../../macros.inc'

include '../../proc32.inc'

include '../../develop/libraries/box_lib/trunk/box_lib.mac'

include '../../dll.inc'

;include '../../debug.inc'

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

START:		; start of execution

	mcall	68,11

	stdcall dll.Load,IMPORTS

	test	eax,eax

	jnz	ErrLoadLibs

; unpack deflate

	mov	eax,[unpack_DeflateUnpack2]

	mov	[deflate_unpack],eax

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

; get size of file ICONSTRP.PNG

	mcall	70,fiStdIco

	test	eax,eax

	jnz	ErrorStrp

; get memory for ICONSTRP.PNG

	mov	ecx,dword[bufStdIco+32]

	mov	[fiStdIco.size],ecx

	mov	[img_size],ecx

	mcall	68,12

	mov	[fiStdIco.point],eax

	mov	[image_file],eax

; load ICONSTRP.PNG

	mov	dword[fiStdIco],0

	mcall	70,fiStdIco

	test	eax,eax

	jnz	close

; convert PNG to RAW

	xor	eax,eax

	mov	[return_code],eax

;int3

	push	image_file

	call	[cnv_png_import.Start]

	mov	eax,[raw_pointer]

	mov	ebx,[eax+32]

	mov	[strip_file_size],ebx

	mov	eax,[eax+28]

	add	eax,[raw_pointer]

	mov	[strip_file],eax

; back memory to system

	mcall	68,13,[fiStdIco.point]

	mov	eax,[raw_pointer]

	mov	eax,[eax+8]

	shr	eax,5

	mov	[icon_count],eax

	and	eax,0x7

	mov	[cur_band_compensation],eax

;########## ����㦠�� ����� ������ � ������ ##########################

	mcall	70,fiIni		     ;�뤥�塞 ������, �����筮� ��� �࠭���� ini 䠩��. �� �筮 墠�� ��� �࠭���� ������ �� �������

	test	eax,eax

	jnz	ErrorIni

	cmp	dword[bufIni+32],0

	je	ErrorIni

	mcall	68,12,dword[bufIni+32]

	mov	dword[BegData],eax

	jmp	NoErrIni

  ErrorIni:

	mcall	70,fiRunProg

	mcall	-1

  NoErrIni:

	m2m	[PIcoDB],[BegData]

	stdcall [ini_enum_sections],IconIni,LoadIconsData

;int3

	mov	eax,dword[PIcoDB]

	sub	eax,[BegData]

	mov	dword[SizeData],eax

	mov	eax,[BegData]

	cmp	eax,[PIcoDB]

	jne	@f

	mov	dword[eax],0

	mov	dword[SizeData],0

   @@:

;######################################################################

	call	FillIconsOffs		       ;�������� MaxNumIcon,IconsOffs

	mcall	40,0100000b		       ;�㦭� ⮫쪮 ᮡ��� ���, ����ᮢ�� ������ �㤥� � ��㣮� ��⮪�

	mov	eax,[icon_count]

	mov	bl,ICONS_DRAW_COUNTH

	div	bl

	test	ah,ah

	jz	@f

	inc	al

     @@:

	and	eax,0FFh

	mov	[sbIcons.max_area],eax

	mcall	51,1,BGRedrawThread,stack_bredraw	;����᪠�� ��⮪ ����ᮢ�� ������

	stdcall [OpenDialog_Init],OpenDialog_data

messages:

	mcall	10

	sub	eax,6

	jz	MSGMouse

	jmp	messages

MSGMouse:

	mcall	37,0	;GetMousePos

	xor	ebx,ebx

	mov	bx,ax

	shr	eax,16

	mov	ecx,ebx

	mov	ebx,eax

	mcall	34

	cmp	eax,1

	jne	messages

	cmp	[RButtonActiv],1

	je	messages

	mov	[MouseY],ecx

	mov	[MouseX],ebx

	mcall	37,2

	test	al,001b

	jnz	LButtonPress

	test	al,010b

	jnz	RButtonPress

	jmp	messages

ErrLoadLibs:

	;dps     '�� 㤠���� ����㧨�� ����室��� ������⥪�'

	;debug_newline

	jmp	close

ErrorStrp:

	;dps     '�訡�� ������ iconstrp.png'

	;debug_newline

close:

	mcall	-1

LButtonPress:

	stdcall GetNumIcon,[MouseX],[MouseY],-1

;int3

	cmp	eax,-1

	jnz	@f

    WaitLB1:

	mcall	37,2

	test	al,001b

	jz	messages

	;Yield

	mcall	5,1

	jmp	WaitLB1

     @@:

	push	eax

	stdcall DrawIcon,eax,1

   WaitLB: