mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-12 01:53:58 +03:00
499 lines
11 KiB
NASM
499 lines
11 KiB
NASM
;*****************************************************************************
|
|
;*****************************************************************************
|
|
; zSea - advanced image viewer for KolibriOS
|
|
; Copyright (c) 2008-2014, Marat Zakiyanov aka Mario79, aka Mario
|
|
; All rights reserved.
|
|
;
|
|
; Redistribution and use in source and binary forms, with or without
|
|
; modification, are permitted provided that the following conditions are met:
|
|
; * Redistributions of source code must retain the above copyright
|
|
; notice, this list of conditions and the following disclaimer.
|
|
; * Redistributions in binary form must reproduce the above copyright
|
|
; notice, this list of conditions and the following disclaimer in the
|
|
; documentation and/or other materials provided with the distribution.
|
|
; * Neither the name of the <organization> nor the
|
|
; names of its contributors may be used to endorse or promote products
|
|
; derived from this software without specific prior written permission.
|
|
;
|
|
; THIS SOFTWARE IS PROVIDED BY Marat Zakiyanov ''AS IS'' AND ANY
|
|
; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
|
|
; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
|
; DISCLAIMED. IN NO EVENT SHALL <copyright holder> BE LIABLE FOR ANY
|
|
; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
|
|
; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
|
|
; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
|
|
; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
|
; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
|
|
; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
;*****************************************************************************
|
|
; v.1.0 rñ5 22.04.2014
|
|
;******************************************************************************
|
|
use32
|
|
org 0x0
|
|
db 'MENUET01' ; 8 byte id
|
|
dd 0x01 ; header version
|
|
dd START ; start of code
|
|
dd IM_END ; size of image
|
|
dd I_END ; memory for app
|
|
dd stacktop ; esp
|
|
dd dest_cmdline ; I_Param
|
|
dd path ; APPLICATION PACH
|
|
|
|
include 'lang.inc'
|
|
;include 'macros.inc'
|
|
;include 'editbox_ex.mac'
|
|
;include 'proc32.inc'
|
|
include '../../macros.inc'
|
|
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
|
|
include '../../proc32.inc'
|
|
;include 'debug.inc'
|
|
include '../../KOSfuncs.inc'
|
|
include '../../load_lib.mac'
|
|
@use_library ;use load lib macros
|
|
;******************************************************************************
|
|
;------------------------------------------------------------------------------
|
|
START: ; start of execution
|
|
mcall 68, 11
|
|
mcall 66, 1,1
|
|
mcall 40, 0x27
|
|
|
|
mcall 9, procinfo, -1
|
|
mov eax,[ebx+30]
|
|
mov [PID],eax
|
|
xor ecx,ecx
|
|
@@:
|
|
inc ecx
|
|
mcall 9, procinfo
|
|
mov eax,[PID]
|
|
cmp eax,[ebx+30]
|
|
jne @r
|
|
mov [active_process],ecx
|
|
|
|
mcall 48,4
|
|
mov [skin_height],eax
|
|
|
|
mcall 68,12,1024
|
|
mov [menu_data_1.procinfo],eax
|
|
mov [menu_data_2.procinfo],eax
|
|
mov [menu_data_3.procinfo],eax
|
|
mov [menu_data_4.procinfo],eax
|
|
mov [menu_data_5.procinfo],eax
|
|
mov [menu_data_6.procinfo],eax
|
|
|
|
mov [load_directory_pointer],dir_header
|
|
|
|
|
|
call load_plugins
|
|
|
|
;init_checkboxes2 check1,...
|
|
push check1
|
|
call [init_checkbox]
|
|
push check2
|
|
call [init_checkbox]
|
|
|
|
call load_buttons
|
|
|
|
; call init_data_OpenDialog
|
|
|
|
;init_OpenDialog OpenDialog_data
|
|
push dword OpenDialog_data
|
|
call [OpenDialog_Init]
|
|
|
|
;init_ColorDialog ColorDialog_data
|
|
push dword ColorDialog_data
|
|
call [ColorDialog_Init]
|
|
|
|
call get_filter_data
|
|
|
|
;-----------------------------------------------------
|
|
; check for parameters
|
|
mov esi, [28]
|
|
cmp dword [esi],'BOOT'
|
|
jne .no_boot
|
|
.background:
|
|
call load_image
|
|
cmp [error_fs],0
|
|
jnz .exit
|
|
call convert
|
|
|
|
call background
|
|
|
|
.exit:
|
|
call Set_ini
|
|
.exit_1:
|
|
mov ebx,18
|
|
mov edx,PID1
|
|
mov esi,7
|
|
.kill_successors:
|
|
mov ecx,[edx]
|
|
add edx,4
|
|
test ecx,ecx
|
|
jz @f
|
|
mcall 18
|
|
@@:
|
|
dec esi
|
|
jnz .kill_successors
|
|
|
|
mcall -1
|
|
;-----------------------------------------------------
|
|
.no_boot:
|
|
xor eax,eax
|
|
cmp [esi],al
|
|
jnz @f
|
|
mov [file_name],eax
|
|
jmp .no_param
|
|
@@:
|
|
|
|
|
|
mov edi,string ; clear string
|
|
mov ecx,4096/4 ;256/4 ; length of a string
|
|
xor eax,eax ; symbol <0>
|
|
rep stosd
|
|
|
|
|
|
mov edi, [28] ; look for <0> in temp_area
|
|
|
|
cmp [edi],byte "\"
|
|
jne .continue
|
|
cmp [edi+1],byte "T"
|
|
jne @f
|
|
mov [bgrmode],dword 1
|
|
jmp .continue_1
|
|
@@:
|
|
cmp [edi+1],byte "S"
|
|
jne START.exit
|
|
mov [bgrmode],dword 2
|
|
.continue_1:
|
|
add edi,4
|
|
.continue:
|
|
mov esi,edi
|
|
mov ecx,4095 ;257 ; strlen
|
|
repne scasb
|
|
mov ecx, edi
|
|
sub ecx, [28]
|
|
|
|
mov edi,string
|
|
rep movsb ; copy string from temp_area to "string" (filename)
|
|
mov ecx, [28]
|
|
cmp [ecx],byte "\"
|
|
je START.background
|
|
call load_directory
|
|
test eax,eax
|
|
jnz @f
|
|
call load_image
|
|
test eax,eax
|
|
jnz @f
|
|
call convert
|
|
jmp .no_param
|
|
@@:
|
|
mov [load_directory_pointer],dir_header
|
|
mov [error_fs],eax
|
|
call convert.error
|
|
;-----------------------------------------------------
|
|
.no_param:
|
|
; or ecx,-1 ; get information about me
|
|
; call getappinfo
|
|
|
|
; mov edx,[process_info+30] ; òåïåðü â edx íàø èäåíòèôèêàòîð
|
|
; mov ecx,eax
|
|
|
|
; @@:
|
|
; call getappinfo
|
|
; cmp edx,[process_info+30]
|
|
; je @f ; åñëè íàø PID ñîâïàë ñ PID ðàññìàòðèâàåìîãî ïðîöåññà, ìû íàøëè ñåáÿ
|
|
; dec ecx ; èíà÷å ñìîòðèì ñëåäóþùèé ïðîöåññ
|
|
; jne @b ; âîçâðàùàåìñÿ, åñëè íå âñå ïðîöåññû ðàññìîòðåíû
|
|
; @@:
|
|
|
|
; òåïåðü â ecx íîìåð ïðîöåññà
|
|
; mov [process],ecx
|
|
;---------------------------------------------------------------------
|
|
cmp [wnd_width],778
|
|
jae @f
|
|
mov [wnd_width],778
|
|
@@:
|
|
mcall 48, 5 ; GetClientTop, fix for case when @patel in the top
|
|
shr ebx, 16
|
|
mov ecx,ebx
|
|
shl ecx,16
|
|
add ecx,523 ; [y start] *65536 + [y size]
|
|
cmp [wnd_height],ecx
|
|
jae @f
|
|
mov [wnd_height],ecx
|
|
@@:
|
|
; call draw_window
|
|
red:
|
|
;draw_still:
|
|
; pusha
|
|
call get_window_param
|
|
test [window_status],10b
|
|
jnz red_1 ;still
|
|
test [window_status],100b
|
|
jnz red_1
|
|
test [window_status],1b
|
|
jnz red_1
|
|
mov esi,-1
|
|
mov eax,procinfo
|
|
mov eax,[eax+66]
|
|
cmp eax,150
|
|
; cmp [window_high],150
|
|
jae @f
|
|
mov esi,150
|
|
mcall 67,-1,ebx,ebx
|
|
@@:
|
|
mov edx,-1
|
|
mov eax,procinfo
|
|
mov eax,[eax+62]
|
|
cmp eax,635
|
|
; cmp [window_width],635
|
|
jae @f ;red_1
|
|
mov edx,635
|
|
mcall 67,-1,ebx, ,ebx
|
|
@@:
|
|
; mcall 67,-1,ebx
|
|
; popa
|
|
; xor esi,esi
|
|
red_1:
|
|
; xor eax,eax
|
|
; mov [scroll_bar_data_vertical.position],eax
|
|
; mov [scroll_bar_data_horizontal.position],eax
|
|
|
|
call draw_window
|
|
|
|
cmp [redraw_wallpaper_flag],0
|
|
je still
|
|
mov [redraw_wallpaper_flag],0
|
|
call clear_thread
|
|
; mcall 15,3
|
|
; jmp red_1
|
|
still:
|
|
call pause_cicle
|
|
|
|
cmp [RAW1_flag],1
|
|
je animation_handler
|
|
|
|
mcall 48,4
|
|
cmp [skin_height],eax
|
|
je @f
|
|
mov [skin_height],eax
|
|
call convert.img_resolution_ok
|
|
jmp red_1
|
|
@@:
|
|
mcall 10
|
|
.1:
|
|
cmp [open_file_flag],1
|
|
je kopen_1
|
|
cmp [sort_directory_flag],byte 1
|
|
je red_sort_directory
|
|
cmp [redraw_flag],byte 1
|
|
je redraw_window
|
|
cmp eax,1 ; ïåðåðèñîâàòü îêíî ?
|
|
je red ; åñëè äà - íà ìåòêó red
|
|
cmp eax,2 ; íàæàòà êëàâèøà ?
|
|
je key ; åñëè äà - íà key
|
|
cmp eax,3 ; íàæàòà êíîïêà ?
|
|
je button ; åñëè äà - íà button
|
|
cmp eax,6
|
|
je mouse
|
|
; cmp [redraw_wallpaper_flag],1
|
|
; jne still
|
|
; mov [redraw_wallpaper_flag],0
|
|
; mcall 15,3
|
|
jmp still ; åñëè äðóãîå ñîáûòèå - â íà÷àëî öèêëà
|
|
|
|
red_sort_directory:
|
|
mov [sort_directory_flag],byte 0
|
|
jmp red_1
|
|
|
|
redraw_window:
|
|
mov [redraw_flag],byte 0
|
|
jmp red_1
|
|
|
|
;---------------------------------------------------------------------
|
|
; red:
|
|
; test dword [status], 4
|
|
; jz draw_still
|
|
; mov al,18
|
|
; mov ebx,3
|
|
; mov ecx,[process]
|
|
; mcall 18,3,[active_process]
|
|
; and byte [status], not 4
|
|
; jmp still
|
|
;---------------------------------------------------------------------
|
|
button: ; button
|
|
mov eax,17 ; get id
|
|
mcall
|
|
cmp ah,1 ; button id=1 ?
|
|
je START.exit
|
|
; jne .noclose
|
|
;
|
|
; mov eax,-1 ; close this program
|
|
; mcall
|
|
.noclose:
|
|
cmp ah,2
|
|
je slide_show.3 ;still
|
|
jmp slide_show
|
|
;---------------------------------------------------------------------
|
|
pause_cicle:
|
|
pusha
|
|
.start:
|
|
mcall 9,procinfo,-1
|
|
mov eax,[procinfo+70] ;status of window
|
|
test eax,100b
|
|
jne @f
|
|
popa
|
|
ret
|
|
@@:
|
|
mcall 10
|
|
dec eax
|
|
jz .redraw
|
|
dec eax
|
|
jz .key
|
|
dec eax
|
|
jnz .start
|
|
.button:
|
|
mcall -1
|
|
.key:
|
|
mcall 2
|
|
jmp .start
|
|
.redraw:
|
|
call draw_window
|
|
jmp .start
|
|
;---------------------------------------------------------------------
|
|
get_filter_data:
|
|
mov edi,Filter+4
|
|
xor eax,eax
|
|
mov ecx,10
|
|
cld
|
|
@@:
|
|
mov esi,10
|
|
sub esi,ecx
|
|
lea esi,[esi+esi*2] ; x 3
|
|
shl esi,3 ; x 8
|
|
add esi,dword Convert_plugin_0.Assoc
|
|
mov esi,[esi]
|
|
add esi,4
|
|
|
|
test esi,esi
|
|
jz @f
|
|
call .start
|
|
dec ecx
|
|
jnz @r
|
|
@@:
|
|
mov [edi],byte 0
|
|
mov eax,Filter
|
|
sub edi,eax
|
|
mov [eax],edi
|
|
|
|
ret
|
|
.start:
|
|
@@:
|
|
lodsb
|
|
stosb
|
|
test eax,eax
|
|
jnz @r
|
|
cmp [esi],ah
|
|
jne @r
|
|
ret
|
|
;---------------------------------------------------------------------
|
|
kopen_1:
|
|
|
|
mov [open_file_flag],0
|
|
call load_directory
|
|
test eax,eax
|
|
jz kopen
|
|
.err:
|
|
mov [load_directory_pointer],dir_header
|
|
mov [error_fs],eax
|
|
call convert.error
|
|
jmp still ;red_1
|
|
|
|
kopen:
|
|
cmp [string],byte 0
|
|
je still
|
|
|
|
mov ecx,-1
|
|
call getappinfo
|
|
|
|
call load_image
|
|
|
|
test eax,eax
|
|
jnz kopen_1.err
|
|
call convert
|
|
|
|
.1:
|
|
call get_window_param
|
|
test [window_status],1b
|
|
jz red ;draw_still
|
|
mov [no_draw_window],1
|
|
|
|
; push edx
|
|
; mov edx,size_after_convert_2
|
|
; call write_memory_size
|
|
; pop edx
|
|
|
|
call draw_other
|
|
|
|
mov [no_draw_window],0
|
|
; jmp draw_still
|
|
jmp still
|
|
;---------------------------------------------------------------------
|
|
getappinfo:
|
|
mov eax,9
|
|
mov ebx,process_info
|
|
mcall
|
|
ret
|
|
;---------------------------------------------------------------------
|
|
get_window_param:
|
|
mcall 9, procinfo, -1
|
|
mov eax,[ebx+34]
|
|
mov [window_start_x],eax
|
|
mov eax,[ebx+38]
|
|
mov [window_start_y],eax
|
|
mov eax,[ebx+66] ;46]
|
|
inc eax
|
|
mov [window_high],eax
|
|
mov eax,[ebx+62] ;42]
|
|
inc eax
|
|
mov [window_width],eax
|
|
mov eax,[ebx+70]
|
|
mov [window_status],eax
|
|
; mcall 48,4
|
|
; mov [skin_high],eax
|
|
ret
|
|
;---------------------------------------------------------------------
|
|
;write_memory_size:
|
|
; pusha
|
|
; mcall 9, procinfo, -1
|
|
; mov eax,[ebx+26]
|
|
; mov [edx],eax
|
|
; popa
|
|
; ret
|
|
;---------------------------------------------------------------------
|
|
include 'backgrnd.inc'
|
|
include 'draw_win.inc'
|
|
include 'full_win.inc'
|
|
include 'mouse.inc'
|
|
include 'key.inc'
|
|
include 'menu_key.inc'
|
|
include 'clr_bcgr.inc'
|
|
include 'w_error.inc'
|
|
include 'load.inc'
|
|
include 'animat.inc'
|
|
include 'draw_img.inc'
|
|
include 'convert.inc'
|
|
include 'zoom.inc'
|
|
include 'w_about.inc'
|
|
include 'win_file.inc'
|
|
include 'win_info.inc'
|
|
include 'win_bcgr.inc'
|
|
include 'win_sort.inc'
|
|
include 'win_opti.inc'
|
|
include 'libini.inc'
|
|
include '../../dll.inc'
|
|
include 'data.inc'
|
|
;---------------------------------------------------------------------
|
|
IM_END:
|
|
include 'dat_area.inc'
|
|
I_END:
|