forked from KolibriOS/kolibrios
629 lines
14 KiB
PHP
629 lines
14 KiB
PHP
if lang eq ru
|
|
MinRMenuW equ 18*6+10
|
|
else
|
|
MinRMenuW equ 15*6+10
|
|
end if
|
|
|
|
idbRRedrawFon equ 100
|
|
idbRAlign equ 101
|
|
idbRFixIcons equ 102
|
|
idbRAdd equ 103
|
|
idbRDel equ 104
|
|
idbRProp equ 105
|
|
|
|
DELTA_COLOR equ 70
|
|
|
|
;---- thread for rbutton -----------------------------------------------------------------------
|
|
RButtonWin:
|
|
mcall 40,100101b ;SetMaskMessage 100101b
|
|
mcall 48,3,sc,40
|
|
|
|
mov eax,[sc.work] ;¢ëç¨á«ï¥¬ 梥â ᢥ⫥¥ ä®®¢®£®
|
|
rol eax,16
|
|
add al,DELTA_COLOR
|
|
jnc @f
|
|
mov al,0FFh
|
|
@@:
|
|
rol eax,16
|
|
add al,DELTA_COLOR
|
|
jnc @f
|
|
mov al,0FFh
|
|
@@:
|
|
add ah,DELTA_COLOR
|
|
jnc @f
|
|
mov ah,0FFh
|
|
@@:
|
|
mov [sc.workH],eax
|
|
|
|
mov eax,[sc.work] ;¢ëç¨á«ï¥¬ 梥â ⥬¥¥ ä®®¢®£®
|
|
rol eax,16
|
|
sub al,DELTA_COLOR
|
|
jnc @f
|
|
mov al,0FFh
|
|
@@:
|
|
rol eax,16
|
|
sub al,DELTA_COLOR
|
|
jnc @f
|
|
mov al,0FFh
|
|
@@:
|
|
sub ah,DELTA_COLOR
|
|
jnc @f
|
|
mov ah,0FFh
|
|
@@:
|
|
mov [sc.workL],eax
|
|
|
|
|
|
|
|
stdcall GetNumIcon,[MouseX],[MouseY],-1
|
|
mov [SelIcon],eax
|
|
|
|
mov [NumUserButt],0
|
|
mov [RMenuW],0
|
|
mcall 70,fiIni
|
|
mcall 68,12,dword[bufIni+32]
|
|
mov [RBUser],eax
|
|
stdcall [ini_enum_keys],IconIni,secRButt,GetUserBut
|
|
|
|
cmp [SelIcon],-1
|
|
jne @f
|
|
mov [RMenuH],16*4
|
|
mov eax,[NumUserButt]
|
|
shl eax,4
|
|
add [RMenuH],ax
|
|
jmp .rbw1
|
|
@@:
|
|
mov [RMenuH],16*5
|
|
.rbw1:
|
|
|
|
RBWRedraw:
|
|
mcall 12,1 ;RedrawWinBeg
|
|
mov ebx,[MouseX]
|
|
shl ebx,16
|
|
mov bx,[RMenuW]
|
|
mov ecx,[MouseY]
|
|
shl ecx,16
|
|
mov cx,[RMenuH]
|
|
mov edx,01000000h
|
|
mov esi,01000000h
|
|
xor eax,eax
|
|
int 40h
|
|
|
|
and ebx,0FFFFh ;ä®®¢ë© ¯àאַ㣮«ì¨ª
|
|
inc bx
|
|
and ecx,0FFFFh
|
|
inc cx
|
|
mcall 13,,,[sc.work]
|
|
|
|
cmp [SelIcon],-1 ;¥á«¨ ª«¨ª ¯® ¨ª®ª¥, â® ¯ãªâë ¯®«ì§®¢ â¥«ï ¥ ã¦ë
|
|
jne .NoDrawUserBut
|
|
;-----------
|
|
mov ecx,[NumUserButt]
|
|
.DrawUB:
|
|
push ecx
|
|
|
|
mov eax,[NumUserButt]
|
|
sub eax,ecx
|
|
mov edx,eax ;button ID
|
|
or edx,60000000h
|
|
shl eax,4+16 ;*16*10000h
|
|
mov ecx,eax
|
|
mov cx,16
|
|
|
|
xor ebx,ebx
|
|
mov bx,[RMenuW]
|
|
mov esi,[sc.work]
|
|
mcall 8 ;®¯à¥¤¥«¨«¨
|
|
|
|
mov ebx,50000h
|
|
shr ecx,16
|
|
mov bx,cx
|
|
add bx,5
|
|
|
|
mov ecx,80000000h
|
|
|
|
mov eax,[NumUserButt]
|
|
sub eax,[esp]
|
|
mov edx,[RBUser+eax*8]
|
|
mcall 4 ;¯®¤¯¨á «¨
|
|
|
|
pop ecx
|
|
loop .DrawUB
|
|
|
|
;-----------
|
|
.NoDrawUserBut:
|
|
;®¯à¥¤¥«¥¨¥ ª®¯®ª ¤«ï ¨ª®®ª
|
|
xor ebx,ebx
|
|
mov bx,[RMenuW]
|
|
|
|
xor eax,eax
|
|
cmp [SelIcon],-1
|
|
jne @f
|
|
mov eax,[NumUserButt]
|
|
@@:
|
|
shl eax,4
|
|
mov cx,ax
|
|
shl ecx,16
|
|
mov cx,16
|
|
push ecx ;®âáî¤ à¨á®¢ âì ª®¯ª¨ (¯® ¢ëá®â¥)
|
|
|
|
|
|
mcall 8,,,60000000h or idbRRedrawFon,[sc.work]
|
|
add ecx,16*10000h
|
|
mcall ,,,60000000h or idbRAlign
|
|
add ecx,16*10000h
|
|
mcall ,,,60000000h or idbRFixIcons
|
|
add ecx,16*10000h
|
|
|
|
cmp dword[SelIcon],-1
|
|
je @f
|
|
|
|
mcall ,,,60000000h or idbRDel,
|
|
add ecx,16*10000h
|
|
mcall ,,,60000000h or idbRProp,
|
|
jmp .endRM1
|
|
@@:
|
|
mcall ,,,60000000h or idbRAdd,
|
|
.endRM1:
|
|
|
|
;¯®¤¯¨á¨ ª ª®¯ª ¬
|
|
xor eax,eax
|
|
cmp [SelIcon],-1
|
|
jne @f
|
|
mov eax,[NumUserButt]
|
|
@@:
|
|
shl eax,4
|
|
mov ebx,50000h
|
|
mov bx,ax
|
|
|
|
add bx,5
|
|
mcall 4,,80000000h,RMenuRedrawFon
|
|
add ebx,16
|
|
mcall ,,,RMenuAlign
|
|
|
|
add ebx,16
|
|
cmp [bFixIcons],0
|
|
jne @f
|
|
mov edx,RMenuOffMoving
|
|
jmp .RBWR1
|
|
@@:
|
|
mov edx,RMenuOnMoving
|
|
.RBWR1:
|
|
mcall
|
|
add ebx,16
|
|
|
|
cmp dword[SelIcon],-1
|
|
je @f
|
|
|
|
mcall ,,,RMenuDel
|
|
add bx,16
|
|
mcall ,,,RMenuProp
|
|
jmp .endRM2
|
|
@@:
|
|
|
|
mcall ,,,RMenuAdd
|
|
.endRM2:
|
|
|
|
pop ecx
|
|
mcall 12,2 ;RedrawWinEnd
|
|
|
|
mcall 9,RBProcInfo,-1 ;GetThreadInfo RBProcInfo,-1
|
|
mcall 18,21,dword[RBProcInfo+30]
|
|
m2m dword[RBSlot],eax
|
|
|
|
RBWMessages:
|
|
mcall 10 ;WaitMessage
|
|
dec eax
|
|
jz RBWRedraw
|
|
sub eax,2
|
|
jz RBWButton
|
|
sub eax,3
|
|
jz RBWMouse
|
|
jmp RBWMessages
|
|
|
|
RBWButton:
|
|
mcall 17 ;GetButtonPressed
|
|
shr eax,8
|
|
cmp eax,idbRRedrawFon
|
|
jz RBRedrawFon
|
|
cmp eax,idbRAlign
|
|
jz RBAlign
|
|
cmp eax,idbRFixIcons
|
|
jz RBFixIcons
|
|
cmp eax,idbRAdd
|
|
jz RBAdd
|
|
cmp eax,idbRDel
|
|
jz RBDelete
|
|
cmp eax,idbRProp
|
|
jz RBPropeties
|
|
|
|
cmp eax,[NumUserButt]
|
|
ja @f
|
|
|
|
mov eax,[RBUser+eax*8+4]
|
|
mov dword[fiRunProg+8],0
|
|
mov dword[fiRunProg+21],eax
|
|
mcall 70,fiRunProg
|
|
@@:
|
|
jmp RBWExit
|
|
|
|
RBWMouse:
|
|
cmp [PredItem],-1
|
|
je @f
|
|
mov eax,[PredItem]
|
|
xor ebx,ebx
|
|
mov bx,[RMenuW]
|
|
mov cx,ax
|
|
shl ecx,16
|
|
mov cx,ax
|
|
mcall 38,,,[sc.work]
|
|
add ecx,00100010h
|
|
mcall ,,,[sc.work]
|
|
@@:
|
|
call ClickInWin
|
|
jnc @f
|
|
mcall 37,1 ;¯®«®¦¥¨¥ ¬ëè¨ ®â®á¨â¥«ì® ®ª
|
|
and eax,0FFF0h
|
|
mov [PredItem],eax
|
|
xor ebx,ebx
|
|
mov bx,[RMenuW]
|
|
mov cx,ax
|
|
shl ecx,16
|
|
mov cx,ax
|
|
mcall 38,,,[sc.workL]
|
|
add ecx,00100010h
|
|
mcall ,,,[sc.workH]
|
|
@@:
|
|
|
|
|
|
mcall 37,2 ;GetMouseKey
|
|
test eax,111b
|
|
jz RBWMessages
|
|
|
|
call ClickInWin
|
|
jc RBWMessages
|
|
|
|
RBWExit:
|
|
mcall 68,13,[RBUser]
|
|
mov [RButtonActiv],0
|
|
mcall -1 ;ExitProcess
|
|
|
|
|
|
RBRedrawFon:
|
|
mcall 15,3
|
|
jmp RBWExit
|
|
|
|
RBAlign:
|
|
call AlignIcons
|
|
|
|
m2m [PIcoDB],[BegData]
|
|
stdcall [ini_enum_sections],IconIni,Ini_SavePos
|
|
|
|
mov dword[fiRunProg+8],WarningSave
|
|
mov dword[fiRunProg+21],pthNotify
|
|
mcall 70,fiRunProg
|
|
mov [bNotSave],0
|
|
|
|
jmp RBRedrawFon
|
|
|
|
RBFixIcons:
|
|
xor dword[bFixIcons],1
|
|
|
|
cmp [bNotSave],0
|
|
je @f
|
|
|
|
mov dword[fiRunProg+8],WarningSave
|
|
mov dword[fiRunProg+21],pthNotify
|
|
mcall 70,fiRunProg
|
|
mov [bNotSave],0
|
|
|
|
@@:
|
|
jmp RBWExit
|
|
|
|
RBAdd:
|
|
cmp [DlgAddActiv],1
|
|
je RBWSetActivWin
|
|
mov [DlgAddActiv],1
|
|
|
|
mcall 51,1,DlgAdd,stack_dlg ;CreateThread DlgAdd,stack_dlg
|
|
jmp RBWExit
|
|
|
|
RBDelete:
|
|
|
|
mov eax,[SelIcon]
|
|
mov eax,[IconsOffs+eax*4]
|
|
stdcall [ini_del_section],IconIni,eax
|
|
|
|
stdcall DelIcon,[SelIcon]
|
|
; mov dword[fiStdIco],2
|
|
; m2m dword[fInfo+12],dword[SizeData]
|
|
; mcall 70,fInfo
|
|
|
|
mov dword[fiRunProg+8],WarningSave
|
|
mov dword[fiRunProg+21],pthNotify
|
|
mcall 70,fiRunProg
|
|
mov [bNotSave],0
|
|
|
|
jmp RBRedrawFon
|
|
|
|
RBPropeties:
|
|
cmp [DlgAddActiv],1
|
|
je RBWSetActivWin
|
|
mov [DlgAddActiv],1
|
|
|
|
mcall 51,1,DlgProp,stack_dlg ;CreateThread DlgProp,stack_dlg
|
|
jmp RBWExit
|
|
|
|
RBWSetActivWin:
|
|
mcall 18,3,[slotDlgAdd]
|
|
jmp RBWExit
|
|
|
|
proc ClickInWin ;Carry flag = 1, ¥á«¨ ª«¨ª ¢ ®ª¥
|
|
mcall 37,0 ;GetMousePos
|
|
xor ebx,ebx
|
|
mov bx,ax ;y
|
|
shr eax,16 ;x
|
|
|
|
xor ecx,ecx
|
|
mov cx,bx
|
|
mov bx,ax
|
|
|
|
mcall 34
|
|
cmp eax,[RBSlot]
|
|
jne @f
|
|
stc
|
|
ret
|
|
@@:
|
|
clc
|
|
ret
|
|
endp
|
|
|
|
|
|
proc AlignIcons
|
|
local posX:WORD,\
|
|
posY:WORD,\
|
|
negatX:WORD,\
|
|
negatY:WORD
|
|
|
|
xor ebx,ebx
|
|
|
|
mov ecx,[MaxNumIcon]
|
|
test ecx,ecx
|
|
jnz .AlignIco
|
|
ret
|
|
.AlignIco:
|
|
push ecx
|
|
or ecx,-1
|
|
mov edi,dword[IconsOffs+ebx]
|
|
xor eax,eax
|
|
repne scasb
|
|
repne scasb
|
|
repne scasb
|
|
repne scasb
|
|
|
|
mov dword[negatX],0
|
|
|
|
;-------- ¯à¥®¡à §ã¥¬ ª®®à¤¨ âë ¢ ¯®«®¦¨â¥«ìë¥
|
|
mov ax,[edi+2]
|
|
test ax,8000h
|
|
jz @f
|
|
neg ax
|
|
mov word[negatX],1
|
|
@@:
|
|
mov [posX],ax
|
|
|
|
mov ax,[edi]
|
|
test ax,8000h
|
|
jz @f
|
|
neg ax
|
|
mov word[negatY],1
|
|
@@:
|
|
mov [posY],ax
|
|
|
|
;-----
|
|
mov ax,[posY]
|
|
mov dx,ALIGN_SIZE
|
|
|
|
cmp ax,dx
|
|
jb .AI0
|
|
@@: sub ax,dx
|
|
cmp ax,dx
|
|
jae @b
|
|
.AI0:
|
|
|
|
mov dx,ax
|
|
cmp dx,ALIGN_SIZE/2
|
|
jb .AI1
|
|
|
|
mov ax,ALIGN_SIZE
|
|
sub ax,dx
|
|
add [posY],ax
|
|
|
|
jmp .AI2
|
|
.AI1:
|
|
sub [posY],dx
|
|
.AI2:
|
|
;-----
|
|
mov ax,[posX]
|
|
mov dx,ALIGN_SIZE
|
|
|
|
cmp ax,dx
|
|
jb .AI3
|
|
@@: sub ax,dx
|
|
cmp ax,dx
|
|
jae @b
|
|
.AI3:
|
|
|
|
mov dx,ax
|
|
cmp dx,ALIGN_SIZE/2
|
|
jb .AI4
|
|
|
|
mov ax,ALIGN_SIZE
|
|
sub ax,dx
|
|
add [posX],ax
|
|
|
|
jmp .AI5
|
|
.AI4:
|
|
sub [posX],dx
|
|
.AI5:
|
|
|
|
;----- ¯à¥®¡à §®¢ ¨¥ § ¤ ¨ ¯®¯à ¢ª ¢ ®âà¨æ ⥫ìëå ª®®à¤¨ â
|
|
mov ax,[posX]
|
|
|
|
cmp [negatX],1
|
|
jne @f
|
|
neg ax
|
|
inc ax
|
|
jmp .AI6
|
|
@@:
|
|
|
|
mov dx,[ScreenX]
|
|
shr dx,1
|
|
cmp ax,dx
|
|
jbe .AI6
|
|
sub ax,[ScreenX]
|
|
.AI6:
|
|
mov word[edi+2],ax
|
|
|
|
|
|
mov ax,[posY]
|
|
cmp [negatY],1
|
|
jne @f
|
|
neg ax
|
|
inc ax
|
|
jmp .AI7
|
|
@@:
|
|
|
|
mov dx,[ScreenY]
|
|
shr dx,1
|
|
cmp ax,dx
|
|
jbe .AI7
|
|
sub ax,[ScreenY]
|
|
.AI7:
|
|
mov word[edi],ax
|
|
|
|
;--------
|
|
|
|
|
|
|
|
pop ecx
|
|
add ebx,4
|
|
dec ecx
|
|
jnz .AlignIco
|
|
; loop .AlignIco
|
|
|
|
|
|
; mov dword[fInfo],2
|
|
; mcall 70,fInfo
|
|
ret
|
|
endp
|
|
|
|
;-------------------------------------------------------------------------------
|
|
proc GetUserBut stdcall,f_name,sec_name,key_name,key_value
|
|
cmp [NumUserButt],16
|
|
jne @f
|
|
ret
|
|
@@:
|
|
|
|
push ebx esi edi
|
|
|
|
mov edi,[key_name] ;®¯à¥¤¥«ï¥¬ è¨à¨ã ¬¥î
|
|
xor eax,eax
|
|
or ecx,-1
|
|
repne scasb
|
|
sub edi,[key_name]
|
|
mov eax,edi
|
|
shl eax,1
|
|
lea eax,[eax*2+eax+5*2]
|
|
cmp ax,[RMenuW]
|
|
jbe @f
|
|
mov [RMenuW],ax
|
|
@@:
|
|
cmp [RMenuW],MinRMenuW
|
|
jae @f
|
|
mov [RMenuW],MinRMenuW
|
|
@@:
|
|
|
|
mov ebx,[NumUserButt]
|
|
|
|
mov esi,[key_name]
|
|
mov edi,[RBUser+ebx*8]
|
|
@@: lodsb
|
|
stosb
|
|
test al,al
|
|
jnz @b
|
|
|
|
;debug_newline
|
|
|
|
|
|
mov [RBUser+ebx*8+4],edi
|
|
mov esi,[key_value]
|
|
@@: lodsb
|
|
stosb
|
|
test al,al
|
|
jnz @b
|
|
|
|
mov [RBUser+ebx*8+8],edi
|
|
|
|
inc [NumUserButt]
|
|
|
|
pop edi esi ebx
|
|
mov eax,1
|
|
ret
|
|
endp
|
|
|
|
proc Ini_SavePos stdcall,f_name,sec_name
|
|
push ebx edi esi
|
|
|
|
xor ebx,ebx
|
|
.SearchSect:
|
|
mov edi,[IconsOffs+ebx*4]
|
|
mov esi,[sec_name]
|
|
@@:
|
|
lodsb
|
|
scasb
|
|
jne @f
|
|
test al,al
|
|
jnz @b
|
|
|
|
jmp .IcoDataFound
|
|
@@:
|
|
|
|
inc ebx
|
|
cmp ebx,[MaxNumIcon]
|
|
jb .SearchSect
|
|
|
|
mov eax,1
|
|
pop esi edi ebx
|
|
ret
|
|
|
|
.IcoDataFound:
|
|
or ecx,-1
|
|
repne scasb
|
|
repne scasb
|
|
repne scasb
|
|
|
|
;int3
|
|
movzx eax,word[edi+2]
|
|
test eax,8000h
|
|
jz @f
|
|
or eax,0FFFF0000h
|
|
@@:
|
|
|
|
stdcall [ini_set_int],[f_name],[sec_name],keyX,eax
|
|
|
|
movzx eax,word[edi]
|
|
test eax,8000h
|
|
jz @f
|
|
or eax,0FFFF0000h
|
|
@@:
|
|
|
|
stdcall [ini_set_int],[f_name],[sec_name],keyY,eax
|
|
|
|
mov eax,1
|
|
pop esi edi ebx
|
|
ret
|
|
endp
|
|
|
|
|
|
|