Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 3971 → Rev 3972

/programs/system/icon_new/ico.inc
File deleted
\ No newline at end of file
/programs/system/icon_new/@icon.asm
36,6 → 36,7
dd 0 ; path
;------------------------------------------------------------------------------
include 'lang.inc'
include 'lang.inc'
include '../../macros.inc'
include '../../proc32.inc'
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
42,6 → 43,8
include '../../dll.inc'
;include '../../debug.inc'
 
include 'bgredraw.inc'
 
;------------------------------------------------------------------------------
START: ; start of execution
mcall 68,11
128,7 → 131,7
 
call FillIconsOffs
 
mcall 40,0110000b
mcall 40,0100000b
 
mov eax,[icon_count]
mov bl,ICONS_DRAW_COUNTH
145,41 → 148,18
; mov eax,[IconsOffs+eax*4]
; stdcall [ini_del_section],IconIni,eax
; ret
jmp MSGRedrawIcons
;jmp MSGRedrawIcons
mcall 51,1,BGRedrawThread,stack_bredraw
 
 
messages:
mcall 10
sub eax,5
jz MSGRedrawIcons
dec eax
sub eax,6
jz MSGMouse
 
jmp messages
 
MSGRedrawIcons:
 
mcall 48,5
mov dx,ax
shr eax,16
sub dx,ax
mov [ScreenX],dx
mov ax,bx
shr ebx,16
sub ax,bx
mov [ScreenY],ax
 
mov ecx,[MaxNumIcon]
test ecx,ecx
jz .NoDraw
xor ebx,ebx
@@: push ecx
stdcall DrawIcon,ebx,0
inc ebx
pop ecx
loop @b
.NoDraw:
jmp messages
 
MSGMouse:
mcall 37,0 ;GetMousePos
xor ebx,ebx
260,6 → 240,7
@@:
;Yield
mcall 5,1 ;Sleep 1
 
jmp WaitLB
endWaitLB:
 
302,6 → 283,7
MovingIcon:
stdcall GetNumIcon,[MouseX],[MouseY],-1
mov [SelIcon],eax
mov [IconNoDraw],eax
stdcall RestoreBackgrnd,[SelIcon]
 
; mov ecx,[MaxNumIcon]
440,6 → 422,7
 
mov [bNotSave],1
 
mov [IconNoDraw],-1
jmp messages
 
;-------------------------------------------------------------------------------
1176,6 → 1159,7
NameIconsDat db ICONS_DAT,0
align 4
MaxNumIcon dd 0 ;ª®«¨ç¥á⢮ ¨ª®­®ª
IconNoDraw dd -1 ;-1 «¨¡® ­®¬¥à ¨ª®­ª¨, ª®â®àãî ­¥ ­ ¤® à¨á®¢ âì( ª®£¤  ¥ñ â áª îâ :))
 
bFixIcons dd 1
bNotSave dd 0
1188,6 → 1172,7
IconIni db '/rd/1/icon.ini',0
 
 
 
;keyName db 'name',0
keyPath db 'path',0
keyParams db 'param',0
1454,6 → 1439,8
stack_dlg:
align 4
rb 1024
stack_bredraw:
rb 1024
stack_area:
;------------------------------------------------------------------------------
ENDMEM:
/programs/system/icon_new/BGREDRAW.INC
0,0 → 1,44
BGRedrawThread:
 
mcall 40,010000b
 
 
BGRTmessages:
mcall 10
sub eax,5
jz BGRTRedrawIcons
 
jmp BGRTmessages
 
BGRTRedrawIcons:
mcall 48,5
mov dx,ax
shr eax,16
sub dx,ax
mov [ScreenX],dx
mov ax,bx
shr ebx,16
sub ax,bx
mov [ScreenY],ax
 
mov ecx,[MaxNumIcon]
test ecx,ecx
jz .NoDraw
xor ebx,ebx
@@: push ecx
cmp [IconNoDraw],ebx
je .nd
stdcall DrawIcon,ebx,0
.nd:
inc ebx
pop ecx
loop @b
.NoDraw:
jmp BGRTmessages