Subversion Repositories Kolibri OS

Rev

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

Rev 6804 Rev 7421
Line 2... Line 2...
2
 
2
 
3
use32
3
use32
Line 4... Line 4...
4
org 0x0
4
org 0x0
5
 
5
 
Line 6... Line 6...
6
db 'MENUET01'
6
db 'MENUET01'
Line 7... Line 7...
7
dd 0x01, START, I_END, F_END, stacktop, @PARAMS, 0x0
7
dd 0x01, START, I_END, F_END, stacktop, @PARAMS, sys_path
8
 
8
 
Line 501... Line 501...
501
    pop ecx
501
    pop ecx
502
    mcall   SF_BACKGROUND_SET, SSF_UNMAP_BG
502
    mcall   SF_BACKGROUND_SET, SSF_UNMAP_BG
Line 503... Line 503...
503
 
503
 
504
@@:
504
@@:
-
 
505
    mcall   SF_BACKGROUND_SET, SSF_REDRAW_BG
-
 
506
 
-
 
507
	;save to file eskin.ini
-
 
508
	xor al,al
-
 
509
	mov ecx,1024
-
 
510
	mov edi,sys_path+2
-
 
511
	repne scasb
-
 
512
	sub edi,sys_path+3
-
 
513
	invoke  ini_set_str, inifileeskin, amain, aprogram, sys_path+2, edi
-
 
514
	;add param '\S__'
-
 
515
	cmp word[@PARAMS],'\S'
-
 
516
	je @f
-
 
517
	mov esi, @PARAMS+4096-8
-
 
518
    mov edi, @PARAMS+4096-4
-
 
519
    mov ecx, 4096/4-1
-
 
520
	std
-
 
521
    rep movsd
-
 
522
	cld
-
 
523
	mov dword[@PARAMS],'\S__'
-
 
524
	@@:
-
 
525
	;
-
 
526
	xor al,al
-
 
527
	mov ecx,4096
-
 
528
	mov edi,@PARAMS
-
 
529
	repne scasb
-
 
530
	sub edi,@PARAMS+1
505
    mcall   SF_BACKGROUND_SET, SSF_REDRAW_BG
531
	invoke  ini_set_str, inifileeskin, amain, aparam, @PARAMS, edi
Line 506... Line 532...
506
    ret
532
    ret
507
 
533
 
508
slide_show:
534
slide_show:
Line 1215... Line 1241...
1215
    img.rotate  , 'img_rotate' , \
1241
    img.rotate  , 'img_rotate' , \
1216
    img.destroy , 'img_destroy', \
1242
    img.destroy , 'img_destroy', \
1217
    img.draw    , 'img_draw'
1243
    img.draw    , 'img_draw'
Line 1218... Line 1244...
1218
 
1244
 
1219
import  libini, \
1245
import  libini, \
-
 
1246
    ini_get_shortcut, 'ini_get_shortcut',\
Line 1220... Line 1247...
1220
    ini_get_shortcut, 'ini_get_shortcut'
1247
	ini_set_str, 'ini_set_str'
Line 1221... Line 1248...
1221
 
1248
 
1222
import  sort, sort.START, 'START', SortDir, 'SortDir', strcmpi, 'strcmpi'
1249
import  sort, sort.START, 'START', SortDir, 'SortDir', strcmpi, 'strcmpi'
Line 1277... Line 1304...
1277
aNext       db  'Next',0
1304
aNext       db  'Next',0
1278
aPrev       db  'Prev',0
1305
aPrev       db  'Prev',0
1279
aSlide      db  'SlideShow',0
1306
aSlide      db  'SlideShow',0
1280
aTglbar     db  'ToggleBar',0
1307
aTglbar     db  'ToggleBar',0
Line -... Line 1308...
-
 
1308
 
-
 
1309
inifileeskin db '/sys/settings/eskin.ini',0
-
 
1310
amain       db 'main',0
-
 
1311
aprogram    db 'program',0
-
 
1312
aparam      db 'param',0
1281
 
1313
 
1282
align 4
1314
align 4
1283
check_modifier_table:
1315
check_modifier_table:
1284
    dd  check_modifier_0
1316
    dd  check_modifier_0
1285
    dd  check_modifier_1
1317
    dd  check_modifier_1
Line 1383... Line 1415...
1383
tglbar_key  dd  ?
1415
tglbar_key  dd  ?
Line 1384... Line 1416...
1384
 
1416
 
Line 1385... Line 1417...
1385
toolbar_height_old   rd 1
1417
toolbar_height_old   rd 1
-
 
1418
 
1386
 
1419
procinfo    process_information
1387
procinfo    process_information
1420
align 16
1388
path:       rb  4096  ;1024+16
1421
path:       rb  4096  ;1024+16
1389
real_header rb  256
1422
real_header rb  256
-
 
1423
@PARAMS rb 4096  ;512
1390
@PARAMS rb 4096  ;512
1424
;---------------------------------------------------------------------
1391
;---------------------------------------------------------------------
1425
sys_path rb 1024
1392
temp_dir_pach:
1426
temp_dir_pach:
1393
        rb 4096
1427
        rb 4096
1394
;---------------------------------------------------------------------
1428
;---------------------------------------------------------------------