ace-dent/kolibrios-gitea
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity
fb86c01bbb
kolibrios-gitea/programs/system/icon_new/@icon.asm

1481 lines
36 KiB
NASM
Raw Normal View History

Added source files to icon manager. git-svn-id: svn://kolibrios.org@3853 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-08-04 22:58:46 +02:00
;<3B><> <20><>⮬: <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>㧪<EFBFBD> ico <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>롮<EFBFBD><EBA1AE> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><> iconstrp
ICONS_DAT equ '/rd/1/icons.dat'
ICON_STRIP equ '/rd/1/iconstrp.png'
ICON_SIZE equ 68
IMG_SIZE equ 32
TEXT_BOTTOM_Y equ 14
IMAGE_TOP_Y equ 10 ;>=1
ALIGN_SIZE equ 68
NAME_LENGTH equ 11
MIN_NO_MOVING equ 8
;<3B><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᮧ<><E1AEA7><EFBFBD><EFBFBD><EFBFBD>/।<><E0A5A4><EFBFBD><EFBFBD>஢<EFBFBD><E0AEA2><EFBFBD><EFBFBD>
ICONSX equ 20
ICONSY equ 100
ICONS_DRAW_COUNTW equ 10 ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⢮ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><>ਭ<EFBFBD>
ICONS_DRAW_COUNTH equ 2 ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⢮ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
SPCW equ 3 ;<3B>஡<EFBFBD><E0AEA1> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><>ਧ<EFBFBD><E0A8A7>⠫<EFBFBD>
SPCH equ 3
END_ICONS_AREAW equ ICONSX+(IMG_SIZE+SPCW)*ICONS_DRAW_COUNTW-SPCW
END_ICONS_AREAH equ ICONSY+(IMG_SIZE+SPCH)*ICONS_DRAW_COUNTH-SPCH
SizeData equ bufStdIco+32
BegData equ fiStdIco.point
;------------------------------------------------------------------------------
use32
org 0x0
db 'MENUET01' ; 8 byte id
dd 0x01 ; header version
dd START ; start of code
dd I_END ; size of image
dd ENDMEM ; memory for app
dd stack_area ; esp
dd 0 ; boot parameters
dd 0 ; path
;------------------------------------------------------------------------------
include 'lang.inc'
include '../../macros.inc'
include '../../proc32.inc'
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
include '../../dll.inc'
;include '../../debug.inc'
;------------------------------------------------------------------------------
START: ; start of execution
mcall 68,11
stdcall dll.Load,IMPORTS
test eax,eax
jnz ErrLoadLibs
Fixed some bugs reported by 0CodErr. Author of fix - GerdtR. git-svn-id: svn://kolibrios.org@3921 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-09-21 14:25:30 +02:00
;-------------------------------------------------------------------------------
Added source files to icon manager. git-svn-id: svn://kolibrios.org@3853 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-08-04 22:58:46 +02:00
; unpack deflate
mov eax,[unpack_DeflateUnpack2]
mov [deflate_unpack],eax
;---------------------------------------------------------------------
; get size of file ICONSTRP.PNG
mcall 70,fiStdIco
test eax,eax
jnz ErrorStrp
; get memory for ICONSTRP.PNG
mov ecx,dword[bufStdIco+32]
mov [fiStdIco.size],ecx
mov [img_size],ecx
mcall 68,12
mov [fiStdIco.point],eax
mov [image_file],eax
; load ICONSTRP.PNG
mov dword[fiStdIco],0
mcall 70,fiStdIco
test eax,eax
jnz close
; convert PNG to RAW
xor eax,eax
mov [return_code],eax
;int3
push image_file
call [cnv_png_import.Start]
mov eax,[raw_pointer]
mov ebx,[eax+32]
mov [strip_file_size],ebx
mov eax,[eax+28]
add eax,[raw_pointer]
mov [strip_file],eax
; back memory to system
mcall 68,13,[fiStdIco.point]
mov eax,[raw_pointer]
mov eax,[eax+8]
shr eax,5
mov [icon_count],eax
and eax,0x7
mov [cur_band_compensation],eax
;########## <20><><EFBFBD><EFBFBD>㦠<EFBFBD><E3A6A0> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ##########################
mcall 70,fiIni ;<3B>뤥<EFBFBD>塞 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>筮<EFBFBD> <20><><EFBFBD> <20>࠭<EFBFBD><E0A0AD><EFBFBD><EFBFBD> ini 䠩<><E4A0A9>. <20><> <20><>筮 墠<><E5A2A0><EFBFBD> <20><><EFBFBD> <20>࠭<EFBFBD><E0A0AD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
test eax,eax
jnz ErrorIni
cmp dword[bufIni+32],0
je ErrorIni
mcall 68,12,dword[bufIni+32]
mov dword[BegData],eax
jmp NoErrIni
ErrorIni:
mcall 70,fiRunProg
mcall -1
NoErrIni:
m2m [PIcoDB],[BegData]
stdcall [ini_enum_sections],IconIni,LoadIconsData
;int3
mov eax,dword[PIcoDB]
sub eax,[BegData]
mov dword[SizeData],eax
mov eax,[BegData]
cmp eax,[PIcoDB]
jne @f
mov dword[eax],0
mov dword[SizeData],0
@@:
;######################################################################
call FillIconsOffs
mcall 40,0110000b
mov eax,[icon_count]
mov bl,ICONS_DRAW_COUNTH
div bl
test ah,ah
jz @f
inc al
@@:
and eax,0FFh
mov [sbIcons.max_area],eax
Fixed some bugs reported by 0CodErr. Author of fix - GerdtR. git-svn-id: svn://kolibrios.org@3921 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-09-21 14:25:30 +02:00
stdcall [OpenDialog_Init],OpenDialog_data
Added source files to icon manager. git-svn-id: svn://kolibrios.org@3853 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-08-04 22:58:46 +02:00
jmp MSGRedrawIcons
messages:
mcall 10
sub eax,5
jz MSGRedrawIcons
dec eax
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
mov bx,ax
shr eax,16
mov ecx,ebx
mov ebx,eax
mcall 34
cmp eax,1
jne messages
cmp [RButtonActiv],1
je messages
mov [MouseY],ecx
mov [MouseX],ebx
mcall 37,2
test al,001b
jnz LButtonPress
test al,010b
jnz RButtonPress
jmp messages
ErrLoadLibs:
;dps '<27><> 㤠<><E3A4A0><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>㧨<EFBFBD><E3A7A8> <20><><EFBFBD><EFBFBD>室<EFBFBD><E5AEA4><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⥪<EFBFBD>'
;debug_newline
jmp close
ErrorStrp:
;dps '<27>訡<EFBFBD><E8A8A1> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> iconstrp.png'
;debug_newline
close:
mcall -1
LButtonPress:
stdcall GetNumIcon,[MouseX],[MouseY],-1
;int3
cmp eax,-1
jnz @f
WaitLB1:
mcall 37,2
test al,001b
jz messages
;Yield
mcall 5,1
jmp WaitLB1
@@:
push eax
stdcall DrawIcon,eax,1
WaitLB:
mcall 37,2
test al,001b
jz endWaitLB
mcall 37,0
xor ebx,ebx
mov bx,ax
shr eax,16
sub eax,[MouseX]
jns @f
neg eax
@@:
sub ebx,[MouseY]
jns @f
neg ebx
@@:
cmp [bFixIcons],0
jne @f
cmp eax,MIN_NO_MOVING
ja MovingIcon
cmp ebx,MIN_NO_MOVING
ja MovingIcon
@@:
;Yield
mcall 5,1 ;Sleep 1
jmp WaitLB
endWaitLB:
mcall 37,0
xor ebx,ebx
mov bx,ax
shr eax,16
mov ecx,ebx
mov ebx,eax
mov [MouseX],ebx
mov [MouseY],ecx
stdcall GetNumIcon,[MouseX],[MouseY],-1
cmp eax,[esp] ;[esp] = <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
jne @f
mov edi,[IconsOffs+eax*4]
or ecx,-1
xor al,al
repne scasb
mov ebx,edi
repne scasb
;run program
mov dword[fiRunProg+8],edi
mov dword[fiRunProg+21],ebx
mcall 70,fiRunProg
test eax,80000000h
jz @f
mov dword[fiRunProg+8],ErrRunProg
mov dword[fiRunProg+21],pthNotify
mcall 70,fiRunProg
@@:
pop eax
stdcall RestoreBackgrnd,eax
jmp messages
;-------------------------------------------------------------------------------
MovingIcon:
Fixed some bugs reported by 0CodErr. Author of fix - GerdtR. git-svn-id: svn://kolibrios.org@3921 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-09-21 14:25:30 +02:00
;int3
Added source files to icon manager. git-svn-id: svn://kolibrios.org@3853 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-08-04 22:58:46 +02:00
stdcall GetNumIcon,[MouseX],[MouseY],-1
mov [SelIcon],eax
stdcall RestoreBackgrnd,[SelIcon]
; mov ecx,[MaxNumIcon]
; xor ebx,ebx
; .MI: push ecx
; cmp ebx,[SelIcon]
; je @f
; stdcall DrawIcon,ebx,0
; @@:
; inc ebx
; pop ecx
; loop .MI
;dps 'Moving'
;debug_newline
; mov edi,[SelIcon]
; mov edi,[IconsOffs+edi*4]
; or ecx,-1
; xor al,al
; repne scasb
; repne scasb
; repne scasb
; repne scasb
; xor ebx,ebx
; xor esi,esi
; mov bx,word[edi+2]
; mov si,word[edi]
; stdcall GetNumIcon,ebx,esi,[SelIcon]
; cmp eax,-1
; je @f
; dps 'Q'
; stdcall DrawIcon,eax,0
; @@:
;
; add ebx,ICON_SIZE-1
; stdcall GetNumIcon,ebx,esi,[SelIcon]
; cmp eax,-1
; je @f
; dps 'Q'
; stdcall DrawIcon,eax,0
;
; @@:
; add esi,ICON_SIZE-1
; stdcall GetNumIcon,ebx,esi,[SelIcon]
; cmp eax,-1
; je @f
; dps 'Q'
; stdcall DrawIcon,eax,0
;
; @@:
; sub ebx,ICON_SIZE-1
; stdcall GetNumIcon,ebx,esi,[SelIcon]
; cmp eax,-1
; je @f
; dps 'Q'
; stdcall DrawIcon,eax,0
; @@:
; Sleep 40
;qweqwe:
mov [MovingActiv],1
Fixed some bugs reported by 0CodErr. Author of fix - GerdtR. git-svn-id: svn://kolibrios.org@3921 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-09-21 14:25:30 +02:00
mcall 51,1,MovingWnd,stack_move ;CreateThread MovingWnd,stack_dlg
Added source files to icon manager. git-svn-id: svn://kolibrios.org@3853 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-08-04 22:58:46 +02:00
.WaitLB:
Fixed some bugs reported by 0CodErr. Author of fix - GerdtR. git-svn-id: svn://kolibrios.org@3921 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-09-21 14:25:30 +02:00
mcall 37,2 ;GetMouseKey
Added source files to icon manager. git-svn-id: svn://kolibrios.org@3853 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-08-04 22:58:46 +02:00
test al,001b
jz .endWaitLB
;Yield
mcall 5,1 ;Sleep 1
jmp .WaitLB
.endWaitLB:
mov [MovingActiv],0
mcall 37,0 ;GetMousePos
xor ebx,ebx
mov bx,ax
shr eax,16
add ebx,7
dec eax
sub eax,ICON_SIZE/2
jns @f
xor eax,eax
@@:
sub ebx,ICON_SIZE/2
jns @f
xor ebx,ebx
@@:
movzx edx,[ScreenX]
sub edx,ICON_SIZE
cmp eax,edx
jbe @f
mov eax,edx
@@:
movzx edx,[ScreenY]
sub edx,ICON_SIZE
cmp ebx,edx
jbe @f
mov ebx,edx
@@:
xor edx,edx
mov dx,[ScreenX]
shr edx,1
cmp eax,edx
jbe @f
sub ax,[ScreenX]
inc ax
@@:
xor edx,edx
mov dx,[ScreenY]
shr edx,1
cmp ebx,edx
jbe @f
sub bx,[ScreenY]
inc bx
@@:
stdcall SetPosition,[SelIcon],eax,ebx
mcall 15,3
m2m [PIcoDB],[BegData]
stdcall [ini_enum_sections],IconIni,Ini_SavePos ;in RButton.inc
; mov dword[fInfo],2
; mcall 70,fInfo
mov [bNotSave],1
jmp messages
;-------------------------------------------------------------------------------
RButtonPress:
cmp [RButtonActiv],1
je messages
mov [RButtonActiv],1
@@:
mcall 37,2 ;GetMouseKey
test al,010b
jz @f
mcall 5,1 ;Yield
jmp @b
@@:
Fixed some bugs reported by 0CodErr. Author of fix - GerdtR. git-svn-id: svn://kolibrios.org@3921 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-09-21 14:25:30 +02:00
mcall 51,1,RButtonWin,stack_rb ;CreateThread RButtonWin,stack_dlg
Added source files to icon manager. git-svn-id: svn://kolibrios.org@3853 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-08-04 22:58:46 +02:00
jmp messages
;###############################################################################
;ret eax = 1/0 = 㤠<><E3A4A0>/<2F>訡<EFBFBD><E8A8A1>
proc DrawIcon NumIcon:DWORD,Activ:DWORD ;NumIcon = 0..n
local IconData:DWORD
; int3
push ebx edi esi
mov ecx,ICON_SIZE*ICON_SIZE
xor eax,eax
;mov eax,0FFFFFFFh
mov edi,IconArea
rep stosd
mov eax,[NumIcon]
cmp eax,[MaxNumIcon]
jb @f
xor eax,eax
pop esi edi ebx
ret
@@:
mov esi,[IconsOffs+eax*4]
mov [IconData],esi
;<3B><><EFBFBD>㥬 ⥪<><E2A5AA>
mov edi,esi
xor al,al
or ecx,-1
repne scasb
mov edx,esi
mov eax,edi
sub eax,esi
dec eax
shl eax,1 ;*6
lea eax,[eax*2+eax]
mov ebx,ICON_SIZE
sub ebx,eax
shr ebx,1 ;ebx = x ⥪<><E2A5AA><EFBFBD>
shl ebx,16
mov bx,ICON_SIZE
sub bx,TEXT_BOTTOM_Y
mov ecx,88000000h
mov edi,IconAreaH
add ebx,-1*10000h+0
mcall 4
add ebx,2*10000h+0
mcall 4
add ebx,-1*10000h-1
mcall 4
add ebx,0*10000h+2
mcall 4
add ebx,1*10000h+0
mcall 4
add ebx,0*10000h+1
mcall 4
add ebx,-1*10000h+0
mcall 4
add ebx,0*10000h-2
mov ecx,88FFFFFFh
mcall 4
;<3B><><EFBFBD>㥬 <20><><EFBFBD>⨭<EFBFBD><E2A8AD>
mov edi,esi
xor al,al
or ecx,-1
repne scasb
repne scasb
repne scasb
mov al,[edi]
cmp al,'9'
ja PathToIcon
cmp al,'/'
jne GetIconInd
PathToIcon:
;stdcall LoadIcon,edi
;mov esi,eax
mov al,30h ;<3B><><EFBFBD><EFBFBD><EFBFBD>誠!!!!!!!!!!!!!
mov byte[edi+1],0
jmp CopyToMem
GetIconInd:
sub al,30h
cmp byte[edi+1],0
je @f
shl eax,1
lea eax,[eax*4+eax]
xor edx,edx
mov dl,[edi+1]
sub dl,30h
add eax,edx
@@: ;eax=num icon
cmp eax,[icon_count]
jb @f
xor eax,eax
@@:
test eax,eax
je DI1
mov ecx,eax
xor eax,eax
@@:
add eax,IMG_SIZE*IMG_SIZE*4
loop @b
DI1:
mov esi,eax
add esi,[raw_pointer]
add esi,0+4*11
CopyToMem:
mov edi,IconArea+((IMAGE_TOP_Y*ICON_SIZE)+((ICON_SIZE-IMG_SIZE)/2))*4
mov eax,IMG_SIZE
mov edx,eax
@@:
mov ecx,eax
rep movsd
add edi,(ICON_SIZE-IMG_SIZE)*4
dec edx
jnz @b
;-----------------
;<3B>᫨ <20><><EFBFBD><EFBFBD>, <20><> <20><><EFBFBD>㥬 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
cmp [Activ],0
je .NoSelect
mov edi,IconArea
mov eax,0FF000000h
mov ecx,ICON_SIZE
rep stosd
;mov edi,IconArea+ICON_SIZE*1
mov ecx,ICON_SIZE-1
@@: mov dword[edi],eax
add edi,(ICON_SIZE)*4
loop @b
mov edi,IconArea+ICON_SIZE*2*4-4
mov ecx,ICON_SIZE-1
@@: mov dword[edi],eax
add edi,(ICON_SIZE)*4
loop @b
mov edi,IconArea+ICON_SIZE*(ICON_SIZE-1)*4+4
mov ecx,ICON_SIZE-2
rep stosd
mov edi,IconArea+ICON_SIZE*4+4
mov eax,0FFFFFFFFh
mov ecx,ICON_SIZE-2
rep stosd
mov edi,IconArea+ICON_SIZE*4+4
mov ecx,ICON_SIZE-2
@@: mov dword[edi],eax
add edi,(ICON_SIZE)*4
loop @b
mov edi,IconArea+ICON_SIZE*2*4-4*2
mov ecx,ICON_SIZE-3
@@: mov dword[edi],eax
add edi,(ICON_SIZE)*4
loop @b
mov edi,IconArea+ICON_SIZE*(ICON_SIZE-2)*4+4*2
mov ecx,ICON_SIZE-3
rep stosd
;--------------
.NoSelect:
mov edi,[IconData]
xor al,al
or ecx,-1
repne scasb
repne scasb
repne scasb
repne scasb
mov edx,[edi]
test edx,00008000h
jz @f
add dx,[ScreenY]
@@:
test edx,80000000h
jz @f
rol edx,16
add dx,[ScreenX]
rol edx,16
@@:
mov ebx,IconArea
mov ecx,ICON_SIZE*10000h+ICON_SIZE
mcall 25
; mov eax,1
pop esi edi ebx
ret
endp
proc RestoreBackgrnd,NumIcon:DWORD
push ebx edi
mov eax,[NumIcon]
cmp eax,[MaxNumIcon]
jb @f
xor eax,eax
pop edi ebx
ret
@@:
mov edi,[IconsOffs+eax*4]
xor al,al
or ecx,-1
repne scasb
repne scasb
repne scasb
repne scasb
mov ax,[edi+2]
test ax,8000h
jz @f
add ax,[ScreenX]
@@:
mov bx,[edi]
test bx,8000h
jz @f
add bx,[ScreenY]
@@:
mov cx,ax
shl ecx,16
add ax,ICON_SIZE
mov cx,ax
mov dx,bx
shl edx,16
add bx,ICON_SIZE
mov dx,bx
dec ecx
dec edx
mcall 15,9
pop edi ebx
ret
endp
;ret eax=numIcon
proc AddIcon stdcall,x,y,lpIcon,lpName,lpExeFile,lpParams
push ebx edi esi
mov eax,[x]
mov ebx,[y]
xor edx,edx
test eax,8000h
jnz @f
mov dx,[ScreenX] ;<3B>᫨ <20><><EFBFBD><EFBFBD>, <20><> <20>८<EFBFBD>ࠧ<EFBFBD><E0A0A7>뢠<EFBFBD><EBA2A0> <20>
shr edx,1 ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⥫<EFBFBD><E2A5AB><EFBFBD><EFBFBD> <20><><EFBFBD>न<EFBFBD><E0A4A8><EFBFBD><EFBFBD>
cmp eax,edx
jbe @f
sub ax,[ScreenX]
inc eax
@@:
test ebx,8000h
jnz @f
mov dx,[ScreenY]
shr edx,1
cmp ebx,edx
jbe @f
sub bx,[ScreenY]
inc ebx
@@:
;<3B><><EFBFBD>ࠢ<EFBFBD><E0A0A2> <20><> <20><><EFBFBD>砩 <20><>室<EFBFBD> <20><> <20>ࠩ <20><>࠭<EFBFBD>
test eax,8000h
jnz @f
mov dx,[ScreenX]
sub edx,ICON_SIZE
cmp eax,edx
jbe @f
mov eax,edx
@@:
test ebx,8000h
jnz @f
mov dx,[ScreenY]
sub edx,ICON_SIZE
cmp ebx,edx
jbe @f
mov ebx,edx
@@:
mov [x],eax
mov [y],ebx
xor al,al
or ecx,-1
mov edi,[lpName]
repne scasb
sub edi,[lpName]
mov ebx,edi
mov edi,[lpExeFile]
repne scasb
sub edi,[lpExeFile]
add ebx,edi
mov edi,[lpParams]
repne scasb
sub edi,[lpParams]
add ebx,edi
mov edi,[lpIcon]
repne scasb
sub edi,[lpIcon]
add ebx,edi
add ebx,4
mov ecx,dword[SizeData]
add ecx,ebx
mov edx,[IconsOffs]
mcall 68,20
mov edx,dword[SizeData]
mov dword[SizeData],ecx
mov dword[BegData],eax
mov edi,eax
add edi,edx
mov esi,[lpName]
@@: lodsb
stosb
test al,al
jnz @b
mov esi,[lpExeFile]
@@: lodsb
stosb
test al,al
jnz @b
mov esi,[lpParams]
@@: lodsb
stosb
test al,al
jnz @b
mov esi,[lpIcon]
@@: lodsb
stosb
test al,al
jnz @b
mov eax,[x]
mov ebx,[y]
shl eax,16
mov ax,bx
mov dword[edi],eax
stdcall FillIconsOffs
pop esi edi ebx
ret
endp
proc EditIcon stdcall,NumIcon,lpIcon,lpName,lpExeFile,lpParams
push edi
mov eax,[NumIcon]
mov edi,[IconsOffs+eax*4]
xor al,al
or ecx,-1
repne scasb
repne scasb
repne scasb
repne scasb
push dword[edi]
stdcall DelIcon,[NumIcon]
pop edx
xor eax,eax
mov ax,dx
shr edx,16
stdcall AddIcon,edx,eax,DAreaIcon,DAreaName,DAreaPath,DAreaParams
pop edi
ret
endp
proc SetPosition stdcall,NumIcon,x,y
push edi
mov eax,[NumIcon]
mov edi,[IconsOffs+eax*4]
xor al,al
or ecx,-1
repne scasb
repne scasb
repne scasb
repne scasb
mov eax,[x]
shl eax,16
mov ax,word[y]
mov dword[edi],eax
pop edi
ret
endp
proc GetNumIcon stdcall,x,y,NumIconI ;<3B><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>஢<EFBFBD><E0AEA2><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> -1
local posX:WORD,\
posY:WORD
push ebx edi
mov ecx,[MaxNumIcon]
test ecx,ecx
jnz @f
or eax,-1
pop edi ebx
ret
@@:
xor ebx,ebx
.TestIcon:
cmp dword[NumIconI],-1
je @f
cmp ebx,[NumIconI]
jne @f
inc ebx
dec ecx
test ecx,ecx
jz .NoIcon
@@:
push ecx
or ecx,-1
xor al,al
mov edi,[IconsOffs+ebx*4]
repne scasb
repne scasb
repne scasb
repne scasb
mov ax,[edi+2]
test ax,8000h
jz @f
add ax,[ScreenX]
@@:
mov [posX],ax
mov ax,[edi]
test ax,8000h
jz @f
add ax,[ScreenY]
@@:
mov [posY],ax
mov eax,[x]
mov edx,[y]
cmp ax,[posX]
jb @f
add word[posX],ICON_SIZE
cmp ax,[posX]
ja @f
cmp dx,[posY]
jb @f
add word[posY],ICON_SIZE
cmp dx,[posY]
ja @f
jmp .OkIcon
@@:
inc ebx
pop ecx
;loop .TestIcon
dec ecx
jnz .TestIcon
jmp .NoIcon
.OkIcon:
mov eax,ebx
pop edi ebx
ret
.NoIcon:
or eax,-1
pop edi ebx
ret
endp
proc DelIcon stdcall,NumIcon
push ebx edi esi
cmp [MaxNumIcon],0
je .end
cmp [MaxNumIcon],1
je .OhneIco
mov ebx,[NumIcon]
mov eax,[MaxNumIcon]
dec eax
mov [MaxNumIcon],eax
cmp ebx,eax
je @f
shl ebx,2
mov ecx,dword[BegData]
add ecx,dword[SizeData]
sub ecx,[IconsOffs+4+ebx]
mov edx,[IconsOffs+4+ebx]
sub edx,[IconsOffs+ebx]
sub dword[SizeData],edx
mov esi,[IconsOffs+4+ebx]
mov edi,[IconsOffs+ebx]
rep movsb
jmp .endDel
@@:
mov ecx,dword[BegData]
add ecx,dword[SizeData]
sub ecx,[IconsOffs+ebx*4]
sub dword[SizeData],ecx
.endDel:
stdcall FillIconsOffs
jmp .end
.OhneIco:
mov edi,[BegData]
mov [SizeData],0
mov dword[edi],0
mov [MaxNumIcon],0
mov dword[IconsOffs],0
.end:
mcall 15,3
pop esi edi ebx
ret
endp
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> MaxNumIcon,IconsOffs
proc FillIconsOffs
push ebx edi
mov edi,[BegData]
mov dword[MaxNumIcon],0
cmp dword[edi],0
jne @f
mov dword[IconsOffs],0
pop edi ebx
ret
@@:
mov [IconsOffs],edi
xor al,al
xor edx,edx
mov ebx,dword[SizeData]
add ebx,dword[BegData]
or ecx,-1
.CalcNumIc:
repne scasb
repne scasb
repne scasb
repne scasb
add edi,4
mov dword[IconsOffs+edx+4],edi
inc dword[MaxNumIcon]
add edx,4
cmp edi,ebx
jae @f
jmp .CalcNumIc
@@:
mov dword[IconsOffs+edx],0
pop edi ebx
ret
endp
proc LoadIconsData stdcall,f_name,sec_name
push ebx esi edi
mov edi,secRButt
mov esi,[sec_name]
@@: lodsb
scasb
jnz .lid1
test al,al
jnz @b
mov eax,1
pop edi esi ebx
ret
.lid1:
mov edi,[PIcoDB]
mov esi,[sec_name]
@@: lodsb
stosb
test al,al
jnz @b
stdcall [ini_get_str],[f_name],[sec_name],keyPath,edi,4096,0
test eax,eax
jz @f
xor eax,eax
pop edi esi ebx
ret
@@:
xor al,al
or ecx,-1
repne scasb
stdcall [ini_get_str],[f_name],[sec_name],keyParams,edi,4096,0
test eax,eax
jz @f
xor eax,eax
pop edi esi ebx
ret
@@:
xor al,al
or ecx,-1
repne scasb
stdcall [ini_get_str],[f_name],[sec_name],keyIco,edi,4096,0
test eax,eax
jz @f
xor eax,eax
pop edi esi ebx
ret
@@:
xor al,al
or ecx,-1
repne scasb
stdcall [ini_get_int],[f_name],[sec_name],keyX,80000000h
cmp eax,80000000h
jne @f
xor eax,eax
pop edi esi ebx
ret
@@:
mov word[edi+2],ax
stdcall [ini_get_int],[f_name],[sec_name],keyY,80000000h
cmp eax,80000000h
jne @f
xor eax,eax
pop edi esi ebx
ret
@@:
mov word[edi],ax
add edi,4
mov [PIcoDB],edi
mov eax,1
pop edi esi ebx
ret
endp
include 'RButton.inc'
include 'DlgAdd.inc'
include 'Moving.inc'
;include 'Ico.inc'
;'Eolite',0,'/sys/File managers/eolite',0,'/hd0/3/Muzik',0,'1',0,00010001h
;-------------------------------------------------------------------------------
;##### DATA ####################################################################
;-------------------------------------------------------------------------------
; not change this section!!!
; start section
;------------------------------------------------------------------------------
align 4
image_file dd 0 ;+0
raw_pointer dd 0 ;+4
return_code dd 0 ;+8
img_size dd 0 ;+12
deflate_unpack dd 0 ;+16 ; not use for scaling
raw_pointer_2 dd 0 ;+20 ; not use for scaling
;------------------------------------------------------------------------------
; end section
;------------------------------------------------------------------------------
align 4
fiStdIco:
dd 5
dd 0
dd 0
.size dd 0
.point dd bufStdIco
db ICON_STRIP,0
align 4
fiRunProg: ;<3B><><EFBFBD> <20><><EFBFBD><EFBFBD>᪠ <20>ணࠬ<E0AEA3>
dd 7
dd 0
dd 0
dd 0
dd ErrNotFoundIni
db 0
dd pthNotify
fiIni dd 5 ;<3B><><EFBFBD> ini 䠩<><E4A0A9>
dd 0
dd 0
dd 0
dd bufIni
db '/rd/1/icon.ini',0
IconsFile db ICON_STRIP,0
NameIconsDat db ICONS_DAT,0
align 4
MaxNumIcon dd 0 ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⢮ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Fixed some bugs reported by 0CodErr. Author of fix - GerdtR. git-svn-id: svn://kolibrios.org@3921 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-09-21 14:25:30 +02:00
bFixIcons dd 1
Added source files to icon manager. git-svn-id: svn://kolibrios.org@3853 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-08-04 22:58:46 +02:00
bNotSave dd 0
LButtonActiv dd 0
RButtonActiv dd 0
MovingActiv dd 0
Fixed some bugs reported by 0CodErr. Author of fix - GerdtR. git-svn-id: svn://kolibrios.org@3921 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-09-21 14:25:30 +02:00
DlgAddActiv dd 0
slotDlgAdd dd 0
Added source files to icon manager. git-svn-id: svn://kolibrios.org@3853 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-08-04 22:58:46 +02:00
IconIni db '/rd/1/icon.ini',0
;keyName db 'name',0
keyPath db 'path',0
keyParams db 'param',0
keyIco db 'ico',0
keyX db 'x',0
keyY db 'y',0
;-------------------------------------------------------------------------------
IMPORTS:
library cnv_png,'cnv_png.obj',\
archiver,'archiver.obj',\
box_lib,'box_lib.obj',\
proc_lib,'proc_lib.obj',\
libini,'libini.obj'
import cnv_png,\
cnv_png_import.Start,'START',\
cnv_png_import.Version,'version',\
cnv_png_import.Check,'Check_Header',\
cnv_png_import.Assoc,'Associations'
import archiver,\
unpack_DeflateUnpack2,'deflate_unpack2'
import box_lib,\
edit_box_draw,'edit_box',\
edit_box_key,'edit_box_key',\
edit_box_mouse,'edit_box_mouse',\
scrollbar_h_draw,'scrollbar_h_draw',\
scrollbar_h_mouse,'scrollbar_h_mouse'
import proc_lib,\
OpenDialog_Init,'OpenDialog_init',\
OpenDialog_Start,'OpenDialog_start'
import libini,\
ini_enum_sections,'ini_enum_sections',\
ini_enum_keys,'ini_enum_keys',\
ini_get_str,'ini_get_str',\
ini_set_str,'ini_set_str',\
ini_get_color,'ini_get_color',\
ini_get_int,'ini_get_int',\
ini_set_int,'ini_set_int',\
ini_del_section,'ini_del_section'
;ini.get_str (f_name, sec_name, key_name, buffer, buf_len, def_val)
;ini.set_str (f_name, sec_name, key_name, buffer, buf_len)
;-------------------------------------------------------------------------------
;----- RButton.inc -------------------------------------------------------------
;-------------------------------------------------------------------------------
secRButt db 'rbmenu',0
Fixed some bugs reported by 0CodErr. Author of fix - GerdtR. git-svn-id: svn://kolibrios.org@3921 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-09-21 14:25:30 +02:00
keyMenuColor db 'menucolor',0
Added source files to icon manager. git-svn-id: svn://kolibrios.org@3853 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-08-04 22:58:46 +02:00
if lang eq ru
RMenuRedrawFon db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2><EFBFBD>',0
RMenuAlign db '<27><>஢<EFBFBD><E0AEA2><EFBFBD><EFBFBD> <20><> <20><>⪥',0
RMenuAdd db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0
RMenuDel db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0
RMenuProp db '<27><><EFBFBD><EFBFBD><EFBFBD>⢠',0
RMenuOffMoving db '<27><><EFBFBD>९<EFBFBD><E0A5AF><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0
RMenuOnMoving db '<27><><EFBFBD>९<EFBFBD><E0A5AF><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0
Translation for estonian language and fixes. Build folder for estonian language. git-svn-id: svn://kolibrios.org@3927 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-09-21 22:26:44 +02:00
else if lang eq et
RMenuRedrawFon db 'V<>rskenda',0
RMenuAlign db 'T<>mme v<>rgule',0
RMenuAdd db 'Lisa',0
RMenuDel db 'Kustuta',0
RMenuProp db 'Omadused',0
RMenuOffMoving db 'Paranda ikoonid',0
RMenuOnMoving db '<27>ra paranda ikoone',0
Added source files to icon manager. git-svn-id: svn://kolibrios.org@3853 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-08-04 22:58:46 +02:00
else
RMenuRedrawFon db 'Redraw',0
RMenuAlign db 'Snap to Grid',0
RMenuAdd db 'Add',0
RMenuDel db 'Delete',0
RMenuProp db 'Properties',0
RMenuOffMoving db 'Fix the icons',0
RMenuOnMoving db 'Unfix the icons',0
end if
if lang eq ru
ErrRunProg db '<27>訡<EFBFBD><E8A8A1> <20><><EFBFBD><EFBFBD>᪠ <20>ணࠬ<E0AEA3><E0A0AC>',0
WarningSave db '<27><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>࠭<EFBFBD><E0A0AD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> RDSave',0
ErrNotFoundIni db '<27><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> icon.ini',0
Translation for estonian language and fixes. Build folder for estonian language. git-svn-id: svn://kolibrios.org@3927 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-09-21 22:26:44 +02:00
else if lang eq et
ErrRunProg db 'Programmi k<>ivitamise viga',0
WarningSave db '<27>ra unusta muudatusi salvestada, k<>ivita RDSave',0
ErrNotFoundIni db 'icon.ini ei leitud',0
Added source files to icon manager. git-svn-id: svn://kolibrios.org@3853 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-08-04 22:58:46 +02:00
else
ErrRunProg db 'Error runing program',0
WarningSave db 'Do not forget to save the changes, run the RDSave',0
ErrNotFoundIni db 'icon.ini not found',0
end if
pthNotify db '/rd/1/@notify',0
;-------------------------------------------------------------------------------
;------- AddDlg.inc ---------------------------------------------------------------
;-------------------------------------------------------------------------------
if lang eq ru
DTitle db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0
DCaptName db '<27><><EFBFBD>',0
DCaptPath db '<27><><EFBFBD><EFBFBD>',0
DCaptParams db '<27><>ࠬ<EFBFBD><E0A0AC><EFBFBD><EFBFBD>',0
DCaptIcon db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0
DCaptCreate db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0
DCaptProperties db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0
DCaptCancel db '<27>⬥<EFBFBD><E2ACA5><EFBFBD><EFBFBD>',0
Translation for estonian language and fixes. Build folder for estonian language. git-svn-id: svn://kolibrios.org@3927 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-09-21 22:26:44 +02:00
else if lang eq et
DTitle db 'Lisa ikoon',0
DCaptName db 'Nimi',0
DCaptPath db 'Asukoht',0
DCaptParams db 'Parameetrid',0
DCaptIcon db 'Ikoon',0
;DCaptChange db '.',0
DCaptCreate db 'Loo',0
DCaptProperties db 'Muuda',0
DCaptCancel db 'Katkesta',0
Added source files to icon manager. git-svn-id: svn://kolibrios.org@3853 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-08-04 22:58:46 +02:00
else
DTitle db 'Add icon',0
DCaptName db 'Name',0
DCaptPath db 'Path',0
DCaptParams db 'Parameters',0
DCaptIcon db 'Icon',0
DCaptCreate db 'Create',0
DCaptProperties db 'Change',0
DCaptCancel db 'Cancel',0
end if
;/<2F><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
edtName edit_box NAME_LENGTH*6+4,70+20+IMG_SIZE,6,0FFFFFFh,06F9480h,0FFh,0h,0,NAME_LENGTH,\
DAreaName,mouse_dd,0,0,0
edtExePath edit_box 281-3-20-IMG_SIZE,70+20+IMG_SIZE,26,0FFFFFFh,06F9480h,0FFh,0h,0,256,\
DAreaPath,mouse_dd,0,0,0
edtParams edit_box 295-20-IMG_SIZE,70+20+IMG_SIZE,46,0FFFFFFh,06F9480h,0FFh,0h,0,256,\
DAreaParams,mouse_dd,0,0,0
edtIcon edit_box 295-20-IMG_SIZE,70+20+IMG_SIZE,66,0FFFFFFh,06F9480h,0FFh,0h,0,256,\
DAreaIcon,mouse_dd,0,0,0
endEdits:
;\
sbIcons:
dw END_ICONS_AREAW-ICONSX
dw ICONSX
dw 15
dw END_ICONS_AREAH+3
dd 0
dd 1
.max_area dd 0
.cur_area dd ICONS_DRAW_COUNTW
.position dd 0
.bckg_col dd 0
.frnt_col dd 0
.line_col dd 0
.redraw dd 0
.delta dd 0
.delta2 dd 0
.r_size_x dw 0
.r_start_x dw 0
.r_size_y dw 0
.r_start_y dw 0
.m_pos dd 0
.m_pos2 dd 0
.m_keys dd 0
.run_size dd 0
.position2 dd 0
.work_size dd 0
.all_redraw dd 0
.ar_offset dd 0
;-------------------------------------------------------------------------------
OpenDialog_data:
.type dd 0
.procinfo dd RBProcInfo ;+4
.com_area_name dd communication_area_name ;+8
.com_area dd 0 ;+12
.opendir_pach dd temp_dir_pach ;+16
.dir_default_pach dd communication_area_default_pach ;+20
.start_path dd open_dialog_path ;+24
.draw_window dd DRedraw;draw_window_for_OD ;+28
.status dd 0 ;+32
.openfile_pach dd DAreaPath;fname_Info ;+36
.filename_area dd 0;DAreaPath ;+40
.filter_area dd Filter
.x:
.x_size dw 420 ;+48 ; Window X size
.x_start dw 100 ;+50 ; Window X position
.y:
.y_size dw 320 ;+52 ; Window y size
.y_start dw 100 ;+54 ; Window Y position
communication_area_name:
db 'FFFFFFFF_open_dialog',0
open_dialog_path:
db '/sys/File managers/opendial',0
communication_area_default_pach:
db '/sys',0
Filter dd 0
;open_dialog db 0
;-------------------------------------------------------------------------------
;/<2F><> ࠧ<><E0A0A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
align 4
IconAreaH dd ICON_SIZE,ICON_SIZE
I_END:
;##### UDATA ###################################################################
IconArea rb 4*ICON_SIZE*ICON_SIZE
;\
ScreenX rw 1
ScreenY rw 1
MouseX rd 1
MouseY rd 1
RBSlot rd 1
AddX rd 1
AddY rd 1
SelIcon rd 1
Fixed some bugs reported by 0CodErr. Author of fix - GerdtR. git-svn-id: svn://kolibrios.org@3921 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-09-21 14:25:30 +02:00
DlgSelIcon rd 1
Added source files to icon manager. git-svn-id: svn://kolibrios.org@3853 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-08-04 22:58:46 +02:00
sc system_colors
align 4
bufStdIco rb 40
IconsOffs rd 100
PIcoDB rd 1
align 4
icon_count rd 1
strip_file rd 1
strip_file_size rd 1
cur_band_compensation rd 1
;---- RButton -----------------------------------------------------------------------
bufIni rb 40
NumUserButt rd 1
RBUser rd 16*2+1
RMenuW rw 1
RMenuH rw 1
RMenuHsb rw 1
MaxPage rd 1
mouse_dd rd 1
DAreaName rb NAME_LENGTH+1
DAreaPath rb 256+1
DAreaParams rb 256+1
DAreaIcon rb 256+1
align 4
RBProcInfo rb 1024
Fixed some bugs reported by 0CodErr. Author of fix - GerdtR. git-svn-id: svn://kolibrios.org@3921 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-09-21 14:25:30 +02:00
RBMenuColor rd 1
Added source files to icon manager. git-svn-id: svn://kolibrios.org@3853 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-08-04 22:58:46 +02:00
; OpenDialog
temp_dir_pach rb 1024
fname_Info rb 1024
;-------------------------------------------------------------------------------
Fixed some bugs reported by 0CodErr. Author of fix - GerdtR. git-svn-id: svn://kolibrios.org@3921 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-09-21 14:25:30 +02:00
rb 256
stack_move:
stack_rb:
Added source files to icon manager. git-svn-id: svn://kolibrios.org@3853 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-08-04 22:58:46 +02:00
rb 1024
stack_dlg:
align 4
rb 1024
stack_area:
;------------------------------------------------------------------------------
ENDMEM:
Copy Permalink