Subversion Repositories Kolibri OS

Rev

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

Rev 7421 Rev 7423
Line 450... Line 450...
450 
 
 450 
 
451 
    ; ”ã­ªæ¨ï 15 - à ¡®â  á ä®­®¢®© £à ä¨ª®©
 451 
    ; ”ã­ªæ¨ï 15 - à ¡®â  á ä®­®¢®© £à ä¨ª®©
452 
    ; ®¤äã­ªæ¨ï 3 - ¯¥à¥à¨á®¢ âì ä®­.
 452 
    ; ®¤äã­ªæ¨ï 3 - ¯¥à¥à¨á®¢ âì ä®­.
Line 453... Line 453...
453 
    mcall   SF_BACKGROUND_SET,SSF_REDRAW_BG
 453 
    mcall   SF_BACKGROUND_SET,SSF_REDRAW_BG
454 
 
 - 
 
455 
	;save to file eskin.ini
 - 
 
456 
	xor     al,al
 - 
 
457 
	mov     ecx,1024
 - 
 
458 
	mov     edi,sys_path+2
 - 
 
459 
	repne   scasb
 - 
 
460 
	sub     edi,sys_path+3
 - 
 
461 
	invoke  ini_set_str, inifileeskin, amain, aprogram, sys_path+2, edi
 - 
 
462 
	;add param 'H '
 - 
 
463 
	mov     word[params],'H '
 - 
 
464 
	mov     eax,[color]
 - 
 
465 
	or      eax,0xf ;¤«ï ¨§¡¥¦ ­¨ï ¢¥ç­®£® 横«  ¥á«¨ eax=0
 - 
 
466 
	mov     edi,params+2
 - 
 
467 
	@@:
 - 
 
468 
	rol     eax,8
 - 
 
469 
	or      al,al
 - 
 
470 
	jnz     @f
 - 
 
471 
	mov     word[edi],'00' ;­ã«¨ ¯¥à¥¤ ç¨á«®¬
 - 
 
472 
	add     edi,2
 - 
 
473 
	jmp     @b
 - 
 
474 
	@@:
 - 
 
475 
	and     al,0xf0
 - 
 
476 
	jnz     @f
 - 
 
477 
	mov     byte[edi],'0'
 - 
 
478 
	inc     edi
 - 
 
479 
	@@:
 - 
 
480 
	mov     eax,[color]
 - 
 
481 
	mov     ebx,16
 - 
 
482 
	call    int2ascii
 - 
 
483 
	mov     byte[params+10],' '
 - 
 
484 
	;add color2
 - 
 
485 
	mov     eax,[color2]
 - 
 
486 
	or      eax,0xf ;¤«ï ¨§¡¥¦ ­¨ï ¢¥ç­®£® 横«  ¥á«¨ eax=0
 - 
 
487 
	mov     edi,params+11
 - 
 
488 
	@@:
 - 
 
489 
	rol     eax,8
 - 
 
490 
	or      al,al
 - 
 
491 
	jnz     @f
 - 
 
492 
	mov     word[edi],'00' ;­ã«¨ ¯¥à¥¤ ç¨á«®¬
 - 
 
493 
	add     edi,2
 - 
 
494 
	jmp     @b
 - 
 
495 
	@@:
 - 
 
496 
	and     al,0xf0
 - 
 
497 
	jnz     @f
 - 
 
498 
	mov     byte[edi],'0'
 - 
 
499 
	inc     edi
 - 
 
500 
	@@:
 - 
 
501 
	mov     eax,[color2]
 - 
 
502 
	mov     ebx,16
 - 
 
503 
	call    int2ascii
 - 
 
Line 504... Line 454...
504 
 
 454 
 
505 
	invoke  ini_set_str, inifileeskin, amain, aparam, params, 19
 455 
    stdcall save_eskin_ini, 'H '
Line 506... Line 456...
506 
 
 456 
 
Line 1223... Line 1173...
1223 
    mcall   SF_BACKGROUND_SET, SSF_MODE_BG, 1
 1173 
    mcall   SF_BACKGROUND_SET, SSF_MODE_BG, 1
1224 
    mcall   SF_BACKGROUND_SET, SSF_IMAGE_BG, [image], 0, 256 * 256 * 3
 1174 
    mcall   SF_BACKGROUND_SET, SSF_IMAGE_BG, [image], 0, 256 * 256 * 3
1225 
    mcall   SF_BACKGROUND_SET, SSF_REDRAW_BG
 1175 
    mcall   SF_BACKGROUND_SET, SSF_REDRAW_BG
Line 1226... Line 1176...
1226 
 
 1176 
 
- 
 
 1177 
    mcall   SF_SYS_MISC, SSF_MEM_FREE, [image]
1227 
    mcall   SF_SYS_MISC, SSF_MEM_FREE, [image]
 1178 
    stdcall save_eskin_ini, 'B '
Line -... Line 1179...
- 
 
 1179 
ret
- 
 
 1180 
 
- 
 
 1181 
align 4
- 
 
 1182 
proc save_eskin_ini, opt_HB:dword
- 
 
 1183 
	;save to file eskin.ini
- 
 
 1184 
	xor     al,al
- 
 
 1185 
	mov     ecx,1024
- 
 
 1186 
	mov     edi,sys_path+2
- 
 
 1187 
	repne   scasb
- 
 
 1188 
	sub     edi,sys_path+3
- 
 
 1189 
	invoke  ini_set_str, inifileeskin, amain, aprogram, sys_path+2, edi
- 
 
 1190 
	;add param 'H '
- 
 
 1191 
	mov     eax,[opt_HB]
- 
 
 1192 
	mov     word[params],ax
- 
 
 1193 
	mov     eax,[color]
- 
 
 1194 
	or      eax,0xf ;¤«ï ¨§¡¥¦ ­¨ï ¢¥ç­®£® 横«  ¥á«¨ eax=0
- 
 
 1195 
	mov     edi,params+2
- 
 
 1196 
	@@:
- 
 
 1197 
	rol     eax,8
- 
 
 1198 
	or      al,al
- 
 
 1199 
	jnz     @f
- 
 
 1200 
	mov     word[edi],'00' ;­ã«¨ ¯¥à¥¤ ç¨á«®¬
- 
 
 1201 
	add     edi,2
- 
 
 1202 
	jmp     @b
- 
 
 1203 
	@@:
- 
 
 1204 
	and     al,0xf0
- 
 
 1205 
	jnz     @f
- 
 
 1206 
	mov     byte[edi],'0'
- 
 
 1207 
	inc     edi
- 
 
 1208 
	@@:
- 
 
 1209 
	mov     eax,[color]
- 
 
 1210 
	mov     ebx,16
- 
 
 1211 
	call    int2ascii
- 
 
 1212 
	mov     byte[params+10],' '
- 
 
 1213 
	;add color2
- 
 
 1214 
	mov     eax,[color2]
- 
 
 1215 
	or      eax,0xf ;¤«ï ¨§¡¥¦ ­¨ï ¢¥ç­®£® 横«  ¥á«¨ eax=0
- 
 
 1216 
	mov     edi,params+11
- 
 
 1217 
	@@:
- 
 
 1218 
	rol     eax,8
- 
 
 1219 
	or      al,al
- 
 
 1220 
	jnz     @f
- 
 
 1221 
	mov     word[edi],'00' ;­ã«¨ ¯¥à¥¤ ç¨á«®¬
- 
 
 1222 
	add     edi,2
- 
 
 1223 
	jmp     @b
- 
 
 1224 
	@@:
- 
 
 1225 
	and     al,0xf0
- 
 
 1226 
	jnz     @f
- 
 
 1227 
	mov     byte[edi],'0'
- 
 
 1228 
	inc     edi
- 
 
 1229 
	@@:
- 
 
 1230 
	mov     eax,[color2]
- 
 
 1231 
	mov     ebx,16
- 
 
 1232 
	call    int2ascii
- 
 
 1233 
 
- 
 
 1234 
	invoke  ini_set_str, inifileeskin, amain, aparam, params, 19
- 
 
 1235 
	ret
1228 
ret
 1236 
endp
1229 
 
 1237 
 
1230 
;#___________________________________________________________________________________________________
 1238 
;#___________________________________________________________________________________________________
1231 
;****************************************************************************************************|
 1239 
;****************************************************************************************************|
1232 
; ‹ŽŠ ……Œ…›• ˆ ŠŽ‘’€’                                                                         |
 1240 
; ‹ŽŠ ……Œ…›• ˆ ŠŽ‘’€’                                                                         |