forked from KolibriOS/kolibrios
569 lines
12 KiB
PHP
569 lines
12 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
|
||
|
||
;---- thread for rbutton -----------------------------------------------------------------------
|
||
RButtonWin:
|
||
mcall 40,100101b ;SetMaskMessage 100101b
|
||
|
||
stdcall GetNumIcon,[MouseX],[MouseY],-1
|
||
mov [SelIcon],eax
|
||
|
||
cmp eax,-1
|
||
jne @f
|
||
mov [RMenuH],16*4+3+3
|
||
mov [RMenuHsb],16*4+3+3
|
||
jmp .rbw1
|
||
@@:
|
||
mov [RMenuH],16*5+3+3
|
||
mov [RMenuHsb],16*5+3+3
|
||
.rbw1:
|
||
|
||
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
|
||
|
||
|
||
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,0177CCFFh
|
||
mov esi,01000000h
|
||
xor eax,eax
|
||
int 40h
|
||
|
||
;-----------
|
||
mov ecx,[NumUserButt]
|
||
.DrawUB:
|
||
push ecx
|
||
|
||
mov eax,[NumUserButt]
|
||
sub eax,ecx
|
||
mov edx,eax ;button ID
|
||
shl eax,4+16 ;*16*10000h
|
||
mov ecx,eax
|
||
mov cx,16
|
||
|
||
xor ebx,ebx
|
||
mov bx,[RMenuW]
|
||
mov esi,[RBMenuColor];0888888h
|
||
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
|
||
|
||
;-----------
|
||
xor ebx,ebx
|
||
mov bx,[RMenuW]
|
||
mov cx,[RMenuH]
|
||
sub cx,[RMenuHsb]
|
||
push ecx
|
||
mov dx,cx
|
||
shl ecx,16
|
||
mov cx,dx
|
||
|
||
;<EFBFBD><EFBFBD>ࢠ<EFBFBD> ࠧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>⥫쭠<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
mcall 38,,,[RBMenuColor];0888888h
|
||
add ecx,00010001h
|
||
mcall ,,,
|
||
|
||
;------------
|
||
mov ecx,[esp]
|
||
add ecx,2
|
||
shl ecx,16
|
||
mov cx,16
|
||
|
||
mcall 8,,,idbRRedrawFon,[RBMenuColor];0888888h ;3 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>ண<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
add ecx,00100000h
|
||
mcall ,,,idbRAlign
|
||
add ecx,00100000h
|
||
mcall ,,,idbRFixIcons
|
||
|
||
mov ebx,50000h
|
||
mov bx,word[esp]
|
||
add bx,2+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
|
||
|
||
;------------
|
||
xor ebx,ebx ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ࠧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>⥫쭠<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
mov bx,[RMenuW]
|
||
mov ecx,[esp]
|
||
add ecx,16*3+2
|
||
mov dx,cx
|
||
shl ecx,16
|
||
mov cx,dx
|
||
mcall 38,,,[RBMenuColor];0888888h
|
||
add ecx,00010001h
|
||
mcall ,,,
|
||
;------------
|
||
;1 <EFBFBD><EFBFBD><EFBFBD> 2 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>쥣<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
mov ecx,[esp]
|
||
add ecx,16*3+4
|
||
shl ecx,16
|
||
mov cx,16
|
||
cmp dword[SelIcon],-1
|
||
je @f
|
||
|
||
mcall 8,,,idbRDel,[RBMenuColor];0888888h
|
||
add ecx,00100000h
|
||
mcall ,,,idbRProp,[RBMenuColor];0888888h
|
||
|
||
mov ebx,50000h
|
||
mov bx,word[esp]
|
||
add bx,16*3+4+5
|
||
mcall 4,,80000000h,RMenuDel
|
||
add bx,16
|
||
mcall ,, ,RMenuProp
|
||
|
||
jmp .endRM
|
||
@@:
|
||
|
||
mcall 8,,,idbRAdd,[RBMenuColor];0888888h
|
||
mov ebx,50000h
|
||
mov bx,word[esp]
|
||
add bx,16*3+4+5
|
||
mcall 4,,80000000h,RMenuAdd
|
||
|
||
.endRM:
|
||
|
||
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:
|
||
mcall 37,2 ;GetMouseKey
|
||
test eax,111b
|
||
jz RBWMessages
|
||
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]
|
||
je 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 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
|
||
|
||
;-------- <EFBFBD>८<EFBFBD>ࠧ㥬 <EFBFBD><EFBFBD><EFBFBD>न<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⥫<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
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:
|
||
|
||
;----- <EFBFBD>८<EFBFBD>ࠧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD>ࠢ<EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⥫<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>न<EFBFBD><EFBFBD><EFBFBD>
|
||
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]
|
||
mov esi,keyMenuColor
|
||
@@: lodsb
|
||
scasb
|
||
jne @f
|
||
test al,al
|
||
jnz @b
|
||
|
||
stdcall [ini_get_color],[f_name],[sec_name],[key_name],0888888h
|
||
mov [RBMenuColor],eax
|
||
ret
|
||
@@:
|
||
|
||
mov edi,[key_name] ;<EFBFBD><EFBFBD>।<EFBFBD><EFBFBD>塞 <EFBFBD><EFBFBD>ਭ<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
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]
|
||
add [RMenuH],16
|
||
|
||
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
|
||
|
||
|
||
|