Subversion Repositories Kolibri OS

idbChange	equ 2

idbCreate	equ 3

idbLeft 	equ 4

idbRight	equ 5

idbCancel	equ 1

DlgAdd:

DlgProp:

	mov	eax,[SelIcon]

	mov	[DlgSelIcon],eax

	cmp	eax,-1

	jne	SetProp

    ;-----------

	mov	eax,[MouseX]

	mov	ebx,[MouseY]

	cmp	ax,[wsX]

	jae	@f

	mov	ax,[wsX]

      @@:

	cmp	bx,[wsY]

	jae	@f

	mov	bx,[wsY]

      @@:			    ;eax,ebx - ॠ«ì­ ï ª®®à¤¨­ â . ‚ᥠª®®à¤¨­ âë ¢ ¯à®£¥ ®â­®á¨â¥«ì­® «¥¢®£® ¢¥àå­¥£® 㣫  à ¡®ç¥© ®¡« áâ¨

	xor	edx,edx

	mov	dx,[wsXe]

	sub	edx,ICON_SIZE

	cmp	eax,edx

	jbe	@f

	mov	eax,edx

      @@:

	mov	dx,[wsYe]

	sub	edx,ICON_SIZE

	cmp	ebx,edx

	jbe	@f

	mov	ebx,edx

      @@:

	xor	edx,edx 	     ;¯à¥®¡à §®¢ë¢ ¥¬ ¢ ®â­®á¨â¥«ì­ë¥

	mov	dx,[wsW]

	shr	edx,1

	add	dx,[wsX]

	cmp	eax,edx

	jbe	@f

	sub	ax,[wsXe]

	inc	ax

	jmp	.dlg1

      @@:

	sub	ax,[wsX]

    .dlg1:

	xor	edx,edx

	mov	dx,[wsH]

	shr	edx,1

	add	dx,[wsY]

	cmp	ebx,edx

	jbe	@f

	sub	bx,[wsYe]

	inc	bx

	jmp	.dlg2

      @@:

	sub	bx,[wsY]

    .dlg2:

	mov	[AddX],eax

	mov	[AddY],ebx

    ;-----------

	mov	ecx,NAME_LENGTH

	mov	edi,DAreaName

	xor	al,al

	rep	stosb

	mov	dword[edtName.size],0

	mov	dword[edtName.pos],0

	mov	ecx,256

	mov	edi,DAreaPath

	rep	stosb

	mov	dword[edtExePath.size],0

	mov	dword[edtExePath.pos],0

	mov	ecx,256

	mov	edi,DAreaParams

	rep	stosb

	mov	dword[edtParams.size],0

	mov	dword[edtParams.pos],0

	mov	ecx,256

	mov	edi,DAreaIcon

	mov	[DAreaIcon],'0'

	mov	dword[edtIcon.size],1

	mov	dword[edtIcon.pos],1

	jmp	startDlg

    ;--------

SetProp:

	mov	esi,[IconsOffs+eax*4]

	mov	edi,DAreaName

	xor	ecx,ecx

     @@:

	lodsb

	stosb

	inc	ecx

	test	al,al

	jnz	@b

	dec	ecx

	mov	dword[edtName.size],ecx

	mov	dword[edtName.pos],ecx

	xor	ecx,ecx

	mov	edi,DAreaPath

     @@:

	lodsb

	stosb

	inc	ecx

	test	al,al

	jnz	@b

	dec	ecx

	mov	dword[edtExePath.size],ecx

	mov	dword[edtExePath.pos],ecx

	xor	ecx,ecx

	mov	edi,DAreaParams

     @@:

	lodsb

	stosb

	inc	ecx

	test	al,al

	jnz	@b

	dec	ecx

	mov	dword[edtParams.size],ecx

	mov	dword[edtParams.pos],ecx

	xor	ecx,ecx

	mov	edi,DAreaIcon

     @@:

	lodsb

	stosb

	inc	ecx

	test	al,al

	jnz	@b

	dec	ecx

	mov	dword[edtIcon.size],ecx

	mov	dword[edtIcon.pos],ecx

startDlg:

	mcall	9,RBProcInfo,-1

	mcall	18,21,dword[RBProcInfo+30]

	mov	[slotDlgAdd],eax

	or	[edtName.flags],ed_focus

	mcall	40,EVM_REDRAW+EVM_KEY+EVM_BUTTON+EVM_MOUSE+EVM_MOUSE_FILTER

	xor	eax,eax

	mov	dword[MaxPage],0

      @@:

	add	eax,ICONS_DRAW_COUNTW

	inc	dword[MaxPage]

	cmp	eax,[icon_count]

	jb	@b

	dec	dword[MaxPage]

	cmp	dword[MaxPage],0

	jne	@f

	mov	dword[MaxPage],1

      @@:

DReDraw:

	mcall	48,3,sc,40

	mov	eax,[sc.work]

	rol	eax,16

	add	al,9

	jnc	@f

	mov	al,0FFh

      @@:

	rol	eax,16

	add	al,9

	jnc	@f

	mov	al,0FFh

      @@:

	add	ah,9

	jnc	@f

	mov	ah,0FFh

      @@:

	mov	[sbIcons.bckg_col],eax

	m2m	[sbIcons.frnt_col],[sc.work]

	m2m	[sbIcons.line_col],[sc.work_graph]

	;edit_boxes_set_sys_color edtIcon,endEdits,sc

	edit_boxes_set_sys_color edtName,endEdits,sc

	m2m	[edtIcon.color],[sc.work]

	m2m	[edtIcon.blur_border_color],[sc.work]

	call	DRedrawWin

DMessages:

	mcall	10		;WaitMessage

	dec	eax

	jz	DReDraw

	dec	eax

	jz	DKey

	dec	eax

	jz	DButton

	sub	eax,3

	jz	DMouse

	jmp  DMessages

;---------------------------------------------------------------------

DKey:

	mcall	2		;GetKeyPressed

	cmp	ah,1Bh

	je	DExit

	cmp	ah,9  ;Tab

	je	DNextEdit

	stdcall [edit_box_key],edtName

	stdcall [edit_box_key],edtExePath

	stdcall [edit_box_key],edtParams

	;stdcall [edit_box_key],edtIcon

	jmp	DMessages

DNextEdit:

	test	[edtName.flags],ed_focus

	jne	 .DNE1

	test	[edtExePath.flags],ed_focus

	jne	 .DNE2

	test	[edtParams.flags],ed_focus

	jne	 .DNE3

	;test    [edtIcon.flags],ed_focus

	;jne      .DNE4

	jmp	DMessages

    .DNE1:

	and	[edtName.flags],not ed_focus

	or	[edtExePath.flags],ed_focus

	stdcall [edit_box_draw],edtName

	stdcall [edit_box_draw],edtExePath

	jmp	DMessages

    .DNE2:

	and	[edtExePath.flags],not ed_focus

	or	[edtParams.flags],ed_focus

	stdcall [edit_box_draw],edtExePath

	stdcall [edit_box_draw],edtParams

	jmp	DMessages

    .DNE3:

	and	[edtParams.flags],not ed_focus

	or	[edtName.flags],ed_focus

	stdcall [edit_box_draw],edtParams

	stdcall [edit_box_draw],edtName

	jmp	DMessages

    ;.DNE4:

    ;    and     [edtIcon.flags],not ed_focus

    ;    or      [edtName.flags],ed_focus

    ;    stdcall [edit_box_draw],edtName

    ;    stdcall [edit_box_draw],edtIcon

    ;    jmp     DMessages

;---------------------------------------------------------------------

DButton:

	mcall	17		;GetButtonPressed

	cmp	ah, idbCancel

	je	DExit

	cmp	ah,idbChange

	je	DSetExePath

	cmp	ah,idbCreate

	je	DSaveIcon

	jmp	DMessages

;-------------------------------------------------------------------------------

DMouse:

	stdcall [edit_box_mouse],edtName

	stdcall [edit_box_mouse],edtExePath

	stdcall [edit_box_mouse],edtParams

;        stdcall [edit_box_mouse],edtIcon

	push	[sbIcons.position]

	stdcall [scrollbar_h_mouse],sbIcons

	pop	eax

	cmp	eax,[sbIcons.position]

	je	@f

	call	DrawStdIcons

      @@:

	mcall	37,2		;GetMouseKey

	test	eax,1

	jz	DMessages

	mcall	37,1		;GetMouseWinPos

	test	eax,10001000h

	jne	DMessages

	xor	edx,edx

	mov	dx,ax	  ;y

	shr	eax,16	  ;x

	sub	eax,ICONSX

	js	DMessages

	sub	edx,ICONSY

	js	DMessages

	cmp	eax,(IMG_SIZE+SPCW)*ICONS_DRAW_COUNTW-SPCW

	ja	DMessages

	cmp	edx,(IMG_SIZE+SPCH)*ICONS_DRAW_COUNTH-SPCH

	ja	DMessages

	xor	ebx,ebx

	mov	ecx,[sbIcons.position]

	test	ecx,ecx

	jz	.DM

     @@:

	add	ebx,ICONS_DRAW_COUNTH

	loop	@b

     .DM:

	sub	eax,IMG_SIZE+SPCW

	js     .DM1

     @@:

	add	ebx,ICONS_DRAW_COUNTH

	sub	eax,IMG_SIZE+SPCW

	jns	@b

     .DM1:

	sub	edx,IMG_SIZE+SPCH

	js     .DM2

     @@:

	inc	ebx

	sub	edx,IMG_SIZE+SPCH

	jns	@b

     .DM2:

	mov	eax,ebx

	cmp	eax,[icon_count]

	jae	DMessages

;       stdcall byteToHex,al,DAreaIcon  ;2

	stdcall intToStr,eax,DAreaIcon

	mov	dword[edtIcon.size],edx

    ; stdcall [edit_box_draw],edtIcon

	call DrawSelIcon

	jmp	 DMessages

;-------------------------------------------------------------------------------

DSetExePath:

	stdcall [OpenDialog_Start],OpenDialog_data

	mov	edi,DAreaPath

	xor	al,al

	or	ecx,-1

	repne	scasb

	sub	edi,DAreaPath

	dec	edi

	mov	dword[edtExePath+12*4],edi

	jmp	DMessages;DReDraw;

DSaveIcon:

	mov	edi,DAreaName

	mov	esi,secRButt

    @@: lodsb

	scasb

	jne	@f

	test	al,al

	jnz	@b

	mov	dword[fiRunProg+8],ErrName

	mov	dword[fiRunProg+21],pthNotify

	mcall	70,fiRunProg

	jmp	DMessages

    @@:

	mov	dword[fiRunProg+8],WarningSave

	mov	dword[fiRunProg+21],pthNotify

	mcall	70,fiRunProg

	cmp	[DlgSelIcon],-1

	je	@f

	stdcall EditIcon,[DlgSelIcon],DAreaIcon,DAreaName,DAreaPath,DAreaParams

	mov	ebx,[DlgSelIcon]

	mov	eax,[IconsID+ebx*4]

	jmp	DExitAndSave

     @@:

	call	GenerateID

	mov	ebx,[MaxNumIcon]

	mov	[IconsID+ebx*4],eax

	push	eax

	stdcall AddIcon,[AddX],[AddY],DAreaIcon,DAreaName,DAreaPath,DAreaParams

	pop	eax

;-------------------------------------------------------------------------------

DExitAndSave:

	mov	dword[nameSection],eax

	stdcall [ini_set_str],IconIni,nameSection,keyName,DAreaName,dword[edtName.size]

	stdcall [ini_set_str],IconIni,nameSection,keyPath,DAreaPath,dword[edtExePath.size]

	stdcall [ini_set_str],IconIni,nameSection,keyParams,DAreaParams,dword[edtParams.size]

	stdcall [ini_set_str],IconIni,nameSection,keyIco,DAreaIcon,dword[edtIcon.size]

	cmp	[DlgSelIcon],-1

	jne	@f

	stdcall [ini_set_int],IconIni,nameSection,keyX,[MouseX]

	stdcall [ini_set_int],IconIni,nameSection,keyY,[MouseY]

      @@:

DExit:

	mov	[DlgAddActiv],0

	mov	[slotDlgAdd],0

	mcall	-1		;ExitThread

;##################################################################

proc DRedrawWin

	mcall	12,1		;RedrawWinBeg

	mov	edx,[sc.work]

	or	edx,34000000h

	cmp	[DlgSelIcon],-1

	jne	 @f

	mov	edi,DTitleAdd

	jmp	.l1

      @@:

	mov	edi,DTitleProp

      .l1:

	mcall	0,<100,END_ICONS_AREAW+ICONSX+10>,<100,(IMG_SIZE+SPCH)*ICONS_DRAW_COUNTH+178>,,,

	stdcall [edit_box_draw],edtName

	stdcall [edit_box_draw],edtExePath

	stdcall [edit_box_draw],edtParams

	call	DrawStdIcons

	stdcall [scrollbar_h_draw],sbIcons

	mcall 38,,,[sc.work_graph]

	mcall	,,,[sc.work_graph]

	mcall	,,,[sc.work_graph]

	mcall	,,,[sc.work_graph]

	;BUTTONS

	mcall	8,<265,75>,<30+END_ICONS_AREAH,24>,idbCreate,[sc.work_button]

	mcall	 ,<360,77>,			  ,idbCancel

	mcall	 ,,<30,20> ,idbChange

	;CAPTIONS

	mov	ecx,[sc.work_text]

	or	ecx,90000000h

	mcall	4,<30+IMG_SIZE,10>,,DCaptName

	mcall	 ,<30+IMG_SIZE,35>,,DCaptPath

	mcall	 ,<30+IMG_SIZE,59>,,DCaptParams

if lang eq ru

	mov	ecx,[sc.work_button_text]

	or	ecx,90000000h

	mcall	 ,<369,35+END_ICONS_AREAH>,,DCaptCancel

	cmp	[DlgSelIcon],-1

	jne	@f

	mpack	ebx,275,35+END_ICONS_AREAH

	mov	edx,DCaptCreate

	jmp	.DRD1

      @@:

	mpack	ebx,272,35+END_ICONS_AREAH

	mov	edx,DCaptProperties

     .DRD1:

else

	mov	ecx,[sc.work_button_text]

	or	ecx,90000000h

	mcall	 ,<372,35+END_ICONS_AREAH>,,DCaptCancel

	cmp	[DlgSelIcon],-1

	jne	@f

	mpack	ebx,277,35+END_ICONS_AREAH

	mov	edx,DCaptCreate

	jmp	.DRD1

      @@:

	mpack	ebx,277,35+END_ICONS_AREAH

	mov	edx,DCaptProperties

     .DRD1:

end if

	mcall

	pusha

	mov	ecx,[sc.work_button_text]

	or	ecx,90000000h

	mcall 4,,,DCaptDots

	popa

	call DrawSelIcon

	mcall	12,2		;RedrawWinEnd

	ret

endp

proc DrawStdIcons

local IcoX:DWORD,\

      IcoY:DWORD,\

      iIcon:DWORD

	mov	ecx,[sbIcons.position]

	xor	eax,eax

	m2m	dword[iIcon],0

	test	ecx,ecx

	jz	.DST1

     @@:

	add	[iIcon],ICONS_DRAW_COUNTH

	add	eax,IMG_SIZE*IMG_SIZE*4*ICONS_DRAW_COUNTH

	loop	@b

   .DST1:

	lea	esi,[eax+44]

	add	esi,[raw_pointer]

	mov	[IcoX],ICONSX

	mov	ecx,ICONS_DRAW_COUNTW

  .DrawIcons:

	push	ecx

	mov	[IcoY],ICONSY

	mov	ecx,ICONS_DRAW_COUNTH

  .DrawIcoStolb:

	push	ecx

	mov	edi,DlgBufImg

	mov	edx,IMG_SIZE

    .DrawLine:

	mov	ecx,IMG_SIZE

     .DrawPix:

	lodsd

	test	eax,0FF000000h

	jnz	@f

	mov	eax,[sc.work]

     @@:

	mov	[edi],ax

	shr	eax,16

	mov	[edi+2],al

	add	edi,3

	loop	.DrawPix

	dec	edx

	jnz    .DrawLine

	mov	edx,[IcoX]

	shl	edx,16

	mov	dx,word[IcoY]

	mcall	7,DlgBufImg,

	inc	[iIcon]

	mov	eax,[iIcon]

	cmp	eax,[icon_count]

	jae	.endDrawIcon

	add	dword[IcoY],IMG_SIZE+SPCH

	pop	ecx

	loop	.DrawIcoStolb

	add	dword[IcoX],IMG_SIZE+SPCW

	pop	ecx

	loop	.DrawIcons

	jmp	.endProc

    .endDrawIcon:

	mov	ecx,IMG_SIZE*IMG_SIZE

	mov	edi,DlgBufImg

	mov	eax,[sc.work]

	mov	ebx,eax

	shr	ebx,16

     @@:

	mov	word[edi],ax

	mov	[edi+2],bl

	add	edi,3

	loop	@b

				     ;§ â¨à ­¨¥ ­¥ ¨á¯®«ì§®¢ ­ëå ¬¥áâ

	jmp	.Dalee

  .DrawIcons2:

	push	ecx

	mov	[IcoY],ICONSY

	mov	ecx,ICONS_DRAW_COUNTH

  .DrawIcoStolb2:

	push	ecx

	mov	edx,[IcoX]

	shl	edx,16

	mov	dx,word[IcoY]

	mcall	7,DlgBufImg,

     .Dalee:

	add	dword[IcoY],IMG_SIZE+SPCH

	pop	ecx

	loop	.DrawIcoStolb2

	add	dword[IcoX],IMG_SIZE+SPCW

	pop	ecx

	loop	.DrawIcons2

   .endProc:

	ret

endp

proc DrawSelIcon

	mov	edx,[sc.work]

	mcall 13,,<59,12>

	mov	ecx,[sc.work_text]

	or	ecx,90000000h

	mcall 4,,,DAreaIcon

	mov	edi,DAreaIcon

	cmp	byte[edi],0

	jne	@f

	ret

      @@:

	;stdcall hexToInt, edi

	stdcall strToInt, edi

     @@:	     ;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,44

	mov	edi,DlgBufImg

	mov	edx,IMG_SIZE

    .DrawLine:

	mov	ecx,IMG_SIZE

     .DrawPix:

	lodsd

	test	eax,0FF000000h

	jnz	@f

	mov	eax,[sc.work]

     @@:

	mov	word[edi],ax

	shr	eax,16

	mov	[edi+2],al

	add	edi,3

	loop	.DrawPix

	dec	edx

	jnz	.DrawLine

	mcall	7,DlgBufImg,,<30,15>

	ret

endp

;NOT USED

proc hexToInt strz:DWORD

	push	ebx

	mov	ebx,[strz]

	mov	al,[ebx]

	xor	edx,edx

.loop:

	xor	ecx,ecx

	inc	ebx

	shl	edx,4

	cmp	al,'0'

	jb	.err

	cmp	al,'9'

	jbe	.conv

	mov	ecx,10

	sub	al,11h

	cmp	al,'0'

	jb	.err

	cmp	al,'6'

	ja	.err

.conv:

	sub	al,30h

	add	dl,al

	mov	al,[ebx]

	add	dl,cl

	test	al,al

	jnz	.loop

	mov	eax,edx

	pop	ebx

	ret

.err:

	xor	eax,eax

	pop	ebx

	ret

endp

;NOT USED

proc byteToHex byti:BYTE,target:DWORD

	push	ebx

	mov	ebx,[target]

	mov	dl,[byti]

	rol	dl,4

	mov	ecx,2

.loop:

	mov	al,dl

	and	al,0xF

	cmp	al,10

	jae	@f

	add	al,0x30

	jmp	.n

@@:

	add	al,0x41-10

.n:

	mov	[ebx],al

	inc	ebx

	rol	dl,4

	loop	.loop

	mov	byte[ebx],0

@@:	pop	ebx

	ret

	jmp	@b

endp

proc strToInt strz:DWORD

	push	ebx edi esi

	stdcall strLen, [strz]

	xor	edx,edx

	xor	ebx,ebx

	xor	edi,edi

	std

	inc	ebx

	mov	esi,[strz]

	lea	esi,[esi+eax-2]

.loop:

	xor	eax,eax

	lodsb

	cmp	al,'0'

	jb	.err

	cmp	al,'9'

	ja	.err

	sub	al,0x30

	mul	ebx

	lea	ebx,[ebx*4+ebx] 	;ebx = ebx*10

	shl	ebx,1

	add	edi,eax

	cmp	esi,[strz]

	jae	.loop

	cld

	mov	eax,edi

	pop	esi edi ebx

	ret

.err:

	cld

	or	eax,-1

	pop	esi edi ebx

	ret

endp

;ret: target - string, edx - length string

proc intToStr inti:DWORD, target:DWORD

locals

   resl rb 16

endl

	lea	edi,[resl]

	mov	eax,[inti]

	xor	ecx,ecx

	mov	ebx,10

	jmp	.stlp

.loop:

	xor	edx,edx

	div	ebx

	mov	[edi],dl

	inc	edi

	inc	ecx

.stlp:	cmp	eax,10

	jae	.loop

	mov	[edi],al

	inc	ecx

	mov	edx,ecx

	mov	ebx,[target]

.conv:

	mov	al,[edi]

	add	al,0x30

	mov	[ebx],al

	inc	ebx

	dec	edi

	loop	.conv

	mov	byte[ebx],0

	ret

endp

;for 'ab',0  strLen = 3

proc strLen stringZ:DWORD

	push	edi

	xor	al,al

	mov	edi,[stringZ]

	or	ecx,-1

	repne	scasb

	sub	edi,[stringZ]

	mov	eax,edi

	pop	edi

	ret

endp