Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 485 → Rev 484

/programs/media/gifview/trunk/gifview.asm
29,7 → 29,7
dd 0x0
 
include 'lang.inc'
include '..\..\..\macros.inc' ; decrease code size (optional)
include 'macros.inc' ; decrease code size (optional)
include 'debug.inc'
COLOR_ORDER equ MENUETOS
 
54,7 → 54,7
openfile2:
mov eax,70
mov ebx,file_info
mcall
int 0x40
cmp eax,6
je temp
test eax,eax
96,12 → 96,6
ok2:
and dword[img_index],0
 
mov eax,48
mov ebx,3
mov ecx,sc
mov edx,sizeof.system_colors
mcall
 
red:
 
call draw_window
115,7 → 109,7
.delay:
mov ebx,DELAY
mov eax,23
mcall
int 0x40
@@:
dec eax
jz red
137,7 → 131,7
 
key:
mov eax,2
mcall
int 0x40
cmp ah,13
je is_input
jmp still
144,13 → 138,13
 
button:
mov eax,17
mcall
int 0x40
 
cmp ah,1
jne noclose
_close:
or eax,-1
mcall
int 0x40
 
noclose:
is_input: ; simple input line with backspace feature
158,12 → 152,12
wait_input:
call draw_input
mov eax,10
mcall
int 0x40
cmp eax,2
jne still
mov edi,[inp_pos]
mov eax,2
mcall
int 0x40
shr eax,8
cmp eax,27
je still
197,13 → 191,13
mov ebx,INP_X
mov ecx,INP_Y
mov edx,2
mcall
int 0x40
mov eax,4
mov ecx,0x00107a30
mov ebx,INP_XY
mov edx,fn_input
mov esi,[inp_pos]
mcall
int 0x40
pop edi
ret
 
213,9 → 207,15
 
draw_window:
 
mov eax,48
mov ebx,3
mov ecx,sc
mov edx,sizeof.system_colors
int 0x40
 
mov eax,12
mov ebx,1
mcall
int 0x40
 
mov eax,0
mov ebx,50*65536+700
222,8 → 222,8
mov ecx,50*65536+500
mov edx,[sc.work]
or edx,0x33000000
mov edi,title
mcall
mov edi,header
int 0x40
 
call draw_input
 
237,7 → 237,7
.enddraw:
mov eax,12
mov ebx,2
mcall
int 0x40
ret
 
draw_subimage:
259,13 → 259,13
add edx,eax
add edx,5 shl 16 +25
mov eax,7
mcall
int 0x40
.enddraw:
ret
 
; ‡¤¥áì ­ å®¤ïâáï ¤ ­­ë¥ ¯à®£à ¬¬ë:
 
title db appname,0 ; áâப  § £®«®¢ª 
header db appname,0 ; áâப  § £®«®¢ª 
 
inp_pos dd inp_end-fn_input
fn_input: