Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 6357 → Rev 6371

/programs/media/animage/trunk/events_of_keys.inc
3,87 → 3,80
;------------------------------------------
align 4
keys:
 
mcall SF_GET_KEY
shr eax,8
 
cmp al,176
jne key2
jne @f
sub [PosX],20
jmp change_screen
key2:
@@:
cmp al,179
jne key3
jne @f
add [PosX],20
jmp change_screen
key3:
@@:
cmp al,177
jne key4
jne @f
add [PosY],20
jmp change_screen
key4:
@@:
cmp al,178
jne key5
jne @f
sub [PosY],20
jmp change_screen
key5:
@@:
cmp al,49 ;1
jne key6
jne @f
mov [k],1
call scrollbar_move_00
call drawwin
jmp change_screen
key6:
jmp zoom_ch
@@:
cmp al,50 ;2
jne key7
jne @f
mov [k],2
call scrollbar_move_00
call drawwin
jmp change_screen
key7:
jmp zoom_ch
@@:
cmp al,51 ;3
jne @f
mov [k],3
jmp zoom_ch
@@:
cmp al,52 ;4
jne key8
jne @f
mov [k],4
call scrollbar_move_00
call drawwin
jmp change_screen
key8:
jmp zoom_ch
@@:
cmp al,56 ;8
jne key9
jne @f
mov [k],8
call scrollbar_move_00
call drawwin
jmp change_screen
key9:
jmp zoom_ch
@@:
cmp al,48 ;0
jne key10
jne @f
mov [k],16
zoom_ch:
call scrollbar_move_00
call drawwin
jmp change_screen
key10:
@@:
cmp al,255
jne key11
jne @f
call analizing_picture_to_palette
call drawwin
jmp change_screen
key11:
@@:
jmp still
 
;cmp al,27 ;Esc
;jne still
jmp still
 
mov eax,CursorsID
call delete_cursors
;mov eax,CursorsID
;call delete_cursors
close:
mcall SF_TERMINATE_PROCESS
 
jmp still
 
change_screen:
 
call CalculatePositionScreen
call MovePictureToWorkScreen
call draw_scrollers
call PrintMousePos
 
jmp still