Subversion Repositories Kolibri OS

Rev

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

Rev 5919 Rev 5924
Line 9... Line 9...
9 
db 'MENUET01'
 9 
db 'MENUET01'
10 
dd 1
 10 
dd 1
11 
dd START
 11 
dd START
12 
dd IM_END
 12 
dd IM_END
13 
dd I_END
 13 
dd I_END
14 
dd stack_area
 14 
dd I_END
15 
dd param
 15 
dd param
16 
dd 0
 16 
dd 0
Line 17... Line 17...
17 
 
 17 
 
18 
include '../../../proc32.inc'
 18 
include '../../../proc32.inc'
Line 140... Line 140...
140 
	mov	[fontSmoothing],eax
 140 
	mov	[fontSmoothing],eax
Line 141... Line 141...
141 
 
 141 
 
142 
	mcall	48,11
 142 
	mcall	48,11
Line 143... Line 143...
143 
	mov	[fontSize],eax
 143 
	mov	[fontSize],eax
- 
 
 144 
 
- 
 
 145 
loadtxt:
- 
 
 146 
	cmp	[syslang],3
- 
 
 147 
	jz	.ru
- 
 
 148 
	cmp	[syslang],5
- 
 
 149 
	jz	.et
- 
 
 150 
	mov	[text],texteng
- 
 
 151 
	jmp	draw_window
- 
 
 152 
.et:
- 
 
 153 
	mov	[text],textet
- 
 
 154 
	jmp	draw_window
- 
 
 155 
.ru:
- 
 
 156 
	mov	[text],textrus
- 
 
 157 
 
- 
 
 158 
draw_window:
- 
 
 159 
	mcall	12,1
- 
 
 160 
	mov	ecx,50*65536+32*(4+stringsAmount)
- 
 
 161 
	mcall	0,<50,700>,,0xB4111199,0,title
- 
 
 162 
; Main buttons
- 
 
 163 
	mov	eax,8
- 
 
 164 
	mov	ecx,6*65536+26
- 
 
 165 
	mov	edx,4
- 
 
 166 
	mov	esi,0x5580c0
- 
 
 167 
	mov	ebp,stringsAmount
- 
 
 168 
@@:
- 
 
 169 
	mcall	,<490,24>
- 
 
 170 
	inc	edx
- 
 
 171 
	mcall	,<526,24>
- 
 
 172 
	inc	edx
- 
 
 173 
	mcall	,<562,120>
- 
 
 174 
	inc	edx
- 
 
 175 
	add	ecx,32*65536
- 
 
 176 
	dec	ebp
- 
 
 177 
	jnz	@b
- 
 
 178 
; APPLY ALL
- 
 
 179 
	add	ecx,32*65536
- 
 
 180 
	mcall	,<514,168>,,3,0x005588dd
- 
 
 181 
; SAVE ALL
- 
 
 182 
	add	ecx,32*65536
- 
 
 183 
	dec	edx
Line 144... Line 184...
144 
 
 184 
	mcall
145 
	call	loadtxt
 185 
	mcall	12,2
146 
 
 186 
 
147 
draw_infotext:
 187 
draw_infotext:
Line 179... Line 219...
179 
	mov	eax,[fontSize]
 219 
	mov	eax,[fontSize]
180 
	mov	bl, 10
 220 
	mov	bl, 10
181 
	div	bl
 221 
	div	bl
182 
	add	ax, '00'
 222 
	add	ax, '00'
183 
	mov	[edi+LLL*4],ax
 223 
	mov	[edi+LLL*4],ax
184 
 
 - 
 
185 
draw_window:
 224 
; draw text
186 
	mcall	12,1
 - 
 
187 
	mcall	18,14
 - 
 
188 
	mov	ecx,50*65536+32*(4+stringsAmount)
 225 
	mcall	13,<342,96>,32*stringsAmount,80111199h
189 
	mcall	0,<50,700>,,0xB4111199,0,title
 - 
 
190 
; Main buttons
 - 
 
191 
	mov	eax,8
 - 
 
192 
	mov	ecx,6*65536+26
 - 
 
193 
	mov	edx,4
 - 
 
194 
	mov	esi,0x5580c0
 - 
 
195 
	mov	ebp,stringsAmount
 - 
 
196 
@@:
 - 
 
197 
	mcall	,<490,24>
 - 
 
198 
	inc	edx
 - 
 
199 
	mcall	,<526,24>
 - 
 
200 
	inc	edx
 - 
 
201 
	mcall	,<562,120>
 - 
 
202 
	inc	edx
 - 
 
203 
	add	ecx,32*65536
 - 
 
204 
	dec	ebp
 - 
 
205 
	jnz	@b
 - 
 
206 
; APPLY ALL
 - 
 
207 
	add	ecx,32*65536
 - 
 
208 
	mcall	,<514,168>,,3,0x005588dd
 - 
 
209 
; SAVE ALL
 - 
 
210 
	add	ecx,32*65536
 - 
 
211 
	dec	edx
 - 
 
212 
	mcall
 - 
 
213 
; text
 - 
 
214 
	mov	eax,4
 226 
	mov	eax,4
215 
	mov	ebx,6*65536+11
 227 
	mov	ebx,6*65536+11
216 
	mov	ecx,1ffffffh
 228 
	mov	ecx,1ffffffh
217 
	mov	edx,[text]
 229 
	mov	edx,[text]
218 
	mov	esi,LLL
 230 
	mov	esi,LLL
Line 231... Line 243...
231 
	add	ebx,32
 243 
	add	ebx,32
232 
	add	edx,esi
 244 
	add	edx,esi
233 
	dec	ebp
 245 
	dec	ebp
234 
	jnz	@b
 246 
	jnz	@b
Line 235... Line -...
235 
 
 - 
 
236 
	mcall	12,2
 - 
 
237 
 
 247 
 
238 
still:
 248 
still:
239 
	mcall	10
 249 
	mcall	10
240 
	cmp	eax,1
 250 
	cmp	eax,1
Line 269... Line 279...
269 
	inc	[syslang]
 279 
	inc	[syslang]
270 
	cmp	[syslang],8
 280 
	cmp	[syslang],8
271 
	jc	@f
 281 
	jc	@f
272 
	mov	[syslang],0
 282 
	mov	[syslang],0
273 
@@:
 283 
@@:
- 
 
 284 
	pop	eax
274 
	jmp	loadtxt
 285 
	jmp	loadtxt
275 
LBA1:
 286 
LBA1:
276 
	btr	[lba_read],0
 287 
	btr	[lba_read],0
277 
	ret
 288 
	ret
278 
LBA2:
 289 
LBA2:
Line 339... Line 350...
339 
	inc	ecx
 350 
	inc	ecx
340 
	mcall	18
 351 
	mcall	18
341 
@@:
 352 
@@:
342 
	ret
 353 
	ret
343 
;---------------------------------------------------------------
 354 
;---------------------------------------------------------------
344 
loadtxt:
 - 
 
345 
	cmp	[syslang],3
 - 
 
346 
	jz	.ru
 - 
 
347 
	cmp	[syslang],5
 - 
 
348 
	jz	.et
 - 
 
349 
	mov	[text],texteng
 - 
 
350 
	ret
 - 
 
351 
.ru:
 - 
 
352 
	mov	[text],textrus
 - 
 
353 
	ret
 - 
 
354 
.et:
 - 
 
355 
	mov	[text],textet
 - 
 
356 
	ret
 - 
 
357 
;---------------------------------------------------------------
 - 
 
358 
onoff:
 355 
onoff:
359 
	cmp	[syslang],3
 356 
	cmp	[syslang],3
360 
	jz	.ru
 357 
	jz	.ru
361 
	cmp	[syslang],5
 358 
	cmp	[syslang],5
362 
	jz	.et
 359 
	jz	.et
Line 423... Line 420...
423 
	mov	dword[param],'on '
 420 
	mov	dword[param],'on '
424 
@@:
 421 
@@:
425 
	invoke	ini.set_str, sz_ini, sz_low_level, sz_pci, param, 3
 422 
	invoke	ini.set_str, sz_ini, sz_low_level, sz_pci, param, 3
426 
	ret
 423 
	ret
427 
;---------------------------------------------------------------
 424 
;---------------------------------------------------------------
- 
 
 425 
; DATA
428 
align 4
 426 
align 4
429 
buttonTab:	; button handler pointers: -,+,apply
 427 
buttonTab:	; button handler pointers: -,+,apply
430 
	dd close
 428 
	dd close
431 
	dd saveAll
 429 
	dd saveAll
432 
	dd apply_all
 430 
	dd apply_all
Line 447... Line 445...
447 
	dd fontApply
 445 
	dd fontApply
448 
	dd fontSize1
 446 
	dd fontSize1
449 
	dd fontSize2
 447 
	dd fontSize2
450 
	dd fontSizeApply
 448 
	dd fontSizeApply
Line 451... Line -...
451 
 
 - 
 
452 
syslang 	dd 0
 - 
 
453 
lba_read	dd 0
 - 
 
454 
pci_acc 	dd 0
 - 
 
455 
speaker_mute	dd 0
 - 
 
456 
fontSmoothing	dd 0
 - 
 
457 
fontSize	dd 0
 - 
 
458 
 
 449 
 
459 
@IMPORT:
 450 
@IMPORT:
460 
library libini, 'libini.obj'
 451 
library libini, 'libini.obj'
461 
import	libini, \
 452 
import	libini, \
462 
	ini.get_str, 'ini_get_str',\
 453 
	ini.get_str, 'ini_get_str',\
Line 483... Line 474...
483 
 
 474 
 
484 
LLL = 56
 475 
LLL = 56
Line 485... Line 476...
485 
stringsAmount = 6
 476 
stringsAmount = 6
486 
 
 - 
 
487 
align 4
 477 
 
488 
text	dd 0
 478 
align 4
489 
langs:
 479 
langs:
490 
db 'ENGLISH FINNISH GERMAN  RUSSIAN FRENCH  ESTONIANSPANISH ITALIAN '
 480 
db 'ENGLISH FINNISH GERMAN  RUSSIAN FRENCH  ESTONIANSPANISH ITALIAN '
Line 523... Line 513...
523 
 
 513 
 
524 
db 'MÄRKUS:                                    Kinnita kõik '
 514 
db 'MÄRKUS:                                    Kinnita kõik '
Line 525... Line 515...
525 
db 'SALVESTA SEADED ENNE KOLIBRIST VÄLJUMIST   Salvesta kõik'
 515 
db 'SALVESTA SEADED ENNE KOLIBRIST VÄLJUMIST   Salvesta kõik'
- 
 
 516 
 
- 
 
 517 
IM_END:
- 
 
 518 
 
- 
 
 519 
text	dd  ?
- 
 
 520 
 
- 
 
 521 
syslang 	dd  ?
- 
 
 522 
lba_read	dd  ?
- 
 
 523 
pci_acc 	dd  ?
- 
 
 524 
speaker_mute	dd  ?
- 
 
 525 
fontSmoothing	dd  ?
526 
 
 526 
fontSize	dd  ?
527 
IM_END:
 527 
 
528 
param:
 - 
 
529 
	rb 1024
 528 
param:
530 
stack_area:
 529 
	rb 1024