Subversion Repositories Kolibri OS

Rev

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

Rev 4003 Rev 4007
Line 1... Line -...
1
;  ¯®â®¬: ¤®¡ ¢¨â § £à㧪ã ico ¨ ¢®§¬®¦­®áâì ¢ë¡®à  ¨ª®­ª¨ ­¥ ¨§ iconstrp
-
 
2
 
-
 
3
ICONS_DAT       equ '/rd/1/icons.dat'
1
ICONS_DAT       equ '/rd/1/icons.dat'
4
ICON_STRIP      equ '/rd/1/iconstrp.png'
2
ICON_STRIP      equ '/rd/1/iconstrp.png'
5
ICON_SIZE       equ 68
3
ICON_SIZE       equ 68
6
IMG_SIZE        equ 32
4
IMG_SIZE        equ 32
7
TEXT_BOTTOM_Y   equ 14
5
TEXT_BOTTOM_Y   equ 14
Line 138... Line 136...
138
        inc     al
136
        inc     al
139
     @@:
137
     @@:
140
        and     eax,0FFh
138
        and     eax,0FFh
141
        mov     [sbIcons.max_area],eax
139
        mov     [sbIcons.max_area],eax
Line 142... Line -...
142
 
-
 
143
  ;    int3
-
 
144
;        mov     eax,1
-
 
145
;        mov     eax,[IconsOffs+eax*4]
-
 
146
;        stdcall [ini_del_section],IconIni,eax
-
 
147
;    ret
-
 
148
        ;jmp     MSGRedrawIcons
140
 
149
        mcall   51,1,BGRedrawThread,stack_bredraw
-
 
-
 
141
        mcall   51,1,BGRedrawThread,stack_bredraw
Line 150... Line 142...
150
 
142
        stdcall [OpenDialog_Init],OpenDialog_data
151
 
143
 
152
messages:
144
messages:
153
        mcall   10
145
        mcall   10
Line 355... Line 347...
355
 
347
 
356
        ;Yield
348
        ;Yield
357
        mcall   5,1     ;Sleep 1
349
        mcall   5,1     ;Sleep 1
358
        jmp     .WaitLB
350
        jmp     .WaitLB
359
   .endWaitLB:
-
 
-
 
351
   .endWaitLB:
Line 360... Line 352...
360
        mov    [MovingActiv],0
352
 
361
 
353
 
362
        mcall   37,0            ;GetMousePos
354
        mcall   37,0            ;GetMousePos
363
        xor     ebx,ebx
355
        xor     ebx,ebx
Line 414... Line 406...
414
        m2m     [PIcoDB],[BegData]
406
        m2m     [PIcoDB],[BegData]
415
        stdcall [ini_enum_sections],IconIni,Ini_SavePos  ;in RButton.inc
407
        stdcall [ini_enum_sections],IconIni,Ini_SavePos  ;in RButton.inc
Line 416... Line 408...
416
 
408
 
417
        mov     [bNotSave],1
409
        mov     [bNotSave],1
-
 
410
        mov     [IconNoDraw],-1
418
        mov     [IconNoDraw],-1
411
 
Line 419... Line 412...
419
        mcall   15,3
412
        mov    [MovingActiv],0          ;⮫쪮 ⥯¥àì ®âª«îç ¥¬ ®ª­® á ¬ëèìî
Line 420... Line 413...
420
 
413
 
Line 513... Line 506...
513
        ja      PathToIcon
506
        ja      PathToIcon
514
        cmp     al,'/'
507
        cmp     al,'/'
515
        jne     GetIconInd
508
        jne     GetIconInd
Line 516... Line 509...
516
 
509
 
517
   PathToIcon:
-
 
518
        ;stdcall LoadIcon,edi
-
 
519
        ;mov     esi,eax
510
   PathToIcon:
520
        mov     al,30h           ;§ £«ã誠!!!!!!!!!!!!!
511
        mov     al,30h           ;§ £«ã誠!!!!!!!!!!!!!
Line 521... Line 512...
521
        mov     byte[edi+1],0
512
        mov     byte[edi+1],0
522
 
513
 
Line 1156... Line 1147...
1156
MaxNumIcon      dd 0           ;ª®«¨ç¥á⢮ ¨ª®­®ª
1147
MaxNumIcon      dd 0           ;ª®«¨ç¥á⢮ ¨ª®­®ª
1157
IconNoDraw      dd -1           ;-1 «¨¡® ­®¬¥à ¨ª®­ª¨, ª®â®àãî ­¥ ­ ¤® à¨á®¢ âì( ª®£¤  ¥ñ â áª îâ :))
1148
IconNoDraw      dd -1           ;-1 «¨¡® ­®¬¥à ¨ª®­ª¨, ª®â®àãî ­¥ ­ ¤® à¨á®¢ âì( ª®£¤  ¥ñ â áª îâ :))
Line 1158... Line 1149...
1158
 
1149
 
1159
bFixIcons       dd 1
1150
bFixIcons       dd 1
-
 
1151
bNotSave        dd 0
Line 1160... Line 1152...
1160
bNotSave        dd 0
1152
bIcoBuff        dd 0            ;1, ¥á«¨ IconArea § ­ïâ
1161
 
1153
 
1162
LButtonActiv    dd 0
1154
LButtonActiv    dd 0
1163
RButtonActiv    dd 0
1155
RButtonActiv    dd 0
Line 1254... Line 1246...
1254
else
1246
else
Line 1255... Line 1247...
1255
 
1247
 
1256
 ErrRunProg     db 'Error runing program',0
1248
 ErrRunProg     db 'Error runing program',0
1257
 WarningSave    db 'Do not forget to save the changes, run the RDSave',0
1249
 WarningSave    db 'Do not forget to save the changes, run the RDSave',0
1258
 ErrNotFoundIni db 'icon.ini not found',0
1250
 ErrNotFoundIni db 'icon.ini not found',0
1259
 ErrName        db 'The Name "rbmenu" reserved',0
1251
 ErrName        db 'The name "rbmenu" reserved',0
Line 1260... Line 1252...
1260
end if
1252
end if
Line 1340... Line 1332...
1340
.com_area_name          dd communication_area_name      ;+8
1332
.com_area_name          dd communication_area_name      ;+8
1341
.com_area               dd 0    ;+12
1333
.com_area               dd 0    ;+12
1342
.opendir_pach           dd temp_dir_pach        ;+16
1334
.opendir_pach           dd temp_dir_pach        ;+16
1343
.dir_default_pach       dd communication_area_default_pach      ;+20
1335
.dir_default_pach       dd communication_area_default_pach      ;+20
1344
.start_path             dd open_dialog_path     ;+24
1336
.start_path             dd open_dialog_path     ;+24
1345
.draw_window            dd DRedraw;draw_window_for_OD   ;+28
1337
.draw_window            dd DRedrawWin;draw_window_for_OD   ;+28
1346
.status                 dd 0    ;+32
1338
.status                 dd 0    ;+32
1347
.openfile_pach          dd DAreaPath;fname_Info   ;+36
1339
.openfile_pach          dd DAreaPath;fname_Info   ;+36
1348
.filename_area          dd 0;DAreaPath        ;+40
1340
.filename_area          dd 0;DAreaPath        ;+40
1349
.filter_area            dd Filter
1341
.filter_area            dd Filter
1350
.x:
1342
.x:
Line 1373... Line 1365...
1373
I_END:
1365
I_END:
1374
;##### UDATA ###################################################################
1366
;##### UDATA ###################################################################
1375
IconArea        rb 4*ICON_SIZE*ICON_SIZE
1367
IconArea        rb 4*ICON_SIZE*ICON_SIZE
1376
;\
1368
;\
Line -... Line 1369...
-
 
1369
 
-
 
1370
 
1377
 
1371
 
1378
ScreenX         rw 1
1372
ScreenX         rw 1
Line 1379... Line 1373...
1379
ScreenY         rw 1
1373
ScreenY         rw 1
1380
 
1374