WebSVN – Kolibri OS – Diff – /programs/media/kiv/trunk/kiv.asm

 use32
 org 0x0
 db 'MENUET01'
 dd 0x01, START, I_END, 0x4000, 0x4000, @PARAMS, 0x0
 ;-----------------------------------------------------------------------------
 FALSE = 0
 TRUE  = 1
 include '../../../../../proc32.inc'
 include '../../../../../macros.inc'
 include 'dll.inc'
 include '../../../develop/libraries/libs-dev/libio/libio.inc'
 include '../../../develop/libraries/libs-dev/libimg/libimg.inc'
 ;-----------------------------------------------------------------------------
 START:
 	mcall	68, 11
 	stdcall dll.Load, @IMPORT
 	or	eax, eax
 	jnz	exit
+	invoke	sort.START, 1
 	mov	ecx, 1	; for 15.4: 1 = tile
 	cmp	word [@PARAMS], '\T'
 	jz	set_bgr
 	inc	ecx	; for 15.4: 2 = stretch
 	cmp	word [@PARAMS], '\S'
 	jz	set_bgr
 	cmp	byte [@PARAMS], 0
 	jnz	params_given
 	call	opendialog
 	jc	exit
 	mov	esi, path
 	mov	edi, @PARAMS
 	mov	ecx, 512/4
 	rep	movsd
 	mov	byte [edi-1], 0
 	jmp	params_given
 set_bgr:
 	mcall	15, 4
 	mov	eax, @PARAMS + 4
 	call	load_image
-	jc	exit_bgr
+	jc	exit
-	mov	esi, [image]
-	mov	ecx, [esi + Image.Width]
-	mov	edx, [esi + Image.Height]
-	mcall	15, 1
-	mcall	15, 6
-	test	eax, eax
-	jz	exit_bgr
-	push	eax
-	invoke	img.to_rgb2, esi, eax
-	pop	ecx
-	mcall	15, 7
-exit_bgr:
-	mcall	15, 3
+	call	set_as_bgr
 	jmp	exit
 params_given:
 	mov	eax, @PARAMS
 	call	load_image
 	jc	exit
 ;-----------------------------------------------------------------------------
 red:
 	call	draw_window
 still:
 	mcall	10
 	dec	eax
 	jz	red
 	dec	eax
 	jnz	button
   key:
 	mcall	2
 	jmp	still
   button:
 	mcall	17
 	shr	eax, 8
 	; flip horizontally
 	cmp	eax, 'flh'
 	jne	@f
 	invoke	img.flip, [image], FLIP_HORIZONTAL
 	jmp	redraw_image
 	; flip vertically
     @@: cmp	eax, 'flv'
 	jne	@f
 	invoke	img.flip, [image], FLIP_VERTICAL
 	jmp	redraw_image
 	; flip both horizontally and vertically
     @@: cmp	eax, 'flb'
 	jne	@f
 	invoke	img.flip, [image], FLIP_BOTH
 	jmp	redraw_image
 	; rotate left
     @@: cmp	eax, 'rtl'
 	jne	@f
 	push	ROTATE_90_CCW
 .rotate_common:
 	invoke	img.rotate, [image]
 	mov	eax, [image]
 	test	eax, eax	; clear ZF flag
 	call	update_image_sizes
 	jmp	redraw_image
 	; rotate right
     @@: cmp	eax, 'rtr'
 	jne	@f
 	push	ROTATE_90_CW
 	jmp	.rotate_common
 	; open new file
     @@: cmp	eax, 'opn'
 	jne	@f
 	call	opendialog
 	jc	still
 	push	[image]
 	mov	eax, path
 	call	load_image
 	jc	.restore_old
 	mov	esi, path
 	mov	edi, @PARAMS
 	mov	ecx, 512/4
 	rep	movsd
-	invoke	img.destroy
 	mov	byte [edi-1], 0
+	invoke	img.destroy
+	call	free_directory
 	jmp	red
     .restore_old:
 	pop	[image]
 	jmp	still
+	; set background
+    @@:
+	cmp	eax, 'bgr'
+	jne	@f
+	call	set_as_bgr
+	jmp	still
+    @@:
+	cmp	eax, 'bck'
+	jnz	@f
+	call	prev_image
+	jmp	still
+    @@:
+	cmp	eax, 'fwd'
+	jnz	@f
+	call	next_image
+	jmp	still
+    @@:
-    @@: cmp	eax, 1
+	cmp	eax, 1
 	jne	still
   exit:
 	mcall	-1
   redraw_image = red
 load_image:
 	and	[img_data], 0
 	push	eax
 	invoke	file.open, eax, O_READ
 	or	eax, eax
 	jz	.error_pop
 	mov	[fh], eax
 	invoke	file.size
 	mov	[img_data_len], ebx
 	stdcall mem.Alloc, ebx
 	test	eax, eax
 	jz	.error_close
 	mov	[img_data], eax
 	invoke	file.read, [fh], eax, [img_data_len]
 	cmp	eax, -1
 	jz	.error_close
 	cmp	eax, [img_data_len]
 	jnz	.error_close
 	invoke	file.close, [fh]
 	inc	eax
 	jz	.error
 ; img.decode checks for img.is_img
 ;	invoke	img.is_img, [img_data], [img_data_len]
 ;	or	eax, eax
 ;	jz	exit
 	invoke	img.decode, [img_data], [img_data_len]
 	or	eax, eax
 	jz	.error
 	cmp	[image], 0
 	mov	[image], eax
 	call	update_image_sizes
 	call	free_img_data
 	clc
 	ret
 .error_free:
 	invoke	img.destroy, [image]
 	jmp	.error
 .error_pop:
 	pop	eax
 	jmp	.error
 .error_close:
 	invoke	file.close, [fh]
 .error:
 	call	free_img_data
 	stc
 	ret
 free_img_data:
 	mov	eax, [img_data]
 	test	eax, eax
 	jz	@f
 	stdcall	mem.Free, eax
 @@:
 	ret
 update_image_sizes:
 	pushf
 	mov	edx, [eax + Image.Width]
 	add	edx, 19
-	cmp	edx, 50 + 25*5
+	cmp	edx, 40 + 25*9
 	jae	@f
-	mov	edx, 50 + 25*5
+	mov	edx, 40 + 25*9
 @@:
 	mov	[wnd_width], edx
 	mov	esi, [eax + Image.Height]
 	add	esi, 44
 	mov	[wnd_height], esi
 	popf
 	jz	.no_resize
 	mcall	48, 4
 	add	esi, eax
 	mcall	67,-1,-1
 .no_resize:
 	ret
+set_as_bgr:
+	mov	esi, [image]
+	mov	ecx, [esi + Image.Width]
+	mov	edx, [esi + Image.Height]
+	mcall	15, 1
+	mcall	15, 6
+	test	eax, eax
+	jz	@f
+	push	eax
+	invoke	img.to_rgb2, esi, eax
+	pop	ecx
+	mcall	15, 7
+@@:
+	mcall	15, 3
+	ret
+prev_image:
+	call	load_directory
+	cmp	[directory_ptr], 0
+	jz	.ret
+	mov	ebx, [directory_ptr]
+	mov	eax, [cur_file_idx]
+	cmp	eax, -1
+	jnz	@f
+	mov	eax, [ebx+4]
+@@:
+	push	[image]
+.scanloop:
+	dec	eax
+	jns	@f
+	mov	eax, [ebx+4]
+	dec	eax
+	cmp	[cur_file_idx], -1
+	jz	.notfound
+@@:
+	cmp	eax, [cur_file_idx]
+	jz	.notfound
+	push	eax
+	imul	esi, eax, 304
+	add	esi, [directory_ptr]
+	add	esi, 32 + 40
+	mov	edi, curdir
+@@:
+	inc	edi
+	cmp	byte [edi-1], 0
+	jnz	@b
+	mov	byte [edi-1], '/'
+@@:
+	lodsb
+	stosb
+	test	al, al
+	jnz	@b
+	mov	eax, curdir
+	call	load_image
+	pop	eax
+	jc	.scanloop
+	mov	[cur_file_idx], eax
+	invoke	img.destroy
+	mov	esi, curdir
+	mov	edi, @PARAMS
+	mov	ecx, 512/4
+	rep	movsd
+	mov	byte [edi-1], 0
+.ret:
+	ret
+.notfound:
+	pop	[image]
+	ret
+next_image:
+	call	load_directory
+	cmp	[directory_ptr], 0
+	jz	.ret
+	mov	ebx, [directory_ptr]
+	mov	eax, [cur_file_idx]
+	push	[image]
+.scanloop:
+	inc	eax
+	cmp	eax, [ebx+4]
+	jb	@f
+	xor	eax, eax
+	cmp	[cur_file_idx], -1
+	jz	.notfound
+@@:
+	cmp	eax, [cur_file_idx]
+	jz	.notfound
+	push	eax ebx
+	imul	esi, eax, 304
+	add	esi, [directory_ptr]
+	add	esi, 32 + 40
+	mov	edi, curdir
+@@:
+	inc	edi
+	cmp	byte [edi-1], 0
+	jnz	@b
+	mov	byte [edi-1], '/'
+@@:
+	lodsb
+	stosb
+	test	al, al
+	jnz	@b
+	mov	eax, curdir
+	call	load_image
+	pop	ebx eax
+	jc	.scanloop
-draw_window:
+	mov	[cur_file_idx], eax
+	invoke	img.destroy
+	mov	esi, curdir
+	push	esi
+	mov	edi, @PARAMS
+	mov	ecx, 512/4
+	rep	movsd
+	mov	byte [edi-1], 0
+	pop	esi
+@@:
+	lodsb
+	test	al, al
+	jnz	@b
+@@:
+	dec	esi
+	cmp	byte [esi], '/'
+	jnz	@b
+	mov	byte [esi], 0
+.ret:
+	ret
+.notfound:
+	pop	[image]
+	ret
+load_directory:
+	cmp	[directory_ptr], 0
+	jnz	.ret
+	mov	esi, @PARAMS
+	mov	ecx, esi
+@@:
+	lodsb
+	test	al, al
+	jnz	@b
+@@:
+	dec	esi
+	cmp	byte [esi], '/'
+	jnz	@b
+	mov	[last_name_component], esi
+	sub	esi, ecx
+	xchg	ecx, esi
+	mov	edi, curdir
+	rep	movsb
+	mov	byte [edi], 0
+	mcall	68, 12, 0x1000
+	test	eax, eax
+	jz	.ret
+	mov	ebx, readdir_fileinfo
+	mov	dword [ebx+12], (0x1000 - 32) / 304
+	mov	dword [ebx+16], eax
+	mcall	70
+	cmp	eax, 6
+	jz	.dirok
+	test	eax, eax
+	jnz	free_directory
+	mov	edx, [directory_ptr]
+	mov	ecx, [edx+8]
+	mov	[readblocks], ecx
+	imul	ecx, 304
+	add	ecx, 32
+	mcall	68, 20
+	test	eax, eax
+	jz	free_directory
+	mov	[directory_ptr], eax
+	mcall	70, readdir_fileinfo
+.dirok:
+	cmp	ebx, 0
+	jle	free_directory
+	mov	eax, [directory_ptr]
+	add	eax, 32
+	mov	edi, eax
+	push	0
+.dirskip:
+	push	eax
+	test	byte [eax], 18h
+	jnz	.nocopy
+	lea	esi, [eax+40]
+	mov	ecx, esi
+@@:
+	lodsb
+	test	al, al
+	jnz	@b
+@@:
+	dec	esi
+	cmp	esi, ecx
+	jb	.noext
+	cmp	byte [esi], '.'
+	jnz	@b
+	inc	esi
+	mov	ecx, [esi]
+	or	ecx, 0x202020
+	cmp	ecx, 'jpg'
+	jz	.copy
+	cmp	ecx, 'bmp'
+	jz	.copy
+	cmp	ecx, 'gif'
+	jz	.copy
+	cmp	ecx, 'png'
+	jz	.copy
+	cmp	ecx, 'jpe'
+	jz	.copy
+	cmp	ecx, 'jpeg'
+	jz	@f
+	cmp	ecx, 'jpeG'
+	jnz	.nocopy
+@@:
+	cmp	byte [esi+4], 0
+	jnz	.nocopy
+.copy:
+	mov	esi, [esp]
+	mov	ecx, 304 / 4
+	rep	movsd
+	inc	dword [esp+4]
+.nocopy:
+.noext:
+	pop	eax
+	add	eax, 304
+	dec	ebx
+	jnz	.dirskip
+	mov	eax, [directory_ptr]
-	invoke	gfx.open, TRUE
+	pop	ebx
+	mov	[eax+4], ebx
+	test	ebx, ebx
+	jz	free_directory
+	push	0	; sort mode
+	push	ebx
+	add	eax, 32
+	push	eax
+	call	[SortDir]
+	xor	eax, eax
+	mov	edi, [directory_ptr]
+	add	edi, 32 + 40
+.scan:
+	mov	esi, [last_name_component]
+	inc	esi
+	push	edi
+	invoke	strcmpi
+	pop	edi
+	jz	.found
+	inc	eax
+	add	edi, 304
+	dec	ebx
+	jnz	.scan
+	or	eax, -1
+.found:
+	mov	[cur_file_idx], eax
+.ret:
+	ret
+free_directory:
+	mcall	68, 13, [directory_ptr]
+	and	[directory_ptr], 0
+	ret
 	mov	[ctx], eax
 draw_window:
 	mcall	48, 4
 	mov	ebp, eax	; save skin height
 	add	eax, [wnd_height]
 	__mov	ebx, 100, 0
 	add	ebx, [wnd_width]
 	lea	ecx, [100*65536 + eax]
 	mcall	0, , , 0x73FFFFFF, , s_header
 	mcall	9, procinfo, -1
-	mov	ebx, [procinfo + 42]
+	mov	ebx, [procinfo + 62]
-	sub	ebx, 9
+	inc	ebx
 	mcall	13, , <0, 35>, 0xFFFFFF
-	mov	ecx, [procinfo + 46]
-	sub	ecx, ebp
+	mov	ecx, [procinfo + 66]
-	sub	ecx, 9
+	sub	ecx, 4
 	shl	ecx, 16
 	mov	cl, 5
 	mcall
 	mov	cl, 35
 	ror	ecx, 16
 	sub	cx, 35
 	mov	ebx, 5
 	mcall
 ; 5 pixels for indentation, [image.Width] pixels for image
 ; client_width - 5 - [image.Width] pixels must be white
 	mov	ebx, [image]
 	mov	esi, [procinfo + 62]
 	inc	esi
 	push	esi
 	mov	ebx, [ebx + Image.Width]
 	sub	esi, 5
 	sub	esi, ebx
 	pop	ebx
 	sub	ebx, esi
 	shl	ebx, 16
 	add	ebx, esi
 	mcall
-	invoke	gfx.pen.color, [ctx], 0x007F7F7F
-	mov	eax, [procinfo + 42]
+	mov	ebx, [procinfo + 62]
+	push	ebx
+	mcall	38, , <30, 30>, 0x007F7F7F
-	sub	eax, 10
+	mcall	, <5 + 25 * 1, 5 + 25 * 1>, <0, 30>
+	mcall	, <10 + 25 * 3, 10 + 25 * 3>
-	invoke	gfx.line, [ctx], 0, 30, eax, 30
+	mcall	, <15 + 25 * 4, 15 + 25 * 4>
+	pop	ebx
+	sub	ebx, 25 * 5 + 10
+	push	ebx
+	imul	ebx, 10001h
-	xor	ebp, ebp
+	mcall
-	mcall	8, <5 + 25 * 0, 20>, <5, 20>, 'opn'+40000000h
-	mcall	65, openbtn, <20, 20>, <5 + 25 * 0, 5>, 4, palette
+	mcall	8, <5 + 25 * 0, 20>, <5, 20>, 'opn'+40000000h
-	invoke	gfx.line, [ctx], 5 + 25 * 1, 0, 5 + 25 * 1, 30
+	mcall	, <10 + 25 * 1, 20>, , 'bck'+40000000h
+	mcall	, <10 + 25 * 2, 20>, , 'fwd'+40000000h
+	mcall	, <15 + 25 * 3, 20>, , 'bgr'+40000000h
+	pop	ebx
+	add	ebx, 5
+	shl	ebx, 16
+	mov	bl, 20
-	mcall	8, <10 + 25 * 1, 20>, <5, 20>, 'flh'+40000000h
+	mcall	, , , 'flh'+40000000h
+	add	ebx, 25 * 65536
+	mcall	, , , 'flv'+40000000h
+	add	ebx, 30 * 65536
+	mcall	, , , 'rtr'+40000000h
+	add	ebx, 25 * 65536
-	mcall	65, fliphorzbtn, <20, 20>, <10 + 25 * 1, 5>, 4, palette
+	mcall	, , , 'rtl'+40000000h
-	mcall	8, <10 + 25 * 2, 20>, <5, 20>, 'flv'+40000000h
+	add	ebx, 25 * 65536
-	mcall	65, flipvertbtn, <20, 20>, <10 + 25 * 2, 5>, 4, palette
+	mcall	, , , 'flb'+40000000h
-	invoke	gfx.line, [ctx], 10 + 25 * 3, 0, 10 + 25 * 3, 30
+	mov	ebp, (numimages-1)*20
-	mcall	8, <15 + 25 * 3, 20>, <5, 20>, 'rtr'+40000000h
+	mcall	65, buttons+openbtn*20, <20, 20>, <5 + 25 * 0, 5>, 8, palette
-	mcall	65, rotcwbtn, <20, 20>, <15 + 25 * 3, 5>, 4, palette
+	mcall	, buttons+backbtn*20, , <10 + 25 * 1, 5>
+	mcall	, buttons+forwardbtn*20, , <10 + 25 * 2, 5>
+	mcall	, buttons+bgrbtn*20, , <15 + 25 * 3, 5>
+	mov	edx, [procinfo + 62]
+	sub	edx, 25 * 5 + 4
-	mcall	8, <15 + 25 * 4, 20>, <5, 20>, 'rtl'+40000000h
+	shl	edx, 16
+	mov	dl, 5
-	mcall	65, rotccwbtn, <20, 20>, <15 + 25 * 4, 5>, 4, palette
+	mcall	, buttons+fliphorzbtn*20
+	add	edx, 25 * 65536
+	mcall	, buttons+flipvertbtn*20
+	add	edx, 30 * 65536
+	mcall	, buttons+rotcwbtn*20
+	add	edx, 25 * 65536
+	mcall	, buttons+rotccwbtn*20
-	mcall	8, <15 + 25 * 5, 20>, <5, 20>, 'flb'+40000000h
+	add	edx, 25 * 65536
-	mcall	65, rot180btn, <20, 20>, <15 + 25 * 5, 5>, 4, palette
+	mcall	, buttons+rot180btn*20
 	mov	ebx, [image]
 	mov	ecx, [ebx + Image.Width]
 	shl	ecx, 16
 	add	ecx, [ebx + Image.Height]
 	__mov	edx, 5, 35
 	mov	esi, 8
 	cmp	[ebx + Image.Type], Image.bpp8
 	jz	@f
 	mov	esi, 24
 	cmp	[ebx + Image.Type], Image.bpp24
 	jz	@f
 	mov	esi, 32
 @@:
 	mov	edi, [ebx + Image.Palette]
 	mov	ebx, [ebx + Image.Data]
 	xor	ebp, ebp
 	mcall	65
 	invoke	gfx.close, [ctx]
 	ret
 ; void* __stdcall mem.Alloc(unsigned size);
 mem.Alloc:
 	push	ebx ecx
 	mov	ecx, [esp+12]
 	mcall	68, 12
 	pop	ecx ebx
 	ret	4
 ; void* __stdcall mem.ReAlloc(void* mptr, unsigned size);
 mem.ReAlloc:
 	push	ebx ecx edx
 	mov	edx, [esp+16]
 	mov	ecx, [esp+20]
 	mcall	68, 20
 	pop	edx ecx ebx
 	ret	8
 ; void __stdcall mem.Free(void* mptr);
 mem.Free:
 	push	ebx ecx
 	mov	ecx, [esp+12]
 	mcall	68, 13
 	pop	ecx ebx
 	ret	4
 ;-----------------------------------------------------------------------------
 s_header db 'Kolibri Image Viewer', 0
 ;-----------------------------------------------------------------------------
 opendialog:
+;
 ; STEP 1 Run SYSXTREE with parametrs MYPID 4 bytes in dec,
 ; 1 byte space, 1 byte type of dialog (O - Open ,S - Save)
+;
 ;;    mov esi,path
     mov edi,path
     xor eax,eax
     mov ecx,(1024+16)/4
     rep stosd
 ;mov [get_loops],0
 mov [dlg_pid_get],0
 ; Get my PID in dec format 4 bytes
     mov eax,9
     mov ebx,procinfo
     or  ecx,-1
     mcall
 ; convert eax bin to param dec
     mov eax,dword [procinfo+30]  ;offset of myPID
     mov edi,param+4-1		 ;offset to 4 bytes
     mov ecx,4
     mov ebx,10
 new_d:
     xor edx,edx
     div ebx
     add dl,'0'
     mov [edi],dl
     dec edi
     loop new_d
 ; wirite 1 byte space to param
     mov [param+4],byte 32    ;Space for next parametr
 ; and 1 byte type of dialog to param
     mov [param+5],byte 'O'   ;Get Open dialog (Use 'S' for Save dialog)
+;
 ; STEP2 prepare IPC area for get messages
+;
 ; prepare IPC area
     mov [path],dword 0
     mov [path+4],dword 8
 ; define IPC memory
     mov eax,60
     mov ebx,1	     ; define IPC
     mov ecx,path     ; offset of area
     mov edx,1024+16  ; size
     mcall
 ; change wanted events list 7-bit IPC event
     mov eax,40
     mov ebx,01000111b
 	cmp	[image], 0
 	jnz	@f
 	mov	bl, 01000110b
 @@:
     mcall
+;
 ; STEP 3 run SYSTEM XTREE with parameters
+;
     mov eax,70
     mov ebx,run_fileinfo
     mcall
     mov [get_loops],0
 getmesloop:
     mov eax,23
     mov ebx,50	   ;0.5 sec
     mcall
         dec     eax
         jz      mred
         dec     eax
         jz      mkey
         dec     eax
         jz      mbutton
         cmp     al, 7-3
         jz      mgetmes
 ; Get number of procces
     mov ebx,procinfo
     mov ecx,-1
     mov eax,9
     mcall
     mov ebp,eax
 loox:
     mov eax,9
     mov ebx,procinfo
     mov ecx,ebp
     mcall
     mov eax,[DLGPID]
     cmp [procinfo+30],eax    ;IF Dialog find
     je	dlg_is_work	     ;jmp to dlg_is_work
     dec ebp
     jnz loox
     jmp erroff
 dlg_is_work:
     cmp [procinfo+50],word 9 ;If slot state 9 - dialog is terminated
     je	erroff		       ;TESTODP2 terminated too
     cmp [dlg_pid_get],dword 1
     je	getmesloop
     inc [get_loops]
     cmp [get_loops],4  ;2 sec if DLG_PID not get, TESTOP2  terminated
     jae erroff
     jmp getmesloop
 mred:
 	cmp	[image], 0
 	jz	getmesloop
     call draw_window
     jmp  getmesloop
 mkey:
     mov  eax,2
     mcall			; read (eax=2)
     jmp  getmesloop
 mbutton:
     mov  eax,17 		; get id
     mcall
     cmp  ah,1			; button id=1 ?
     jne  getmesloop
     mov  eax,-1 		; close this program
     mcall
 mgetmes:
 ; If dlg_pid_get then second message get jmp to still
     cmp  [dlg_pid_get],dword 1
     je	 ready
 ; First message is number of PID SYSXTREE dialog
 ; convert PID dec to PID bin
     movzx eax,byte [path+16]
     sub eax,48
     imul eax,10
     movzx ebx,byte [path+16+1]
     add eax,ebx
     sub eax,48
     imul eax,10
     movzx ebx,byte [path+16+2]
     add eax,ebx
     sub eax,48
     imul eax,10
     movzx ebx,byte [path+16+3]
     add eax,ebx
     sub eax,48
     mov [DLGPID],eax
 ; Claear and prepare IPC area for next message
     mov [path],dword 0
     mov [path+4],dword 8
     mov [path+8],dword 0
     mov [path+12],dword 0
     mov [path+16],dword 0
 ; Set dlg_pid_get for get next message
     mov [dlg_pid_get],dword 1
 	cmp	[image], 0
 	jz	getmesloop
     call draw_window
     jmp  getmesloop
 ready:
+;
 ; The second message get
 ; Second message is 100 bytes path to SAVE/OPEN file
 ; shl path string on 16 bytes
+;
     mov esi,path+16
     mov edi,path
     mov ecx,1024/4
     rep movsd
     mov [edi],byte 0
 openoff:
 	mcall	40, 7
 	clc
 	ret
 erroff:
 	mcall	40, 7
 	stc
 	ret
 ;-----------------------------------------------------------------------------
 align 4
 @IMPORT:
 library 			\
 	libio  , 'libio.obj'  , \
 	libgfx , 'libgfx.obj' , \
-	libimg , 'libimg.obj'
+	libimg , 'libimg.obj' , \
+	sort   , 'sort.obj'
 import	libio			  , \
 	libio.init , 'lib_init'   , \
 	file.size  , 'file.size'  , \
 	file.open  , 'file.open'  , \
 	file.read  , 'file.read'  , \
 	file.close , 'file.close'
 import	libgfx				, \
 	libgfx.init   , 'lib_init'	, \
 	gfx.open      , 'gfx.open'	, \
 	gfx.close     , 'gfx.close'	, \
 	gfx.pen.color , 'gfx.pen.color' , \
 	gfx.line      , 'gfx.line'
 import	libimg			   , \
 	libimg.init , 'lib_init'   , \
 	img.is_img  , 'img.is_img' , \
 	img.to_rgb2 , 'img.to_rgb2', \
 	img.decode  , 'img.decode' , \
 	img.flip    , 'img.flip'   , \
 	img.rotate  , 'img.rotate' , \
 	img.destroy , 'img.destroy'
+import  sort, sort.START, 'START', SortDir, 'SortDir', strcmpi, 'strcmpi'
+;-----------------------------------------------------------------------------
+virtual at 0
+file 'kivicons.bmp':0xA,4
+load offbits dword from 0
+end virtual
+numimages = 9
+openbtn = 0
+backbtn = 1
+forwardbtn = 2
+bgrbtn = 3
+fliphorzbtn = 4
+flipvertbtn = 5
+rotcwbtn = 6
+rotccwbtn = 7
-;-----------------------------------------------------------------------------
+rot180btn = 8
-palette:
-	dd	0x000000, 0x800000, 0x008000, 0x808000
-	dd	0x000080, 0x800080, 0x008080, 0x808080
-	dd	0xC0C0C0, 0xFF0000, 0x00FF00, 0xFFFF00
-	dd	0x0000FF, 0xFF00FF, 0x00FFFF, 0xFFFFFF
-macro loadbtn filename
+palette:
-{
+	file 'kivicons.bmp':0x36,offbits-0x36
-repeat 20
-file filename:76h+(%-1)*12,10
+buttons:
-end repeat
+	file 'kivicons.bmp':offbits
 repeat 10
 y = % - 1
 z = 20 - %
-repeat 10
+repeat numimages*5
-load a byte from $ - 20*10 + y*10 + (%-1)
+load a dword from $ - numimages*20*20 + numimages*20*y + (%-1)*4
-load b byte from $ - 20*10 + z*10 + (%-1)
+load b dword from $ - numimages*20*20 + numimages*20*z + (%-1)*4
-store byte a at $ - 20*10 + z*10 + (%-1)
+store dword a at $ - numimages*20*20 + numimages*20*z + (%-1)*4
-store byte b at $ - 20*10 + y*10 + (%-1)
+store dword b at $ - numimages*20*20 + numimages*20*y + (%-1)*4
 end repeat
 end repeat
-}
-openbtn:
-	loadbtn 'open.bmp'
-fliphorzbtn:
-	loadbtn 'fliphorz.bmp'
-flipvertbtn:
-	loadbtn 'flipvert.bmp'
-rotcwbtn:
-	loadbtn 'rotcw.bmp'
-rotccwbtn:
-	loadbtn 'rotccw.bmp'
-rot180btn:
-	loadbtn 'rot180.bmp'
 ; DATA AREA
 get_loops   dd 0
 dlg_pid_get dd 0
 DLGPID	    dd 0
 param:
    dd 0    ; My dec PID
    dd 0,0  ; Type of dialog
 run_fileinfo:
  dd 7
  dd 0
  dd param
  dd 0
  dd 0
 ;run_filepath
  db '/sys/SYSXTREE',0
+readdir_fileinfo:
+	dd	1
+	dd	0
+	dd	0
+readblocks dd	0
+directory_ptr	dd	0
 ;-----------------------------------------------------------------------------
 I_END:
+curdir		rb	1024
 align 4
 img_data     dd ?
 img_data_len dd ?
 fh	     dd ?
 image	     dd ?
 wnd_width	dd	?
 wnd_height	dd	?
+last_name_component	dd	?
+cur_file_idx	dd	?
 ctx dd ?
 procinfo:	rb	1024
 path:		rb	1024+16
 @PARAMS rb 512

Subversion Repositories Kolibri OS

(root)/programs/media/kiv/trunk/kiv.asm – Rev 1004 → 1016