WebSVN – Kolibri OS – Diff – /programs/media/scrshoot/scrshoot.asm


;
;   Screenshooter for Kolibri
;
; version:	1.0
; last update:  08/09/2010
; written by:   Marat Zakiyanov aka Mario79, aka Mario
; changes:      select path for save with OpenDialog,
;               bag fix for threads stacks
;---------------------------------------------------------------------
; 01.06.09 - ®¬¯®­¥­âë ¡¥àãâìáï ¨§ á¨áâ¥¬­®© ¡¨¡«¨®â¥ª¨ 
; ¢â®à ¯à®£à ¬¬ë ¢â¨å®¢  ªá¨¬ (Maxxxx32)
; 24.07.2008  ®¡­®¢«¥­ editbox
; 01.02.07 - ®¡­®¢«ñ­ editbox
; 31.01.07 - ¢áñ â¥¯¥àì à¨áã¥âáï ®â­®á¨â¥«ì­® ª«¨¥­âáª®© ®¡« áâ¨
; 02.11.10 - á¯®«ì§ã¥âáï checkbox ¢¥àá¨¨ 2
 
title equ 'Screenshooter v 1.0' ;  £®«®¢®ª ®ª­ 
include '../../develop/libraries/box_lib/load_lib.mac'
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
;include '../../develop/examples/editbox/trunk/editbox.inc'
include '../../macros.inc'
include 'txtbut.inc'
include 'label.inc'
include 'textwork.inc'
include 'scrshoot.mac'
 
;include 'macros.inc'  ; ¢áâ ¢«ï¥¬ ¬ ªà®áë
;        meos_header  cmdstr ; ¢áâ ¢«ï¥¬ § £®«®¢®ª ¯à®£à ¬¬ë
use32		     
    org 0x0
    db 'MENUET01'
    dd 0x1
    dd start
    dd IM_END
    dd i_end
    dd stacktop
    dd cmdstr
    dd cur_dir_path
 
align 4
	@use_library
	use_txt_button				;  |
	use_label				;  |-- GUI ª®¬¯®­¥­âë ¨ ­¥ª®â®àë¥ ¯à®æ¥¤ãàë
	use_text_work				; /
include 'scrwin.inc'  ; ¢áâ ¢«ï¥¬ ª®¤ ®ª­  ¯à¤¯à®á¬®âà 
include 'scrsavef.inc'; ¢áâ ¢«ï¥¬ ¯à®æ¥¤ãàã á®åà ­¥­¨ï ä ©« 
 
include 'gp.inc'
include 'srectwin.inc'
include 'lang.inc'
 
macro get_sys_colors col_buf
{
	;mov     eax,48
	push	48
	pop	eax
	;mov     ebx,3
	push	3
	pop	ebx
	;mov     ecx,col_buf
	push	col_buf
	pop	ecx
	;mov     edx,40
	push	40
	pop	edx
	mcall
}
 
;--- ­ ç «® ¯à®£à ¬¬ë ---
align 4
start:
;sys_load_library  library_name, cur_dir_path, library_path, system_path, \
;err_message_found_lib, head_f_l, myimport, err_message_import, head_f_i
 
load_libraries l_libs_start,end_l_libs
 
;if return code =-1 then exit, else nornary work
;        cmp     eax,-1
	inc	eax
	test	eax,eax
	jz	close
;;;;;;;;;;;;;;;; init memory 68/11
	mov	eax,68
	mov	ebx,11
	mcall
	test	eax,eax
	jz	close
 
;---------------------------------------------------------------------	
	mov	edi,filename_area
	mov	esi,start_temp_file_name
	xor	eax,eax
	cld
@@:
	lodsb
	stosb
	test	eax,eax
	jnz	@b
 
 
	mov	edi,fname_buf
	mov	esi,ed_buffer.1
	xor	eax,eax
	cld
@@:
	lodsb
	stosb
	test	eax,eax
	jnz	@b
	
;OpenDialog	initialisation
	push    dword OpenDialog_data
	call    [OpenDialog_Init]
 
; prepare for PathShow
	push	dword PathShow_data_1
	call	[PathShow_prepare]
;---------------------------------------------------------------------	
	;mov     al,[gs:1280*4*1024]
		    ; ãáâ ­ ¢«¨¢ ¥¬ ipc ¡ãää¥à
	push	60
	pop	eax
	;mov     ebx,1
	xor	ebx,ebx
	inc	ebx
	mov	ecx,app_ipc
	mov	edx,32
	mcall
 
	push	66   ; ãáâ ­ ¢«¨¢ ¥¬ £«®¡ «ì­ãî £®àïçãî ª« ¢¨èã
	pop	eax
	push	eax
	mov	ebx,4
	mov	cl,55	 ; 55 - PrintScrn
	xor	edx,edx
	mcall
 
	mov	ebx,app
	call	get_slot_n
	mov	[slot_n],ecx
 
	; ãáâ ­ ¢«¨¢ ¥¬ ¬ áªã á®¡ëâ¨©
	set_events_mask (evm_redraw+evm_key+evm_button+evm_mouse+evm_ipc)
;¨­¨æ¨ «¨§ æ¨ï checkboxes
	init_checkboxes2	check_boxes,check_boxes_end
 
; áî¤  ¯àë£ ¥¬ ¯à¨ ª ¦¤®© ¯¥à¥à¨á®¢ª¥
red:
	get_procinfo app   ; ¯®«ãç ¥¬ ¨­ä®à¬ æ¨î ® ¯à®æ¥áá¥
	get_sys_colors sc  ; ¯®«ãç ¥¬ á¨áâ¥¬­ë¥ æ¢¥â 
 
	; ãáâ ­ ¢«¨¢ ¥¬ á¨áâ¥¬­ë¥ æ¢¥â  ã GUI ª®¬¯®­¥­â®¢
	txt_but_set_sys_color buttons,buttons_end,sc		 ; \
	labels_set_sys_color labels,labels_end,sc		 ; |
	check_boxes_set_sys_color2 check_boxes,check_boxes_end,sc; |
;	check_boxes_set_sys_color check_boxes,check_boxes_end,sc ; |
	edit_boxes_set_sys_color editboxes,editboxes_end,sc	 ; /
 
	get_screen_prop scr ; ¯®«ãç ¥¬ ¨­ä®à¬ æ¨î ®¡ íªà ­¥
	call	draw_window ; ¯¥à¥à¨á®¢ë¢ ¥¬ ®ª­®
still:
	wait_event red,key,button,mouse,ipc,still ; ¦¤¥¬ á®¡ëâ¨©
 
key:
	get_key
	cmp	al,2
	jne	@f
	cmp	ah,55
	jne	still
	mov	[PrintScreen],1
	call	shoot
	mov	[PrintScreen],0
	jmp	still
@@:
;        key_edit_boxes editboxes,editboxes_end
;	push	dword edit1
;	call	[edit_box_key]
 
	push	dword edit2
	call	[edit_box_key]
 
	push	dword edit3
	call	[edit_box_key]
 
	push	dword edit4
	call	[edit_box_key]
 
	jmp	still
button:
	get_pressed_button
	cmp	ah,1
	je	p_close
	txt_but_ev buttons,buttons_end
	jmp	still
mouse:
	get_active_window
	cmp	eax,[slot_n]
	jne	still
;----------------------------------
;	push	dword edit1
;	call	[edit_box_mouse]
	push	dword edit2
	call	[edit_box_mouse]
	push	dword edit3
	call	[edit_box_mouse]
	push	dword edit4
	call	[edit_box_mouse]
;----------------------------------
	checkboxes_mouse2	check_boxes,check_boxes_end
;	push	dword ch1
;	call	[check_box_mouse]
;	push	dword ch2
;	call	[check_box_mouse]
;	push	dword ch3
;	call	[check_box_mouse]
;	push	dword ch4
;	call	[check_box_mouse]
;	push	dword ch5
;	call	[check_box_mouse]
;	push	dword ch6
;	call	[check_box_mouse]
;	push	dword use_rect
;	call	[check_box_mouse]
;-----------------------------------
;        mouse_check_boxes check_boxes,check_boxes_end
;        mouse_edit_boxes editboxes,editboxes_end
	jmp	still
ipc:
	cmp	word [app_ipc+8],2
	jne	@f
	min_window
	jmp	.clear_ipc
@@:
	cmp	word [app_ipc+8],3
	jne	@f
	mov	ecx,[slot_n]
	activ_window
	jmp	.clear_ipc
@@:
	call	draw_number
	call	dr_st
 
.clear_ipc:
	cld
	xor	eax,eax
	mov	ecx,32/4
	mov	edi,app_ipc
	rep	stosd
	jmp	still
 
p_close:
	btr	dword [flags],1
 
	bt	dword [flags],3
	jnc	@f
	mov    eax,18
	mov	ebx,eax
	mov	ecx,[set_rect_window_pid]
	mcall
@@:
 
close:
	app_close
 
;---------------------------------------------------------------------
draw_PathShow:
	pusha
	mcall	13,<4,302>,<35,15>,0xffffff
; draw for PathShow
	push	dword PathShow_data_1
	call	[PathShow_draw]
	popa
	ret
;--------------------------------------------------------------------
;--- ¯à®®æ¥¤ãà  ¯¥à¥à¨á®¢ª¨ £« ¢­®£® ®ª­  ---------------------------
;--------------------------------------------------------------------
draw_window:
start_draw_window	 ; ­ ç «® ¯¥à¥à¨á®¢ª¨
	; ®¯à¥¤¥«ï¥¬ ®ª­®
	get_skin_height
	mov	ebx,100*65536+320
	mov	ecx,100*65536+220
	add	cx,ax
	mov	edx,[sc.work]
	or	edx,0x34000000;0x33000000
	xor	esi,esi
	;xor     edi,edi
	mov	edi,grab_text
	xor	eax,eax
	mcall
 
	mov	eax,47		   ; ¢ë¢®¤¨¬ ç¨á«  ¢ ®ª­®
	mov	bx,4
	shl	ebx,16
	movsx	ecx,word [scr.width] ; è¨à¨­  íªà ­ 
	mov	dx,95
	shl	edx,16
	mov	dx,[label1.top]
	push	dx
	mov	esi,[sc.work_text]
	mcall
	movsx	ecx,word [scr.height]	; ¢ëá®â  íªà ­ 
	mov	dx,[label2.top]
	mcall
	mov	bx,2
	shl	ebx,16
	movsx	ecx,word [scr.bitspp]	; ¡¨â ­  ¯¨ªá¥«ì
	mov	dx,240
	shl	edx,16
	pop	dx
	mcall
	mov	bx,6
	shl	ebx,16
	mov	ecx,[scr.bytesps]	; ¡ ©â ­  áâà®ªã
	mov	dx,[label2.top]
	mcall
 
	call	draw_number	 ; ¯à®à¨á®¢ë¢ ¥¬ ­®¬¥à á­¨¬ª 
	call	dr_st
 
	draw_labels labels,labels_end		 ; ¬¥âª¨
;        draw_edit_boxes editboxes,editboxes_end  ; edit_box
;------ show check editbox -----------
;	push	dword edit1
;	call	[edit_box_draw]
	push	dword edit2												     
	call	[edit_box_draw]
	push	dword edit3
	call	[edit_box_draw]
	push	dword edit4
	call	[edit_box_draw]
;------ end check all editbox -------
 
	call	draw_PathShow
 
	draw_txt_buttons buttons,buttons_end	 ; ª­®¯ª¨
;        draw_check_boxes check_boxes,check_boxes_end ; ä« ¦ª¨
;------ check all checkbox ---------
;	push	dword ch1
;	call	[check_box_draw]
;	push	dword ch2
;	call	[check_box_draw]	
;	push	dword ch3
;	call	[check_box_draw]
;	push	dword ch4
;	call	[check_box_draw]
;	push	dword ch5
;	call	[check_box_draw]
;	push	dword ch6
;	call	[check_box_draw]
;	push	dword use_rect
;	call	[check_box_draw]
 
	checkboxes_draw2	check_boxes,check_boxes_end
 
;------ end check all checkbox ------
 
stop_draw_window      ; ª®­¥æ ¯¥à¥à¨á®¢ª¨
ret
 
shoot:
	bt	dword [ch4.flags],1   ; ¢ª«îç¥­  «¨ § ¤¥à¦ª  ?
	jnc	@f
	draw_status delay_now
	mov	edi,ed_buffer.2
	call	zstr_to_int
	mov	ebx,eax
	delay
@@:
	call	get_mem_for_shoot; ¯®«ãç ¥¬ ¯ ¬ïâì ¤«ï á­¨¬ª 
 
 
	bts	dword [flags],0       ; ­ã«¥¢®© ä« £ - á­¨¬®ª ¥áâì ¢ ¯ ¬ïâ¨
 
	; ¤¥« ¥¬ á­¨¬®ª
	draw_status shooting
	mov	esi,scr
	mov	edi,[scr_buf.ptr]
	call	copy_screen_to_image
 
	bt	dword [use_rect.flags],1
	jc	.use_rect
	push	dword [scr]
	jmp	@f
.use_rect:
	push	dword [rect.height]
@@:
	pop	dword [scr_buf.size]
 
	cmp	[autoshoot_flag],1
	jne	.2
	
	bt	dword [ch5.flags],1  ; ¢ª«îç¥­® «¨  ¢â®á®åà ­¥­¨¥ ?
	jnc	@f
	call	save_file
@@:
	draw_status	shooted_ok
.2:
	bt	dword [flags],1
	jnc	@f
	ret
@@:
 
	bt	dword [ch2.flags],1  ; ¯®ª § âì ®ª­® ¯à¥¤¯à®á¬®âà  ?
	jnc	@f
	cmp	[PrintScreen],0
	jne	@f
	call	show_scr_window
	ret
@@:
	bt	dword [ch5.flags],1  ; ¢ª«îç¥­® «¨  ¢â®á®åà ­¥­¨¥ ?
	jnc	@f
	
; invoke OpenDialog
	push    dword OpenDialog_data
	call    [OpenDialog_Start]
	cmp	[OpenDialog_data.status],1
	je	.1
	ret
.1:
; prepare for PathShow
	push	dword PathShow_data_1
	call	[PathShow_prepare]
 
	call	save_file
@@:
	
	bt	word [ch3.flags],1   ; ¢®ááâ ­®¢¨âì ®ª­® ?
	jnc	@f
 
	delay 100
	mov	ecx,[slot_n]
	activ_window
@@:
ret
 
;--- ¯®«ãç¨âì ¯ ¬ïâì ¤«ï á­¨¬ª  ---
get_mem_for_shoot:
;clean memory
	mov	ecx,dword [scr_buf.ptr]
	mov	ebx,13
	mov	eax,68
	mcall
 
	bt	dword [use_rect.flags],1 ; ä®âª âì ®¡« áâì íªà ­ 
	jc	.use_area
	movzx	ecx, word [scr.width]
	movzx	ebx, word [scr.height]
	jmp	@f
.use_area:
	call	read_rect
	movzx	ecx, word [rect.width]
	movzx	ebx, word [rect.height]
@@:
	imul	ecx,ebx
	lea	ecx,[ecx*3]
;        add     ecx,i_end
	mov	ebx,12
	mov	eax,68
	mcall
	mov	[scr_buf.ptr],eax
	add	eax,ecx
	mov	[scr_buf.end_ptr],ecx
ret
 
;--- á®¤ âì ®ª­® ¯à®¥¤¯à®á¬®âà  ---
show_scr_window:
pusha
	bt	dword [flags],0
	jnc	@f
	mov	eax,51
	xor	ebx,ebx
	inc	ebx
	mov	ecx,scr_window
	mov	edx,i_end_tread-512
	mcall
@@:
popa
ret
 
;--- ¯à®ç¨â âì ¨ ­ à¨á®¢ âì â¥ªãé¨© ­®¬¥à ---
apply_number:
	mov	edi,ed_buffer.3
	call	zstr_to_int
	mov	[cur_number],eax
	call	draw_number
ret
 
;--- ¯à®æ¥¤ãà  ¯à®à¨á®¢ª¨ â¥ªãé¥£® ­®¬¥à  ---
draw_number:
	mov	edi,sign_n_input
	call	zstr_to_int
	mov	[sign_n],al
	mov	eax,13
	mov	ebx,150*65536+96
	mov	cx,[label9.top]
	shl	ecx,16
	mov	cx,10
	mov	edx,[sc.work]
	mcall
	mov	eax,47
	movsx	bx,byte [sign_n]
	shl	ebx,16
	mov	ecx,[cur_number]
	mov	dx,150
	shl	edx,16
	mov	dx,[label9.top]
	mov	esi,[sc.work_text]
	mcall
ret
 
;--- ¯à®æ¥¤ãà , § ¯ãáª îé ï ¯®â®ª  ¢â®áê¥¬ª¨ ---
start_autoshoot:
	bts	dword [flags],1
	jc	@f
	mov	eax,51
	;mov     ebx,1
	xor	ebx,ebx
	inc	ebx
	mov	ecx,autoshoot
	mov	edx,i_end_tread
	mcall
@@:
ret
 
;--- ®áâ ­ ¢«¨¢ ¥â íâ®â ¯®â®ª ---
stop_autoshoot:
	btr	dword [flags],1
ret
 
;--- æ¨ª« ¯®â®ª   ¢â®áê¥¬ª¨ ---
autoshoot:
	mov	[autoshoot_flag],1
	mov	ecx,[slot_n]
	activ_window
.next:
	bt	dword [flags],1
	jnc	close
	mov	eax,60
	mov	ebx,2
	mov	ecx,[app.pid]
	mov	edx,messages.draw_number
	mov	esi,2
	mcall
	call	shoot
	jmp	autoshoot.next
.close:
	mov	[autoshoot_flag],0
	jmp	close
;--- ¯à®æ¥¤ãà  ¯à®à¨á®¢ª¨ áâà®ª¨ á®áâ®ï­¨ï ---
; (¤®«¦­  ¢ë§ë¢ âìáï ¯®â®ª®¬ £« ¢­®£® ®ª­ )
dr_st:
	mov	eax,38		    ; ®âà¥§®ª
	mov	ebx,0*65536+310
	mov	ecx,198*65536+198
	mov	edx,[sc.work_graph]
	mcall
 
	mov	eax,13		    ; ¯®«®áª 
	mov	bx,310
	mov	ecx,199*65536+15
	mov	edx,[sc.work]
	mcall
 
	mov	edi,status
	call	draw_label
ret
 
;--- ¯à®æ¥¤ãà  ¯®«ãç¥­¨ï ­®¬¥à  á«®â  ¯®â®ª  ---
; ¢å®¤ ebx - ¡ãää¥à 1024 ¡ ©â
; ¢ëå®¤ ecx - ­®¬¥à á«®â 
get_slot_n:
	mov	eax,9
	xor	ecx,ecx
	dec	ecx
	mcall
 
	mov	edx,[ebx+30]
	xor	ecx,ecx
@@:
	mov	eax,9
	inc	ecx
	mcall
	cmp	[ebx+30],edx
	je	@f
	jmp	@b
@@:
ret
 
;--- ¯à®æ¥¤ãà , § ¯ãáª îé ï ¯®â®ª, ¤¥« îé¨© 1 á­¨¬®ª ---
one_shoot:
	mov	ecx,one_shoot_thread
	mov	edx,shoot_esp
	jmp	@f
;--- ¯à®æ¥¤à , § ¯ãáª îé ï ¯®â®ª, á®åà ­ïîé¨© á­¨¬®ª ---
save_shoot:
; invoke OpenDialog
	push    dword OpenDialog_data
	call    [OpenDialog_Start]
	cmp	[OpenDialog_data.status],1
	je	.1
	ret
.1:
; prepare for PathShow
	push	dword PathShow_data_1
	call	[PathShow_prepare]
 
	call	draw_PathShow
 
	mov	ecx,save_shoot_thread
	mov	edx,shoot_esp
@@:
	bts	dword [flags],2
	jc	.running
	bt	dword [flags],1
	jc	.running
 
	mov	eax,51
	;mov     ebx,1
	xor	ebx,ebx
	inc	ebx
	mcall
.running:
ret
 
;--- ¯®â®ª, ¤¥« îé¨© 1 á­¨¬®ª ---
one_shoot_thread:
	mov	ecx,[slot_n]
	activ_window
	bt	dword [ch1.flags],1   ; ¬¨­¨¬¨§¨à®¢ âì ®ª­® ?
	jnc	 @f
	mov	eax,60
	mov	ebx,2
	mov	ecx,[app.pid]
	mov	edx,messages.min_window
	mov	esi,2
	mcall
@@:
	call	shoot
	btr	dword [flags],2
	jmp	close
 
;--- ¯à®æ¥¤ãà , ®â¯à ¢«ïîé ï £« ¢­®¬ã ®ª­ã á®®¡é¥­¨¥ ® ¯¥à¥à¨á®¢ª¥
; áâà®ª¨ á®áâ®ï­¨ï ---
send_draw_status:
	mov	eax,60
	mov	ebx,2
	mov	ecx,[app.pid]
	mov	edx,messages.draw_status
	mov	esi,2
	mcall
ret
 
;--- ¯®â®ª, á®åà ­ïî¨© ä ©« ---
save_shoot_thread:
	mov	ecx,[slot_n]
	activ_window
	call	save_file
	btr	dword [flags],2
	jmp	close
 
;--- ¯à®æ¥¤ãà , § ¯ãáª îé ï ¯®â®ª ®ª­  ãáâ ­®¢ª¨ ®¡« áâ¨ áê¥¬ª¨ ---
show_set_rect_window:
	bts	dword [flags],3
	jc	@f
	mov	eax,51
	xor	ebx,ebx
	inc	ebx
	mov	ecx,set_rect_window
	mov	edx,set_rect_window_esp
	mcall
 
	mov	[set_rect_window_pid],eax
ret
 
@@:
	mov	eax,18
	mov	ebx,eax
	mov	ecx,[set_rect_window_pid]
	mcall
	btr	dword [flags],3
ret
 
;--- ¯®«ãç¥­¨¥ ¨­ä®à¬ æ¨¨ ®¡  ªâ¨¢­®¬ ®ª­¥ ---
get_active_window_info:
	mov    eax,18
	mov    ebx,7
	mcall
 
	mov	ecx,eax
	mov	eax,9
	mov	ebx,active_app
	mcall
ret
 
;====================================================================
;=== ¤ ­­ë¥ ¯à®£à ¬¬ë ===============================================
;====================================================================
messages:
.draw_number dw 0
.draw_status dw 1
.min_window  dw 2
.act_window  dw 3
 
grab_text:
	db	title,0
 
labels:
label1 label 5,5,0,text.1   ; è¨à¨­  íªà ­ 
label2 label 5,15,0,text.2   ; ¢ëá®â  íªà ­ 
label3 label 5,25,0,text.3   ; ¢¢¥¤¨â¥ ¨¬ï ä ©« 
label4 label 150,5,0,text.4  ; ¡¨â ­  ¯¨ªá¥«ì
label5 label 150,15,0,text.5  ; ¡ ©â ­  áâà®ªã
label6 label 115,138,0,text.6  ; 100 = 1 ᥪ.
;label7 label 10,190,0,text.7
;label8 label 10,225,0,text.8
label9 label 5,52,0,text.9   ; ­®¬¥à â¥ªãé¥£® á¨¬ª 
label10 label 5,185,0,text.10
status label 5,201,0,no_shoot
labels_end:
 
;---------------------------------------------------------------------
l_libs_start:
 
library01  l_libs system_dir_Boxlib+9, cur_dir_path, library_path, system_dir_Boxlib, \
err_message_found_lib1, head_f_l, Box_lib_import, err_message_import1, head_f_i
 
library02  l_libs system_dir_ProcLib+9, cur_dir_path, library_path, system_dir_ProcLib, \
err_message_found_lib2, head_f_l, ProcLib_import, err_message_import2, head_f_i
 
end_l_libs:
;---------------------------------------------------------------------
editboxes:
;edit1 edit_box 300,5,35,cl_white,0,0,0,0,300,ed_buffer.1,mouse_dd,ed_focus,10,10	; ¯ãâì ª ä ©«ã
edit2 edit_box 35,75,134,cl_white,0,0,0,0,9,ed_buffer.2,mouse_dd,ed_figure_only,3,3	    ; § ¤¥à¦ª 
edit3 edit_box 35,165,164,cl_white,0,0,0,0,9,ed_buffer.3,mouse_dd,ed_figure_only    ;  ¢â®­ã¬¥à æ¨ï
edit4 edit_box 16,165,181,cl_white,0,0,0,0,1,sign_n_input,mouse_dd,ed_figure_only,1
editboxes_end:
;---------------------------------------------------------------------
buttons:
but1 txt_button 150,5,15,65,2,0,0,but_text.1,one_shoot		   ; á¤¥« âì á­¨¬®ª
but2 txt_button 145,160,15,65,3,0,0,but_text.2,save_shoot	   ; á®åà ­¨âì á­¨¬®ª
but3 txt_button 140,115,12,120,4,0,0,but_text.3,show_scr_window    ; ¯®ª § âì á­¨¬®ª
but4 txt_button 80,205,15,163,5,0,0,but_text.4,apply_number	   ; ¯à¨¬¥­¨âì ­®¬¥à
but5 txt_button 150,5,15,85,6,0,0,but_text.5,start_autoshoot	   ; ­ ç âì  ¢â®áêñ¬ªã
but6 txt_button 145,160,15,85,7,0,0,but_text.6,stop_autoshoot	   ; ®áâ ­®¢¨âì  ¢â®áêñ¬ªã
but7 txt_button 40,205,10,150,8,0,0,but_text.7,show_set_rect_window ; § ¤ âì ®¡« áâì
buttons_end:
;---------------------------------------------------------------------
check_boxes:
ch1 check_box2 (5 shl 16+11),(105 shl 16 +11),5,cl_white,0,0x80000000,ch_text.1,ch_flag_en+ch_flag_bottom	; á¢¥à­ãâì ®ª­®
ch2 check_box2 (5 shl 16+11),(120 shl 16 +11),5,cl_white,0,0x80000000,ch_text.2,ch_flag_en+ch_flag_bottom	; § â¥¬ á¤¥« âì  ªâ¨¢­ë¬
ch3 check_box2 (1455 shl 16+11),(105 shl 16 +11),5,cl_white,0,0x80000000,ch_text.3,ch_flag_en+ch_flag_bottom	; ¯®ª § âì á­¨¬®ª
ch4 check_box2 (5 shl 16+11),(135 shl 16 +11),5,cl_white,0,0x80000000,ch_text.4,ch_flag_en+ch_flag_bottom	; § ¤¥à¦ª 
ch5 check_box2 (5 shl 16+11),(150 shl 16 +11),5,cl_white,0,0x80000000,ch_text.5,ch_flag_en+ch_flag_bottom
ch6 check_box2 (5 shl 16+11),(165 shl 16 +11),5,cl_white,0,0x80000000,ch_text.6,ch_flag_en+ch_flag_bottom
use_rect check_box2 (145 shl 16+11),(150 shl 16 +11),5,cl_white,0,0x80000000,ch_text.7,ch_flag_bottom		; ¨á¯. ®¡« áâì
;  ¢â®­ã¬¥à æ¨ï
check_boxes_end:
;---------------------------------------------------------------------
if lang eq ru
text:
.2 db 'ëá®â  íªà ­ :',0
.1 db '¨à¨­  íªà ­ :',0
.3 db '¢¥¤¨â¥ ¯®«­ë© ¯ãâì ª ä ©«ã:',0
.4 db '¨â ­  ¯¨ªá¥«ì:',0
.5 db ' ©â ­  áâà®ªã:',0
.6 db '100 = 1 á¥ªã­¤ ',0
;.7: db '¢¥¤¨â¥ ¨¬ï ä ©« :',0
;.8: db '¬¥áâ® "*" ¢ ¨¬¥­¨ ä ©«  ¡ã¤¥â ¢áâ ¢«ïâìáï ­®¬¥à.',0
.9 db '®¬¥à â¥ªãé¥£® á­¨¬ª :',0
.10 db '®«¨ç¥áâ¢® §­ ª®¢ ¢ ­®¬¥à¥:',0
 
but_text:
.1 db '¤¥« âì á­¨¬®ª íªà ­ ',0
.2 db '®åà ­¨âì á­¨¬®ª íªà ­ ',0
.3 db '®ª § âì á­¨¬®ª á¥©ç á',0
.4 db 'à¨¬¥­¨âì',0
.5 db ' ç âì  ¢â®áê¥¬ªã',0
.6 db 'áâ ­®¢¨âì  ¢â®áê¥¬ªã',0
.7 db '§ ¤ âì',0
 
ch_text:
.1 db '¢¥à­ãâì ®ª­®',0
.2 db '®ª § âì á­¨¬®ª',0
.3 db '§ â¥¬ á¤¥« âì  ªâ¨¢­ë¬',0
.4 db ' ¤¥à¦ª :',0
.5 db '¢â®á®åà ­¥­¨¥',0
.6 db '¢â®­ã¬¥à æ¨ï, ­ ç¨­ ï á',0
.7 db '¡« áâì',0
 
 
no_shoot db '­¨¬®ª ­¥ á¤¥« ­',0
shooting db '®â®£à ä¨à®¢ ­¨¥...',0
shooted_ok db '­¨¬®ª á¤¥« ­',0
saving db '®åà ­¥­¨¥...',0
saved_ok db '­¨¬®ª á®åà ­¥­',0
delay_now db ' ¤¥à¦ª ...',0
bad_file_name db '¬ï ä ©«  ¢¢¥¤¥­® ­¥¢¥à­®',0
disk_filled db '¨áª § ¯®«­¥­',0
bad_fat_table db ' ¡«¨æ  FAT à §àãè¥­ ',0
ac_den db '®áâã¯ § ¯à¥é¥­',0
device_er db 'è¨¡ª  ãáâà®©áâ¢ ',0
not_shooted db '¤¥« ©â¥ á­¨¬®ª !!!',0
no_file_name db '¢¥¤¨â¥ ¨¬ï ä ©«  !!!',0
invalid_rect db '¥¤®¯ãáâ¨¬ë¥ à §¬¥àë ®¡« áâ¨',0
 
else
text:
.2 db 'Screen width:',0
.1 db 'Screen height:',0
.3 db 'Enter full path to the file:',0
.4 db 'Bits per pixel:',0
.5 db 'Bytes per line:',0
.6 db '100 = 1 second',0
;.7: db 'Enter name of file:',0
;.8: db 'Instead of "*" in filename the number will be included.',0
.9 db 'Current photo number:',0
.10 db 'Amount of digits in number:',0
 
but_text:
.1 db 'Make screen photo',0
.2 db 'Save screen photo',0
.3 db 'Show photo now',0
.4 db 'Apply',0
.5 db 'Start autoshooting',0
.6 db 'Stop autoshooting',0
.7 db 'Set',0
 
ch_text:
.1 db 'Minimize window',0
.2 db 'Show photo',0
.3 db 'then make active',0
.4 db 'Delay:',0
.5 db 'Autosave',0
.6 db 'Start numeration from',0
.7 db 'Area',0
 
 
no_shoot db 'There is no photo',0
shooting db 'Photographing...',0
shooted_ok db 'Photo created',0
saving db 'Saving...',0
saved_ok db 'Photo saved',0
delay_now db 'Delay...',0
bad_file_name db 'File name is wrong',0
disk_filled db 'Disk is full',0
bad_fat_table db 'FAT table destroyed',0
ac_den db 'Access denied',0
device_er db 'Device error',0
not_shooted db 'Make a photo !!!',0
no_file_name db 'Enter file name !!!',0
invalid_rect db 'Wrong area size',0
 
end if
 
;---------------------------------------------------------------------
PathShow_data_1:
.type			dd 0	;+0
.start_y		dw 38	;+4
.start_x		dw 6	;+6
.font_size_x		dw 6	;+8	; 6 - for font 0, 8 - for font 1
.area_size_x		dw 300	;+10
.font_number		dd 0	;+12	; 0 - monospace, 1 - variable
.background_flag	dd 0	;+16
.font_color		dd 0x0	;+20
.background_color	dd 0x0	;+24
.text_pointer		dd fname_buf	;+28
.work_area_pointer	dd text_work_area	;+32
.temp_text_length	dd 0	;+36
;---------------------------------------------------------------------
OpenDialog_data:
.type			dd 1	; Save
.procinfo		dd procinfo	;+4
.com_area_name		dd communication_area_name	;+8
.com_area		dd 0	;+12
.opendir_pach		dd temp_dir_pach	;+16
.dir_default_pach	dd communication_area_default_pach	;+20
.start_path		dd open_dialog_path	;+24
.draw_window		dd draw_window	;+28
.status			dd 0	;+32
.openfile_pach 		dd fname_buf	;+36
.filename_area		dd filename_area	;+40
.filter_area		dd Filter
.x:
.x_size			dw 420 ;+48 ; Window X size
.x_start		dw 10 ;+50 ; Window X position
.y:
.y_size			dw 320 ;+52 ; Window y size
.y_start		dw 10 ;+54 ; Window Y position
 
communication_area_name:
	db 'FFFFFFFF_open_dialog',0
open_dialog_path:
	db '/sys/File Managers/opendial',0
communication_area_default_pach:
	db '/sys',0
 
Filter:
dd	Filter.end - Filter
.1:
db	'BMP',0
.end:
db	0
 
start_temp_file_name:	db '1.bmp',0
 
;---------------------------------------------------------------------
sign_n_input:
	db	'2',0
 
PrintScreen	db  0
autoshoot_flag	db  0
	
app_ipc ipc_buffer 32
align 4
 
mouse_flag: dd 0x0
;---------------------------------------------------------------------
align 4
 
ed_buffer:
.1: db '/sys/1.bmp',0
;rb 287
.2:
	db '100',0
	rb 6
.3:
	rb 10
;---------------------------------------------------------------------	
IM_END:
;---------------------------------------------------------------------
structure_of_potock:
rb 100
;---------------------------------------------------------------------
align 4
 
cur_number	  dd	  ?
 
sign_n	      db      ?
 
slot_n	      dd ?
 
flags	     dd ?
 
scr_buf:
.ptr	    dd	    ?
.end_ptr	dd	?
.size:
.height        dw      ?
.width	      dw      ?
 
fs_struc:
.funk_n        dd      ?
	dd	?
	dd	?
.bytes_to_write  dd	 ?
.data_ptr	 dd    ?,?
.fn_ptr        dd      ?
 
sf_buf:
.bmp_header   dd      ?
.bmp_area     dd      ?
.end	      dd      ?
 
set_rect_window_pid dd ?
set_rect_window_slot dd ?
;---------------------------------------------------------------------
align 4
rect_input_buffer:
.left rb 6
.top  rb 6
.width	rb 6
.height rb 6
 
cmdstr rb 257
;---------------------------------------------------------------------
align 4
 
file_name:
	rb	1058
 
scr screen_prop
rect:
.left dw ?
.top dw ?
.height dw ?
.width dw ?
 
sc sys_color_table
app procinfo	    ; ¨­ä®à¬ æ¨ï ® £« ¢­®¬ ®ª­¥
active_app procinfo ; ¨­ä®à¬ æ¨ï ®¡  ªâ¨¢­®¬ ®ª­¥
set_rect_window_procinfo procinfo  ; ¨­ä®à¬ æ¨ï ®¡ ®ª­¥ ®¡« áâ¨
;---------------------------------------------------------------------
	rb 512		   ; áâ¥ª ¯®â®ª  ä®âª ­ìï
shoot_esp:
;---------------------------------------------------------------------
	rb 512	   ; áâ¥ª ®ª­  ®¡« áâ¨
set_rect_window_esp:
;---------------------------------------------------------------------
;        app_end    ; ª®­¥æ ¯à®£à ¬¬ë
mouse_dd	rd 1
;---------------------------------------------------------------------
align 4
cur_dir_path:
	rb 4096
;---------------------------------------------------------------------
library_path:
	rb 4096
;---------------------------------------------------------------------
temp_dir_pach:
	rb 4096
;---------------------------------------------------------------------
text_work_area:
	rb 1024
;---------------------------------------------------------------------
fname_buf:
	rb 4096
;---------------------------------------------------------------------
procinfo:
	rb 1024
;---------------------------------------------------------------------
filename_area:
	rb 256
;---------------------------------------------------------------------
	rb 1024
i_end_tread:
;---------------------------------------------------------------------
	rb 1024
stacktop:
;---------------------------------------------------------------------
i_end:

Rev 1610	Rev 1685
1	;	1	;
2	; Screenshooter for Kolibri	2	; Screenshooter for Kolibri
3	;	3	;
4	; version: 1.0	4	; version: 1.0
5	; last update: 08/09/2010	5	; last update: 08/09/2010
6	; written by: Marat Zakiyanov aka Mario79, aka Mario	6	; written by: Marat Zakiyanov aka Mario79, aka Mario
7	; changes: select path for save with OpenDialog,	7	; changes: select path for save with OpenDialog,
8	; bag fix for threads stacks	8	; bag fix for threads stacks
9	;---------------------------------------------------------------------	9	;---------------------------------------------------------------------
10	; 01.06.09 - ®¬¯®¥âë ¡¥àãâìáï ¨§ á¨áâ¥¬®© ¡¨¡«¨®â¥ª¨	10	; 01.06.09 - ®¬¯®¥âë ¡¥àãâìáï ¨§ á¨áâ¥¬®© ¡¨¡«¨®â¥ª¨
11	; ¢â®à ¯à®£à ¬¬ë ¢â¨å®¢ ªá¨¬ (Maxxxx32)	11	; ¢â®à ¯à®£à ¬¬ë ¢â¨å®¢ ªá¨¬ (Maxxxx32)
12	; 24.07.2008 ®¡®¢«¥ editbox	12	; 24.07.2008 ®¡®¢«¥ editbox
13	; 01.02.07 - ®¡®¢«ñ editbox	13	; 01.02.07 - ®¡®¢«ñ editbox
14	; 31.01.07 - ¢áñ â¥¯¥àì à¨áã¥âáï ®â®á¨â¥«ì® ª«¨¥âáª®© ®¡« áâ¨	14	; 31.01.07 - ¢áñ â¥¯¥àì à¨áã¥âáï ®â®á¨â¥«ì® ª«¨¥âáª®© ®¡« áâ¨
-		15	; 02.11.10 - á¯®«ì§ã¥âáï checkbox ¢¥àá¨¨ 2
15		16
16	title equ 'Screenshooter v 1.0' ; £®«®¢®ª ®ª	17	title equ 'Screenshooter v 1.0' ; £®«®¢®ª ®ª
17	include '../../develop/libraries/box_lib/load_lib.mac'	18	include '../../develop/libraries/box_lib/load_lib.mac'
18	include '../../develop/libraries/box_lib/trunk/box_lib.mac'	19	include '../../develop/libraries/box_lib/trunk/box_lib.mac'
19	;include '../../develop/examples/editbox/trunk/editbox.inc'	20	;include '../../develop/examples/editbox/trunk/editbox.inc'
20	include '../../macros.inc'	21	include '../../macros.inc'
21	include 'txtbut.inc'	22	include 'txtbut.inc'
22	include 'label.inc'	23	include 'label.inc'
23	include 'textwork.inc'	24	include 'textwork.inc'
24	include 'scrshoot.mac'	25	include 'scrshoot.mac'
25		26
26	;include 'macros.inc' ; ¢áâ ¢«ï¥¬ ¬ ªà®áë	27	;include 'macros.inc' ; ¢áâ ¢«ï¥¬ ¬ ªà®áë
27	; meos_header cmdstr ; ¢áâ ¢«ï¥¬ § £®«®¢®ª ¯à®£à ¬¬ë	28	; meos_header cmdstr ; ¢áâ ¢«ï¥¬ § £®«®¢®ª ¯à®£à ¬¬ë
28	use32	29	use32
29	org 0x0	30	org 0x0
30	db 'MENUET01'	31	db 'MENUET01'
31	dd 0x1	32	dd 0x1
32	dd start	33	dd start
33	dd IM_END	34	dd IM_END
34	dd i_end	35	dd i_end
35	dd stacktop	36	dd stacktop
36	dd cmdstr	37	dd cmdstr
37	dd cur_dir_path	38	dd cur_dir_path
38		39
39	align 4	40	align 4
40	@use_library	41	@use_library
41	use_txt_button ; \|	42	use_txt_button ; \|
42	use_label ; \|-- GUI ª®¬¯®¥âë ¨ ¥ª®â®àë¥ ¯à®æ¥¤ãàë	43	use_label ; \|-- GUI ª®¬¯®¥âë ¨ ¥ª®â®àë¥ ¯à®æ¥¤ãàë
43	use_text_work ; /	44	use_text_work ; /
44	include 'scrwin.inc' ; ¢áâ ¢«ï¥¬ ª®¤ ®ª ¯à¤¯à®á¬®âà	45	include 'scrwin.inc' ; ¢áâ ¢«ï¥¬ ª®¤ ®ª ¯à¤¯à®á¬®âà
45	include 'scrsavef.inc'; ¢áâ ¢«ï¥¬ ¯à®æ¥¤ãàã á®åà ¥¨ï ä ©«	46	include 'scrsavef.inc'; ¢áâ ¢«ï¥¬ ¯à®æ¥¤ãàã á®åà ¥¨ï ä ©«
46		47
47	include 'gp.inc'	48	include 'gp.inc'
48	include 'srectwin.inc'	49	include 'srectwin.inc'
49	include 'lang.inc'	50	include 'lang.inc'
50		51
51	macro get_sys_colors col_buf	52	macro get_sys_colors col_buf
52	{	53	{
53	;mov eax,48	54	;mov eax,48
54	push 48	55	push 48
55	pop eax	56	pop eax
56	;mov ebx,3	57	;mov ebx,3
57	push 3	58	push 3
58	pop ebx	59	pop ebx
59	;mov ecx,col_buf	60	;mov ecx,col_buf
60	push col_buf	61	push col_buf
61	pop ecx	62	pop ecx
62	;mov edx,40	63	;mov edx,40
63	push 40	64	push 40
64	pop edx	65	pop edx
65	mcall	66	mcall
66	}	67	}
67		68
68	;--- ç «® ¯à®£à ¬¬ë ---	69	;--- ç «® ¯à®£à ¬¬ë ---
69	align 4	70	align 4
70	start:	71	start:
71	;sys_load_library library_name, cur_dir_path, library_path, system_path, \	72	;sys_load_library library_name, cur_dir_path, library_path, system_path, \
72	;err_message_found_lib, head_f_l, myimport, err_message_import, head_f_i	73	;err_message_found_lib, head_f_l, myimport, err_message_import, head_f_i
73		74
74	load_libraries l_libs_start,end_l_libs	75	load_libraries l_libs_start,end_l_libs
75		76
76	;if return code =-1 then exit, else nornary work	77	;if return code =-1 then exit, else nornary work
77	; cmp eax,-1	78	; cmp eax,-1
78	inc eax	79	inc eax
79	test eax,eax	80	test eax,eax
80	jz close	81	jz close
81	;;;;;;;;;;;;;;;; init memory 68/11	82	;;;;;;;;;;;;;;;; init memory 68/11
82	mov eax,68	83	mov eax,68
83	mov ebx,11	84	mov ebx,11
84	mcall	85	mcall
85	test eax,eax	86	test eax,eax
86	jz close	87	jz close
87		88
88	;---------------------------------------------------------------------	89	;---------------------------------------------------------------------
89	mov edi,filename_area	90	mov edi,filename_area
90	mov esi,start_temp_file_name	91	mov esi,start_temp_file_name
91	xor eax,eax	92	xor eax,eax
92	cld	93	cld
93	@@:	94	@@:
94	lodsb	95	lodsb
95	stosb	96	stosb
96	test eax,eax	97	test eax,eax
97	jnz @b	98	jnz @b
98		99
99		100
100	mov edi,fname_buf	101	mov edi,fname_buf
101	mov esi,ed_buffer.1	102	mov esi,ed_buffer.1
102	xor eax,eax	103	xor eax,eax
103	cld	104	cld
104	@@:	105	@@:
105	lodsb	106	lodsb
106	stosb	107	stosb
107	test eax,eax	108	test eax,eax
108	jnz @b	109	jnz @b
109		110
110	;OpenDialog initialisation	111	;OpenDialog initialisation
111	push dword OpenDialog_data	112	push dword OpenDialog_data
112	call [OpenDialog_Init]	113	call [OpenDialog_Init]
113		114
114	; prepare for PathShow	115	; prepare for PathShow
115	push dword PathShow_data_1	116	push dword PathShow_data_1
116	call [PathShow_prepare]	117	call [PathShow_prepare]
117	;---------------------------------------------------------------------	118	;---------------------------------------------------------------------
118	;mov al,[gs:128041024]	119	;mov al,[gs:128041024]
119	; ãáâ ¢«¨¢ ¥¬ ipc ¡ãää¥à	120	; ãáâ ¢«¨¢ ¥¬ ipc ¡ãää¥à
120	push 60	121	push 60
121	pop eax	122	pop eax
122	;mov ebx,1	123	;mov ebx,1
123	xor ebx,ebx	124	xor ebx,ebx
124	inc ebx	125	inc ebx
125	mov ecx,app_ipc	126	mov ecx,app_ipc
126	mov edx,32	127	mov edx,32
127	mcall	128	mcall
128		129
129	push 66 ; ãáâ ¢«¨¢ ¥¬ £«®¡ «ìãî £®àïçãî ª« ¢¨èã	130	push 66 ; ãáâ ¢«¨¢ ¥¬ £«®¡ «ìãî £®àïçãî ª« ¢¨èã
130	pop eax	131	pop eax
131	push eax	132	push eax
132	mov ebx,4	133	mov ebx,4
133	mov cl,55 ; 55 - PrintScrn	134	mov cl,55 ; 55 - PrintScrn
134	xor edx,edx	135	xor edx,edx
135	mcall	136	mcall
136		137
137	mov ebx,app	138	mov ebx,app
138	call get_slot_n	139	call get_slot_n
139	mov [slot_n],ecx	140	mov [slot_n],ecx
140		141
141	; ãáâ ¢«¨¢ ¥¬ ¬ áªã á®¡ëâ¨©	142	; ãáâ ¢«¨¢ ¥¬ ¬ áªã á®¡ëâ¨©
142	set_events_mask (evm_redraw+evm_key+evm_button+evm_mouse+evm_ipc)	143	set_events_mask (evm_redraw+evm_key+evm_button+evm_mouse+evm_ipc)
-		144	;¨¨æ¨ «¨§ æ¨ï checkboxes
-		145	init_checkboxes2 check_boxes,check_boxes_end
143		146
144	; áî¤ ¯àë£ ¥¬ ¯à¨ ª ¦¤®© ¯¥à¥à¨á®¢ª¥	147	; áî¤ ¯àë£ ¥¬ ¯à¨ ª ¦¤®© ¯¥à¥à¨á®¢ª¥
145	red:	148	red:
146	get_procinfo app ; ¯®«ãç ¥¬ ¨ä®à¬ æ¨î ® ¯à®æ¥áá¥	149	get_procinfo app ; ¯®«ãç ¥¬ ¨ä®à¬ æ¨î ® ¯à®æ¥áá¥
147	get_sys_colors sc ; ¯®«ãç ¥¬ á¨áâ¥¬ë¥ æ¢¥â	150	get_sys_colors sc ; ¯®«ãç ¥¬ á¨áâ¥¬ë¥ æ¢¥â
148		151
149	; ãáâ ¢«¨¢ ¥¬ á¨áâ¥¬ë¥ æ¢¥â ã GUI ª®¬¯®¥â®¢	152	; ãáâ ¢«¨¢ ¥¬ á¨áâ¥¬ë¥ æ¢¥â ã GUI ª®¬¯®¥â®¢
150	txt_but_set_sys_color buttons,buttons_end,sc ; \	153	txt_but_set_sys_color buttons,buttons_end,sc ; \
151	labels_set_sys_color labels,labels_end,sc ; \|	154	labels_set_sys_color labels,labels_end,sc ; \|
-		155	check_boxes_set_sys_color2 check_boxes,check_boxes_end,sc; \|
152	check_boxes_set_sys_color check_boxes,check_boxes_end,sc ; \|	156	; check_boxes_set_sys_color check_boxes,check_boxes_end,sc ; \|
153	edit_boxes_set_sys_color editboxes,editboxes_end,sc ; /	157	edit_boxes_set_sys_color editboxes,editboxes_end,sc ; /
154		158
155	get_screen_prop scr ; ¯®«ãç ¥¬ ¨ä®à¬ æ¨î ®¡ íªà ¥	159	get_screen_prop scr ; ¯®«ãç ¥¬ ¨ä®à¬ æ¨î ®¡ íªà ¥
156	call draw_window ; ¯¥à¥à¨á®¢ë¢ ¥¬ ®ª®	160	call draw_window ; ¯¥à¥à¨á®¢ë¢ ¥¬ ®ª®
157	still:	161	still:
158	wait_event red,key,button,mouse,ipc,still ; ¦¤¥¬ á®¡ëâ¨©	162	wait_event red,key,button,mouse,ipc,still ; ¦¤¥¬ á®¡ëâ¨©
159		163
160	key:	164	key:
161	get_key	165	get_key
162	cmp al,2	166	cmp al,2
163	jne @f	167	jne @f
164	cmp ah,55	168	cmp ah,55
165	jne still	169	jne still
166	mov [PrintScreen],1	170	mov [PrintScreen],1
167	call shoot	171	call shoot
168	mov [PrintScreen],0	172	mov [PrintScreen],0
169	jmp still	173	jmp still
170	@@:	174	@@:
171	; key_edit_boxes editboxes,editboxes_end	175	; key_edit_boxes editboxes,editboxes_end
172	; push dword edit1	176	; push dword edit1
173	; call [edit_box_key]	177	; call [edit_box_key]
174		178
175	push dword edit2	179	push dword edit2
176	call [edit_box_key]	180	call [edit_box_key]
177		181
178	push dword edit3	182	push dword edit3
179	call [edit_box_key]	183	call [edit_box_key]
180		184
181	push dword edit4	185	push dword edit4
182	call [edit_box_key]	186	call [edit_box_key]
183		187
184	jmp still	188	jmp still
185	button:	189	button:
186	get_pressed_button	190	get_pressed_button
187	cmp ah,1	191	cmp ah,1
188	je p_close	192	je p_close
189	txt_but_ev buttons,buttons_end	193	txt_but_ev buttons,buttons_end
190	jmp still	194	jmp still
191	mouse:	195	mouse:
192	get_active_window	196	get_active_window
193	cmp eax,[slot_n]	197	cmp eax,[slot_n]
194	jne still	198	jne still
195	;----------------------------------	199	;----------------------------------
196	; push dword edit1	200	; push dword edit1
197	; call [edit_box_mouse]	201	; call [edit_box_mouse]
198	push dword edit2	202	push dword edit2
199	call [edit_box_mouse]	203	call [edit_box_mouse]
200	push dword edit3	204	push dword edit3
201	call [edit_box_mouse]	205	call [edit_box_mouse]
202	push dword edit4	206	push dword edit4
203	call [edit_box_mouse]	207	call [edit_box_mouse]
204	;----------------------------------	208	;----------------------------------
-		209	checkboxes_mouse2 check_boxes,check_boxes_end
205	push dword ch1	210	; push dword ch1
206	call [check_box_mouse]	211	; call [check_box_mouse]
207	push dword ch2	212	; push dword ch2
208	call [check_box_mouse]	213	; call [check_box_mouse]
209	push dword ch3	214	; push dword ch3
210	call [check_box_mouse]	215	; call [check_box_mouse]
211	push dword ch4	216	; push dword ch4
212	call [check_box_mouse]	217	; call [check_box_mouse]
213	push dword ch5	218	; push dword ch5
214	call [check_box_mouse]	219	; call [check_box_mouse]
215	push dword ch6	220	; push dword ch6
216	call [check_box_mouse]	221	; call [check_box_mouse]
217	push dword use_rect	222	; push dword use_rect
218	call [check_box_mouse]	223	; call [check_box_mouse]
219	;-----------------------------------	224	;-----------------------------------
220	; mouse_check_boxes check_boxes,check_boxes_end	225	; mouse_check_boxes check_boxes,check_boxes_end
221	; mouse_edit_boxes editboxes,editboxes_end	226	; mouse_edit_boxes editboxes,editboxes_end
222	jmp still	227	jmp still
223	ipc:	228	ipc:
224	cmp word [app_ipc+8],2	229	cmp word [app_ipc+8],2
225	jne @f	230	jne @f
226	min_window	231	min_window
227	jmp .clear_ipc	232	jmp .clear_ipc
228	@@:	233	@@:
229	cmp word [app_ipc+8],3	234	cmp word [app_ipc+8],3
230	jne @f	235	jne @f
231	mov ecx,[slot_n]	236	mov ecx,[slot_n]
232	activ_window	237	activ_window
233	jmp .clear_ipc	238	jmp .clear_ipc
234	@@:	239	@@:
235	call draw_number	240	call draw_number
236	call dr_st	241	call dr_st
237		242
238	.clear_ipc:	243	.clear_ipc:
239	cld	244	cld
240	xor eax,eax	245	xor eax,eax
241	mov ecx,32/4	246	mov ecx,32/4
242	mov edi,app_ipc	247	mov edi,app_ipc
243	rep stosd	248	rep stosd
244	jmp still	249	jmp still
245		250
246	p_close:	251	p_close:
247	btr dword [flags],1	252	btr dword [flags],1
248		253
249	bt dword [flags],3	254	bt dword [flags],3
250	jnc @f	255	jnc @f
251	mov eax,18	256	mov eax,18
252	mov ebx,eax	257	mov ebx,eax
253	mov ecx,[set_rect_window_pid]	258	mov ecx,[set_rect_window_pid]
254	mcall	259	mcall
255	@@:	260	@@:
256		261
257	close:	262	close:
258	app_close	263	app_close
259		264
260	;---------------------------------------------------------------------	265	;---------------------------------------------------------------------
261	draw_PathShow:	266	draw_PathShow:
262	pusha	267	pusha
263	mcall 13,<4,302>,<35,15>,0xffffff	268	mcall 13,<4,302>,<35,15>,0xffffff
264	; draw for PathShow	269	; draw for PathShow
265	push dword PathShow_data_1	270	push dword PathShow_data_1
266	call [PathShow_draw]	271	call [PathShow_draw]
267	popa	272	popa
268	ret	273	ret
269	;--------------------------------------------------------------------	274	;--------------------------------------------------------------------
270	;--- ¯à®®æ¥¤ãà ¯¥à¥à¨á®¢ª¨ £« ¢®£® ®ª ---------------------------	275	;--- ¯à®®æ¥¤ãà ¯¥à¥à¨á®¢ª¨ £« ¢®£® ®ª ---------------------------
271	;--------------------------------------------------------------------	276	;--------------------------------------------------------------------
272	draw_window:	277	draw_window:
273	start_draw_window ; ç «® ¯¥à¥à¨á®¢ª¨	278	start_draw_window ; ç «® ¯¥à¥à¨á®¢ª¨
274	; ®¯à¥¤¥«ï¥¬ ®ª®	279	; ®¯à¥¤¥«ï¥¬ ®ª®
275	get_skin_height	280	get_skin_height
276	mov ebx,100*65536+320	281	mov ebx,100*65536+320
277	mov ecx,100*65536+220	282	mov ecx,100*65536+220
278	add cx,ax	283	add cx,ax
279	mov edx,[sc.work]	284	mov edx,[sc.work]
280	or edx,0x34000000;0x33000000	285	or edx,0x34000000;0x33000000
281	xor esi,esi	286	xor esi,esi
282	;xor edi,edi	287	;xor edi,edi
283	mov edi,grab_text	288	mov edi,grab_text
284	xor eax,eax	289	xor eax,eax
285	mcall	290	mcall
286		291
287	mov eax,47 ; ¢ë¢®¤¨¬ ç¨á« ¢ ®ª®	292	mov eax,47 ; ¢ë¢®¤¨¬ ç¨á« ¢ ®ª®
288	mov bx,4	293	mov bx,4
289	shl ebx,16	294	shl ebx,16
290	movsx ecx,word [scr.width] ; è¨à¨ íªà	295	movsx ecx,word [scr.width] ; è¨à¨ íªà
291	mov dx,95	296	mov dx,95
292	shl edx,16	297	shl edx,16
293	mov dx,[label1.top]	298	mov dx,[label1.top]
294	push dx	299	push dx
295	mov esi,[sc.work_text]	300	mov esi,[sc.work_text]
296	mcall	301	mcall
297	movsx ecx,word [scr.height] ; ¢ëá®â íªà	302	movsx ecx,word [scr.height] ; ¢ëá®â íªà
298	mov dx,[label2.top]	303	mov dx,[label2.top]
299	mcall	304	mcall
300	mov bx,2	305	mov bx,2
301	shl ebx,16	306	shl ebx,16
302	movsx ecx,word [scr.bitspp] ; ¡¨â ¯¨ªá¥«ì	307	movsx ecx,word [scr.bitspp] ; ¡¨â ¯¨ªá¥«ì
303	mov dx,240	308	mov dx,240
304	shl edx,16	309	shl edx,16
305	pop dx	310	pop dx
306	mcall	311	mcall
307	mov bx,6	312	mov bx,6
308	shl ebx,16	313	shl ebx,16
309	mov ecx,[scr.bytesps] ; ¡ ©â áâà®ªã	314	mov ecx,[scr.bytesps] ; ¡ ©â áâà®ªã
310	mov dx,[label2.top]	315	mov dx,[label2.top]
311	mcall	316	mcall
312		317
313	call draw_number ; ¯à®à¨á®¢ë¢ ¥¬ ®¬¥à á¨¬ª	318	call draw_number ; ¯à®à¨á®¢ë¢ ¥¬ ®¬¥à á¨¬ª
314	call dr_st	319	call dr_st
315		320
316	draw_labels labels,labels_end ; ¬¥âª¨	321	draw_labels labels,labels_end ; ¬¥âª¨
317	; draw_edit_boxes editboxes,editboxes_end ; edit_box	322	; draw_edit_boxes editboxes,editboxes_end ; edit_box
318	;------ show check editbox -----------	323	;------ show check editbox -----------
319	; push dword edit1	324	; push dword edit1
320	; call [edit_box_draw]	325	; call [edit_box_draw]
321	push dword edit2	326	push dword edit2
322	call [edit_box_draw]	327	call [edit_box_draw]
323	push dword edit3	328	push dword edit3
324	call [edit_box_draw]	329	call [edit_box_draw]
325	push dword edit4	330	push dword edit4
326	call [edit_box_draw]	331	call [edit_box_draw]
327	;------ end check all editbox -------	332	;------ end check all editbox -------
328		333
329	call draw_PathShow	334	call draw_PathShow
330		335
331	draw_txt_buttons buttons,buttons_end ; ª®¯ª¨	336	draw_txt_buttons buttons,buttons_end ; ª®¯ª¨
332	; draw_check_boxes check_boxes,check_boxes_end ; ä« ¦ª¨	337	; draw_check_boxes check_boxes,check_boxes_end ; ä« ¦ª¨
333	;------ check all checkbox ---------	338	;------ check all checkbox ---------
334	push dword ch1	339	; push dword ch1
335	call [check_box_draw]	340	; call [check_box_draw]
336	push dword ch2	341	; push dword ch2
337	call [check_box_draw]	342	; call [check_box_draw]
338	push dword ch3	343	; push dword ch3
339	call [check_box_draw]	344	; call [check_box_draw]
340	push dword ch4	345	; push dword ch4
341	call [check_box_draw]	346	; call [check_box_draw]
342	push dword ch5	347	; push dword ch5
343	call [check_box_draw]	348	; call [check_box_draw]
344	push dword ch6	349	; push dword ch6
345	call [check_box_draw]	350	; call [check_box_draw]
346	push dword use_rect	351	; push dword use_rect
347	call [check_box_draw]	352	; call [check_box_draw]
-		353
-		354	checkboxes_draw2 check_boxes,check_boxes_end
-		355
348	;------ end check all checkbox ------	356	;------ end check all checkbox ------
349		357
350	stop_draw_window ; ª®¥æ ¯¥à¥à¨á®¢ª¨	358	stop_draw_window ; ª®¥æ ¯¥à¥à¨á®¢ª¨
351	ret	359	ret
352		360
353	shoot:	361	shoot:
354	bt dword [ch4.flags],1 ; ¢ª«îç¥ «¨ § ¤¥à¦ª ?	362	bt dword [ch4.flags],1 ; ¢ª«îç¥ «¨ § ¤¥à¦ª ?
355	jnc @f	363	jnc @f
356	draw_status delay_now	364	draw_status delay_now
357	mov edi,ed_buffer.2	365	mov edi,ed_buffer.2
358	call zstr_to_int	366	call zstr_to_int
359	mov ebx,eax	367	mov ebx,eax
360	delay	368	delay
361	@@:	369	@@:
362	call get_mem_for_shoot; ¯®«ãç ¥¬ ¯ ¬ïâì ¤«ï á¨¬ª	370	call get_mem_for_shoot; ¯®«ãç ¥¬ ¯ ¬ïâì ¤«ï á¨¬ª
363		371
364		372
365	bts dword [flags],0 ; ã«¥¢®© ä« £ - á¨¬®ª ¥áâì ¢ ¯ ¬ïâ¨	373	bts dword [flags],0 ; ã«¥¢®© ä« £ - á¨¬®ª ¥áâì ¢ ¯ ¬ïâ¨
366		374
367	; ¤¥« ¥¬ á¨¬®ª	375	; ¤¥« ¥¬ á¨¬®ª
368	draw_status shooting	376	draw_status shooting
369	mov esi,scr	377	mov esi,scr
370	mov edi,[scr_buf.ptr]	378	mov edi,[scr_buf.ptr]
371	call copy_screen_to_image	379	call copy_screen_to_image
372		380
373	bt dword [use_rect.flags],1	381	bt dword [use_rect.flags],1
374	jc .use_rect	382	jc .use_rect
375	push dword [scr]	383	push dword [scr]
376	jmp @f	384	jmp @f
377	.use_rect:	385	.use_rect:
378	push dword [rect.height]	386	push dword [rect.height]
379	@@:	387	@@:
380	pop dword [scr_buf.size]	388	pop dword [scr_buf.size]
381		389
382	cmp [autoshoot_flag],1	390	cmp [autoshoot_flag],1
383	jne .2	391	jne .2
384		392
385	bt dword [ch5.flags],1 ; ¢ª«îç¥® «¨ ¢â®á®åà ¥¨¥ ?	393	bt dword [ch5.flags],1 ; ¢ª«îç¥® «¨ ¢â®á®åà ¥¨¥ ?
386	jnc @f	394	jnc @f
387	call save_file	395	call save_file
388	@@:	396	@@:
389	draw_status shooted_ok	397	draw_status shooted_ok
390	.2:	398	.2:
391	bt dword [flags],1	399	bt dword [flags],1
392	jnc @f	400	jnc @f
393	ret	401	ret
394	@@:	402	@@:
395		403
396	bt dword [ch2.flags],1 ; ¯®ª § âì ®ª® ¯à¥¤¯à®á¬®âà ?	404	bt dword [ch2.flags],1 ; ¯®ª § âì ®ª® ¯à¥¤¯à®á¬®âà ?
397	jnc @f	405	jnc @f
398	cmp [PrintScreen],0	406	cmp [PrintScreen],0
399	jne @f	407	jne @f
400	call show_scr_window	408	call show_scr_window
401	ret	409	ret
402	@@:	410	@@:
403	bt dword [ch5.flags],1 ; ¢ª«îç¥® «¨ ¢â®á®åà ¥¨¥ ?	411	bt dword [ch5.flags],1 ; ¢ª«îç¥® «¨ ¢â®á®åà ¥¨¥ ?
404	jnc @f	412	jnc @f
405		413
406	; invoke OpenDialog	414	; invoke OpenDialog
407	push dword OpenDialog_data	415	push dword OpenDialog_data
408	call [OpenDialog_Start]	416	call [OpenDialog_Start]
409	cmp [OpenDialog_data.status],1	417	cmp [OpenDialog_data.status],1
410	je .1	418	je .1
411	ret	419	ret
412	.1:	420	.1:
413	; prepare for PathShow	421	; prepare for PathShow
414	push dword PathShow_data_1	422	push dword PathShow_data_1
415	call [PathShow_prepare]	423	call [PathShow_prepare]
416		424
417	call save_file	425	call save_file
418	@@:	426	@@:
419		427
420	bt word [ch3.flags],1 ; ¢®ááâ ®¢¨âì ®ª® ?	428	bt word [ch3.flags],1 ; ¢®ááâ ®¢¨âì ®ª® ?
421	jnc @f	429	jnc @f
422		430
423	delay 100	431	delay 100
424	mov ecx,[slot_n]	432	mov ecx,[slot_n]
425	activ_window	433	activ_window
426	@@:	434	@@:
427	ret	435	ret
428		436
429	;--- ¯®«ãç¨âì ¯ ¬ïâì ¤«ï á¨¬ª ---	437	;--- ¯®«ãç¨âì ¯ ¬ïâì ¤«ï á¨¬ª ---
430	get_mem_for_shoot:	438	get_mem_for_shoot:
431	;clean memory	439	;clean memory
432	mov ecx,dword [scr_buf.ptr]	440	mov ecx,dword [scr_buf.ptr]
433	mov ebx,13	441	mov ebx,13
434	mov eax,68	442	mov eax,68
435	mcall	443	mcall
436		444
437	bt dword [use_rect.flags],1 ; ä®âª âì ®¡« áâì íªà	445	bt dword [use_rect.flags],1 ; ä®âª âì ®¡« áâì íªà
438	jc .use_area	446	jc .use_area
439	movzx ecx, word [scr.width]	447	movzx ecx, word [scr.width]
440	movzx ebx, word [scr.height]	448	movzx ebx, word [scr.height]
441	jmp @f	449	jmp @f
442	.use_area:	450	.use_area:
443	call read_rect	451	call read_rect
444	movzx ecx, word [rect.width]	452	movzx ecx, word [rect.width]
445	movzx ebx, word [rect.height]	453	movzx ebx, word [rect.height]
446	@@:	454	@@:
447	imul ecx,ebx	455	imul ecx,ebx
448	lea ecx,[ecx*3]	456	lea ecx,[ecx*3]
449	; add ecx,i_end	457	; add ecx,i_end
450	mov ebx,12	458	mov ebx,12
451	mov eax,68	459	mov eax,68
452	mcall	460	mcall
453	mov [scr_buf.ptr],eax	461	mov [scr_buf.ptr],eax
454	add eax,ecx	462	add eax,ecx
455	mov [scr_buf.end_ptr],ecx	463	mov [scr_buf.end_ptr],ecx
456	ret	464	ret
457		465
458	;--- á®¤ âì ®ª® ¯à®¥¤¯à®á¬®âà ---	466	;--- á®¤ âì ®ª® ¯à®¥¤¯à®á¬®âà ---
459	show_scr_window:	467	show_scr_window:
460	pusha	468	pusha
461	bt dword [flags],0	469	bt dword [flags],0
462	jnc @f	470	jnc @f
463	mov eax,51	471	mov eax,51
464	xor ebx,ebx	472	xor ebx,ebx
465	inc ebx	473	inc ebx
466	mov ecx,scr_window	474	mov ecx,scr_window
467	mov edx,i_end_tread-512	475	mov edx,i_end_tread-512
468	mcall	476	mcall
469	@@:	477	@@:
470	popa	478	popa
471	ret	479	ret
472		480
473	;--- ¯à®ç¨â âì ¨ à¨á®¢ âì â¥ªãé¨© ®¬¥à ---	481	;--- ¯à®ç¨â âì ¨ à¨á®¢ âì â¥ªãé¨© ®¬¥à ---
474	apply_number:	482	apply_number:
475	mov edi,ed_buffer.3	483	mov edi,ed_buffer.3
476	call zstr_to_int	484	call zstr_to_int
477	mov [cur_number],eax	485	mov [cur_number],eax
478	call draw_number	486	call draw_number
479	ret	487	ret
480		488
481	;--- ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ â¥ªãé¥£® ®¬¥à ---	489	;--- ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ â¥ªãé¥£® ®¬¥à ---
482	draw_number:	490	draw_number:
483	mov edi,sign_n_input	491	mov edi,sign_n_input
484	call zstr_to_int	492	call zstr_to_int
485	mov [sign_n],al	493	mov [sign_n],al
486	mov eax,13	494	mov eax,13
487	mov ebx,150*65536+96	495	mov ebx,150*65536+96
488	mov cx,[label9.top]	496	mov cx,[label9.top]
489	shl ecx,16	497	shl ecx,16
490	mov cx,10	498	mov cx,10
491	mov edx,[sc.work]	499	mov edx,[sc.work]
492	mcall	500	mcall

Subversion Repositories Kolibri OS

(root)/programs/media/scrshoot/scrshoot.asm @ 1805 – Rev 1610 → 1685