Subversion Repositories Kolibri OS

Rev

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

Rev 3962 Rev 3972
Line 34... Line 34...
34 
        dd stack_area   ; esp
 34 
        dd stack_area   ; esp
35 
        dd 0            ; boot parameters
 35 
        dd 0            ; boot parameters
36 
        dd 0            ; path
 36 
        dd 0            ; path
37 
;------------------------------------------------------------------------------
 37 
;------------------------------------------------------------------------------
38 
include 'lang.inc'
 38 
include 'lang.inc'
- 
 
 39 
include 'lang.inc'
39 
include '../../macros.inc'
 40 
include '../../macros.inc'
40 
include '../../proc32.inc'
 41 
include '../../proc32.inc'
41 
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
 42 
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
42 
include '../../dll.inc'
 43 
include '../../dll.inc'
43 
;include '../../debug.inc'
 44 
;include '../../debug.inc'
Line -... Line 45...
- 
 
 45 
 
- 
 
 46 
include 'bgredraw.inc'
44 
 
 47 
 
45 
;------------------------------------------------------------------------------
 48 
;------------------------------------------------------------------------------
46 
START:          ; start of execution
 49 
START:          ; start of execution
47 
        mcall   68,11
 50 
        mcall   68,11
48 
        stdcall dll.Load,IMPORTS
 51 
        stdcall dll.Load,IMPORTS
Line 126... Line 129...
126 
   @@:
 129 
   @@:
127 
;######################################################################
 130 
;######################################################################
Line 128... Line 131...
128 
 
 131 
 
Line 129... Line 132...
129 
        call    FillIconsOffs
 132 
        call    FillIconsOffs
Line 130... Line 133...
130 
 
 133 
 
131 
        mcall   40,0110000b
 134 
        mcall   40,0100000b
132 
 
 135 
 
133 
        mov     eax,[icon_count]
 136 
        mov     eax,[icon_count]
Line 143... Line 146...
143 
  ;    int3
 146 
  ;    int3
144 
;        mov     eax,1
 147 
;        mov     eax,1
145 
;        mov     eax,[IconsOffs+eax*4]
 148 
;        mov     eax,[IconsOffs+eax*4]
146 
;        stdcall [ini_del_section],IconIni,eax
 149 
;        stdcall [ini_del_section],IconIni,eax
147 
;    ret
 150 
;    ret
148 
        jmp     MSGRedrawIcons
 151 
        ;jmp     MSGRedrawIcons
- 
 
 152 
        mcall   51,1,BGRedrawThread,stack_bredraw
- 
 
 153 
 
Line 149... Line 154...
149 
 
 154 
 
150 
messages:
 155 
messages:
151 
        mcall   10
 156 
        mcall   10
152 
        sub     eax,5
 - 
 
153 
        jz      MSGRedrawIcons
 - 
 
154 
        dec     eax
 157 
        sub     eax,6
Line 155... Line 158...
155 
        jz      MSGMouse
 158 
        jz      MSGMouse
Line 156... Line -...
156 
 
 - 
 
157 
        jmp     messages
 - 
 
158 
 
 - 
 
159 
MSGRedrawIcons:
 - 
 
160 
 
 - 
 
161 
        mcall   48,5
 - 
 
162 
        mov     dx,ax
 - 
 
163 
        shr     eax,16
 - 
 
164 
        sub     dx,ax
 - 
 
165 
        mov     [ScreenX],dx
 - 
 
166 
        mov     ax,bx
 - 
 
167 
        shr     ebx,16
 - 
 
168 
        sub     ax,bx
 - 
 
169 
        mov     [ScreenY],ax
 - 
 
170 
 
 - 
 
171 
        mov     ecx,[MaxNumIcon]
 - 
 
172 
        test    ecx,ecx
 - 
 
173 
        jz      .NoDraw
 - 
 
174 
        xor     ebx,ebx
 - 
 
175 
    @@: push    ecx
 - 
 
176 
        stdcall DrawIcon,ebx,0
 - 
 
177 
        inc     ebx
 - 
 
178 
        pop     ecx
 - 
 
Line 179... Line 159...
179 
        loop    @b
 159 
 
180 
   .NoDraw:
 160 
        jmp     messages
181 
        jmp     messages
 161 
 
182 
 
 162 
 
Line 258... Line 238...
258 
        cmp     ebx,MIN_NO_MOVING
 238 
        cmp     ebx,MIN_NO_MOVING
259 
        ja      MovingIcon
 239 
        ja      MovingIcon
260 
      @@:
 240 
      @@:
261 
        ;Yield
 241 
        ;Yield
262 
        mcall   5,1     ;Sleep   1
 242 
        mcall   5,1     ;Sleep   1
- 
 
 243 
 
263 
        jmp     WaitLB
 244 
        jmp     WaitLB
264 
   endWaitLB:
 245 
   endWaitLB:
Line 265... Line 246...
265 
 
 246 
 
266 
        mcall   37,0
 247 
        mcall   37,0
Line 300... Line 281...
300 
 
 281 
 
301 
;-------------------------------------------------------------------------------
 282 
;-------------------------------------------------------------------------------
302 
MovingIcon:
 283 
MovingIcon:
303 
        stdcall GetNumIcon,[MouseX],[MouseY],-1
 284 
        stdcall GetNumIcon,[MouseX],[MouseY],-1
- 
 
 285 
        mov     [SelIcon],eax
304 
        mov     [SelIcon],eax
 286 
        mov     [IconNoDraw],eax
Line 305... Line 287...
305 
        stdcall RestoreBackgrnd,[SelIcon]
 287 
        stdcall RestoreBackgrnd,[SelIcon]
306 
 
 288 
 
307 
;        mov     ecx,[MaxNumIcon]
 289 
;        mov     ecx,[MaxNumIcon]
Line 438... Line 420...
438 
;        mov     dword[fInfo],2
 420 
;        mov     dword[fInfo],2
439 
;        mcall   70,fInfo
 421 
;        mcall   70,fInfo
Line 440... Line 422...
440 
 
 422 
 
Line -... Line 423...
- 
 
 423 
        mov     [bNotSave],1
441 
        mov     [bNotSave],1
 424 
 
Line 442... Line 425...
442 
 
 425 
        mov     [IconNoDraw],-1
Line 443... Line 426...
443 
        jmp     messages
 426 
        jmp     messages
Line 1174... Line 1157...
1174 
 
 1157 
 
1175 
IconsFile       db ICON_STRIP,0
 1158 
IconsFile       db ICON_STRIP,0
1176 
NameIconsDat    db ICONS_DAT,0
 1159 
NameIconsDat    db ICONS_DAT,0
1177 
align 4
 1160 
align 4
- 
 
 1161 
MaxNumIcon      dd 0           ;ª®«¨ç¥á⢮ ¨ª®­®ª
Line 1178... Line 1162...
1178 
MaxNumIcon      dd 0           ;ª®«¨ç¥á⢮ ¨ª®­®ª
 1162 
IconNoDraw      dd -1           ;-1 «¨¡® ­®¬¥à ¨ª®­ª¨, ª®â®àãî ­¥ ­ ¤® à¨á®¢ âì( ª®£¤  ¥ñ â áª îâ :))
1179 
 
 1163 
 
Line 1180... Line 1164...
1180 
bFixIcons       dd 1
 1164 
bFixIcons       dd 1
Line 1186... Line 1170...
1186 
DlgAddActiv     dd 0
 1170 
DlgAddActiv     dd 0
Line 1187... Line 1171...
1187 
 
 1171 
 
Line -... Line 1172...
- 
 
 1172 
IconIni         db '/rd/1/icon.ini',0
1188 
IconIni         db '/rd/1/icon.ini',0
 1173 
 
1189 
 
 1174 
 
1190 
 
 1175 
 
1191 
;keyName         db 'name',0
 1176 
;keyName         db 'name',0
1192 
keyPath         db 'path',0
 1177 
keyPath         db 'path',0
Line 1452... Line 1437...
1452 
;-------------------------------------------------------------------------------
 1437 
;-------------------------------------------------------------------------------
1453 
                rb 1024
 1438 
                rb 1024
1454 
stack_dlg:
 1439 
stack_dlg:
1455 
align 4
 1440 
align 4
1456 
                rb 1024
 1441 
                rb 1024
- 
 
 1442 
stack_bredraw:
- 
 
 1443 
                rb 1024
1457 
stack_area:
 1444 
stack_area:
1458 
;------------------------------------------------------------------------------
 1445 
;------------------------------------------------------------------------------
1459 
ENDMEM:
 1446 
ENDMEM:
1460 

            1447