Subversion Repositories Kolibri OS

Rev

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

Rev 5874 Rev 5875
Line 23... Line 23...
23
; Set system language
23
; Set system language
24
	mov	word[param],0
24
	mov	word[param],0
25
	invoke	ini.get_str, sz_ini, sz_system, sz_language, param, 2, 0
25
	invoke	ini.get_str, sz_ini, sz_system, sz_language, param, 2, 0
26
	mov	ax, [param]
26
	mov	ax, [param]
27
	or	ax, 0x2020	; convert to lowercase
27
	or	ax, 0x2020	; convert to lowercase
28
	mov	ecx,10
28
	mov	ecx,8
29
	mov	edi,langMarks
29
	mov	edi,langMarks
30
	repnz scasw
30
	repnz scasw
31
	jnz	@f
31
	jnz	@f
32
	neg	ecx
32
	neg	ecx
33
	add	ecx,10
33
	add	ecx,8
34
	mcall	21,5
34
	mcall	21,5
35
@@:
35
@@:
Line 36... Line 36...
36
 
36
 
37
; Set font smoothing
37
; Set font smoothing
Line 260... Line 260...
260
	pop	eax
260
	pop	eax
261
	mcall	-1
261
	mcall	-1
262
language1:
262
language1:
263
	dec	[syslang]
263
	dec	[syslang]
264
	jns	@f
264
	jns	@f
265
	mov	[syslang],9
265
	mov	[syslang],7
266
	jmp	@f
266
	jmp	@f
267
language2:
267
language2:
268
	inc	[syslang]
268
	inc	[syslang]
269
	cmp	[syslang],10
269
	cmp	[syslang],8
270
	jc	@f
270
	jc	@f
271
	mov	[syslang],0
271
	mov	[syslang],0
272
@@:
272
@@:
273
	jmp	loadtxt
273
	jmp	loadtxt
274
LBA1:
274
LBA1:
Line 484... Line 484...
484
stringsAmount = 6
484
stringsAmount = 6
Line 485... Line 485...
485
 
485
 
486
align 4
486
align 4
487
text	dd 0
487
text	dd 0
488
langs:
488
langs:
489
db 'ENGLISH FINNISH GERMAN  RUSSIAN FRENCH  '
-
 
490
db 'ESTONIANUKRAINE ITALIAN BELGIAN SPANISH '
489
db 'ENGLISH FINNISH GERMAN  RUSSIAN FRENCH  ESTONIANSPANISH ITALIAN '
491
langMarks:
490
langMarks:
Line 492... Line 491...
492
db	'enfiderufretukitbesp'
491
db	'enfiderufretspit'
493
 
492
 
494
textrus:
493
textrus:
495
db 'Ÿ§ëª á¨áâ¥¬ë              :              <  >  à¨¬¥­¨âì'
494
db 'Ÿ§ëª á¨áâ¥¬ë              :              <  >  à¨¬¥­¨âì'