Subversion Repositories Kolibri OS

Rev

Rev 1755 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1755 Rev 1920
Line 16... Line 16...
16 
 
 16 
 
17 
include 'lang.inc'
 17 
include 'lang.inc'
18 
include '..\..\..\macros.inc'
 18 
include '..\..\..\macros.inc'
Line -... Line 19...
- 
 
 19 
include 'MOI.INC'   ;à áª« ¤ª¨ ª« ¢¨ âãàë
- 
 
 20 
 
19 
include 'MOI.INC'   ;à áª« ¤ª¨ ª« ¢¨ âãàë
 21 
caps_lock_check fix 0
Line 20... Line 22...
20 
 
 22 
 
21 
time_bgr_color = 0x66cc
 23 
time_bgr_color = 0x66cc
22 
 
 24 
 
Line 63... Line 65...
63 
	cmp	al, 7
 65 
	cmp	al, 7
64 
	jz	alter
 66 
	jz	alter
65 
	cmp	al, 8
 67 
	cmp	al, 8
66 
	jz	alter
 68 
	jz	alter
67 
prod:
 69 
prod:
- 
 
 70 
	;{Albom
- 
 
 71 
	if caps_lock_check
- 
 
 72 
		cmp al, 58
- 
 
 73 
		jne @f
- 
 
 74 
		pusha
- 
 
 75 
		mov  eax,26
- 
 
 76 
		mov  ebx,2
- 
 
 77 
		mov  ecx,9
- 
 
 78 
		int  0x40
- 
 
 79 
		mov  ebx,eax
- 
 
 80 
		mov eax, 2
- 
 
 81 
		call draw_window ;;;???
- 
 
 82 
		popa
- 
 
 83 
		ret
- 
 
 84 
	@@:
- 
 
 85 
	end if
- 
 
 86 
	;}Albom
68 
	cmp	al, 15
 87 
	cmp	al, 15
69 
	jz	alt_tab_pressed
 88 
	jz	alt_tab_pressed
70 
	cmp	al, 88
 89 
	cmp	al, 88
71 
	jz	start_end_application
 90 
	jz	start_end_application
72 
	cmp	al, 91
 91 
	cmp	al, 91
Line 79... Line 98...
79 
;	jz	page_list_next
 98 
;	jz	page_list_next
80 
;	cmp	al, 72
 99 
;	cmp	al, 72
81 
;	jz	page_list_prev
 100 
;	jz	page_list_prev
82 
	cmp	al, 69
 101 
	cmp	al, 69
83 
	jz	start_mousemul_application
 102 
	jz	start_mousemul_application
- 
 
 103 
 
84 
	cmp	[current_alt_tab_app], -1
 104 
	cmp	[current_alt_tab_app], -1
85 
	jz	@f
 105 
	jz	@f
86 
	test	ah, 0x30
 106 
	test	ah, 0x30
87 
	jz	alt_tab_released
 107 
	jz	alt_tab_released
88 
@@:
 108 
@@:
Line 364... Line 384...
364 
	mcall 66,,6		; Alt+5
 384 
	mcall 66,,6		; Alt+5
365 
	mcall 66,,7		; Alt+6
 385 
	mcall 66,,7		; Alt+6
366 
	mcall 66,,8		; Alt+7
 386 
	mcall 66,,8		; Alt+7
367 
	mcall 66,,,101h 	; Alt+Shift+Tab
 387 
	mcall 66,,,101h 	; Alt+Shift+Tab
368 
	mcall 66,,69		; Alt+Shift+NumLock
 388 
	mcall 66,,69		; Alt+Shift+NumLock
- 
 
 389 
	;{Albom
- 
 
 390 
	; CapsLock
- 
 
 391 
	if caps_lock_check
- 
 
 392 
		mov eax, 66
- 
 
 393 
		mov edx, 0
- 
 
 394 
		mov ebx, 4
- 
 
 395 
		xor ecx, ecx
- 
 
 396 
		mov cl, 58
- 
 
 397 
		int 0x40
- 
 
 398 
	end if
- 
 
 399 
	;}Albom
Line 369... Line 400...
369 
 
 400 
 
370 
    mcall 18, 8, 1
 401 
    mcall 18, 8, 1
371 
    test eax, eax
 402 
    test eax, eax
372 
    jne  @f
 403 
    jne  @f
Line 1320... Line 1351...
1320 
    shl  ebx,16
 1351 
    shl  ebx,16
1321 
    add  ebx,7	;24
 1352 
    add  ebx,7	;24
Line 1322... Line 1353...
1322 
 
 1353 
 
Line -... Line 1354...
- 
 
 1354 
    mov  ecx,[bte] ; color
- 
 
 1355 
 
- 
 
 1356 
	;{Albom
- 
 
 1357 
	if caps_lock_check
- 
 
 1358 
		call flag_text_setup ; make flag_text 'enfigerufretua' or 'ENFIGERUFRETUA' depending on CapsLock state.
- 
 
 1359 
	end if
1323 
    mov  ecx,[bte] ; color
 1360 
	;}Albom
1324 
 
 1361
1325 
    dec  edx
 1362 
    dec  edx
1326 
    shl  edx,1
 1363 
    shl  edx,1
1327 
    add  edx,flag_text
 1364 
    add  edx,flag_text
Line 1348... Line 1385...
1348 
 
 1385 
 
1349 
;mini_flag:
 1386 
;mini_flag:
1350 
;    popa
 1387 
;    popa
Line -... Line 1388...
- 
 
 1388 
;    ret
- 
 
 1389 
 
- 
 
 1390 
;{Albom
- 
 
 1391 
if caps_lock_check
- 
 
 1392 
	flag_text_setup:
- 
 
 1393 
		pusha
- 
 
 1394
- 
 
 1395 
		mov eax, 66
- 
 
 1396 
		mov ebx, 3
- 
 
 1397 
		int 40h
- 
 
 1398
- 
 
 1399 
		mov edi, flag_text
- 
 
 1400 
		mov esi, flag_text_caps_off
- 
 
 1401
- 
 
 1402 
		test eax, 0x40
- 
 
 1403 
		jz @f
- 
 
 1404 
		add esi, 14
- 
 
 1405 
	@@:
Line -... Line 1406...
- 
 
 1406 
		mov ecx, 14
- 
 
 1407 
		rep movsb
- 
 
 1408
- 
 
 1409 
		popa
- 
 
 1410 
		ret
- 
 
 1411 
		flag_text_caps_off db 'enfigerufretua'
Line 1351... Line 1412...
1351 
;    ret
 1412 
		db 'ENFIGERUFRETUA'
1352 
 
 1413 
end if
1353 
 
 1414 
;Albom}
Line 1971... Line 2032...
1971 
    int  0x40
 2032 
    int  0x40
1972 
    sub  ebx,24 shl 16	; << Alver 25.08.2007 >> 18 shl 16
 2033 
    sub  ebx,24 shl 16	; << Alver 25.08.2007 >> 18 shl 16
1973 
    inc  edx	    ;button 22
 2034 
    inc  edx	    ;button 22
1974 
    int  0x40
 2035 
    int  0x40
Line -... Line 2036...
- 
 
 2036 
 
1975 
 
 2037 
 
Line 1976... Line 2038...
1976 
    ; flags
 2038 
    ; flags
1977 
 
 2039 
 
1978 
;    mov  eax,26
 2040 
;   mov  eax,26
1979 
;    mov  ebx,5
 2041 
;   mov  ebx,5
1980 
;    int  0x40
 2042 
;   int  0x40
1981 
;    mov  ebx,eax
 2043 
;   mov  ebx,eax
1982 
;
 2044 
 
1983 
;    mov  eax,1
 2045 
;   mov  eax,2
Line 1984... Line 2046...
1984 
;    mov  [type_lang],al
 2046 
;   mov  [type_lang],al
1985 
;    call draw_flag
 2047 
;   call draw_flag
Line 2194... Line 2256...
2194 
    mov  ecx,[bte]
 2256 
    mov  ecx,[bte]
Line 2195... Line 2257...
2195 
 
 2257 
 
2196 
    cmp  [graph_text],1
 2258 
    cmp  [graph_text],1
2197 
    jne  no_y3
 2259 
    jne  no_y3
2198 
    sub  bx,2
 2260 
    sub  bx,2
2199 
    mov  ecx,0xffffff
 2261 
;    mov  ecx,0xffffff
Line 2200... Line -...
2200 
  no_y3:
 - 
 
- 
 
 2262 
  no_y3:
2201 
 
 2263
2202 
 
 2264 
mov  ecx,0xffffff
2203 
    mov  edx,[esp]	       ; __:_X
 2265 
    mov  edx,[esp]	       ; __:_X
2204 
    and  edx,15
 2266 
    and  edx,15
2205 
    mov  eax,4
 2267 
    mov  eax,4
2206 
    add  ebx,10*65536
 2268 
    add  ebx,10*65536
2207 
    add  edx,text
 2269 
    add  edx,text
2208 
    mov  esi,1
 - 
 
- 
 
 2270 
    mov  esi,1
2209 
    int  0x40
 2271 
    int  0x40
2210 
 
 2272 
mov  ecx,0xffffff
2211 
    pop  edx			; __:X_
 2273 
    pop  edx			; __:X_
2212 
    shr  edx,4
 2274 
    shr  edx,4
2213 
    and  edx,15
 2275 
    and  edx,15
2214 
    mov  eax,4
 2276 
    mov  eax,4
2215 
    sub  ebx,6*65536
 2277 
    sub  ebx,6*65536
2216 
    add  edx,text
 2278 
    add  edx,text
2217 
    mov  esi,1
 - 
 
- 
 
 2279 
    mov  esi,1
2218 
    int  0x40
 2280 
    int  0x40
2219 
 
 2281 
mov  ecx,0xffffff
2220 
    mov  edx,[esp]	       ; _X:__
 2282 
    mov  edx,[esp]	       ; _X:__
2221 
    and  edx,15
 2283 
    and  edx,15
2222 
    mov  eax,4
 2284 
    mov  eax,4
2223 
    sub  ebx,11*65536
 2285 
    sub  ebx,11*65536
2224 
    add  edx,text
 2286 
    add  edx,text
2225 
    mov  esi,1
 - 
 
- 
 
 2287 
    mov  esi,1
2226 
    int  0x40
 2288 
    int  0x40
2227 
 
 2289 
mov  ecx,0xffffff
2228 
    pop  edx			; X_:__
 2290 
    pop  edx			; X_:__
2229 
    shr  edx,4
 2291 
    shr  edx,4
2230 
    and  edx,15
 2292 
    and  edx,15