Subversion Repositories Kolibri OS

Rev

Rev 6357 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6357 Rev 6371
Line 1... Line 1...
1
;------------------------------------------
1
;------------------------------------------
2
;-------------KEYS-------------------------
2
;-------------KEYS-------------------------
3
;------------------------------------------
3
;------------------------------------------
4
align 4
4
align 4
5
keys:
5
keys:
6
 
-
 
7
   mcall SF_GET_KEY
6
	mcall SF_GET_KEY
8
   shr eax,8
7
	shr eax,8
Line 9... Line 8...
9
 
8
 
10
   cmp al,176
9
	cmp al,176
11
   jne key2
10
	jne @f
12
   sub [PosX],20
11
	sub [PosX],20
13
   jmp change_screen
12
	jmp change_screen
14
 key2:
13
@@:
15
   cmp al,179
14
	cmp al,179
16
   jne key3
15
	jne @f
17
   add [PosX],20
16
	add [PosX],20
18
   jmp change_screen
17
	jmp change_screen
19
 key3:
18
@@:
20
   cmp al,177
19
	cmp al,177
21
   jne key4
20
	jne @f
22
   add [PosY],20
21
	add [PosY],20
23
   jmp change_screen
22
	jmp change_screen
24
 key4:
23
@@:
25
  cmp al,178
24
	cmp al,178
26
   jne key5
25
	jne @f
27
   sub [PosY],20
26
	sub [PosY],20
28
   jmp change_screen
27
	jmp change_screen
29
 key5:
28
@@:
30
   cmp al,49 ;1
29
	cmp al,49 ;1
31
   jne key6
30
	jne @f
32
   mov [k],1
-
 
33
   call scrollbar_move_00
-
 
34
   call drawwin
31
	mov [k],1
35
   jmp change_screen
32
	jmp zoom_ch
36
 key6:
33
@@:
37
   cmp al,50 ;2
34
	cmp al,50 ;2
38
   jne key7
35
	jne @f
39
   mov [k],2
36
	mov [k],2
-
 
37
	jmp zoom_ch
40
   call scrollbar_move_00
38
@@:
-
 
39
	cmp al,51 ;3
-
 
40
	jne @f
41
   call drawwin
41
	mov [k],3
42
   jmp change_screen
42
	jmp zoom_ch
43
 key7:
43
@@:
44
   cmp al,52 ;4
44
	cmp al,52 ;4
45
   jne key8
45
	jne @f
46
   mov [k],4
-
 
47
   call scrollbar_move_00
-
 
48
   call drawwin
46
	mov [k],4
49
   jmp change_screen
47
	jmp zoom_ch
50
 key8:
48
@@:
51
   cmp al,56 ;8
49
	cmp al,56 ;8
52
   jne key9
50
	jne @f
53
   mov [k],8
-
 
54
   call scrollbar_move_00
-
 
55
   call drawwin
51
	mov [k],8
56
   jmp change_screen
52
	jmp zoom_ch
57
 key9:
53
@@:
58
   cmp al,48 ;0
54
	cmp al,48 ;0
59
   jne key10
55
	jne @f
-
 
56
	mov [k],16
60
   mov [k],16
57
zoom_ch:
61
   call scrollbar_move_00
58
	call scrollbar_move_00
62
   call drawwin
59
	call drawwin
63
   jmp change_screen
60
	jmp change_screen
64
 key10:
61
@@:
65
   cmp al,255
62
	cmp al,255
66
   jne key11
63
	jne @f
67
   call analizing_picture_to_palette
64
	call analizing_picture_to_palette
68
   call drawwin
65
	call drawwin
69
   jmp change_screen
66
	jmp change_screen
70
 key11:
-
 
71
   ;cmp al,27 ;Esc
-
 
72
   ;jne still
67
@@:
Line -... Line 68...
-
 
68
	jmp still
-
 
69
 
73
   jmp still
70
	;cmp al,27 ;Esc
74
 
71
	;jne still
75
    mov eax,CursorsID
72
	;mov eax,CursorsID
76
    call delete_cursors
73
	;call delete_cursors
Line 77... Line -...
77
close:
-
 
78
    mcall SF_TERMINATE_PROCESS
-
 
79
 
74
close:
80
   jmp still
-
 
81
 
75
	mcall SF_TERMINATE_PROCESS
82
   change_screen:
76
 
83
 
77
change_screen:
84
   call CalculatePositionScreen
78
	call CalculatePositionScreen
85
   call MovePictureToWorkScreen
-
 
86
   call draw_scrollers
79
	call MovePictureToWorkScreen
87
   call PrintMousePos
80
	call draw_scrollers