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

+; 01.06.09 - ®¬¯®¥âë ¡¥àãâìáï ¨§ á¨áâ¥¬®© ¡¨¡«¨®â¥ª¨
 ; ¢â®à ¯à®£à ¬¬ë ¢â¨å®¢  ªá¨¬ (Maxxxx32)
 ; 24.07.2008  ®¡®¢«¥ editbox
 ; 01.02.07 - ®¡®¢«ñ editbox
 ; 31.01.07 - ¢áñ â¥¯¥àì à¨áã¥âáï ®â®á¨â¥«ì® ª«¨¥âáª®© ®¡« áâ¨
-macro draw_status text_ptr
-{
-        mov     [status.text],dword text_ptr
-        call    send_draw_status
-}
+title equ 'Screenshooter v 0.91' ;  £®«®¢®ª ®ª
+include '../../develop/libraries/box_lib/trunk/load_lib.mac'
+include '../../develop/libraries/box_lib/trunk/editbox_ex.mac'
+;include '../../develop/examples/editbox/trunk/editbox.inc'
+include '../../macros.inc'
+include 'scrshoot.mac'
+include 'txtbut.inc'
+include 'label.inc'
+include 'textwork.inc'
+;include 'macros.inc'  ; ¢áâ ¢«ï¥¬ ¬ ªà®áë
+;        meos_header  cmdstr ; ¢áâ ¢«ï¥¬ § £®«®¢®ª ¯à®£à ¬¬ë
+use32
+    org 0x0
+    db 'MENUET01'
+    dd 0x1
+    dd start
+    dd i_end
+    dd i_end
+    dd i_end
+    dd cmdstr
+    dd cur_dir_path
-title equ 'Screenshooter v 0.9' ;  £®«®¢®ª ®ª
 include 'macros.inc'  ; ¢áâ ¢«ï¥¬ ¬ ªà®áë
-        meos_header  cmdstr ; ¢áâ ¢«ï¥¬ § £®«®¢®ª ¯à®£à ¬¬ë
+align 4
+include 'scrwin.inc'  ; ¢áâ ¢«ï¥¬ ª®¤ ®ª  ¯à¤¯à®á¬®âà
-include 'scrwin.inc'  ; ¢áâ ¢«ï¥¬ ª®¤ ®ª  ¯à¤¯à®á¬®âà
+include 'scrsavef.inc'; ¢áâ ¢«ï¥¬ ¯à®æ¥¤ãàã á®åà ¥¨ï ä ©«
 include 'scrsavef.inc'; ¢áâ ¢«ï¥¬ ¯à®æ¥¤ãàã á®åà ¥¨ï ä ©«
-        use_edit_box                            ; \
+        @use_library
-        use_txt_button                          ;  |
-        use_label                               ;  |-- GUI ª®¬¯®¥âë ¨ ¥ª®â®àë¥ ¯à®æ¥¤ãàë
+        use_txt_button                          ;  |
-        use_check_box                           ;  |
+        use_label                               ;  |-- GUI ª®¬¯®¥âë ¨ ¥ª®â®àë¥ ¯à®æ¥¤ãàë
         use_text_work                           ; /
 include 'gp.inc'
 include 'srectwin.inc'
+include 'lang.inc'
+;---  ç «® ¯à®£à ¬¬ë ---
+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
+;if return code =-1 then exit, else nornary work
+;        cmp     eax,-1
+        inc     eax
+        test    eax,eax
+        jz      close
+;;;;;;;;;;;;;;;; init memory 68/11
-include 'lang.inc'
+        mov     eax,68
+        mov     ebx,11
+        mcall
+        test    eax,eax
-;---  ç «® ¯à®£à ¬¬ë ---
+        jz      close
         app_start
         ;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
-        int     0x40
+        mcall
         push    66   ; ãáâ  ¢«¨¢ ¥¬ £«®¡ «ìãî £®àïçãî ª« ¢¨èã
         pop     eax
         push    eax
         mov     ebx,4
         mov     cl,55    ; 55 - PrintScrn
         xor     edx,edx
-        int     0x40
+        mcall
         cmp     ah,55
         jne     @f
         call    shoot
         jmp     still
 @@:
-        key_edit_boxes editboxes,editboxes_end
+;        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
         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]
+;----------------------------------
+        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_check_boxes check_boxes,check_boxes_end
-        mouse_edit_boxes editboxes,editboxes_end
+;        mouse_edit_boxes editboxes,editboxes_end
         jmp     still
 ipc:
         cmp     word [app_ipc+8],2
         jne     @f
         min_window
         call    dr_st
 .clear_ipc:
         cld
         xor     eax,eax
-        movr     ecx,32
+        mov     ecx,32
         mov     edi,app_ipc
         rep     stosb
         jmp     still
 p_close:
         btr     dword [flags],1
         bt      dword [flags],3
         jnc     @f
-        movr    eax,18
+        mov    eax,18
         mov     ebx,eax
         mov     ecx,[set_rect_window_pid]
-        int     0x40
+        mcall
         get_skin_height
         mov     ebx,100*65536+320
         mov     ecx,100*65536+220
         add     cx,ax
         mov     edx,[sc.work]
-        add     edx,0x34000000;0x33000000
+        or      edx,0x34000000;0x33000000
         xor     esi,esi
         ;xor     edi,edi
         mov     edi,grab_text
         xor     eax,eax
-        int     0x40
+        mcall
-        movr     eax,47             ; ¢ë¢®¤¨¬ ç¨á«  ¢ ®ª®
+        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]
-        int     0x40
+        mcall
         movsx   ecx,word [scr.height]   ; ¢ëá®â  íªà
         mov     dx,[label2.top]
-        int     0x40
+        mcall
         mov     bx,2
         shl     ebx,16
         movsx   ecx,word [scr.bitspp]   ; ¡¨â   ¯¨ªá¥«ì
         mov     dx,240
         shl     edx,16
         pop     dx
-        int     0x40
+        mcall
         mov     bx,6
         shl     ebx,16
         mov     ecx,[scr.bytesps]       ; ¡ ©â   áâà®ªã
         mov     dx,[label2.top]
-        int     0x40
+        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]
-        draw_labels labels,labels_end            ; ¬¥âª¨
+;------ end check all editbox -------
+        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
-        draw_edit_boxes editboxes,editboxes_end  ; edit_box
+        call    [check_box_draw]
-        draw_txt_buttons buttons,buttons_end     ; ª®¯ª¨
+;------ end check all checkbox ------
         draw_check_boxes check_boxes,check_boxes_end ; ä« ¦ª¨
 stop_draw_window      ; ª®¥æ ¯¥à¥à¨á®¢ª¨
 @@:
 ret
 ;--- ¯®«ãç¨âì ¯ ¬ïâì ¤«ï á¨¬ª  ---
+get_mem_for_shoot:
-get_mem_for_shoot:
+;clean memory
+        mov     ecx,dword [scr_buf.ptr]
+        mov     ebx,13
+        mov     eax,68
+        mcall
         mov     [scr_buf.ptr],dword __app_end
         bt      dword [use_rect.flags],1 ; ä®âª âì ®¡« áâì íªà
         jc      .use_area
         movzx   ecx, word [scr.width]
         movzx   ebx, word [scr.height]
         movzx   ecx, word [rect.width]
         movzx   ebx, word [rect.height]
 @@:
         imul    ecx,ebx
         lea     ecx,[ecx*3]
-        add     ecx,__app_end
+;        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
-        xor     ebx,ebx
-        inc     ebx
-        mov     eax,64
-        int     0x40
 ret
 ;--- á®¤ âì ®ª® ¯à®¥¤¯à®á¬®âà  ---
 show_scr_window:
 pusha
         bt      dword [flags],0
         jnc     @f
         mov     eax,51
         xor     ebx,ebx
         inc     ebx
-        movr     ecx,scr_window
+        mov     ecx,scr_window
-        mov     edx,__app_end-1000
+        mov     edx,i_end_tread-1000
-        int     0x40
+        mcall
 @@:
 popa
 ret
 ;--- ¯à®æ¥¤ãà  ¯à®à¨á®¢ª¨ â¥ªãé¥£® ®¬¥à  ---
 draw_number:
         mov     edi,sign_n_input
         call    zstr_to_int
         mov     [sign_n],al
-        movr     eax,13
+        mov     eax,13
         mov     ebx,150*65536+96
         mov     cx,[label9.top]
         shl     ecx,16
         mov     cx,10
         mov     edx,[sc.work]
-        int     0x40
+        mcall
-        movr     eax,47
+        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]
-        int     0x40
+        mcall
 ret
 ;--- ¯à®æ¥¤ãà , § ¯ãáª îé ï ¯®â®ª  ¢â®áê¥¬ª¨ ---
 start_autoshoot:
         bts     dword [flags],1
         jc      @f
-        movr     eax,51
+        mov     eax,51
         ;mov     ebx,1
         xor     ebx,ebx
         inc     ebx
         mov     ecx,autoshoot
-        mov     edx,__app_end-512
+        mov     edx,i_end_tread-512
-        int     0x40
+        mcall
 @@:
 ret
         mov     ecx,[slot_n]
         activ_window
 .next:
         bt      dword [flags],1
         jnc     close
-        movr     eax,60
+        mov     eax,60
-        movr     ebx,2
+        mov     ebx,2
         mov     ecx,[app.pid]
         mov     edx,messages.draw_number
         mov     esi,2
-        int     0x40
+        mcall
         call    shoot
         jmp     autoshoot.next
 ;--- ¯à®æ¥¤ãà  ¯à®à¨á®¢ª¨ áâà®ª¨ á®áâ®ï¨ï ---
 ; (¤®«¦  ¢ë§ë¢ âìáï ¯®â®ª®¬ £« ¢®£® ®ª )
 dr_st:
-        movr     eax,38              ; ®âà¥§®ª
+        mov     eax,38              ; ®âà¥§®ª
         mov     ebx,0*65536+310
         mov     ecx,198*65536+198
         mov     edx,[sc.work_graph]
-        int     0x40
+        mcall
-        movr     eax,13              ; ¯®«®áª
+        mov     eax,13              ; ¯®«®áª
         mov     bx,310
         mov     ecx,199*65536+15
         mov     edx,[sc.work]
-        int     0x40
+        mcall
         mov     edi,status
         call    draw_label
 ret
 ;--- ¯à®æ¥¤ãà  ¯®«ãç¥¨ï ®¬¥à  á«®â  ¯®â®ª  ---
 ; ¢å®¤ ebx - ¡ãää¥à 1024 ¡ ©â
 ; ¢ëå®¤ ecx - ®¬¥à á«®â
 get_slot_n:
-        movr     eax,9
+        mov     eax,9
         xor     ecx,ecx
         dec     ecx
-        int     0x40
+        mcall
         mov     edx,[ebx+30]
         xor     ecx,ecx
 @@:
-        movr     eax,9
+        mov     eax,9
         inc     ecx
-        int     0x40
+        mcall
         bts     dword [flags],2
         jc      .running
         bt      dword [flags],1
         jc      .running
-        movr     eax,51
+        mov     eax,51
         ;mov     ebx,1
         xor     ebx,ebx
         inc     ebx
-        int     0x40
+        mcall
 .running:
 ret
 ;--- ¯®â®ª, ¤¥« îé¨© 1 á¨¬®ª ---
 one_shoot_thread:
         mov     ecx,[slot_n]
         activ_window
         bt      dword [ch1.flags],1   ; ¬¨¨¬¨§¨à®¢ âì ®ª® ?
         jnc      @f
-        movr     eax,60
+        mov     eax,60
-        movr     ebx,2
+        mov     ebx,2
         mov     ecx,[app.pid]
         mov     edx,messages.min_window
         mov     esi,2
-        int     0x40
+        mcall
 @@:
         call    shoot
         btr     dword [flags],2
         jmp     close
 ;--- ¯à®æ¥¤ãà , ®â¯à ¢«ïîé ï £« ¢®¬ã ®ªã á®®¡é¥¨¥ ® ¯¥à¥à¨á®¢ª¥
 ; áâà®ª¨ á®áâ®ï¨ï ---
 send_draw_status:
-        movr     eax,60
+        mov     eax,60
-        movr     ebx,2
+        mov     ebx,2
         mov     ecx,[app.pid]
         mov     edx,messages.draw_status
         mov     esi,2
-        int     0x40
+        mcall
 ret
 ;--- ¯à®æ¥¤ãà , § ¯ãáª îé ï ¯®â®ª ®ª  ãáâ ®¢ª¨ ®¡« áâ¨ áê¥¬ª¨ ---
 show_set_rect_window:
         bts     dword [flags],3
         jc      @f
-        movr     eax,51
+        mov     eax,51
         xor     ebx,ebx
         inc     ebx
         mov     ecx,set_rect_window
         mov     edx,set_rect_window_esp
-        int     0x40
+        mcall
         mov     [set_rect_window_pid],eax
 ret
 @@:
-        movr    eax,18
+        mov    eax,18
         mov     ebx,eax
         mov     ecx,[set_rect_window_pid]
-        int     0x40
+        mcall
         btr     dword [flags],3
 ret
 ;--- ¯®«ãç¥¨¥ ¨ä®à¬ æ¨¨ ®¡  ªâ¨¢®¬ ®ª¥ ---
 get_active_window_info:
-        movr    eax,18
+        mov    eax,18
-        movr    ebx,7
+        mov    ebx,7
-        int     0x40
+        mcall
         mov     ecx,eax
-        movr    eax,9
+        mov     eax,9
         mov     ebx,active_app
 label10 label 5,185,0,text.10
 status label 5,201,0,no_shoot
 labels_end:
 editboxes:
-edit1 edit_box 300,5,35,cl_white,0xaabbcc,0,0,0,1024,ed_buffer.1,ed_focus        ; ¯ãâì ª ä ©«ã
+edit1 edit_box 300,5,35,cl_white,0xaabbcc,0,0,0,300,ed_buffer.1,ed_focus,10,10        ; ¯ãâì ª ä ©«ã
-edit2 edit_box 35,75,134,cl_white,0xaabbcc,0,0,0,9,ed_buffer.2,ed_figure_only    ; § ¤¥à¦ª
+edit2 edit_box 35,75,134,cl_white,0xaabbcc,0,0,0,9,ed_buffer.2,ed_figure_only,3,3         ; § ¤¥à¦ª
-edit3 edit_box 35,165,164,cl_white,0xaabbcc,0,0,0,9,ed_buffer.3,ed_figure_only
+edit3 edit_box 35,165,164,cl_white,0xaabbcc,0,0,0,9,ed_buffer.3,ed_figure_only    ;  ¢â®ã¬¥à æ¨ï
 edit4 edit_box 16,165,181,cl_white,0xaabbcc,0,0,0,1,sign_n_input,ed_figure_only,1
 editboxes_end:
-but6 txt_button 145,160,15,85,7,0,0,but_text.6,stop_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_box 5,105,cl_white,0,0,ch_text.1,(ch_text.2-ch_text.1)  ; á¢¥àãâì ®ª®
+ch1 check_box 5,105,5,11,cl_white,0,0,ch_text.1,(ch_text.2-ch_text.1),ch_flag_en  ; á¢¥àãâì ®ª®
-ch2 check_box 5,120,cl_white,0,0,ch_text.2,(ch_text.3-ch_text.2)  ; § â¥¬ á¤¥« âì  ªâ¨¢ë¬
+ch2 check_box 5,120,5,11,cl_white,0,0,ch_text.2,(ch_text.3-ch_text.2),ch_flag_en  ; § â¥¬ á¤¥« âì  ªâ¨¢ë¬
-ch3 check_box 145,105,cl_white,0,0,ch_text.3,(ch_text.4-ch_text.3) ; ¯®ª § âì á¨¬®ª
+ch3 check_box 145,105,5,11,cl_white,0,0,ch_text.3,(ch_text.4-ch_text.3),ch_flag_en ; ¯®ª § âì á¨¬®ª
-ch4 check_box 5,135,cl_white,0,0,ch_text.4,(ch_text.5-ch_text.4)  ;
+ch4 check_box 5,135,5,11,cl_white,0,0,ch_text.4,(ch_text.5-ch_text.4),ch_flag_en   ; § ¤¥à¦ª
-ch5 check_box 5,150,cl_white,0,0,ch_text.5,(ch_text.6-ch_text.5)
+ch5 check_box 5,150,5,11,cl_white,0,0,ch_text.5,(ch_text.6-ch_text.5)
-ch6 check_box 5,165,cl_white,0,0,ch_text.6,(ch_text.7-ch_text.6)
+ch6 check_box 5,165,5,11,cl_white,0,0,ch_text.6,(ch_text.7-ch_text.6),ch_flag_en
-use_rect check_box 145,150,cl_white,0,0,ch_text.7,(ch_text.8-ch_text.7) ; ¨á¯. ®¡« áâì
+use_rect check_box 145,150,5,11,cl_white,0,0,ch_text.7,(ch_text.8-ch_text.7) ; ¨á¯. ®¡« áâì
 ;  ¢â®ã¬¥à æ¨ï
 check_boxes_end:
 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 photo !!!',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
 sign_n_input:
+        db      '2',0
         db      '2',0
 app_ipc ipc_buffer 32
-app_ipc ipc_buffer 32
+align 4
+mouse_flag: dd 0x0
 structure_of_potock:
-mouse_flag: dd 0x0
+rb 100
 structure_of_potock:
 .end          dd      ?
 set_rect_window_pid dd ?
+set_rect_window_slot dd ?
+align 4
+ed_buffer:
+.1: db '/sys/*.bmp',0
+rb 287
+.2: db '100',0
+ rb 6
+.3:  rb 10
 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
+.height rb 6
 ed_buffer:
-.1: rb 1025
+cmdstr rb 257
 .2: rb 10
 .left dw ?
 .top dw ?
 .height dw ?
 .width dw ?
 sc sys_color_table
 app procinfo        ; ¨ä®à¬ æ¨ï ® £« ¢®¬ ®ª¥
 active_app procinfo ; ¨ä®à¬ æ¨ï ®¡  ªâ¨¢®¬ ®ª¥
 set_rect_window_procinfo procinfo  ; ¨ä®à¬ æ¨ï ®¡ ®ª¥ ®¡« áâ¨
 shoot_esp rb 512                   ; áâ¥ª ¯®â®ª  ä®âª ìï
-set_rect_window_esp rb 512         ; áâ¥ª ®ª  ®¡« áâ¨
-        app_end    ; ª®¥æ ¯à®£à ¬¬ë
+set_rect_window_esp rb 512         ; áâ¥ª ®ª  ®¡« áâ¨
+;        app_end    ; ª®¥æ ¯à®£à ¬¬ë
+align 4
+cur_dir_path    rb 4096
+library_path    rb 4096
+i_end_tread:
+rb 1024
+align 4
+i_end:

Subversion Repositories Kolibri OS

(root)/programs/media/scrshoot/scrshoot.asm – Rev 833 → 1098